my cobol: (SEQ1000)
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT RCTTRAN ASSIGN TO RCTTRAN.
SELECT OLDMAST ASSIGN TO OLDMAST.
SELECT NEWMAST ASSIGN TO NEWMAST
FILE STATUS IS NEWMAST-FILE-STATUS.
SELECT ERRTRAN ASSIGN TO ERRTRAN
FILE STATUS IS ERRTRAN-FILE-STATUS.
DATA DIVISION.
FILE SECTION.
FD RCTTRAN.
01 TRANSACTION-RECORD PIC X(23).
FD OLDMAST.
01 OLD-MASTER-RECORD PIC X(70).
.......
MY JCL:(RUN JCL)
//LXW039MR JOB (31450), 'SUPP SLCT',
// CLASS=T,MSGCLASS=X
//ESYLIB JCLLIB ORDER=(SYSP.HOST.UT.JCLLIB)
//SCRATCH EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE('MP.LXW039.NEWMAST')
DELETE('MP.LXW039.ERRTRAN')
/*
//GOSTEP EXEC PGM=SEQ1000,PARM='USR/CHEC(ON)'
//STEPLIB INCLUDE MEMBER=SYSTEP00
// DD DSN=MP.CTEST08.LOAD,DISP=SHR
// INCLUDE MEMBER=SYNDVRB0
//OLDMAST DD DSN=MP.LXW039.OLDMAST
//RCTTRAN DD DSN=MP.LXW039.RCTTRAN
//NEWMAST DD DSN=MP.LXW039.NEWMAST,DISP=(NEW,CATLG,KEEP),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE)
//ERRTRAN DD DSN=MP.LXW039.ERRTRAN,DISP=(NEW,CATLG,KEEP),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE)
//SYSOUT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
I passed the compile, but when i run the jcl, it didn't work, it always stop
//GOSTEP EXEC PGM=SEQ1000,PARM='USR/CHEC(ON)', no execute seq1000,
what's wrong with my run jcl, thanks.
Posted: Fri Oct 31, 2008 11:33 pm
