JCL to demonstrate the combination of REXX, COBOL and Java



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

JCL to demonstrate the combination of REXX, COBOL and Java

Postby Taylor » Sat Dec 13, 2008 8:14 am

I'd really appreciate some help debugging this JCL. I am developing it for a class I am teaching, it is intended to demonstrate the combination of REXX, COBOL and Java (using RMI to connect JZOS server and USS client). However when I run it, it says:

* No DD definition found for BOOKDB in COBLSTEP when it is manifestly there.
* The COBOL IGWYCLG load-and-go compiler complains that it cannot find the load module it has just built (*.LKED.SYSLMOD).
* The sort operation fails with 'INVALID DATA SET ATTRIBUTES SPECIFIED SORTIN BLKSIZE' whatever that means.

I've tried pounding my head on my desk, but it does no good. At this point class will be over before I get this working, and I thought it would be a nice wrap for the class, not the nightmare it is turning out to be......

//SERVER JOB (ITSO),'...',REGION=300M,
//        CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
//PROCLIB JCLLIB ORDER=KC02250.BOOKDB.JCL
//********************************************************
//* Build the VSAM KSDS file that is used as the database.
//********************************************************
//* STEP ONE: Create the VSAM cluster.
//********************************************************
//VSAMSTEP EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  DELETE -
    KC02250.BOOKDB.DATABASE -
    CLUSTER -
    PURGE -
    ERASE

  DEFINE CLUSTER -
    (NAME('KC02250.BOOKDB.DATABASE') -
          TRK(4 4) -
          RECSZ(80 80) -
          INDEXED -
          NOREUSE -
          KEYS(10 0) -
          OWNER(KC02250) )
//*
//********************************************************
//* STEP TWO: Execute a REXX exec to build a sequential
//* data file from a CSV (comma-separated values) input.
//********************************************************
//REXXSTEP EXEC PGM=IRXJCL,PARM='GENDATA'
//* SYSTSIN  DD DSN=KC02250.BOOKDB.DATA,DISP=SHR
//* SYSTSPRT DD DSN=&&REXXOUT,DISP=(NEW,PASS),
//*             SPACE=(CYL,(2,1))
//INDATA   DD DSN=KC02250.BOOKDB.DATA,DISP=SHR
//OUTDATA  DD DSN=&&REXXOUT,DISP=(NEW,PASS),
//            SPACE=(CYL,(2,1))
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSEXEC  DD DSN=KC02250.BOOKDB.EXECS,DISP=SHR
//********************************************************
//* STEP THREE: Sort the data file by ISBN.
//********************************************************
//SORTSTEP EXEC PGM=SORT
//SYSIN    DD *
    SORT FIELDS=(1,10,CH,A)
