Interested to Buy Any Domain ? << Click Here >> for more details...
How do you submit JCL via a Cobol program?
- 4 Answers
- 12873 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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 |
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 |
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 |
Is condition checking possible in jcl? If yes, how?
What is one line to pass PARM from JCL to COBOL?
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
what is instream data
how to put a dependency on job in jcl using opc scheduler?
What is the function of the dd dcb keyword?
how can a gdg base be created in a jcl. What is the difference between empty and scratch parameter while defining/altering gdg base?
proc1,proc2,up to proc5 is there if i want to call proc1 and proc5how can u write the code
I have DATE filed like DD-MM-YYYY, So I want output should be MM/DD/YYYY using JCL? Can anybody post the answer for above requirement?
4 Answers BirlaSoft, FIS, Wipro,
wht do u mean by internal reader in jcl ? wht is the use of internal reader ?
How do you access an uncatalogued dataset in a jcl?
Current version of GDG is ID.GDG.FILE.G0001V00. JCL has procedure with 2 steps like below, What will be the output file name in each step ? PROC starts Step 1 has ID.GDG.FILE(+1) Step2 has ID.GDG.FILE(+4) PEND Similarly, JCL has 2 steps in 2 separate procedure. What will be the output file names here ? PROC starts Step 1 has ID.GDG.FILE(+1) PEND PROC1 starts Step2 has ID.GDG.FILE(+4) PEND
COBOL 
