PARM PARAMETER TO PASS DATA FROM JCL TO COBOL

PARM PARAMETER:

COBOL PROGRAM TO RECEIVE DATA FROM JCL:

IDENTIFICATION DIVISION.                         
PROGRAM-ID. PARM1.                               
DATA DIVISION.                                   
WORKING-STORAGE SECTION.                         
01 WS-VARIABLES.                                 
   05 DISP-TEXT      PIC X(30) VALUE SPACES.     
LINKAGE SECTION.                                 
01 WS-PARM.                                     
   05 WS-LENGTH      PIC 9(04) COMP VALUE ZEROS. 
   05 WS-TEXT        PIC X(30) VALUE SPACES.     
PROCEDURE DIVISION USING WS-PARM.               
    DISPLAY ' VALUE OF WS-TEXT   : ' WS-TEXT     
    DISPLAY ' VALUE OF WS-LENGTH : ' WS-LENGTH. 

    STOP RUN.                                   


JCL TO COMPILE AND LINK COBOL PROGRAM:
//Z57658SA JOB (3P10),'COMP JCL',                               
//         CLASS=A,                                             
//         MSGCLASS=Q,                                         
//         NOTIFY=Z57658                                       
//*                                                             
//JCL1 JCLLIB ORDER=Z57658.SOURCE.PROCLIB                       
//*                                                             
//STEP1 EXEC IGYWCL,MEM=PARM1,MEM2=COPY1,

//        PARM.COBOL='DYNAM,SSRANGE'                                    
//COBOL.SYSIN  DD DSN=Z57658.SOURCE.COBOL(&MEM),DISP=SHR       

 //LKED.SYSLIB DD DSN=Z57658.COPY.COPYLIB(&MEM2),
//LKED.SYSLMOD DD DSN=Z57658.SOURCE.LOADLIB(&MEM),
//                      DISP=SHR     
//*                                                           

COBOL.SYSIN - Cobol source code

LKED.SYSLIB - Cobol copybooks

LKED.SYSLMOD - Cobol Load module library

IGYWCL CATLOG PROCEDURE TO COMPILE AND LINK PROGRAM:
//IGYWCL PROC  PGMLIB='&&GOSET'                       
//*                                                   
//COBOL  EXEC PGM=IGYCRCTL,REGION=0M                 
//STEPLIB  DD  DSNAME=IGY420.SIGYCOMP,DISP=SHR       
//                  DD  DSNAME=CEE.SCEERUN,DISP=SHR           
//                  DD  DSNAME=CEE.SCEERUN2,DISP=SHR           
//SYSPRINT DD  SYSOUT=*                               
//SYSLIN      DD  DSNAME=&&LOADSET,

//                           DISP=(MOD,PASS),

//                           SPACE=(CYL,(1,1)),

//                           UNIT=SYSDA  
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))       

//SYSUT2   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))       
//SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))       
//SYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))       
//SYSUT5   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))       
//SYSUT6   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))       
//SYSUT7   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))       
//SYSUT8   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))         
//SYSUT9   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))         
//SYSUT10  DD  UNIT=SYSDA,SPACE=(CYL,(1,1))         
//SYSMDECK DD  UNIT=SYSDA,SPACE=(CYL,(1,1))         
//LKED   EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),       
//         REGION=0M                               
//SYSLIB   DD  DSNAME=CEE.SCEELKED,DISP=SHR         
//                 DD  DSNAME=CEE.SCEELKEX,DISP=SHR         
//SYSPRINT DD  SYSOUT=*                             
//SYSLIN   DD  DSNAME=&&LOADSET,DISP=(OLD,DELETE)   
//                 DD  DDNAME=SYSIN                         
//SYSLMOD  DD  DSNAME=&PGMLIB(G0),                 
//                             SPACE=(CYL,(1,1,1)),                 
//                             UNIT=SYSDA,DISP=(MOD,PASS),       
//                             DSNTYPE=LIBRARY                     
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))     
//*

JCL TO EXECUTE COBOL PROGRAM ALONG WITH PARM PARAMETER:
//Z57658SA JOB (3P10),'ONLY RUN',                           
//         CLASS=A,                                         
//         MSGCLASS=Q,                                       
//         NOTIFY=Z57658                                     
//*                                                         
//JCL1 JCLLIB ORDER=Z57658.SOURCE.PROCLIB                   
//*                                                         
//STEP1 EXEC PGM=PARM1,PARM=(COBOL76,COBOL85,COBOLII)       
//SYSPRINT DD SYSOUT=*                                       
//SYSOUT   DD SYSOUT=*                                       
//STEPLIB  DD DSN=Z57658.SOURCE.LOADLIB,DISP=SHR             
//*                                                         



OUTPUT OF COBOL PROGRAM:
********************************* TOP OF DATA ***
 VALUE OF WS-TEXT   : COBOL76,COBOL85,COBOLII 
 VALUE OF WS-LENGTH : 0023                     
******************************** BOTTOM OF DATA *