/*
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=&&REXXOUT,DISP=(OLD,DELETE)
//SORTOUT  DD DSN=&&SORTDATA,DISP=(NEW,PASS),
//            SPACE=(CYL,(2,1))
//*
//********************************************************
//* 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
//********************************************************
//COBLSTEP   EXEC IGYWCLG,REGION=250M,
//   PARM.COBOL='TEST,RENT,APOST,OBJECT,NODYNAM,LIB'
//COBOL.SYSIN DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(BUILDDBA)
//            DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(VSAMREC)
//            DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(BUILDDBB)
//* STEPLIB  DD  DSNAME=&LIBPRFX..SCEERUN,DISP=SHR
//BOOKS    DD  DSN=&&SORTDATA,DISP=(OLD,DELETE)
//BOOKDB   DD  DSN=KC02250.BOOKDB.DATABASE,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//* COBOL.SYSLIB DD DSN=CEE.SCEESAMP,DISP=SHR
//* CEEDUMP  DD  SYSOUT=*
//* SYSUDUMP DD  SYSOUT=*
//********************************************************
//* STEP FIVE: Run the Java server program that allows
//* RMI clients to query the database.  This also allows
//* the operator to interact with the server at the
//* SDSF console, turning on and off logging, and
//* eventually terminating the server.
//*
//* Substitute name the server binds to in registry and
//* and port on the z/OS server that registry binds to.
//********************************************************
//* TESTRC IF (RC > 0) THEN
//JAVASTEP EXEC PROC=EXJZOSVM,
// VERSION='14',
// JAVACLS='edu.stevens.cs.cs526.server.ServerMain',
// ARGS='XXXXXXX ddddddd'
//BOOKDB  DD DSN=KC02250.BOOKDB.DATABASE,DISP=SHR
//STDOUT  DD SYSOUT=*
//STDERR  DD SYSOUT=*
//STDENV  DD *
export JAVA_HOME=/usr/lpp/java/J1.4
JZOSAW_HOME=/u/kc02250/jzos
export PATH=/bin:"${JAVA_HOME}"/bin:
LIBPATH=/lib:/usr/lib:"${JAVA_HOME}"/bin
LIBPATH="$LIBPATH":"${JAVA_HOME}"/bin/classic
LIBPATH="$LIBPATH":"${JZOSAW_HOME}"
export LIBPATH="$LIBPATH":
# Force the alphaWorks version of JZOS to run overriding the SDK
OPTS="-Djava.ext.dirs=${JZOSAW_HOME}:${JAVA_HOME}/lib/ext"
export JZOS_JVM_OPTIONS="$OPTS"
# Add the JZOS alphaWorks jars to the classpath
for i in "${JZOSAW_HOME}"/*.jar; do
   CLASSPATH="$CLASSPATH":"$i"
    done
# Add classpath for server code.
CLASSPATH="$CLASSPATH":"/u/kc02250/bookdb/server.jar"
export CLASSPATH="$CLASSPATH":
#
# Set JZOS specific options
# Use this variable to specify encoding for DD STDOUT and STDERR
#export JZOS_OUTPUT_ENCODING=Cp1047
# Use this variable to prevent JZOS from handling MVS operator commands
#export JZOS_ENABLE_MVS_COMMANDS=false
# Use this variable to supply additional arguments to main
#
#export JZOS_MAIN_ARGS=""
# Configure JVM options
IJO="-Xms16m -Xmx128m"
//
//*   ENDIF
//********************************************************
//* STEP SIX: Dump the VSAM file to the printer
//********************************************************
//DUMPSTEP EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
 PRINT -
     INDATASET(KC02250.BOOKDB.DATABASE) CHAR
//*
Taylor
 
Posts: 17
Joined: Sat Dec 13, 2008 7:08 am
Has thanked: 0 time
Been thanked: 0 time

Re: JCL to demonstrate the combination of REXX, COBOL and Java

 

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

Postby Taylor » Sat Dec 13, 2008 8:18 am

Here is the REXX script. The input data is 80-column fixed-length records sequential data set, I've put a sentinel in the data in case end-of-input was an issue. There is no output from the REXX step on the printer.

/********************************************************************/
/* */
/* This REXX script reads CVS (comma-separated values) and produces */
/* a sequential data file that is used by the SERVER job to */
/* initialize the books database. */
/* */
/********************************************************************/

'MAKEBUF'

signal on novalue
signal on error
rc = 0
do while rc = 0
"EXECIO 1 DISKR INDATA"
parse pull isbn "," bktitle "," bkauthor "," . publisher
isbn = substr(strip(isbn), 10)
if (isbn = "9999999999") then leave
out = right(isbn, 10, '0')
out = out || left(substr(strip(bktitle),30), 30, ' ')
out = out || left(substr(strip(bkauthor),20), 20, ' ')
out = out || left(substr(strip(publisher),20), 20, ' ')
say "OUTPUT LINE: " out
push out
"EXECIO 1 DISKW OUTDATA"
end

'DROPBUF'

error: exit rc*(rc /= 12)
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 8:30 am

Hello Taylor and welcome to the forum,

* No DD definition found for BOOKDB in COBLSTEP when it is manifestly there.
* The COBOL IGWYCLG load-and-go compiler complains that it cannot find the load module it has just built (*.LKED.SYSLMOD).
* The sort operation fails with 'INVALID DATA SET ATTRIBUTES SPECIFIED SORTIN BLKSIZE' whatever that means.

"when it is manifestly there" - multiple times, just not where needed.
"it cannot find the load module it has just built" - nothing in the post shows this happening. . .
"The sort operation fails" - is this the "SORTSTEP" of step 3?

You need to post the actual messages created by the problem run. You also need to post the expanded jcl (what the system used rather than just what you submitted).

