Compile and assembly JCL examples

This section contains compile and assembly JCL examples.

COBOL JCL example (version 6)

Important

For COBOL compiles, we recommend always using LIST instead of OFFSET, because LIST is required to support the Abend-AIDPerform Flow feature.

Related topics

Using-DDIOCALC

COBOL-language-processor

//COBM1    EXEC PGM=CWPCMAIN,
//         REGION=(0M),
//         PARM=('LIB,LIST,MAP,SOURCE,XREF(SHORT),OPT(0)')
***********************************************************************
*** THE REST OF YOUR COMPILE JCL HERE                               ***
***********************************************************************

//CWPDDIO  DD DISP=SHR,DSN=SALESSUP.RJK1.DEV1.LOAD.SSD
//CWPERRM  DD  SYSOUT=*
//CWPPRMO  DD *                                                                 
COBOL(OUTPUT(PRINT))                                                            
COBOL(OUTPUT(DDIO))                                                             
PROCESSOR(OUTPUT(PRINT))                                                        
PROCESSOR(OUTPUT(NODDIO))                                                       
PROCESSOR(TEXT(NONE))                                                           
DDIO(OUTPUT(NOXREF,NODMAP,NOLIST,NOOFFSET,COMPRESS))                            
DDIO(OUTPUT(FIND))                                                              

Important

  • If you are using ESS, change COBOL(OUTPUT(DDIO)) to COBOL(OUTPUT(NODDIO).
  • The following statement causes the language processor to print the original compile listing in the SYSPRINT DD:
COBOL(OUTPUT(PRINT))

COBOL JCL example (version 4), based on SLCXCNTL sample member CXCOBPRE

//CWAACOB  EXEC PGM=CWPCMAIN,REGION=4096K,                             
//* THE PARAMETER FIELD IS CONTINUED FROM COLUMN 71 OF THE FIRST CARD  
//* IMAGE TO COLUMN 16 OF THE SECOND.                                  
//PARM=('NOADV,LANGUAGE(COBOL/390),APOST,NOSEQ,NONAME',
// 'OPTIMIZE,LIST,SOURCE')
***********************************************************************
*** THE REST OF YOUR COMPILE JCL HERE                               ***
***********************************************************************

//CWPDDIO  DD DISP=SHR,DSN=COMPWARE.TEST.SSD   <--- SRCEDIR VSAM CLUSTER NAME
//CWPPRMO  DD  DISP=SHR,DSN=COMPWARE.SLCXCNTL(CXLPCOBB)

Contents of CXLPCOBB

COBOL(OUTPUT(NOPRINT))
COBOL(OUTPUT(DDIO))
PROCESSOR(OUTPUT(PRINT))
PROCESSOR(OUTPUT(NODDIO))
PROCESSOR(TEXT(NONE))
DDIO(OUTPUT(NOXREF,NODMAP,NOLIST,NOOFFSET,COMPRESS))
DDIO(OUTPUT(FIND))

Important

If you are using ESS, change COBOL(OUTPUT(DDIO)) to COBOL(OUTPUT(NODDIO).

Assembler JCL example, based on SLCXCNTL sample member CXASMPRE

//CWAACOB EXEC PGM=CWPAMAIN,REGION=4096K,
// PARM=''

***********************************************************************
*** THE REST OF YOUR  ASSEMBLY JCL HERE                             ***
***********************************************************************

//CWPDDIO DD DISP=SHR,DSN=COMPWARE.TEST.SSD <--- SRCEDIR VSAM CLUSTER NAME
//CWPPRMO DD DISP=SHR,DSN=COMPWARE.SLCXCNTL(CXLPASM)

Contents of CXLPASM

ASSEMBLER(OUTPUT(PRINT,DDIO))
DDIO(OUTPUT(NOXREF,COMPRESS))

PL/I JCL example, based on SLCXCNTL sample member CXPLIPRE

//CWAACOB EXEC PGM=CWPPMAIN,REGION=4096K,
// PARM='XREF,MAP,ST,LIST,SOURCE'  

***********************************************************************
*** THE REST OF YOUR COMPILE JCL HERE                               ***
***********************************************************************

//CWPDDIO DD DISP=SHR,DSN=COMPWARE.TEST.SSD <--- SRCEDIR VSAM CLUSTER NAME
//CWPPRMO DD DISP=SHR,DSN=COMPWARE.SLCXCNTL(CXLPPLI)

Contents of CXLPPLI

PL/I(OUTPUT(PRINT,DDIO))
LANGUAGE(ENTPL/I)       
DDIO(OUTPUT(VARREF,COMPRESS))

C JCL example, based on SLCXCNTL sample member CXCPRE

//CWAACOB EXEC PGM=CWPZMAIN,REGION=4096K,
// PARM=''
***********************************************************************
*** THE REST OF YOUR COMPILE JCL HERE                               ***
***********************************************************************

//CWPDDIO DD DISP=SHR,DSN=COMPWARE.TEST.SSD <--- SRCEDIR VSAM CLUSTER NAME
//CWPPRMO DD DISP=SHR,DSN=COMPWARE.SLCXCNTL(CXLPC)

Contents of CXLPC

C(OUTPUT(PRINT,DDIO))                     
LANGPARM(SOURCE,LIST,XREF,EXPMAC,SHOWINC)


 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*