Step 6: Assembler H migration (optional)
To simplify migration of existing assembler procedures, the IEV90 module can be given as an alias of ASMA90. A sample usermod, ASMAIEV is supplied in the ASM.SASMSAM1 library to do this. Only run this usermod as an aid to migrating references from IEV90 to ASMA90. When all references have been changed, remove the usermod.
//ASMAIEV JOB <JOB CARD PARAMETERS>
//*
//USERMOD EXEC PGM=GIMSMP
//SMPCSI DD DSN=#globalcsi,
// DISP=SHR
//SMPOUT DD SYSOUT=*
//SMPRPT DD SYSOUT=*
//SMPLIST DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DSN=#hlq.SASMMAC1,
// DISP=SHR
//STEPLIB DD DSN=#hlq.SASMMOD1,
// DISP=SHR
//SMPPTFIN DD DATA,DLM=QX
++USERMOD(ML00009) REWORK(#date).
++VER(Z038) FMID(HMQ4160).
++JCLIN.
//S2 EXEC LINKS,
// PARM='XREF,MAP,NCAL,RENT,REUS,REFR,AMOD=31,RMOD=ANY',
// UNIT='',SER=,N=,NAME=SASMMOD1,P1='',
// MOD=,P2='',OBJ=,CLASS=
//AASMMOD1 DD DISP=SHR,DSN=#hlq.AASMMOD1
//SYSLIN DD *
ORDER ASMA90
INCLUDE AASMMOD1(ASMACPR)
ALIAS IEV90
ENTRY ASMA90
NAME ASMA90(R) RC=0
/*
++MOD(ASMA90) LKLIB(SASMMOD1).
QX
//SMPCNTL DD *
SET BDY(GLOBAL).
RECEIVE S(ML00009) SYSMODS.
SET BDY(#tzone).
APPLY S(ML00009). 2
/*
- In area 1 use the REWORK option if you change the USERMOD
frequently.
Specify REWORK if the USERMOD name will be reused every time and you do not prefer to use the REJECT command before receiving the USERMOD.
Every time you re-apply the USERMOD, increment the value of REWORK using the form of yyyyddd, where yyyy is the year (for example, 2008) and ddd is the day of the year (for example, 036 is the 5th February). For more information refer to SMP/E Reference.
If you do not increment the REWORK option, then on subsequent APPLY commands the REDO operand is required on the SMP/E APPLY statement.
- In area 2 you might want to use the COMPRESS option on the APPLY statement to minimize storage used for some or all of the target libraries.
For the USERMOD, do not perform any ACCEPT processing.