JCL to demonstrate the combination of REXX, COBOL and Java



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

Re: Please help before I kill myself....

Postby dick scherrer » Sat Dec 13, 2008 9:50 am

Please post the output from the sort as well as the new expanded jcl - we need to see where the go.dds were inserted.

It sounds like the rexx step might not have created anything in outdata. Have you looked at the data in KC02250.BOOKDB.DATA? You might make some new test jcl and run only the rexx and use sysout=* for the output rather than creating a file to make sure the rexx is working correctly.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: Re: Please help before I kill myself....

 

Re: Please help before I kill myself....

Postby Taylor » Sat Dec 13, 2008 11:54 am

Dick, below is output of sort.

I too have this niggling feeling that REXX is where the problems are originating. The input data has one line and one sentinel line, so there is clearly something wrong here. I will try to run the job without REXX, and run REXX on its own, to see what happens. I'd be much better off without REXX at this point, but I couldn't resist the juxtaposition of REXX, COBOL and Java in one job....

Very much appreciate the help, thanks.

ICE143I 0 BLOCKSET     SORT  TECHNIQUE SELECTED                                                                         
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE                                 
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 01:20 ON SAT DEC 13, 2008 -                             
              SORT FIELDS=(1,10,CH,A)                                                                                   
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1                                                                 
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E4-K90007 C9-BASE   E5-K24705 E7-K24705                               
ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED                                           
ICE088I 1 SERVER  .SORTSTEP.        , INPUT LRECL = 80, BLKSIZE = 6160, TYPE = FB                                       
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)                                                                         
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6234096,6234096)                                                                   
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256           
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=SYSOUT                   
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO   ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N             ,ABCODE=MSG     
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB2                 
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=0                                 
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N           
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX                         
ICE235I 0 OPTIONS: NULLOUT=RC0                                                                                         
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT                                                                           
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN                                                                           
ICE750I 0 DC 0 TC 0 CS DSVVV KSZ 10 VSZ 10                                                                             
ICE752I 0 FSZ=1 RC  IGN=0 E  AVG=80 0  WSP=1 C  DYN=0 0                                                                 
ICE751I 1 DE-K24705 D5-K24705 D9-K24705 E8-K24705                                                                       
ICE090I 0 OUTPUT LRECL = 80, BLKSIZE = 27920, TYPE = FB   (SDB)                                                         
ICE080I 0 IN MAIN STORAGE SORT                                                                                         
ICE055I 0 INSERT 0, DELETE 0                                                                                           
ICE054I 0 RECORDS - IN: 0, OUT: 0                                                                                       
ICE173I 0 NO RECORDS FOR THE SORTOUT DATA SET - RC=0                                                                   
ICE134I 0 NUMBER OF BYTES SORTED: 0                                                                                     
ICE199I 0 MEMORY OBJECT STORAGE USED = 0M BYTES                                                                         
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES                                                                           
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES                                                                           
ICE052I 0 END OF DFSORT                                                                                                 
Taylor
 
Posts: 17
Joined: Sat Dec 13, 2008 7:08 am
Has thanked: 0 time
Been thanked: 0 time

It's not REXX or SORT.....

Postby Taylor » Sat Dec 13, 2008 12:08 pm

Took both of them out and the problems with the COBOL step remain. No change.
Taylor
 
Posts: 17
Joined: Sat Dec 13, 2008 7:08 am
Has thanked: 0 time
Been thanked: 0 time

Re: Please help before I kill myself....

Postby dick scherrer » Sat Dec 13, 2008 12:23 pm

Hello,

Took both of them out and the problems with the COBOL step remain. No change.
Until the rexx/sort steps create usable data, the cobol step is not the holdup.

My guess is that the override to insert the dd statements from the "go" step are being misplaced and that causes the "not found".

Again, just to move the testing forward, you might want to create a small file that has the proper content to be used as input to the cobol program. Run this and post back here the expanded jcl and the other jes information from the run.

I'll probably be away for a while - just got tagged with a support request. I'll check back later or in the morning.

Good luck :)
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: Please help before I kill myself....

Postby Taylor » Sat Dec 13, 2008 5:42 pm

