How do you submit JCL via a Cobol program?

Question Posted / guest

4 Answers
12878 Views
IBM, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

How do you submit JCL via a Cobol program?..

Answer / guest

Use a file //dd1 DD sysout=(*,intrdr)write your JCL to this
file. Pl some one try this out.

Is This Answer Correct ?

7 Yes

2 No

How do you submit JCL via a Cobol program?..

Answer / raghavendra

Before doing this alll the JCl statements shud be written to
the file mentioned in DD1 by the cobol pgm

Is This Answer Correct ?

4 Yes

2 No

How do you submit JCL via a Cobol program?..

Answer / satish.m.s

Use a file //dd1 DD sysout=(*,intrdr)

Is This Answer Correct ?

2 Yes

0 No

How do you submit JCL via a Cobol program?..

Answer / bala

Jcl:
JOB: //STEP1 EXEC PGM=MAINPM
//DD1 DD DSN=MUTHU.TEST,DISP=SHR
//JCLDD DD SYSOUT=(*,INTRDR)

Cobol:
PROGRAM:MAINPGM
SELECT JCLFILE ASSIGN TO JCLDD…. (Environment Division)
FD JCLFILE.
01 JCL-REC PIC X(80). (File Section)
OPEN OUTPUT JCLFILE. (Open in output and write JCL statements)
MOVE ‘//TESTJOB JOB 1111’ TO JCLREC.
MOVE ‘//STEP01 EXEC PGM=IEFBR14’ TO JCLREC.
CLOSE JCLFILE (TESTJOB will be submitted automatically)

Is This Answer Correct ?

1 Yes

1 No

Post New Answer

More JCL Interview Questions

How different is the JCL executing a COBOL program? 1) if the program is using VB file as input. 2) if the program is using FB file as input.

1 Answers HSBC,

i am trying to copy a PS file into VSAM file in step2 by using PGM=IDCAMS,COND=(0,LT) and the pS file is getting sorted in the step1. I got the return code 00 for step1 but step2 got flushed. can u please help on this. Below is My JCL. SEPP050 EXEC PGM=SORT,REGION=6144K SYSIN DD DSN=SYSCMN.PROD.CCLIB (F5910BNN), DISP=SHR SYSOUT DD SYSOUT=* SYSUDUMP DD SYSOUT=A SORTIN DD DSN=Z1225BT.F5910EPP.HISOUT, DISP=SHR SORTOUT DD DSN=Z1225BT.F5910EPP.HISOUT.SORTOUT5, DISP= (NEW,CATLG,DELETE),UNIT=DELQ, SPACE=(CYL, (500,500),RLSE), DCB= (RECFM=FB,LRECL=1606,BLKSIZE=16060,BUFNO=15) SORTWK01 DD UNIT=SYSDA,SPACE=(CYL, (1)) SORTWK02 DD UNIT=SYSDA,SPACE=(CYL, (1)) SORTWK03 DD UNIT=SYSDA,SPACE=(CYL, (1)) SORTWK04 DD UNIT=SYSDA,SPACE=(CYL, (1)) SYSIN1 DD UNIT=VIO,SPACE= (80,1) * SEPP060 EXEC PGM=IDCAMS,COND= (0,LT) SYSPRINT DD SYSOUT=* SYSOUT DD SYSOUT=* SYSLIST DD SYSOUT=* *** DD01 DD DSN=Z1225BT.F5910EPP.HISOUT.SORTOUT, // DISP=SHR //*** //DD01O DD DSN=Z1225BT.F5910PHS, // DISP=SHR, // AMP=(AMORG,'BUFND=12,BUFNI=5') //SYSIN DD DSN=SYSCMN.PROD.CCLIB(F5910BBB), // DISP=SHR Output RC for the two steps: SDCBPJ05 SEPP050 00 236 .00 .00 .0 SDCBPJ05 SEPP060 FLUSH 0 .00 .00 .0

3 Answers

what is the purpose of SYSOUT parameter in the DD statement?

1 Answers

Can we use two or more SYSPUNCH DD statements in a JCL for multiple unload (SYSREC00 & SYSREC01)..?

1 Answers

what happens if job falls in loop ? how to resolve it ?

3 Answers Patni,

Name the statement which can be used to send data to another mvs jes3 node?

0 Answers

Why we us SYSTSIN DD with IKJEFT01 (TSO Utility) to execute a COBOL DB2 program? Why can't we use SYSIN DD?

1 Answers TCS,

What is 'mounting' of volumes ? Is there anything that a programmer can do in it ? How to find currently mounted volume ?