Interested to Buy Any Domain ? << Click Here >> for more details...
how to submit a jcl by cobol program.
clear me with an example.
- 3 Answers
- 18564 Views
- HCL, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / leena_kulkarni
You just write out your JCL syntax to a file and assign it
to the internal reader to be automatically fired off when
you close the file.
SYNTAX:
When you close file, write down the below line.
//SYSUT2 DD SYSOUT=(*,INTRDR)
| Is This Answer Correct ? | 5 Yes | 3 No |
Answer / shriram supalwar, dharmabad
Submission of JCL Job from COBOL program
JOB:
//Jobcard
//STEP1 EXEC PGM=MAINPROG
//DD1 DD DSN=RAM.TEST,DISP=(SHR)
//JCLDD DD SYSOUT=(*,INTRDR)
COBOL PROGRAM:
(MAINPROG)
IDENTIFICATION DIVISION.
PROGRAM-ID. RAM.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO JCLDD
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 JCL-REC PIC X(20).
PROCEDURE DIVISION.
OPEN OUTPUT INFILE.
MOVE "//TYAWJKG JOB (A123, RAM)' TO JCL-REC.
MOVE "//STEP1 EXEC PGM=IEFBR14' TO JCL-REC.
MOVE "//DATA1 DD DSN=A.B.C,DISP=OLD' TO JCL-REC.
CLOSE INFILE.
correct me i am wrong......
| Is This Answer Correct ? | 1 Yes | 0 No |
Let us the program is PGM1. Below is the JCL for running
the PGM1.
//STEP1 EXEC PGM=PGM1
//INSUB DD SYSOUT (* INTRDR)
In the program define INSUB as file (should have a LRECL of
80). Write all the JCL codings into INSUB file.
When you close the INSUB file, the job will be submitted to
JES automatically.
| Is This Answer Correct ? | 0 Yes | 2 No |
what is s013u000 for?
What are the cobol coding sheets?
Hai friends why we need to read a file before re-write a record?
PERFORM ACCUMULATE-TOTALS VARYING A FROM 1 BY 2 UNTIL A >2 AFTER B FROM1 BY 1 UNTIL B>2 AFTER C FROM 2 BY -1 UNTIL C<2 How many times the paragraph ACCUMULATE-TOTALS would be exicuted?
How can I tell if a module is being called DYNAMICALLY or STATICALLY?
why 02 level number can't be use as a separate level number like 01 or 77 ?
can we print comp 3 stmts how ?
what is sync clause?
db2 variable decimal(15,2) what is the equalent size of cobol variable
How to read records which is in sequential file in reverse order ? Exp. 1 2 3 4 5 . i want 5 4 3 2 1?please clear my doubt any one
ID DIVISION. PROGRAM-ID. PLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 VAR1 PIC 9(2). 01 VAR2 PIC X(2). PROCEDURE DIVISION. ACCEPT VAR2. MOVE VAR2 TO VAR1. STOP RUN. if i give 'PI' in var2 then what will b output of progr. any abend?????
What are the different ways to run a COBOL DB2 program using JCL?
COBOL 