Dick, here is effective JCL, there are now just two steps:

       1 //SERVER2 JOB (ITSO),'DUGGAN',REGION=300M,                              JOB04586
         //        CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID                                     
         IEFC653I SUBSTITUTION JCL - (ITSO),'DUGGAN',REGION=300M,CLASS=A,MSGCLASS=H,NOTIFY=KC02250
       2 //PROCLIB JCLLIB ORDER=KC02250.BOOKDB.JCL                                       
         //********************************************************                     
         //* Build the VSAM KSDS file that is used as the database.                     
         //********************************************************                     
         //* STEP ONE: Create the VSAM cluster.                                         
         //********************************************************                     
       3 //VSAMSTEP EXEC PGM=IDCAMS                                                     
       4 //SYSPRINT DD SYSOUT=*                                                         
       5 //SYSIN DD *                                                                   
         //*                                                                             
         //********************************************************                     
         //* STEP FOUR: Compile, link and run a COBOL program                           
         //* that reads from the sorted data into the VSAM cluster,                     
         //* generating a report of the inventory in the process.                       
         //*                                                                             
         //* See JCL notes for the definition of IGYWCLR proc                           
         //********************************************************                     
       6 //COBLSTEP   EXEC IGYWCLG,REGION=250M,                                         
         //   PARM.COBOL='TEST,RENT,APOST,OBJECT,NODYNAM,LIB'                           
       7 XXIGYWCLG PROC LNGPRFX='IGY340',SYSLBLK=3200,                           00001104
         XX    LIBPRFX='CEE',GOPGM=GO                                            00002005
         XX************************************************************          00018006
         XX*                                                                     00019000
         XX*  COMPILE, LINK EDIT AND RUN A COBOL PROGRAM                         00020000
         XX*                                                                     00021000
         XX*  CALLER MUST SUPPLY //COBOL.SYSIN DD ...                            00028000
         XX*                                                                     00029000
         XX*  CALLER MUST ALSO SUPPLY //COBOL.SYSLIB DD ... for COPY statements  00030000
         XX*                                                                     00031000
       8 XXCOBOL  EXEC PGM=IGYCRCTL,REGION=2048K                                 00032000
       9 XXSTEPLIB  DD  DSNAME=&LNGPRFX..SIGYCOMP,                               00033000
         XX             DISP=SHR                                                 00034007
         IEFC653I SUBSTITUTION JCL - DSNAME=IGY340.SIGYCOMP,DISP=SHR
      10 XXSYSPRINT DD SYSOUT=*                                                  00035007
      11 XXSYSLIN   DD DSN=&&LOADSET,UNIT=SYSALLDA,                              00036007
         XX             DISP=(MOD,PASS),SPACE=(TRK,(3,3)),                       00037000
         XX             DCB=(BLKSIZE=&SYSLBLK)                                   00038000
         IEFC653I SUBSTITUTION JCL - DSN=&&LOADSET,UNIT=SYSALLDA,DISP=(MOD,PASS),SPACE=(TRK,(3,3)),DCB=(BLKSIZE=3200)
      12 XXSYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00039000
      13 XXSYSUT2   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00040000
      14 XXSYSUT3   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00041000
      15 XXSYSUT4   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00042000
      16 XXSYSUT5   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00043000
      17 XXSYSUT6   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00044000
      18 XXSYSUT7   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00045000
      19 //COBOL.SYSIN DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(BUILDDBA)                   
      20 //            DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(VSAMREC)                     
      21 //            DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(BUILDDBB)                   
      22 XXLKED   EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K                   00046000
      23 XXSYSLIB   DD  DSNAME=&LIBPRFX..SCEELKED,                               00047000
         XX             DISP=SHR                                                 00048000
         IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
      24 XXSYSPRINT DD  SYSOUT=*                                                 00049000
      25 XXSYSLIN   DD  DSNAME=&&LOADSET,DISP=(OLD,DELETE)                       00050000
      26 XX         DD  DDNAME=SYSIN                                             00051000
      27 XXSYSLMOD  DD  DSNAME=&&GOSET(&GOPGM),SPACE=(TRK,(10,10,1)),            00052000
         XX             UNIT=SYSALLDA,DISP=(MOD,PASS)                            00053000
         IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(TRK,(10,10,1)),UNIT=SYSALLDA,DISP=(MOD,PASS)
      28 XXSYSUT1   DD  UNIT=SYSALLDA,SPACE=(TRK,(10,10))                        00054000
      29 XXGO     EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)),       00055000
         XX             REGION=2048K,TIME=(,20)                                  00056008
      30 XXSTEPLIB  DD  DSNAME=&LIBPRFX..SCEERUN,                                00057000
         XX             DISP=SHR                                                 00058000
         IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
      31 //SYSPRINT    DD  SYSOUT=*                                                     
         X/SYSPRINT DD  SYSOUT=*                                                 00059000
      32 XXCEEDUMP  DD  SYSOUT=*                                                 00060000
      33 XXSYSUDUMP DD  SYSOUT=*                                                 00061000
      34 //GO.BOOKS    DD  DSN=KC02250.BOOKDB.DATA2,DISP=SHR                             
      35 //GO.BOOKDB   DD  DSN=KC02250.BOOKDB.DATABASE,DISP=SHR                         
         //*                                                                             
      36 //SYSIN     DD *               GENERATED STATEMENT                             
