JCL for assembler exits

Figure 71 contains sample JCL statements that can be used for compiling and link-editing an assembler exit on z/OS®.

If you want to use this JCL to compile a PSF separator exit (APSUX01, APSUX01P, APSUX01S, APSUX02, APSUX02P, APSUX02S) with the additional Enhanced Distribution Information (ESS) SYSOUT parameters, you must change the PARM keyword on the EXEC statement to:

Figure 71. Sample JCL for compiling and link-editing assembler exits

//PROCEXIT JOB  MSGLEVEL=(1,1)
//**********************************************************************
//ASM    EXEC  PGM=ASMA90,PARM=OBJECT,REGION=4M
//**********************************************************************
//* BE SURE TO POINT TO THE CORRECT MACLIB SO THAT THE CORRECT MACROS  *
//*  WILL BE FOUND IN THE FOLLOWING SYSLIB                             *
//**********************************************************************
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1   DD  UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)),DSN=&SYSUT1
//SYSPUNCH DD  DUMMY
//SYSPRINT DD SYSOUT=*,DCB=(BLKSIZE=3509),UNIT=(,SEP=(SYSUT1,SYSPUNCH))
//SYSLIN   DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),         *
//             DCB=(BLKSIZE=400),DSN=&&LOADSET
//SYSIN    DD  *
************************************************************************
**** INSERT THE EXIT SOURCE CODE HERE AFTER THE SYSIN DD STATEMENT     *
************************************************************************
/*
//LKED  EXEC  PGM=IEWL,PARM='MAP,LET,LIST,NCAL,XREF,RENT',REGION=512K
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSPRINT DD  SYSOUT=*
//**********************************************************************
//* BE SURE TO CHANGE THE SYSLMOD DD STATEMENT BELOW TO POINT TO THE   *
//*  CORRECT LINKLIB. ALSO PUT THE CORRECT NAME OF THE EXIT IN THE     * 
//*  ENTRY AND NAME STATEMENTS BELOW (SUCH AS APSUX07, NOT APSUX07T).  *
//**********************************************************************
//SYSLMOD  DD DSN=xxxxxxx.xxxxxx.LINKLIB,DISP=OLD
//SYSLIN   DD  DSN=&&LOADSET,DISP=(OLD,DELETE)
//         DD  *
  ENTRY xxxxxxx
  NAME xxxxxxx(R)
/*