I have written a JCL using DYLAKOR 280. I ran the script in a test enviroment with all intentions of copying the code into an existing DYLAKOR. Once the code was moved to a production platform, the code quit working, and was wanting for someone to look over the portion that is not working, which happens to be the part that I wrote.
CODE
//STEP0060 EXEC PGM=DYL280,COND=(4,LT)
//INFILE DD DSN=MY.DATASET.ONE(0),DISP=OLD
//OUTFILE DD DSN=MY.DATASET.TWO,DISP=OLD
//SYS004 DD UNIT=SYSDA,SPACE=(TRK,(45,45))
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYS280R DD SYSOUT=*
//SYSIN DD *
FILE INFILE FB 133 INPUT
ID 5 124
THEREC 132 2
FILE OUTFILE OUTPUT FROM OUTFILE FB 132 1320
OUTREC1 132 1
WORKAREA
NEWREC 132 1
IF ID EQ 'LAPSE'
MOVE THEREC TO OUTREC1
ACCEPT
ENDIF
REJECT
FIN
/*
This is driving me crazy since the rest of the code works, but this part does not!
This post has been edited by programming4life: 2 Apr, 2008 - 01:11 PM
2 Apr, 2008 - 01:10 PM
| 