Taylor
 
Posts: 17
Joined: Sat Dec 13, 2008 7:08 am
Has thanked: 0 time
Been thanked: 0 time

Re: Please help before I kill myself....

Postby Taylor » Sat Dec 13, 2008 5:42 pm

Here is the job log:

                    J E S 2  J O B  L O G  --  S Y S T E M  S Y S 1  --  N O D E  Z O S K C T R         
 
07.05.57 JOB04586 ---- SATURDAY,  13 DEC 2008 ----
07.05.57 JOB04586  IRR010I  USERID KC02250  IS ASSIGNED TO THIS JOB.
07.05.57 JOB04586  IEF677I WARNING MESSAGE(S) FOR JOB SERVER2  ISSUED
07.05.57 JOB04586  ICH70001I KC02250  LAST ACCESS AT 07:05:34 ON SATURDAY, DECEMBER 13, 2008
07.05.57 JOB04586  $HASP373 SERVER2  STARTED - INIT 1    - CLASS A - SYS SYS1
07.05.57 JOB04586  IEF403I SERVER2 - STARTED - TIME=07.05.57
07.06.00 JOB04586  -                                              --TIMINGS (MINS.)--            -----PAGING COUNTS----
07.06.00 JOB04586  -STEPNAME PROCSTEP    RC   EXCP   CONN    TCB    SRB  CLOCK   SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
07.06.00 JOB04586  -VSAMSTEP             00     96   2201    .00    .00     .0    592  BATCH        0     0     0     0
07.06.04 JOB04586  -COBLSTEP COBOL       08    360   1100    .00    .00     .0   1140  BATCH        0     0     0     0
07.06.05 JOB04586  -COBLSTEP LKED        00    187    559    .00    .00     .0    485  BATCH        0     0     0     0
07.06.07 JOB04586  IEF450I SERVER2 GO COBLSTEP - ABEND=S000 U4038 REASON=00000001  042
   042                     TIME=07.06.07
07.06.07 JOB04586  -COBLSTEP GO       U4038    891    342    .00    .00     .0   1319  BATCH        0     0     0     0
07.06.07 JOB04586  IEF404I SERVER2 - ENDED - TIME=07.06.07
07.06.07 JOB04586  -SERVER2  ENDED.  NAME-DUGGAN               TOTAL TCB CPU TIME=    .00 TOTAL ELAPSED TIME=    .1
07.06.07 JOB04586  $HASP395 SERVER2  ENDED
------ JES2 JOB STATISTICS ------                                                                                                   
  13 DEC 2008 JOB EXECUTION DATE                                                                                                   
           43 CARDS READ                                                                                                           
        1,162 SYSOUT PRINT RECORDS                                                                                                 
            0 SYSOUT PUNCH RECORDS                                                                                                 
           76 SYSOUT SPOOL KBYTES                                                                                                   
         0.16 MINUTES EXECUTION TIME                                                                                               
Taylor
 
Posts: 17
Joined: Sat Dec 13, 2008 7:08 am
Has thanked: 0 time
Been thanked: 0 time

Re: Please help before I kill myself....

Postby Taylor » Sat Dec 13, 2008 5:43 pm

Here are system messages:

 STMT NO. MESSAGE
        6 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY SYS1.MARIST.PROCLIB
       29 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
ICH70001I KC02250  LAST ACCESS AT 07:05:34 ON SATURDAY, DECEMBER 13, 2008
IEF236I ALLOC. FOR SERVER2 VSAMSTEP
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSIN
IGD103I SMS ALLOCATED TO DDNAME SYS00001
IGD104I KC02250.BOOKDB.DATABASE                      RETAINED,  DDNAME=SYS00001
IEF142I SERVER2 VSAMSTEP - STEP WAS EXECUTED - COND CODE 0000
IEF285I   KC02250.SERVER2.JOB04586.D0000103.?          SYSOUT       
IEF285I   KC02250.SERVER2.JOB04586.D0000101.?          SYSIN         
IEF373I STEP/VSAMSTEP/START 2008348.0705
IEF374I STEP/VSAMSTEP/STOP  2008348.0706 CPU    0MIN 00.03SEC SRB    0MIN 00.00SEC VIRT   332K SYS   296K EXT     260K SYS   11060K
IEF236I ALLOC. FOR SERVER2 COBOL COBLSTEP
IEF237I 1002 ALLOCATED TO STEPLIB
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD101I SMS ALLOCATED TO DDNAME (SYSLIN  )
        DSN (SYS08348.T070557.RA000.SERVER2.LOADSET.H01  )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1  )
        DSN (SYS08348.T070557.RA000.SERVER2.R0110023     )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT2  )
        DSN (SYS08348.T070557.RA000.SERVER2.R0110024     )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT3  )
        DSN (SYS08348.T070557.RA000.SERVER2.R0110025     )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT4  )
        DSN (SYS08348.T070557.RA000.SERVER2.R0110026     )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT5  )
        DSN (SYS08348.T070557.RA000.SERVER2.R0110027     )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT6  )
        DSN (SYS08348.T070557.RA000.SERVER2.R0110028     )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT7  )
        DSN (SYS08348.T070557.RA000.SERVER2.R0110029     )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IGD103I SMS ALLOCATED TO DDNAME SYSIN
