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
- 18556 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 |
i have two file, each file having : file1 is having 2 fields field1 field2 file2 is having 3 fields field1 field2 field3 my req is to make it one file like: field1 field2 field1 field2 field3 if anyone know please send me syntax, i tried this with DFSORT but could not succeed.
how we can edit records in vsam data set and non vsam data sets
How to execute a set of JCL statements from a COBOL program?
which one is better among static call and dynamic call?
What is report-item in COBOL?
How many bytes do a s9 (7) comp-3 field occupy?
can i use multiple when statements in search & search all ? justify ur answer?
Will the variable POS in the following code have a value of 2 or not? 01 POS PIC S9(4) COMP VALUE 2. 01 FIRST-NAME PIC X(10) VALUE 'ABC'. 01 LAST-NAME PIC X(10) VALUE 'XYZ'. 01 NAME PIC X(20) VALUE SPACES. STRING FIRST-NAME DELIMITED BY SPACES ' ' DELIMITED BY SIZE LAST-NAME DELIMITED BY SPACES INTO NAME WITH POINTER POS
is it possible to declare index in cobol program? if it is not why its tell me pls
What are the different forms of EVALUATE statement?
What are ISOLATION LEVELS? Where do we need to specify them in compiling JCL (Exactly which statement and what is syntax for it)?
How do u sort the table for Search ALL? Is it only using ASCENDING KEY IS statement in occurs clause? If the data is input in non ascending order, will the ASC KEY IS automatically sort the data? or will it throw compile time error?
COBOL 