Did you list the errors in the order they appeared in the output or did you list them in some other order?

Suggest that one is fixed at a time in the order they occur. Otherwise more time is spent spinning wheels than getting the process to run.
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 8:32 am

One other thing: The COBOL program runs and produces output, despite the fact that complains it failed to resolve *.LKED.SYSLMOD in IGWYCLG....., and fails on opening or closing the BOOKS DD. The latter is not surprising if SORT fails, but how can the COBOL program be running if it is reporting failure to find two DD statements?
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 8:34 am

Dick:

Here is the effective JCL.

       1 //SERVER JOB (ITSO),'....',REGION=300M,                               JOB04420
         //        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 TWO: Execute a REXX exec to build a sequential                         
         //* data file from a CSV (comma-separated values) input.                       
         //********************************************************                     
       6 //REXXSTEP EXEC PGM=IRXJCL,PARM='GENDATA'                                       
         //* SYSTSIN  DD DSN=KC02250.BOOKDB.DATA,DISP=SHR                               
         //* SYSTSPRT DD DSN=&&REXXOUT,DISP=(NEW,PASS),                                 
         //*             SPACE=(CYL,(2,1))                                               
       7 //INDATA   DD DSN=KC02250.BOOKDB.DATA,DISP=SHR                                 
       8 //OUTDATA  DD DSN=&&REXXOUT,DISP=(NEW,PASS),                                   
         //            SPACE=(CYL,(2,1))                                                 
       9 //SYSPRINT DD SYSOUT=*                                                         
      10 //SYSTSPRT DD SYSOUT=*                                                         
      11 //SYSEXEC  DD DSN=KC02250.BOOKDB.EXECS,DISP=SHR                                 
         //********************************************************                     
         //* STEP THREE: Sort the data file by ISBN.                                     
         //********************************************************                     
      12 //SORTSTEP EXEC PGM=SORT                                                       
      13 //SYSIN    DD *                                                                 
      14 //SYSOUT   DD SYSOUT=*                                                         
      15 //SORTIN   DD DSN=&&REXXOUT,DISP=(OLD,DELETE)                                   
      16 //SORTOUT  DD DSN=&&SORTDATA,DISP=(NEW,PASS),                                   
         //            SPACE=(CYL,(2,1))                                                 
         //*                                                                             
         //********************************************************                     
         //* 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                           
         //********************************************************                     
      17 //COBLSTEP   EXEC IGYWCLG,REGION=250M,                                         
         //   PARM.COBOL='TEST,RENT,APOST,OBJECT,NODYNAM,LIB'                           
      18 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
      19 XXCOBOL  EXEC PGM=IGYCRCTL,REGION=2048K                                 00032000
      20 XXSTEPLIB  DD  DSNAME=&LNGPRFX..SIGYCOMP,                               00033000
         XX             DISP=SHR                                                 00034007
         IEFC653I SUBSTITUTION JCL - DSNAME=IGY340.SIGYCOMP,DISP=SHR
      21 //SYSPRINT DD  SYSOUT=*                                                         
         X/SYSPRINT DD SYSOUT=*                                                  00035007
      22 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)
      23 XXSYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00039000
      24 XXSYSUT2   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00040000
      25 XXSYSUT3   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00041000
      26 XXSYSUT4   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00042000
      27 XXSYSUT5   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00043000
      28 XXSYSUT6   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00044000
      29 XXSYSUT7   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                          00045000
      30 //COBOL.SYSIN DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(BUILDDBA)                   
      31 //            DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(VSAMREC)                     
      32 //            DD DISP=SHR,DSN=KC02250.BOOKDB.COBOL(BUILDDBB)                   
      33 //BOOKS    DD  DSN=&&SORTDATA,DISP=(OLD,DELETE)                                 
      34 //BOOKDB   DD  DSN=KC02250.BOOKDB.DATABASE,DISP=SHR                             
      35 XXLKED   EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K                   00046000
      36 XXSYSLIB   DD  DSNAME=&LIBPRFX..SCEELKED,                               00047000
         XX             DISP=SHR                                                 00048000
         IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
      37 XXSYSPRINT DD  SYSOUT=*                                                 00049000
      38 XXSYSLIN   DD  DSNAME=&&LOADSET,DISP=(OLD,DELETE)                       00050000
      39 XX         DD  DDNAME=SYSIN                                             00051000
      40 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)
      41 XXSYSUT1   DD  UNIT=SYSALLDA,SPACE=(TRK,(10,10))                        00054000
      42 XXGO     EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)),       00055000
         XX             REGION=2048K,TIME=(,20)                                  00056008
      43 XXSTEPLIB  DD  DSNAME=&LIBPRFX..SCEERUN,                                00057000
         XX             DISP=SHR                                                 00058000
         IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR
      44 XXSYSPRINT DD  SYSOUT=*                                                 00059000
      45 XXCEEDUMP  DD  SYSOUT=*                                                 00060000
      46 XXSYSUDUMP DD  SYSOUT=*                                                 00061000
         //* STEPLIB  DD  DSNAME=&LIBPRFX..SCEERUN,DISP=SHR                             
         //* COBOL.SYSLIB DD DSN=CEE.SCEESAMP,DISP=SHR                                   
         //* CEEDUMP  DD  SYSOUT=*                                                       
         //* SYSUDUMP DD  SYSOUT=*                                                       
         //********************************************************                     
         //* STEP FIVE: Run the Java server program that allows                         
         //* RMI clients to query the database.  This also allows                       
         //* the operator to interact with the server at the                             
         //* SDSF console, turning on and off logging, and                               
         //* eventually terminating the server.                                         
         //*                                                                             
         //* Substitute name the server binds to in registry and                         
         //* and port on the z/OS server that registry binds to.                         
         //********************************************************                     
         //* TESTRC IF (RC > 0) THEN                                                     
      47 //JAVASTEP EXEC PROC=EXJZOSVM,                                                 
         // VERSION='14',                                                               
         // JAVACLS='edu.stevens.cs.cs526.server.ServerMain',                           
         // ARGS='XXXXXXX ddddddd'                                                       
         XX*********************************************************************         
         XX*                                                                             
         XX* Stored procedure for executing the JZOS Java Batch Launcher                 
         XX*                                                                             
         XX*********************************************************************         
      48 XXEXJZOSVM PROC JAVACLS=,                < Fully Qfied Java class..RQD         
         XX   ARGS=,                              < Args to Java class                   
         XX   LIBRARY='KC02250.PRIVATE.JZOS30.LOADLIB',                                 
         XX   VERSION='50',                       < JZOSVM version: 50,56,60,66         
         XX   LOGLVL='',                          < Debug LVL: +I(info) +T(trc)         
         XX   REGSIZE='0M',                       < EXECUTION REGION SIZE               
         XX   LEPARM=''                                                                 
      49 XXJAVAJVM  EXEC PGM=JVMLDM&VERSION,REGION=&REGSIZE,                             
         XX   PARM='&LEPARM/&LOGLVL &JAVACLS &ARGS'                                     
         IEFC653I SUBSTITUTION JCL - PGM=JVMLDM14,REGION=0M,PARM='/ edu.stevens.cs.cs526.server.ServerMain XXXXXXX
         ddddddd'
      50 XXSTEPLIB  DD DSN=&LIBRARY,DISP=SHR                                             
         IEFC653I SUBSTITUTION JCL - DSN=KC02250.PRIVATE.JZOS30.LOADLIB,DISP=SHR
      51 XXSYSPRINT DD SYSOUT=*          < System stdout                                 
      52 XXSYSOUT   DD SYSOUT=*          < System stderr                                 
      53 //STDOUT  DD SYSOUT=*                                                           
         X/STDOUT   DD SYSOUT=*          < Java System.out                               
      54 //STDERR  DD SYSOUT=*                                                           
         X/STDERR   DD SYSOUT=*          < Java System.err                               
      55 XXCEEDUMP  DD SYSOUT=*                                                         
      56 XXABNLIGNR DD DUMMY                                                             
         XX*                                                                             
         XX*The following DDs can/should be present in the calling JCL                   
         XX*                                                                             
         XX*STDIN   DD                   < OPTIONAL - Java System.in                     
         XX*STDENV  DD                   < REQUIRED - JVM Environment script             
         XX*MAINARGS DD                  < OPTIONAL - Alternate method to supply         
      57 //BOOKDB  DD DSN=KC02250.BOOKDB.DATABASE,DISP=SHR                               
      58 //STDENV  DD *                                                                 
      59 XX PEND                                                                         
      60 //                                                                             
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 8:35 am