IGD103I SMS ALLOCATED TO DDNAME
IGD103I SMS ALLOCATED TO DDNAME
IEF142I SERVER2 COBOL COBLSTEP - STEP WAS EXECUTED - COND CODE 0008
IEF285I   IGY340.SIGYCOMP                              KEPT         
IEF285I   VOL SER NOS= Z9RES2.                           
IEF285I   KC02250.SERVER2.JOB04586.D0000104.?          SYSOUT       
IGD106I SYS08348.T070557.RA000.SERVER2.LOADSET.H01   PASSED,    DDNAME=SYSLIN 
IGD105I SYS08348.T070557.RA000.SERVER2.R0110023      DELETED,   DDNAME=SYSUT1 
IGD105I SYS08348.T070557.RA000.SERVER2.R0110024      DELETED,   DDNAME=SYSUT2 
IGD105I SYS08348.T070557.RA000.SERVER2.R0110025      DELETED,   DDNAME=SYSUT3 
IGD105I SYS08348.T070557.RA000.SERVER2.R0110026      DELETED,   DDNAME=SYSUT4 
IGD105I SYS08348.T070557.RA000.SERVER2.R0110027      DELETED,   DDNAME=SYSUT5 
IGD105I SYS08348.T070557.RA000.SERVER2.R0110028      DELETED,   DDNAME=SYSUT6 
IGD105I SYS08348.T070557.RA000.SERVER2.R0110029      DELETED,   DDNAME=SYSUT7 
IGD104I KC02250.BOOKDB.COBOL                         RETAINED,  DDNAME=SYSIN   
IGD104I KC02250.BOOKDB.COBOL                         RETAINED,  DDNAME=       
IGD104I KC02250.BOOKDB.COBOL                         RETAINED,  DDNAME=       
IEF373I STEP/COBOL   /START 2008348.0706
IEF374I STEP/COBOL   /STOP  2008348.0706 CPU    0MIN 00.06SEC SRB    0MIN 00.01SEC VIRT  8912K SYS   300K EXT  307160K SYS   11252K
IEF236I ALLOC. FOR SERVER2 LKED COBLSTEP
IEF237I 1003 ALLOCATED TO SYSLIB
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD103I SMS ALLOCATED TO DDNAME SYSLIN
IEF237I DMY  ALLOCATED TO
IGD101I SMS ALLOCATED TO DDNAME (SYSLMOD )
        DSN (SYS08348.T070557.RA000.SERVER2.GOSET.H01    )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1  )
        DSN (SYS08348.T070557.RA000.SERVER2.R0110030     )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IEF142I SERVER2 LKED COBLSTEP - STEP WAS EXECUTED - COND CODE 0000
