Appendix D - Compile and Assembly JCL Examples

Note regarding composite modules: You can store multiple versions of the same program in the same SSD by specifying the SSD member name. Use the following command in your compile/assembly step:

PRO(name)

Where “name” is the SSD member name. See Compuware Shared Services User Reference for details.

Search for “PROGRAM-NAME.”

For COBOL compiles, Compuware recommends always using LIST (instead of OFFSET) as it is required to support the Abend-AID Perform Flow feature.

Batch COBOL JCL using SSD

Batch COBOL (SSD)

//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,OPTIMIZ
// E,LIST'
***********************************************************************
*** THE REST OF YOUR COMPILE JCL HERE ***
***********************************************************************
//CWPDDIO DD DISP=SHR,DSN= COMPWARE.TEST.LOAD.SSD <- SSD NAME
//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))

CICS COBOL JCL using SSD

CICS COBOL (SSD)

Batch COBOL JCL using ESS

Batch COBOL (ESS)

//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,OPTIMIZ
// E,LIST'
***********************************************************************
*** THE REST OF YOUR COMPILE JCL HERE ***
***********************************************************************
//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))
ESS(YES)

CICS COBOL JCL using ESS

CICS COBOL (ESS)

//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,OPTIMIZ
// E,LIST'
***********************************************************************
*** THE REST OF YOUR COMPILE JCL HERE ***
***********************************************************************
//CWPPRMO DD *
COBOL(OUTPUT(PRINT))
COBOL(OUTPUT(DDIO))
PROCESSOR(OUTPUT(PRINT))
PROCESSOR(OUTPUT(NODDIO))
PROCESSOR(TEXT(NONE))
DDIO(OUTPUT(NOXREF,NODMAP,NOLIST,NOOFFSET,COMPRESS))
CICSTEST(OPTIONS(WARNING))
ESS(YES)

Assembler JCL example, based on sample member CXASMPRE:

Assembler JCL example

//CWAACOB EXEC PGM=CWPAMAIN,REGION=4096K,
// PARM='. . . ,DDIO(OUTPUT(COMPRESS))'
***********************************************************************
*** THE REST OF YOUR ASSEMBLY JCL HERE ***
***********************************************************************
//CWPDDIO DD DISP=SHR,DSN= COMPWARE.TEST.LOAD.SSD <- SSD NAME
//CWPPRMO DD DISP=SHR,DSN=COMPWARE.SLCXCNTL(CXLPASM)

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

PL/I compile JCL example

//CWAACOB EXEC PGM=CWPPMAIN,REGION=4096K,
// PARM='. . . ,DDIO(OUTPUT(COMPRESS))'
***********************************************************************
*** 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)

C JCL example, based on sample member CXCPRE:

C compile JCL example

//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)