Here is the entire contents of SORTSTEP:SYSOUT:

ICE000I J - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 21:40 ON FRI DEC 12, 2008 -
SORT FIELDS=(1,10,CH,A)
ICE043A K INVALID DATA SET ATTRIBUTES SPECIFIED SORTIN BLKSIZE
ICE052I J END OF DFSORT
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 8:37 am

Here is the output in JESMSGLG (notice the missing BOOKDB DD statement diagnostic):

                    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         
 
21.40.22 JOB04420 ---- FRIDAY,    12 DEC 2008 ----
21.40.22 JOB04420  IRR010I  USERID KC02250  IS ASSIGNED TO THIS JOB.
21.40.22 JOB04420  IEF677I WARNING MESSAGE(S) FOR JOB SERVER   ISSUED
21.40.22 JOB04420  ICH70001I KC02250  LAST ACCESS AT 21:36:08 ON FRIDAY, DECEMBER 12, 2008
21.40.22 JOB04420  $HASP373 SERVER   STARTED - INIT 1    - CLASS A - SYS SYS1
21.40.22 JOB04420  IEF403I SERVER - STARTED - TIME=21.40.22
21.40.25 JOB04420  -                                              --TIMINGS (MINS.)--            -----PAGING COUNTS----
21.40.25 JOB04420  -STEPNAME PROCSTEP    RC   EXCP   CONN    TCB    SRB  CLOCK   SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
21.40.25 JOB04420  -VSAMSTEP             00    100   2203    .00    .00     .0    601  BATCH        0     0     0     0
21.40.25 JOB04420  -REXXSTEP             02     33    295    .00    .00     .0    223  BATCH        0     0     0     0
21.40.26 JOB04420  -SORTSTEP             16     71    152    .00    .00     .0    222  BATCH        0     0     0     0
21.40.31 JOB04420  -COBLSTEP COBOL       08    400   2432    .00    .00     .0   1074  BATCH        0     0     0     0
21.40.33 JOB04420  -COBLSTEP LKED        00    182    465    .00    .00     .0    487  BATCH        0     0     0     0
21.40.33 JOB04420  IEC130I BOOKDB   DD STATEMENT MISSING
21.40.33 JOB04420  IEF450I SERVER GO COBLSTEP - ABEND=S000 U4038 REASON=00000001  343
   343                     TIME=21.40.33