IEF285I   CEE.SCEELKED                                 KEPT         
IEF285I   VOL SER NOS= Z9RES3.                           
IEF285I   KC02250.SERVER2.JOB04586.D0000105.?          SYSOUT       
IGD105I SYS08348.T070557.RA000.SERVER2.LOADSET.H01   DELETED,   DDNAME=SYSLIN 
IGD106I SYS08348.T070557.RA000.SERVER2.GOSET.H01     PASSED,    DDNAME=SYSLMOD
IGD105I SYS08348.T070557.RA000.SERVER2.R0110030      DELETED,   DDNAME=SYSUT1 
IEF373I STEP/LKED    /START 2008348.0706
IEF374I STEP/LKED    /STOP  2008348.0706 CPU    0MIN 00.03SEC SRB    0MIN 00.00SEC VIRT   104K SYS   292K EXT    1640K SYS   10976K
IEF236I ALLOC. FOR SERVER2 GO COBLSTEP
IGD103I SMS ALLOCATED TO DDNAME PGM=*.DD
IEF237I 1003 ALLOCATED TO STEPLIB
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO CEEDUMP
IEF237I JES2 ALLOCATED TO SYSUDUMP
IGD103I SMS ALLOCATED TO DDNAME BOOKS
IGD103I SMS ALLOCATED TO DDNAME BOOKDB
IEF237I JES2 ALLOCATED TO SYSIN
IEF237I JES2 ALLOCATED TO SYSOUT
IEF285I   KC02250.SERVER2.JOB04586.D0000109.?          SYSOUT       
IEF472I SERVER2 GO COBLSTEP - COMPLETION CODE - SYSTEM=000 USER=4038 REASON=00000001
IGD104I SYS08348.T070557.RA000.SERVER2.GOSET.H01     RETAINED,  DDNAME=PGM=*.DD
IEF285I   CEE.SCEERUN                                  KEPT         
IEF285I   VOL SER NOS= Z9RES3.                           
IEF285I   KC02250.SERVER2.JOB04586.D0000106.?          SYSOUT       
IEF285I   KC02250.SERVER2.JOB04586.D0000107.?          SYSOUT       
IEF285I   KC02250.SERVER2.JOB04586.D0000108.?          SYSOUT       
IGD104I KC02250.BOOKDB.DATA2                         RETAINED,  DDNAME=BOOKS   
IGD104I KC02250.BOOKDB.DATABASE                      RETAINED,  DDNAME=BOOKDB 
IEF285I   KC02250.SERVER2.JOB04586.D0000102.?          SYSIN         
IEF373I STEP/GO      /START 2008348.0706
IEF374I STEP/GO      /STOP  2008348.0706 CPU    0MIN 00.05SEC SRB    0MIN 00.01SEC VIRT   128K SYS   292K EXT    3236K SYS   11116K
IEF237I 72B9 ALLOCATED TO SYS00002
IEF285I   SYS08348.T070607.RA000.SERVER2.R0110031      KEPT         
IEF285I   VOL SER NOS= SM72B9.                           
IGD105I SYS08348.T070557.RA000.SERVER2.GOSET.H01     DELETED,   DDNAME=SYSLMOD
IEF375I  JOB/SERVER2 /START 2008348.0705
IEF376I  JOB/SERVER2 /STOP  2008348.0706 CPU    0MIN 00.17SEC SRB    0MIN 00.02SEC
Taylor
 
Posts: 17
Joined: Sat Dec 13, 2008 7:08 am
Has thanked: 0 time
Been thanked: 0 time

Re: Please help before I kill myself....

Postby Taylor » Sat Dec 13, 2008 5:47 pm

Here is sysprint output from COBOL. Actually there's a second output from sysprint, for the binder, but no messages reported from it.

PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1                         Date 12/13/2008  Time 07:06:03   Page     1               
Invocation parameters:                                                                                                             
TEST,RENT,APOST,OBJECT,NODYNAM,LIB                                                                                                 
Options in effect:                                                                                                                 
    NOADATA                                                                                                                         
      ADV                                                                                                                           
      APOST                                                                                                                         
      ARITH(COMPAT)                                                                                                                 
    NOAWO                                                                                                                           
      BUFSIZE(4096)                                                                                                                 
    NOCICS                                                                                                                         
      CODEPAGE(1140)                                                                                                               
    NOCOMPILE(S)                                                                                                                   
    NOCURRENCY                                                                                                                     
      DATA(31)                                                                                                                     
    NODATEPROC                                                                                                                     
      DBCS                                                                                                                         
    NODECK                                                                                                                         
    NODIAGTRUNC                                                                                                                     
    NODLL                                                                                                                           
    NODUMP                                                                                                                         
    NODYNAM                                                                                                                         
    NOEXIT                                                                                                                         
    NOEXPORTALL                                                                                                                     
    NOFASTSRT                                                                                                                       
      FLAG(I,I)                                                                                                                     
    NOFLAGSTD                                                                                                                       
      INTDATE(ANSI)                                                                                                                 
      LANGUAGE(EN)                                                                                                                 
      LIB                                                                                                                           
      LINECOUNT(60)                                                                                                                 
    NOLIST                                                                                                                         
    NOMAP                                                                                                                           
    NOMDECK                                                                                                                         
    NONAME                                                                                                                         
      NSYMBOL(NATIONAL)                                                                                                             
    NONUMBER                                                                                                                       
      NUMPROC(NOPFD)                                                                                                               
      OBJECT                                                                                                                       
    NOOFFSET                                                                                                                       
    NOOPTIMIZE                                                                                                                     
      OUTDD(SYSOUT)                                                                                                                 
      PGMNAME(COMPAT)                                                                                                               
      RENT                                                                                                                         
      RMODE(AUTO)                                                                                                                   
      SEQUENCE                                                                                                                     
      SIZE(MAX)                                                                                                                     
      SOURCE                                                                                                                       
      SPACE(1)                                                                                                                     
    NOSQL                                                                                                                           
      SQLCCSID                                                                                                                     
    NOSSRANGE                                                                                                                       
    NOTERM                                                                                                                         
      TEST(ALL,SYM,NOSEPARATE)                                                                                                     
    NOTHREAD                                                                                                                       
      TRUNC(STD)                                                                                                                   
    NOVBREF                                                                                                                         
PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1                         Date 12/13/2008  Time 07:06:03   Page     2               
    NOWORD                                                                                                                         
      XREF(FULL)                                                                                                                   
      YEARWINDOW(1900)                                                                                                             
      ZWB                                                                                                                           
PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1               BUILDDB   Date 12/13/2008  Time 07:06:03   Page     3               
  LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference           
/* BUILDDB                                                                                                                         
  000001               *************************************************************************                                   
  000002               * Read an input file of book data, assumed sorted by ISBN, into a VSAM fil                                   
  000003               * The latter should have been created with IDCAMS first, and sorted by ISB                                   
  000004               *************************************************************************                                   
  000005                                                                                                                           
  000006                IDENTIFICATION DIVISION.                                                                                   
  000007                PROGRAM-ID. BUILDDB.                                                                                       
  000008                AUTHOR. dduggan.                                                                                           
  000009                                                                                                                           
  000010                ENVIRONMENT DIVISION.                                                                                       
  000011                                                                                                                           
  000012                INPUT-OUTPUT SECTION.                                                                                       
  000013                                                                                                                           
  000014                FILE-CONTROL.                                                                                               
  000015                                                                                                                           
  000016               *    Sequential data                                                                                         
  000017                    SELECT Book-Sequential-File                                           33                               
  000018                           ASSIGN       TO BOOKS                                                                           
  000019                           ORGANIZATION IS LINE SEQUENTIAL.                                                                 
  000020                                                                                                                           
  000021               *    Indexed (KSDS) VSAM file                                                                               
  000022                    SELECT Book-Database-File                                             41                               
  000023                           ASSIGN       TO BOOKDB                                                                           
  000024                           ORGANIZATION IS INDEXED                                                                         
  000025                           ACCESS MODE  IS SEQUENTIAL                                                                       
  000026                           RECORD KEY   IS ISBN                                           44                               
  000027                           FILE STATUS  IS FS-code VSAM-code.                             52 53                             
  000028                                                                                                                           
  000029                DATA DIVISION.                                                                                             
  000030                                                                                                                           
  000031                FILE SECTION.                                                                                               
  000032                                                                                                                           
  000033                FD  Book-Sequential-File.                                                                                   
  000034                01  Book-Data.                                                                                             
  000035                    88 End-Of-File          VALUE HIGH-VALUES.                            IMP                               
  000036                    10 BD-ISBN              PIC 9(10).                                                                     
  000037                    10 BD-Title             PIC X(30).                                                                     
  000038                    10 BD-Author            PIC X(20).                                                                     
  000039                    10 BD-Publisher         PIC X(20).                                                                     
  000040                                                                                                                           
  000041                FD  Book-Database-File      RECORD 80.                                                                     
  000042                                                                                                                           
  000043                01  Book-Record.                                                                                           
  000044                    10 ISBN                 PIC X(10).                                                                     
  000045                    10 Book-Title           PIC X(30).                                                                     
  000046                    10 Book-Author          PIC X(20).                                                                     
  000047                    10 Publisher            PIC X(20).                                                                     
  000048                                                                                                                           
  000049                WORKING-STORAGE SECTION.                                                                                   
  000050                                                                                                                           
  000051                01  Return-Status.                                                                                         
  000052                    05 FS-code                  PIC XX.                                                                     
  000053                    05 VSAM-code.                                                                                           
  000054                        10 VSAM-return-code      PIC S9(2) Usage Binary.                                                   
  000055                        10 VSAM-component-code   PIC S9(1) Usage Binary.                                                   
  000056                        10 VSAM-reason-code      PIC S9(3) Usage Binary.                                                   
PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1               BUILDDB   Date 12/13/2008  Time 07:06:03   Page     4               
  LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference           
  000057                                                                                                                           
  000058               *REPORT SECTION.                                                                                             
  000059               *RD  BookReport                                                                                             
  000060               *    CONTROLS ARE FINAL                                                                                     
  000061               *    HEADING 1                                                                                               
  000062               *    FIRST DETAIL 3                                                                                         
  000063               *    LAST DETAIL 42                                                                                         
  000064               *    FOOTING 52.                                                                                             
  000065               *                                                                                                           
  000066               *01  TYPE IS PAGE HEADING.                                                                                   
  000067               *    02  LINE 1.                                                                                             
  000068               *        03 COLUMN 35     PIC X(21)                                                                         
  000069               *            VALUE "CHEAPO BOOKS INVENTORY".                                                                 
  000070               *                                                                                                           
  000071               *    02  LINE 2.                                                                                             
  000072               *        03 COLUMN 4      PIC X(4)                                                                           
  000073               *            VALUE "ISBN".                                                                                   
  000074               *        03 COLUMN 23     PIC X(10)                                                                         
  000075               *            VALUE "BOOK TITLE".                                                                             
  000076               *        03 COLUMN 53     PIC X(6)                                                                           
  000077               *            VALUE "AUTHOR".                                                                                 
  000078               *        03 COLUMN 74     PIC X(9)                                                                           
  000079               *            VALUE "PUBLISHER".                                                                             
  000080               *                                                                                                           
  000081               *01  DetailLine TYPE IS DETAIL.                                                                             
  000082               *    02  LINE IS PLUS 1.                                                                                     
  000083               *        03 COLUMN 1      PIC 9(10) SOURCE BD-ISBN.                                                         
  000084               *        03 COLUMN 14     PIC X(30) SOURCE BD-Title.                                                         
  000085               *        03 COLUMN 47     PIC X(20) SOURCE BD-Author.                                                       
  000086               *        03 COLUMN 70     PIC X(20) SOURCE BD-Publisher.                                                     
  000087                                                                                                                           
  000088                                                                                                                           
  000089                PROCEDURE DIVISION.                                                                                         
  000090                                                                                                                           
  000091                Main-Logic.                                                                                                 
  000092               *    TODO: Put your name below.                                                                             
  000093                    DISPLAY "BUILDING VSAM DATABASE FOR XXXXXXXX'S BOOKSHOP".                                               
  000094               *     INITIATE BookReport.                                                                                   
  000095                    PERFORM Open-Files.                                                   101                               
  000096                    PERFORM Process-Records.                                              106                               
  000097                    PERFORM Close-Files.                                                  125                               
  000098               *     TERMINATE BookReport.                                                                                 
  000099                    STOP RUN.                                                                                               
  000100                                                                                                                           
  000101                Open-Files.                                                                                                 
  000102                    OPEN OUTPUT Book-Database-File.                                       41                               
  000103                    OPEN INPUT Book-Sequential-File.                                      33                               
  000104                    DISPLAY "BUILDING VSAM DATABASE.".                                                                     
  000105                                                                                                                           
  000106                Process-Records.                                                                                           
  000107                    READ Book-Sequential-File                                             33                               
  000108      1                 AT END SET End-Of-File TO TRUE                                    35                               
  000109                    END-READ.                                                                                               
  000110                    PERFORM UNTIL End-Of-File                                             35                               
  000111               *         GENERATE DetailLine.                                                                               
  000112      1                 DISPLAY "ISBN: " BD-ISBN ", TITLE: " BD-TITLE                     36 37                             
  000113      1             1         ", AUTHOR: " BD-AUTHOR ", PUBLISHER: " BD-PUBLISHER         38 39                             
PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1               BUILDDB   Date 12/13/2008  Time 07:06:03   Page     5               
  LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference           
  000114      1                 WRITE Book-Record FROM Book-Data                                  43 34                             
  000115      2                 INVALID KEY PERFORM Display-VSAM-Status                           122                               
  000116      1                 END-WRITE                                                                                           
  000117      1                 READ Book-Sequential-File                                         33                               
  000118      2                     AT END SET End-Of-File TO TRUE                                35                               
  000119      1                 END-READ                                                                                           
  000120                    END-PERFORM.                                                                                           
  000121                                                                                                                           
  000122                Display-VSAM-Status.                                                                                       
  000123                    DISPLAY "*** Problem writing VSAM Record, FS-Code = " FS-Code.        52                               
  000124                                                                                                                           
  000125                Close-Files.                                                                                               
                                                                                                                                   
==000125==> IGYPS2008-E A period was required before procedure-name "CLOSE-FILES".  A period was                                   
                        assumed before "CLOSE-FILES".                                                                               
                                                                                                                                   
  000126                    CLOSE Book-Database-File.                                             41                               
  000127                    CLOSE Book-Sequential-File.                                           33                               
*/ BUILDDB                                                                                                                         
PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1               BUILDDB   Date 12/13/2008  Time 07:06:03   Page     6               
An "M" preceding a data-name reference indicates that the data-name is modified by this reference.                                 
                                                                                                                                   
 Defined   Cross-reference of data names   References                                                                               
                                                                                                                                   
      38   BD-AUTHOR. . . . . . . . . . .  113                                                                                     
      36   BD-ISBN. . . . . . . . . . . .  112                                                                                     
      39   BD-PUBLISHER . . . . . . . . .  113                                                                                     
      37   BD-TITLE . . . . . . . . . . .  112                                                                                     
      46   BOOK-AUTHOR                                                                                                             
      34   BOOK-DATA. . . . . . . . . . .  114                                                                                     
      41   BOOK-DATABASE-FILE . . . . . .  22 102 126                                                                               
      43   BOOK-RECORD. . . . . . . . . .  M114                                                                                     
      33   BOOK-SEQUENTIAL-FILE . . . . .  17 103 107 117 127                                                                       
      45   BOOK-TITLE                                                                                                               
      35   END-OF-FILE. . . . . . . . . .  M108 110 M118                                                                           
      52   FS-CODE. . . . . . . . . . . .  27 123                                                                                   
      44   ISBN . . . . . . . . . . . . .  26                                                                                       
      47   PUBLISHER                                                                                                               
      51   RETURN-STATUS                                                                                                           
      53   VSAM-CODE. . . . . . . . . . .  27                                                                                       
      55   VSAM-COMPONENT-CODE                                                                                                     
      56   VSAM-REASON-CODE                                                                                                         
      54   VSAM-RETURN-CODE                                                                                                         
PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1               BUILDDB   Date 12/13/2008  Time 07:06:03   Page     7               
Context usage is indicated by the letter preceding a procedure-name reference.                                                     
These letters and their meanings are:                                                                                               
    A = ALTER (procedure-name)                                                                                                     
    D = GO TO (procedure-name) DEPENDING ON                                                                                         
    E = End of range of (PERFORM) through (procedure-name)                                                                         
    G = GO TO (procedure-name)                                                                                                     
    P = PERFORM (procedure-name)                                                                                                   
    T = (ALTER) TO PROCEED TO (procedure-name)                                                                                     
    U = USE FOR DEBUGGING (procedure-name)                                                                                         
                                                                                                                                   
 Defined   Cross-reference of procedures   References                                                                               
                                                                                                                                   
     125   CLOSE-FILES. . . . . . . . . .  P97                                                                                     
     122   DISPLAY-VSAM-STATUS. . . . . .  P115                                                                                     
      91   MAIN-LOGIC                                                                                                               
     101   OPEN-FILES . . . . . . . . . .  P95                                                                                     
     106   PROCESS-RECORDS. . . . . . . .  P96                                                                                     
PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1               BUILDDB   Date 12/13/2008  Time 07:06:03   Page     8               
 Defined   Cross-reference of programs     References                                                                               
                                                                                                                                   
       7   BUILDDB                                                                                                                 
PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1               BUILDDB   Date 12/13/2008  Time 07:06:03   Page     9               
LineID  Message code  Message text                                                                                                 
                                                                                                                                   
   125  IGYPS2008-E   A period was required before procedure-name "CLOSE-FILES".  A period was assumed before "CLOSE-FILES".       
Messages    Total    Informational    Warning    Error    Severe    Terminating                                                     
Printed:       1                                    1                                                                               
* Statistics for COBOL program BUILDDB:                                                                                             
*    Source records = 127                                                                                                           
*    Data Division statements = 17                                                                                                 
*    Procedure Division statements = 19                                                                                             
End of compilation 1,  program BUILDDB,  highest severity 8.                                                                       
Return code 8                                                                                                                       
Taylor
 
Posts: 17
Joined: Sat Dec 13, 2008 7:08 am
Has thanked: 0 time
Been thanked: 0 time

Re: Please help before I kill myself....

Postby Taylor » Sat Dec 13, 2008 5:48 pm

Here is output from running the COBOL program. There is one line of output, so it was running despite the earlier DD errors......

BUILDING VSAM DATABASE FOR XXXXXXXX'S BOOKSHOP                                                                         
IGZ0035S There was an unsuccessful OPEN or CLOSE of file BOOKS in program BUILDDB at relative location X'06C8'.         
         Neither FILE STATUS nor an ERROR declarative were specified. The status code was 90.                           
         From compile unit BUILDDB at entry point BUILDDB at statement 103 at compile unit offset +000006C6 at entry   
         offset +000006C6 at address 1E2013EE.                                                                         
Taylor
 
Posts: 17
Joined: Sat Dec 13, 2008 7:08 am
Has thanked: 0 time
Been thanked: 0 time

Re: Please help before I kill myself....

Postby Taylor » Sat Dec 13, 2008 6:34 pm

I don't know if this means anything, but I cannot find the test data set directly in the Edit Panel in ISPF, it complains that it is not cataloged. I can find it through the Data Set List panel. Trying to catalog it from there gives me an "invalid request" diagnostic.

I'm also trying to understand why ISPF won't let me put text in columns 73-80 for an 80-column data file.....
Taylor
 
Posts: 17
Joined: Sat Dec 13, 2008 7:08 am
Has thanked: 0 time
Been thanked: 0 time

PreviousNext

Return to JCL

 


  • Related topics
    Replies
    Views
    Last post