IBM Mainframe Forum

by **lxw039** » Fri Oct 31, 2008 11:33 pm

HI, my run JCL works well when I have just one input file and outfile,
can anybody tell me how to modify my RUN JCL (just add 2 DD statement or not) when my cobol exist 2
input file and 2 output file, thanks.

by **dick scherrer** » Sat Nov 01, 2008 1:25 am

Hello,

Your jcl needs to reflect the select/assign/open code in your program.

For someone to help at any level of detail, you need to post more complete info.

by **lxw039** » Mon Nov 03, 2008 8:11 am

my cobol: (SEQ1000)

Select all

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)

Select all

//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.

by **dick scherrer** » Mon Nov 03, 2008 8:46 am

Hello,

From what you posted, the actual problem/error is not shown. . . Is this

Select all

//GOSTEP EXEC PGM=SEQ1000,PARM='USR/CHEC(ON)', no execute seq1000,

part of some error message or is it just something you chose to post that way?

What was the return code of the compile and the link edit? Was a link edit run?

When posting problems for us to help with, it is best to copy/paste the actual/complete diagnostic output from the system rather than choosing some things to post.

I'd suggest coding a disp= on the input files and providing dcb info for the output files. The indentation is incorrect for the unit and space parameters for the output files. I also have never seen a steplib constructed as this one is. Is this some local "standard"? A steplib names the load library(ies). The includes are something nowhere i've supported use. . .

by **lxw039** » Wed Nov 05, 2008 1:07 am

thanks a lot.

by **dick scherrer** » Wed Nov 05, 2008 2:36 am

You're welcome

thanks a lot.

Does this indicate that your process is now working?

d

IBM Mainframe Forum

about RUN JCl (both 2 infile and 2 outfile).

about RUN JCl (both 2 infile and 2 outfile).

Re: about RUN JCl (both 2 infile and 2 outfile).

Re: about RUN JCl (both 2 infile and 2 outfile).

Re: about RUN JCl (both 2 infile and 2 outfile).

Re: about RUN JCl (both 2 infile and 2 outfile).

Re: about RUN JCl (both 2 infile and 2 outfile).