21.40.33 JOB04420  -COBLSTEP GO       U4038    758    183    .00    .00     .0    933  BATCH        0     0     0     0
21.40.33 JOB04420  -JAVASTEP JAVAJVM  FLUSH      0      0    .00    .00     .0      0  BATCH        0     0     0     0
21.40.33 JOB04420  IEF404I SERVER - ENDED - TIME=21.40.33
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 8:40 am

Here is the JESYSMSG window. Notice the unresolved DDNAME in Stmt 42. Further down it repeats the diagnostic that a DD for BOOKDB was not found.

STMT NO. MESSAGE
       17 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY SYS1.MARIST.PROCLIB
       47 IEFC001I PROCEDURE EXJZOSVM WAS EXPANDED USING PRIVATE LIBRARY KC02250.BOOKDB.JCL
       42 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
ICH70001I KC02250  LAST ACCESS AT 21:36:08 ON FRIDAY, DECEMBER 12, 2008
IEF236I ALLOC. FOR SERVER 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 SERVER VSAMSTEP - STEP WAS EXECUTED - COND CODE 0000
IEF285I   KC02250.SERVER.JOB04420.D0000105.?           SYSOUT       
IEF285I   KC02250.SERVER.JOB04420.D0000101.?           SYSIN         
IEF373I STEP/VSAMSTEP/START 2008347.2140
IEF374I STEP/VSAMSTEP/STOP  2008347.2140 CPU    0MIN 00.03SEC SRB    0MIN 00.00SEC VIRT   332K SYS   304K EXT     260K SYS   11072K
IEF236I ALLOC. FOR SERVER REXXSTEP
IGD103I SMS ALLOCATED TO DDNAME INDATA
IGD101I SMS ALLOCATED TO DDNAME (OUTDATA )
        DSN (SYS08347.T214022.RA000.SERVER.REXXOUT.H01   )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSTSPRT
