IBM Mainframe Forum

Hello Dick,
I got the whole log message here:
(1) JCL:
******************************** Top of Data ***********************************
1 //FDX1701A JOB (C103081100),'XP',CLASS=A, JOB19706
// MSGCLASS=X,NOTIFY=FDX1701
/*JOBPARM ROOM=109,S=EIS1
//*
//*******************************************************************
//* *
//* THIS JCL IS WRITTEN TO CREATE THE LAST MONTH FAMIS MONTHLY FILE *
//* *
//*******************************************************************
//* *
//*******************************************************************
//* SCRATCH STEP *
//*******************************************************************
2 //STEP005 EXEC PGM=SCRATCH
3 //SYSPRINT DD SYSOUT=*
4 //SYSIN DD *
5 //STEP010 EXEC FOCUS,REGION=4096K
6 XXFOCUS PROC REG='4096K',
XX SYSOUT='*',
XX OFFLINE='*',
XX SORTCYL='25,2',
XX HOLDCYL='10,1',
XX SAVECYL='10,1',
XX SRTSPACE='(CYL,05,,,ROUND)',
XX STKSPACE='(TRK,(5,1),RLSE)',
XX SMLSPACE='(TRK,(5,1),RLSE)',
XX SYSIN='DUMMY',
XX HOLDMAST='UNIT=TEMP,SPACE=(TRK,(1,1,1),RLSE)',
XX MASTER='PPS.FOCUS.MASTER.DATA',
XX FOCEXEC='PPS.FOCUS.FOCEXEC.DATA',
XX FOCSQL='FED.PROD.FOCSQL'
XX**
XX** FOCUS BATCH PROC **/
XX**
7 XXFOCUS EXEC PGM=FOCUS,REGION=&REG 00002960
XX*
XX** DSNS FOR FOCUS ***********************************************//
IEFC653I SUBSTITUTION JCL - PGM=FOCUS,REGION=4096K
8 XXSTEPLIB DD DISP=SHR,DSN=PPS.FOCUS.FOCLIB.LOAD 00003190
9 XX DD DISP=SHR,DSN=PPS.FOCUS.FOCSQL.LOAD 00003190
10 XX DD DISP=SHR,DSN=PPS.FOCUS.FUSELIB.LOAD 00003190
11 XX DD DISP=SHR,DSN=DB2PAS.CURR.SDSNLOAD
12 XXUSERLIB DD DISP=SHR,DSN=PPS.FOCUS.FUSELIB.LOAD 00003240
13 XX DD DISP=SHR,DSN=FED.PROD.CALL
14 XXERRORS DD DISP=SHR,DSN=PPS.FOCUS.ERRORS.DATA 00003310
XX** DSNS FOR FOCUS **********************************************//
15 XXFOCSQL DD DISP=SHR,DSN=&FOCSQL
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=FED.PROD.FOCSQL
16 //MASTER DD DSN=FDX1701.FOCUS.MASTER,DISP=SHR
X/MASTER DD DISP=SHR,DSN=&MASTER 00003270
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=PPS.FOCUS.MASTER.DATA
17 XX DD DISP=SHR,DSN=FED.PROD.FOCMSTR
18 //FOCEXEC DD DSN=FDX1701.FOCUS.PROGRAM,DISP=SHR
X/FOCEXEC DD DISP=SHR,DSN=&FOCEXEC 00003290
XX*
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=PPS.FOCUS.FOCEXEC.DATA
19 //HOLDMAST DD DSN=FDX1701.FOCUS.HOLDMAST,DISP=OLD
X/HOLDMAST DD &HOLDMAST 00003550
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(TRK,(1,1,1),RLSE)
20 XXHOLD DD UNIT=TEMP,SPACE=(CYL,(&HOLDCYL),RLSE) 00003450
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(CYL,(10,1),RLSE)
21 XXSAVE DD UNIT=TEMP,SPACE=(CYL,(&SAVECYL),RLSE) 00003470
XX*
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(CYL,(10,1),RLSE)
22 //FOCSORT DD UNIT=TEMP,SPACE=(CYL,(800,200))
X/FOCSORT DD UNIT=TEMP,SPACE=(CYL,(&SORTCYL),RLSE) 00003480
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(CYL,(25,2),RLSE)
23 //FOCSTACK DD UNIT=TEMP,SPACE=(CYL,(800,200))
X/FOCSTACK DD UNIT=TEMP,SPACE=&STKSPACE 00003460
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(TRK,(5,1),RLSE)
24 XXFOCSML DD UNIT=TEMP,SPACE=&SMLSPACE
XX*
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(TRK,(5,1),RLSE)
25 //SYSOUT DD SYSOUT=X 00003260
X/SYSOUT DD SYSOUT=&SYSOUT
IEFC653I SUBSTITUTION JCL - SYSOUT=*
26 //SYSPRINT DD SYSOUT=X 00003230
X/SYSPRINT DD SYSOUT=&SYSOUT
IEFC653I SUBSTITUTION JCL - SYSOUT=*
27 //OFFLINE DD SYSOUT=X 00003210
X/OFFLINE DD SYSOUT=&OFFLINE
XX*
IEFC653I SUBSTITUTION JCL - SYSOUT=*
28 XXSORTWK01 DD UNIT=DISK,SPACE=&SRTSPACE 00003610
IEFC025I INSTALLATION MODIFIED JCL - XXSORTWK01 DD UNIT=TEMP,SPACE=&SRTSPACE
++++++++
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(CYL,05,,,ROUND)
29 XXSORTWK02 DD UNIT=DISK,SPACE=&SRTSPACE 00003620
IEFC025I INSTALLATION MODIFIED JCL - XXSORTWK02 DD UNIT=TEMP,SPACE=&SRTSPACE
++++++++
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(CYL,05,,,ROUND)
30 XXSORTWK03 DD UNIT=DISK,SPACE=&SRTSPACE 00003630
IEFC025I INSTALLATION MODIFIED JCL - XXSORTWK03 DD UNIT=TEMP,SPACE=&SRTSPACE
++++++++
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(CYL,05,,,ROUND)
31 XXSORTWK04 DD UNIT=DISK,SPACE=&SRTSPACE 00003630
IEFC025I INSTALLATION MODIFIED JCL - XXSORTWK04 DD UNIT=TEMP,SPACE=&SRTSPACE
++++++++
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(CYL,05,,,ROUND)
32 XXSORTWK05 DD UNIT=DISK,SPACE=&SRTSPACE 00003630
IEFC025I INSTALLATION MODIFIED JCL - XXSORTWK05 DD UNIT=TEMP,SPACE=&SRTSPACE
++++++++
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(CYL,05,,,ROUND)
33 XXSORTWK06 DD UNIT=DISK,SPACE=&SRTSPACE 00003630
IEFC025I INSTALLATION MODIFIED JCL - XXSORTWK06 DD UNIT=TEMP,SPACE=&SRTSPACE
++++++++
IEFC653I SUBSTITUTION JCL - UNIT=TEMP,SPACE=(CYL,05,,,ROUND)
34 //SYSIN DD *
X/SYSIN DD DISP=SHR,DSN=&SYSIN 00003610
//********************************************************
//* FAMIS MASTERS ARE IN IRM.PUBLIC.MASTER.DATA
//********************************************************
//* DD DSN=FED.PDS.PRODCOPY,DISP=SHR
//********************************************************
//* FAMIS FOCUS FSB13P DATABASES *
//********************************************************
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=DUMMY
35 //FSB13P1 DD DSN=FED.FOC.FSD00003.FSB03P1,DISP=SHR
36 //FSB13P2 DD DSN=FED.FOC.FSD00003.FSB03P2,DISP=SHR
37 //FSB13P3 DD DSN=FED.FOC.FSD00003.FSB03P3,DISP=SHR
38 //FSB13P4 DD DSN=FED.FOC.FSD00003.FSB03P4,DISP=SHR
39 //FSFSTAT DD DSN=FED.FOC.FSD00099.FSFSTAT,DISP=SHR
40 //FAM13 DD DSN=FDX1701.FAM13P.MONDATA,
// DISP=(NEW,CATLG,CATLG),
// UNIT=DISK,SPACE=(CYL,(800,120)),
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=7400)
//*
IEFC025I INSTALLATION MODIFIED JCL - // UNIT=TEMP,SPACE=(CYL,(800,120)),
++++++++
41 //SYSPRINT DD SYSOUT=*
******************************* Bottom of Data ********************************
(2) messages
******************************** Top of Data ***********************************
STMT NO. MESSAGE
5 IEFC001I PROCEDURE FOCUS WAS EXPANDED USING SYSTEM LIBRARY SYS3.PROCLIB
34 IEF655I INVALID DSNAME SPECIFIED WHEN SYSIN OR SYSOUT SPECIFIED
ICH70001I FDX1701 LAST ACCESS AT 17:01:30 ON WEDNESDAY, OCTOBER 1, 2008
IEF236I ALLOC. FOR FDX1701A STEP005
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSIN
IGD100I VIO ALLOCATED TO DDNAME IDCSYSIN DATACLAS ( )
IEF142I FDX1701A STEP005 - STEP WAS EXECUTED - COND CODE 0000
IEF285I FDX1701.FDX1701A.JOB19706.D0000103.? SYSOUT
IEF285I FDX1701.FDX1701A.JOB19706.D0000101.? SYSIN
IEF285I SYS08275.T170357.RA000.FDX1701A.R1063426 DELETED
IEF373I STEP/STEP005 /START 2008275.1703
IEF374I STEP/STEP005 /STOP 2008275.1703 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 240K SYS 252K EXT 4K SYS 9028K
IEF236I ALLOC. FOR FDX1701A FOCUS STEP010
IEF237I EF2D ALLOCATED TO STEPLIB
IEF237I EF2D ALLOCATED TO
IEF237I EF2D ALLOCATED TO
IEF237I A342 ALLOCATED TO
IEF237I EF2D ALLOCATED TO USERLIB
IEF237I C130 ALLOCATED TO
IEF237I EF2D ALLOCATED TO ERRORS
IEF237I E183 ALLOCATED TO FOCSQL
IEF237I A275 ALLOCATED TO MASTER
IEF237I E183 ALLOCATED TO
IEF237I A275 ALLOCATED TO FOCEXEC
IEF237I A275 ALLOCATED TO HOLDMAST
IGD101I SMS ALLOCATED TO DDNAME (HOLD )
DSN (SYS08275.T170357.RA000.FDX1701A.R1063415 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPS08
IGD101I SMS ALLOCATED TO DDNAME (SAVE )
DSN (SYS08275.T170357.RA000.FDX1701A.R1063416 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPS09
IGD101I SMS ALLOCATED TO DDNAME (FOCSORT )
DSN (SYS08275.T170357.RA000.FDX1701A.R1063417 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPM20
IGD101I SMS ALLOCATED TO DDNAME (FOCSTACK)
DSN (SYS08275.T170357.RA000.FDX1701A.R1063418 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPM07
IGD101I SMS ALLOCATED TO DDNAME (FOCSML )
DSN (SYS08275.T170357.RA000.FDX1701A.R1063419 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPSD2
IEF237I JES2 ALLOCATED TO SYSOUT
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO OFFLINE
IGD101I SMS ALLOCATED TO DDNAME (SORTWK01)
DSN (SYS08275.T170357.RA000.FDX1701A.R1063420 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPS22
IGD101I SMS ALLOCATED TO DDNAME (SORTWK02)
DSN (SYS08275.T170357.RA000.FDX1701A.R1063421 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPS20
IGD101I SMS ALLOCATED TO DDNAME (SORTWK03)
DSN (SYS08275.T170357.RA000.FDX1701A.R1063422 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPS03
IGD101I SMS ALLOCATED TO DDNAME (SORTWK04)
DSN (SYS08275.T170357.RA000.FDX1701A.R1063423 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPSD4
IGD101I SMS ALLOCATED TO DDNAME (SORTWK05)
DSN (SYS08275.T170357.RA000.FDX1701A.R1063424 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPS11
IGD101I SMS ALLOCATED TO DDNAME (SORTWK06)
DSN (SYS08275.T170357.RA000.FDX1701A.R1063425 )
STORCLAS (TEMP) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= TMPS17
IEF237I JES2 ALLOCATED TO SYSIN
IEF237I A37B ALLOCATED TO FSB13P1
IEF237I A37B ALLOCATED TO FSB13P2
IEF237I E37C ALLOCATED TO FSB13P3
IEF237I A37B ALLOCATED TO FSB13P4
IEF237I A37B ALLOCATED TO FSFSTAT
IGD17038I DADSM INSTALLATION EXIT REJECTED THIS REQUEST
WITH A RETURN CODE OF 4
FOR DATA SET FDX1701.FAM13P.MONDATA
IGD17038I DADSM INSTALLATION EXIT REJECTED THIS REQUEST
WITH A RETURN CODE OF 4
FOR DATA SET FDX1701.FAM13P.MONDATA
IGD17038I DADSM INSTALLATION EXIT REJECTED THIS REQUEST
WITH A RETURN CODE OF 4
FOR DATA SET FDX1701.FAM13P.MONDATA
IGD100I D018 ALLOCATED TO DDNAME FAM13 DATACLAS ( )
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I DMY ALLOCATED TO STDOUT
IEF142I FDX1701A FOCUS STEP010 - STEP WAS EXECUTED - COND CODE 0000
IEF285I PPS.FOCUS.FOCLIB.LOAD KEPT
IEF285I VOL SER NOS= PPP002.
IEF285I PPS.FOCUS.FOCSQL.LOAD KEPT
IEF285I VOL SER NOS= PPP002.
IEF285I PPS.FOCUS.FUSELIB.LOAD KEPT
IEF285I VOL SER NOS= PPP002.
IEF285I DB2PAS.CURR.SDSNLOAD KEPT
IEF285I VOL SER NOS= D2PAS1.
IEF285I PPS.FOCUS.FUSELIB.LOAD KEPT
IEF285I VOL SER NOS= PPP002.
IEF285I FED.PROD.CALL KEPT
IEF285I VOL SER NOS= BATP80.
IEF285I PPS.FOCUS.ERRORS.DATA KEPT
IEF285I VOL SER NOS= PPP002.
IEF285I FED.PROD.FOCSQL KEPT
IEF285I VOL SER NOS= USR100.
IEF285I FDX1701.FOCUS.MASTER KEPT
IEF285I VOL SER NOS= INFO11.
IEF285I FED.PROD.FOCMSTR KEPT
IEF285I VOL SER NOS= USR100.
IEF285I FDX1701.FOCUS.PROGRAM KEPT
IEF285I VOL SER NOS= INFO11.
IEF285I FDX1701.FOCUS.HOLDMAST KEPT
IEF285I VOL SER NOS= INFO11.
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063415 DELETED, DDNAME=HOLD
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063416 DELETED, DDNAME=SAVE
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063417 DELETED, DDNAME=FOCSORT
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063418 DELETED, DDNAME=FOCSTACK
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063419 DELETED, DDNAME=FOCSML
IEF285I FDX1701.FDX1701A.JOB19706.D0000104.? SYSOUT
IEF285I FDX1701.FDX1701A.JOB19706.D0000105.? SYSOUT
IEF285I FDX1701.FDX1701A.JOB19706.D0000106.? SYSOUT
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063420 DELETED, DDNAME=SORTWK01
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063421 DELETED, DDNAME=SORTWK02
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063422 DELETED, DDNAME=SORTWK03
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063423 DELETED, DDNAME=SORTWK04
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063424 DELETED, DDNAME=SORTWK05
IGD105I SYS08275.T170357.RA000.FDX1701A.R1063425 DELETED, DDNAME=SORTWK06
IEF285I FDX1701.FDX1701A.JOB19706.D0000102.? SYSIN
IEF285I FED.FOC.FSD00003.FSB03P1 KEPT
IEF285I VOL SER NOS= IRM002.
IEF285I FED.FOC.FSD00003.FSB03P2 KEPT
IEF285I VOL SER NOS= IRM002.
IEF285I FED.FOC.FSD00003.FSB03P3 KEPT
IEF285I VOL SER NOS= IRM005.
IEF285I FED.FOC.FSD00003.FSB03P4 KEPT
IEF285I VOL SER NOS= IRM002.
IEF285I FED.FOC.FSD00099.FSFSTAT KEPT
IEF285I VOL SER NOS= IRM002.
IEF285I FDX1701.FAM13P.MONDATA CATALOGED
IEF285I VOL SER NOS= TEMPAR.
IEF285I FDX1701.FDX1701A.JOB19706.D0000107.? SYSOUT
IEF373I STEP/FOCUS /START 2008275.1703
IEF374I STEP/FOCUS /STOP 2008275.1704 CPU 0MIN 00.18SEC SRB 0MIN 00.02S
IEF375I JOB/FDX1701A/START 2008275.1703
IEF376I JOB/FDX1701A/STOP 2008275.1704 CPU 0MIN 00.19SEC SRB 0MIN 00.02S
******************************* Bottom of Data ********************************
(3) SYSPRINT STEP010 FOCUS
******************************** Top of Data ***********************************
FOCUS 7.3.4 10/01/2008 17.04.26 8039.08
----------------------------------------------------------------------
FOCUS 7.3.4 17.04.26 10/01/2008 8039.08 LINE 0 8039.08

OFFLINE
----------------------------------------------------------------------
FOCUS 7.3.4 17.04.26 10/01/2008 8039.08 LINE 0 8039.08

DYNAM ALLOC DD FAM13 DA FDX1701.FAM13P.MONDATA SHR
----------------------------------------------------------------------
FOCUS 7.3.4 17.04.26 10/01/2008 8039.08 LINE 0 8039.08
EX GETFAMIS

FOCUS 7.3.4 17.04.26 10/01/2008 GETFAMIS LINE 1 8039.08

USE FSB13P1 FOCUS * AS FSB13P
FSB13P2 FOCUS * AS FSB13P
FSB13P3 FOCUS * AS FSB13P
FSB13P4 FOCUS * AS FSB13P
FSFSTAT FOCUS *
END

----------------------------------------------------------------------
FOCUS 7.3.4 17.04.26 10/01/2008 GETFAMIS LINE 7 8039.08

JOIN CLEAR *

----------------------------------------------------------------------
FOCUS 7.3.4 17.04.26 10/01/2008 GETFAMIS LINE 8 8039.08

JOIN ENTSYSID IN FSB13P TO ENTSYSID IN FSFSTAT

----------------------------------------------------------------------
FOCUS 7.3.4 17.04.26 10/01/2008 GETFAMIS LINE 9 8039.08

DEFINE FILE FSB13P
REGDIS/A4=EDIT(ENTSYSID,'9999');
LOCNBR/I7=EDIT(EDIT(ENTSYSID,'$$$$9999999'));
SYSCHK/I1=IF (LOCTYPE EQ 'RG' AND LOCNUMID GT 0) THEN 0
ELSE IF (LOCTYPE EQ 'DT' AND LOCNUMID GT 0) THEN 0
ELSE 1;
DGO/I1 =(REG FROM '01' TO '06');
ORDER/I1=IF LOCTYPE EQ 'RG' AND LOCNBR EQ 0 THEN 1
ELSE IF LOCTYPE EQ 'DT' AND LOCNBR EQ 0 THEN 2
ELSE 3;
RPTMONTH/MTRYY=FAMISDATE;
RPTDATE/MTRDYY=FAMISDATE;
DAYOFWEEK/WTR =FAMISDATE;
END
----------------------------------------------------------------------
FOCUS 7.3.4 17.04.26 10/01/2008 GETFAMIS LINE 24 8039.08
TEMP/A8MDYY =FAMISDATE;
DATE/A5 =EDIT(TEMP,'99/99');
TOTAL1/I9 =SOPWOPUP+PRTABRNP;
YEAR/YY =FAMISDATE;
END

----------------------------------------------------------------------
FOCUS 7.3.4 17.04.26 10/01/2008 GETFAMIS LINE 31 8039.08

TABLE FILE FSB13P
SUM
COMPUTE OUT/D8=COSOUTPK;
COMPUTE FO/D8 =PUFOPKGS;
COMPUTE FOB/D8=PUFOBOXS;
COMPUTE FOL/D8=PUFODOCS;
COMPUTE PO/D8 =P1PUPKG;
COMPUTE SOB/D8=PUESOBOX+PUESODOC;
COMPUTE E2/D8 =P2PUPKG;
COMPUTE ESP/D8=XSPUPKG;
COMPUTE IFOB/D8=FOBOXES;
COMPUTE IFOL/D8=FODOCS;
COMPUTE IPO/D8 =P1DELPKG;
COMPUTE ISOB/D8=DELESOBO;
COMPUTE ISOL/D8=DELESODO;
COMPUTE E2/D8 =P2DELPKG;
COMPUTE ESP/D8 =XSDELPKG;
BY REGION SKIP-LINE
BY DISTRICT
BY FAMISDATE
IF TYPE EQ 'D'
IF DIS NE '00'
IF FAMISDATE GE '02202000'
ON TABLE SAVE AS FAM13 FORMAT LOTUS
END

ERROR AT OR NEAR LINE 55 IN PROCEDURE GETFAMISFOCEXEC

(FOC036) NO DATA FOUND FOR THE FOCUS FILE NAMED: FSB13P




----------------------------------------------------------------------
FOCUS 7.3.4 17.04.26 10/01/2008 8039.08 LINE 0 8039.08

OFFLINE CLOSE


FIN
******************************* Bottom of Data ********************************

Hello Helen,

It may help if the proc is changed to use ddname rather than dsn.

NO DATA FOUND FOR THE FOCUS FILE NAMED: FSB13P

It appears there is no data?

If this is your first use of Focus, you need to do something very basic to make sure you understand how to work in the environment and that you have proper jcl set up. This application is too big for a first try.

Please run a small test (preferable using the sample distributed with the product) that runs successfully. If that will not run, the more complex application(s) will surely need to wait.

Thanks Dick.
I will contact the person who support JCL to get the setting up.
Thanks again
Helen

Hello Dick,
I have one more question. How can I exactly calculate the CYL BLOCKSIZE etc. ?
The table FSB13P should have 18 columns as follows:

"XXXXXXX "," ",07212008, 628773, 4170, 2759, 1411, 225549, 188086, 136162, 57798, 1473, 1150, 177779, 80080, 84794, 112424, 30834

LRECL=179
total file size=240480(bytes) (sometimes it changes depends on the number of data records)

Many Thanks
Helen

Hello Helen,

To calculate basic space the 2 numbers you need are lrecl and the record count (which gives total file size - which you already have ). If this is a Focus file, i'd suggest looking at the focus documentation for any info about additonal overhead required. If this is a "standard" file, your space management people can tell you the calculation to use for your file as well as any other storage allocation specification(s) you might need to use (i.e. DATACLAS). The good news is that 200k+ bytes is not a large amound of data.

Good luck

Thanks Dick.
You are very helpful, because you're always here.
I need do lots of works then.
Helen

You're welcome

you're always here

I try to check in often. . .

I need do lots of works then.

When there are questions, we will surely try to help. . .

d

Hello Dick,
I checked the code and contact the supporter already. But he told me JCL looks fine.
I think maybe the input file has some issues.
The input datasets should be FOCUS table, but when I opened them, they looked like binary files. I could not see any number.
It makes me headache...
Do you have any idea?
Many many thanks
Helen

Hello Helen,

The input datasets should be FOCUS table, but when I opened them, they looked like binary files.

Yes, Focus files are in a proprietary format (or at least they used to be) and are not meant to be read directly or viewed .

I think maybe the input file has some issues.

Also, yes - the message says there is no data.You may need to have the input files re-created.

But he told me JCL looks fine.

Yup, other than line 36 (where the IEF655I message was issued). WHile the jcl may look fine, it may still be incorrect.

Before spending any more time on this job, you need to successfully run some smaller test and post the results here.

Hello Dick,
The program is working on for FSFSTAT datasets.
I need to check FSB13P. The fields name maybe not match the data.
Anyway, I took a step so far.
Thanks lots.