how to submit a jcl by cobol program.
clear me with an example.
Answer Posted / 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 |
Post New Answer View All Answers
Write a program to explain size error.
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
I have to write to a outfile where the number of records in that file should be the header of that file using IMS.. can anyone help me in this issue
What happens when we move a comp-3 field to an edited (say z (9). Zz-)?
i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?
) what is the difference between AID and HANDLE AID?
Explain about different table spaces.
how to convert the recors form vsam file to db2 table tru file aid
I have File 1 occurs 5 times with Employee-ID,Employee-Name,Employee-Dept (EEE and MECH). I have File 2 occurs 10 times with Employee-ID,Employee-Name,Employee-Dept (EEE,CIVIL,CHEMICAL and MECH). In FIle 1 and FIle 2 , for matching Employee-DEPT (Only MECH) , we need to move entire records from file1 to file 2. We should not use 2D array. Your help is needed here.
How many sections are there in data division in COBOL?
Why is it necessary that file needs to be opened in I-O mode for REWRITE?
For rewrite, why is it mandatory that file needs to be opened?
write a cobol logic. i have file that has 10 records .1 record go to first output file and second record goes to 2 output and etc
How did the release of cobol/370 version 1.3 improve the performance of release 1.1?
Explain sorting techniques in cobol program? Provide the sort file definition, the sort statement, its syntax and meaning