COBOL TO RECEIVE DATA FROM JCL

The following COBOL program illustrates how

to receive data from JCL in a COBOL program

   IDENTIFICATION DIVISION.

   PROGRAM-ID. PGM048.

   AUTHOR. MAINFRAMEWIZARD.

   DATA DIVISION.

   WORKING-STORAGE SECTION.

   LINKAGE SECTION.

   01 INPUT-PARM.

   05 PARM-LENGTH PIC S9(4) COMP.

   05 PARM-DATA PIC X(15).

   PROCEDURE DIVISION USING INPUT-PARM.

   10000-MAIN-PARA.

   * COBOL PROGRAM TO USE DATA RECEIVED FROM JCL

   DISPLAY 'DATA RECEIVED FROM JCL :' PARM-DATA.

   DISPLAY 'LENGTH OF DATA FROM JCL :' PARM-LENGTH.

   10000-EXIT.

   EXIT.

   STOP RUN.

Sample JCL to run the above program is as below

//TEST JOB (ACCINFO,,,,,XXXX),' ',CLASS=M,

// MSGCLASS=Y,NOTIFY=&SYSUID

//STEP0010 EXEC PGM=LPGM048,PARM='INPUT-PARM-HERE'

//SYSOUT DD SYSOUT=*

The output of the program is

DATA RECEIVED FROM JCL :INPUT-PARM-HERE

LENGTH OF DATA FROM JCL :+00015

; ; ; ;