IGD103I SMS ALLOCATED TO DDNAME SYSEXEC
IEF142I SERVER REXXSTEP - STEP WAS EXECUTED - COND CODE 0002
IGD104I KC02250.BOOKDB.DATA                          RETAINED,  DDNAME=INDATA 
IGD106I SYS08347.T214022.RA000.SERVER.REXXOUT.H01    PASSED,    DDNAME=OUTDATA
IEF285I   KC02250.SERVER.JOB04420.D0000106.?           SYSOUT       
IEF285I   KC02250.SERVER.JOB04420.D0000107.?           SYSOUT       
IGD104I KC02250.BOOKDB.EXECS                         RETAINED,  DDNAME=SYSEXEC
IEF373I STEP/REXXSTEP/START 2008347.2140
IEF374I STEP/REXXSTEP/STOP  2008347.2140 CPU    0MIN 00.01SEC SRB    0MIN 00.00SEC VIRT    72K SYS   280K EXT     344K SYS   11032K
IEF236I ALLOC. FOR SERVER SORTSTEP
IEF237I JES2 ALLOCATED TO SYSIN
IEF237I JES2 ALLOCATED TO SYSOUT
IGD103I SMS ALLOCATED TO DDNAME SORTIN
IGD101I SMS ALLOCATED TO DDNAME (SORTOUT )
        DSN (SYS08347.T214022.RA000.SERVER.SORTDATA.H01  )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IEF142I SERVER SORTSTEP - STEP WAS EXECUTED - COND CODE 0016
IEF285I   KC02250.SERVER.JOB04420.D0000102.?           SYSIN         
IEF285I   KC02250.SERVER.JOB04420.D0000108.?           SYSOUT       
IGD105I SYS08347.T214022.RA000.SERVER.REXXOUT.H01    DELETED,   DDNAME=SORTIN 
IGD106I SYS08347.T214022.RA000.SERVER.SORTDATA.H01   PASSED,    DDNAME=SORTOUT
IEF373I STEP/SORTSTEP/START 2008347.2140
IEF374I STEP/SORTSTEP/STOP  2008347.2140 CPU    0MIN 00.01SEC SRB    0MIN 00.00SEC VIRT  1040K SYS   284K EXT       8K SYS   11036K
IEF236I ALLOC. FOR SERVER COBOL COBLSTEP
IEF237I 1002 ALLOCATED TO STEPLIB
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD101I SMS ALLOCATED TO DDNAME (SYSLIN  )
        DSN (SYS08347.T214022.RA000.SERVER.LOADSET.H01   )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1  )
        DSN (SYS08347.T214022.RA000.SERVER.R0109572      )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT2  )
        DSN (SYS08347.T214022.RA000.SERVER.R0109573      )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT3  )
        DSN (SYS08347.T214022.RA000.SERVER.R0109574      )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT4  )
        DSN (SYS08347.T214022.RA000.SERVER.R0109575      )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT5  )
        DSN (SYS08347.T214022.RA000.SERVER.R0109576      )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= SM72B9                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT6  )
        DSN (SYS08347.T214022.RA000.SERVER.R0109577      )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT7  )
        DSN (SYS08347.T214022.RA000.SERVER.R0109578      )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IGD103I SMS ALLOCATED TO DDNAME SYSIN
