JCL Examples for Program Compilation and Link Edit › Assembler Example (z/OS)

Assembler Example (z/OS)

//DFHEITAL PROC SUFFIX=1$,
//       INDEX='CICSSYS.V321',
//       OUTC='*',
//       REG=512K,
//       WORK=SYSDA
//*
//*      THIS PROCEDURE CONTAINS 3 STEPS
//*      1.   EXEC THE ASSEMBLER TRANSLATOR
//*           (USING THE SUPPLIED SUFFIX 1$)
//*      2.   EXEC THE ASSEMBLER
//*      3.   LKED THE OUTPUT TO CICSSYS.LOADLIB
//*
//*      THE FOLLOWING JCL SHOULD BE USED
//*      TO EXECUTE THIS PROCEDURE
//*
//*      //APPLPROG EXEC DFHEITAL
//*      //TRN.SYSIN  DD *
//*         .
//*         . APPLICATION PROGRAM
//*         .
//*      /*
//*      //LKED.SYSIN DD *
//*         NAME ANYNAME(R)
//*      /*
//*
//*      WHERE ANYNAME IS THE NAME OF YOUR APPLICATION PROGRAM
//*
//*
//TRN    EXEC PGM=DFHEAP&SUFFIX.,
//       REGION=&REG.
//STEPLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC.
//SYSPUNCH DD DSN=&.&SYSCIN.,
//       DISP=(,PASS),UNIT=&WORK.,
//       DCB=BLKSIZE=400,
//       SPACE=(400,(400,100))
//ASM    EXEC  PGM=ASMA(),
//       PARM='DECK,NOOBJECT,LIST'
//SYSLIB DD   DSN=&INDEX..SDFHMAC,DISP=SHR,
//       DD   DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1 DD UNIT=&WORK.,SPACE=(1700,(400,400))
//SYSUT2 DD UNIT=&WORK.,SPACE=(1700,(400,400))
//SYSUT3 DD UNIT=&WORK.,SPACE=(1700,(400,400))
//SYSPUNCH DD    DSN=&.&LOADSET.,
//       UNIT=&WORK.,DISP=(,PASS),
//       SPACE=(400,(100,100,1)),
//       DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSPRINT DD SYSOUT=&OUTC.
//SYSIN    DD DSN=&.&SYSCIN.,DISP=(OLD,DELETE)
//LKED   EXEC PGM=IEWL,REGION=&REG.,
//       PARM=XREF,COND=(9,LT,ASM)
//SYSLIB DD   DSN=&INDEX..SDFHLOAD,DISP=SHR
//SYSLMOD DD  DSN=&INDEX..SDFHLOAD,DISP=SHR
//SYSUT1 DD   UNIT=&WORK.,DCB=BLKSIZE=1024,
//       SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=&OUTC.
//SYSLIN DD   DSN=&INDEX..SDFHLOAD(DFHEILIA),
//            DISP=SHR,DCB=BLKSIZE=80
//       DD   DSN=usershlq.CAB1LOAD(DBCSRPR),DISP=SHR
//       DD   DSN=&.&LOADSET.,DISP=(OLD,DELETE)
//       DD   DDNAME=SYSIN
//       PEND