//******************************************************************* 00010000 //* * 00020000 //* A S S E M B L E Y O U R P R O G R A M * 00030000 //* * 00040000 //* * 00050000 //* SET THE SYMBOLIC PARAMETERS TO THE FOLLOWING VALUES: * 00060000 //* * 00070000 //* SRCLIB - DATASET NAME OF THE PDS WHERE YOUR ASSEMBLER * 00080000 //* PROGRAM RESIDES. * 00090000 //* MEMBER - MEMBER NAME OF YOUR ASSEMBLER PROGRAM * 00100000 //* (THIS MAY BE DIFFERENT THAN THE CSECT NAME). * 00110000 //* LOADLIB - DATASET NAME OF THE LOAD MODULE LIBRARY THAT * 00120000 //* YOUR PROGRAM IS ASSEMBLED AND LINKED INTO. * 00130000 //* MACLIB - DATASET NAME OF YOUR ASSEMBLER COPYBOOKS AND * 00140000 //* MACROS. * 00150000 //* * 00160000 //******************************************************************* 00170000 //ASSEMBLE PROC 00180000 //* 00190000 //ASM EXEC PGM=ASMA90, 00200000 // PARM=(ALIGN,BATCH,DECK,'FLAG(0)',NOOBJECT, 00210000 // LIST,ESD,RLD,'XREF(FULL)', 00220000 // NORENT,NOTERM,NOTEST) 00230000 //SYSLIB DD DSN=&MACLIB,DISP=SHR 00240000 // DD DSN=SYS1.MACLIB,DISP=SHR 00250000 // DD DSN=SYS1.AMODGEN,DISP=SHR 00260000 //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(5,5)),DISP=(,DELETE,DELETE) 00270000 //SYSUT2 DD UNIT=SYSDA,SPACE=(TRK,(5,5)),DISP=(,DELETE,DELETE) 00280000 //SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(5,5)),DISP=(,DELETE,DELETE) 00290000 //SYSPRINT DD SYSOUT=* 00300000 //SYSPUNCH DD DSN=&&OBJECT,DISP=(,PASS), 00310000 // UNIT=SYSDA,SPACE=(TRK,(5,5)) 00320000 //SYSIN DD DSN=&SRCLIB(&MEMBER),DISP=SHR 00330000 //* 00340000 //LINK EXEC PGM=HEWL,COND=(0,NE), 00350000 // PARM='XREF,LIST,MAP' 00360000 //SYSLIB DD DSN=&LOADLIB,DISP=SHR 00370000 //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(5,5)),DISP=(,DELETE,DELETE) 00380000 //SYSPRINT DD SYSOUT=* 00390000 //SYSLMOD DD DSN=&LOADLIB(&MEMBER),DISP=SHR 00400000 //SYSLIN DD DSN=&&OBJECT,DISP=(OLD,DELETE) 00410000 // PEND 00420000