Sample link-edit JCL

Use the sample JCL shown in Figure 1 to assemble and link-edit the GFSAUXL and GFSAUXF load modules:

Figure 1. Sample link-edit JCL for the NFS. This example uses High Level Assembler. To use Assembler H, replace ASMA90 on the EXEC statement with IEV90. The rest of the JCL would be the same.

//jobname  JOB (job_and_user_accounting_information)
//EXITASM  PROC M=
//ASM      EXEC PGM=ASMA90,
//              PARM='RENT'
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   DISP=SHR,DSN=source_library_name(&M)
//SYSLIB   DD   DISP=SHR,DSN=SYS1.MACLIB
//         DD   DISP=SHR,DSN=source_macro_library_name
//SYSLIN   DD   DISP=SHR,DSN=obj_library_name(&M)
//SYSUT1   DD   UNIT=SYSDA,
//              SPACE=(32000,(30,30))
//PEND    
//         EXEC EXITASM,M=GFSAUXL
//         EXEC EXITASM,M=GFSAUXF
//stepname EXEC PGM=HEWL,
//         PARM='MAP,LIST,RENT,REUS'
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSN=&SYSUT1,UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLMOD  DD DSN=apf_library_name,DISP=OLD
//USER     DD DSN=obj_library_name,DISP=SHR
//SYSLIN   DD *
   INCLUDE USER(GFSAUXL)
   MODE    AMODE(31)
   ENTRY   GFSAUXL
   NAME    GFSAUXL(R)
   INCLUDE USER(GFSAUXF)
   MODE    AMODE(31)
   ENTRY   GFSAUXF
   NAME    GFSAUXF(R)
/*