IGD103I SMS ALLOCATED TO DDNAME
IGD103I SMS ALLOCATED TO DDNAME
IGD103I SMS ALLOCATED TO DDNAME BOOKS
IGD103I SMS ALLOCATED TO DDNAME BOOKDB
IEF142I SERVER COBOL COBLSTEP - STEP WAS EXECUTED - COND CODE 0008
IEF285I   IGY340.SIGYCOMP                              KEPT         
IEF285I   VOL SER NOS= Z9RES2.                           
IEF285I   KC02250.SERVER.JOB04420.D0000109.?           SYSOUT       
IGD106I SYS08347.T214022.RA000.SERVER.LOADSET.H01    PASSED,    DDNAME=SYSLIN 
IGD105I SYS08347.T214022.RA000.SERVER.R0109572       DELETED,   DDNAME=SYSUT1 
IGD105I SYS08347.T214022.RA000.SERVER.R0109573       DELETED,   DDNAME=SYSUT2 
IGD105I SYS08347.T214022.RA000.SERVER.R0109574       DELETED,   DDNAME=SYSUT3 
IGD105I SYS08347.T214022.RA000.SERVER.R0109575       DELETED,   DDNAME=SYSUT4 
IGD105I SYS08347.T214022.RA000.SERVER.R0109576       DELETED,   DDNAME=SYSUT5 
IGD105I SYS08347.T214022.RA000.SERVER.R0109577       DELETED,   DDNAME=SYSUT6 
IGD105I SYS08347.T214022.RA000.SERVER.R0109578       DELETED,   DDNAME=SYSUT7 
IGD104I KC02250.BOOKDB.COBOL                         RETAINED,  DDNAME=SYSIN   
IGD104I KC02250.BOOKDB.COBOL                         RETAINED,  DDNAME=       
IGD104I KC02250.BOOKDB.COBOL                         RETAINED,  DDNAME=       
IGD105I SYS08347.T214022.RA000.SERVER.SORTDATA.H01   DELETED,   DDNAME=BOOKS   
IGD104I KC02250.BOOKDB.DATABASE                      RETAINED,  DDNAME=BOOKDB 
IEF373I STEP/COBOL   /START 2008347.2140
IEF374I STEP/COBOL   /STOP  2008347.2140 CPU    0MIN 00.06SEC SRB    0MIN 00.00SEC VIRT  8896K SYS   316K EXT  307160K SYS   11268K
IEF236I ALLOC. FOR SERVER 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 (SYS08347.T214022.RA000.SERVER.GOSET.H01     )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1  )
        DSN (SYS08347.T214022.RA000.SERVER.R0109579      )
        STORCLAS (PRIM90) MGMTCLAS (        ) DATACLAS (        )
        VOL SER NOS= MARF16                                                               
IEF142I SERVER LKED COBLSTEP - STEP WAS EXECUTED - COND CODE 0000
IEF285I   CEE.SCEELKED                                 KEPT         
IEF285I   VOL SER NOS= Z9RES3.                           
IEF285I   KC02250.SERVER.JOB04420.D0000110.?           SYSOUT       
IGD105I SYS08347.T214022.RA000.SERVER.LOADSET.H01    DELETED,   DDNAME=SYSLIN 
IGD106I SYS08347.T214022.RA000.SERVER.GOSET.H01      PASSED,    DDNAME=SYSLMOD
IGD105I SYS08347.T214022.RA000.SERVER.R0109579       DELETED,   DDNAME=SYSUT1 
IEF373I STEP/LKED    /START 2008347.2140
IEF374I STEP/LKED    /STOP  2008347.2140 CPU    0MIN 00.03SEC SRB    0MIN 00.00SEC VIRT   104K SYS   308K EXT    1640K SYS   10984K
IEF236I ALLOC. FOR SERVER 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
IEF237I JES2 ALLOCATED TO SYSOUT
IEC130I BOOKDB   DD STATEMENT MISSING
IEF285I   KC02250.SERVER.JOB04420.D0000119.?           SYSOUT       
IEF472I SERVER GO COBLSTEP - COMPLETION CODE - SYSTEM=000 USER=4038 REASON=00000001
IGD104I SYS08347.T214022.RA000.SERVER.GOSET.H01      RETAINED,  DDNAME=PGM=*.DD
IEF285I   CEE.SCEERUN                                  KEPT         
IEF285I   VOL SER NOS= Z9RES3.                           
IEF285I   KC02250.SERVER.JOB04420.D0000111.?           SYSOUT       
IEF285I   KC02250.SERVER.JOB04420.D0000112.?           SYSOUT       
IEF285I   KC02250.SERVER.JOB04420.D0000113.?           SYSOUT       
IEF373I STEP/GO      /START 2008347.2140
IEF374I STEP/GO      /STOP  2008347.2140 CPU    0MIN 00.04SEC SRB    0MIN 00.01SEC VIRT   124K SYS   296K EXT    3192K SYS   11020K
IEF272I SERVER JAVAJVM JAVASTEP - STEP WAS NOT EXECUTED.
IEF373I STEP/JAVAJVM /START 2008347.2140
IEF374I STEP/JAVAJVM /STOP  2008347.2140 CPU    0MIN 00.00SEC SRB    0MIN 00.00SEC VIRT     0K SYS     0K EXT       0K SYS       0K
IEF237I 6316 ALLOCATED TO SYS00002
IEF285I   SYS08347.T214033.RA000.SERVER.R0109580       KEPT         
IEF285I   VOL SER NOS= MARF16.                           
IGD105I SYS08347.T214022.RA000.SERVER.GOSET.H01      DELETED,   DDNAME=SYSLMOD
IEF375I  JOB/SERVER  /START 2008347.2140
IEF376I  JOB/SERVER  /STOP  2008347.2140 CPU    0MIN 00.18SEC SRB    0MIN 00.01SEC
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 8:47 am

