To submit JCL via a Cobol program

vidyasaraswathi · New User Joined: 10 May 2005 Posts: 72

I coded a COBOL program with filename OUT-JCL which is assigned to OJCL. Defined a record lay out as 80 bytes. Opened the OUT-JCL file in the output mode.

COBOL Code is as follows:
--------------------------------
FILE-CONTROL.
SELECT OUT-JCL ASSIGN TO OJCL.

DATA DIVISION.

FILE SECTION.
FD OUT-JCL
LABEL RECORDS ARE STANDARD
RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS
DATA RECORD IS IN-JCL-BUFFER.

01 OUT-JCL-BUFFER PIC X(80).

I want to submit the following JCL (which is stored in my PDS) from the COBOL program.

//OJCL JOB (T,B0,xxx),'xxxxx',CLASS=S,MSGCLASS=Y,
// REGION=0M,
// MSGLEVEL=(1,1)
//*------------------------------------------------------
//PS010 EXEC PGM=SORT
//*------------------------------------------------------
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DSN1,DISP=SHR
//SORTOUT DD DSN=DSN2,
// DISP=(NEW,CATLG,DELETE),
// UNIT=WORK,SPACE=(TRK,(1000,100),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=NONE
/*

--------------------------------------------------------------------

To run the COBOL program, I wrote a JCL as follows,
//PS010 EXEC PGM=pgmname
//*----------------------------------------
//SYSOUT DD SYSOUT=*
//OJCL DD DSN=B052VAP.VSAMPLE3.OUT,
// SYSOUT=(*,INTRDR)
/*

But, my first JCL is not submitted via COBOL program and DSN2 is not created.

Can any one please help me to correct this?

jz1b0c · Posted: Mon Jul 04, 2005 10:15 pm

you have to use your tobe submitted JCL as an input to the cobol program.

so program becomes

File in
File out

==> perform until eof-input
read input.
write output from input.
end-perform

close both the files.
goback.

JCL//--
//step1 exec pgm = sample
//filein dd disp=shr,dsn=abcd.tobe.submitted
//fileout dd sysout=(a,intrdr)
//sysprint dd sysout=*

this would workout

the jcl in "abcd.tobe.submitted" will be submitted

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi vidy,

You could have saved yourself some time and coding by using sort or some such to copy the PDS info to intrdr.

//s1 sort
//sortin dd dsn=....
//sortout dd sysout=(*,INTRDR)
//sysprint dd sysout=*
//sisin dd *

sort fields=copy

vidyasaraswathi · New User Joined: 10 May 2005 Posts: 72

Hi,
I changed my COBOL program as mentioned by jz1b0c.
It worked fine. Thank you very much.

Thanks,
Vidya Bhat