how to submit a jcl by cobol program.
clear me with an example.
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 |
I want ALL ERROR codes in VSAM
3 Answers American Express, TCS,
how we sort two input files based on a common column and giving one o/p file please send me the coding logic?
I am sending values a and b with pic x(10) and pic x(10) by using call statement. In linkage section, I am receiving values with pic x(10) and pic x(11). Will my program fail? will it be compile error or run time abend?
What is the linkage section?
HOW TO MOVE REDEFINES CLAUSE FROM INPUT TO OUTPUT ?
What was removed from COBOL in the COBOL II implementation?
input:-AABBCCDDEFGHIIJ output:- ABCDEFGHIJ Here in input we hav the duplicate characters i.e repeating characters.SO we should eliminate the duplicate characters and should display the output in ascending order.
how do you reference the rrds file formats from cobol programs
01 MOVE 10 TO N 05 PERFOM PARA1 TIMES STOP RUN WAT WILL HAPPEN?? WILL IT RUN INFINITELY OR AN ERROR WIL BE THER BECAUSE NO OF TIMES IS NOT GIVEN??
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
how you read control card into array?
In the JCL, how do you define the files referred to in a subroutine ?