&TRACE OFF

FILEDEF INPUT TAP1 (LRECL 0 BLKSIZE 32720 RECFM U
MVSUNZIP DD:INPUT A
FILEDEF INPUT CLEAR

GLOBAL MACLIB OSMACRO DMSGPI

&ASMNAME = ASMAHL

COPY * ASM A = ASSEMBLE = (REPLACE LRECL 80 RECFM F

&ASMNAME TAP2MOD

LOAD    TAP2MOD (NOLIBE NOAUTO

GENMOD TAP2MOD
* TYPE LOAD MAP A
ERASE LOAD MAP A

TAP2MOD