Hello,

Change these:
      33 //BOOKS    DD  DSN=&&SORTDATA,DISP=(OLD,DELETE)                                 
      34 //BOOKDB   DD  DSN=KC02250.BOOKDB.DATABASE,DISP=SHR

to:
        //GO.BOOKS    DD  DSN=&&SORTDATA,DISP=(OLD,DELETE)                                 
        //GO.BOOKDB   DD  DSN=KC02250.BOOKDB.DATABASE,DISP=SHR


I suspect the rexx did not write lrecl 80. You might code the dcb info for the output of the rexx step.

Try this much and we'll see where we are. . . :)
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 9:04 am

Thanks putting the DCB clause in the output data set for REXX made SORT happy....except it says it sees zero input records....

OTOH still have those missing DDs, including BOOKDB, and an ABEND trying to run the compiled COBOL program (cannot resolve *.LKED.SYSLMOD I assume).

                    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         
 
22.21.25 JOB04447 ---- FRIDAY,    12 DEC 2008 ----
22.21.25 JOB04447  IRR010I  USERID KC02250  IS ASSIGNED TO THIS JOB.
22.21.25 JOB04447  IEF677I WARNING MESSAGE(S) FOR JOB SERVER   ISSUED
22.21.26 JOB04447  ICH70001I KC02250  LAST ACCESS AT 21:40:22 ON FRIDAY, DECEMBER 12, 2008
22.21.26 JOB04447  $HASP373 SERVER   STARTED - INIT 1    - CLASS A - SYS SYS1
22.21.26 JOB04447  IEF403I SERVER - STARTED - TIME=22.21.26
22.21.28 JOB04447  -                                              --TIMINGS (MINS.)--            -----PAGING COUNTS----
22.21.28 JOB04447  -STEPNAME PROCSTEP    RC   EXCP   CONN    TCB    SRB  CLOCK   SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
22.21.28 JOB04447  -VSAMSTEP             00    100   2272    .00    .00     .0    568  BATCH        0     0     0     0
22.21.29 JOB04447  -REXXSTEP             02     33    283    .00    .00     .0    215  BATCH        0     0     0     0
22.21.30 JOB04447  -SORTSTEP             16     71    194    .00    .00     .0    253  BATCH        0     0     0     0
22.21.35 JOB04447  -COBLSTEP COBOL       08    381   2460    .00    .00     .0   1041  BATCH        0     0     0     0
22.21.37 JOB04447  -COBLSTEP LKED        00    203    706    .00    .00     .0    464  BATCH        0     0     0     0
22.21.38 JOB04447  IEF450I SERVER GO COBLSTEP - ABEND=S000 U4038 REASON=00000001  692
   692                     TIME=22.21.38
22.21.39 JOB04447  -COBLSTEP GO       U4038    775    502    .00    .00     .0   1263  BATCH        0     0     0     0
22.21.39 JOB04447  -JAVASTEP JAVAJVM  FLUSH      0      0    .00    .00     .0      0  BATCH        0     0     0     0
22.21.39 JOB04447  IEF404I SERVER - ENDED - TIME=22.21.39
Taylor
 
Posts: 17
Joined: Sat Dec 13, 2008 7:08 am
Has thanked: 0 time
Been thanked: 0 time

Next

Return to JCL

 


  • Related topics
    Replies
    Views
    Last post