Ron wrote:
I hadn't thought about that. Thanks for the tip, it was file 196 on the
overflow tape.
Here is a simple one courtesy of Bruce Schaefer (who hasn't yet
subscribed to IBM-MAIN from his new job.)
//ASSEM1 EXEC HLASMC,
// PARM='DECK,NOOBJECT'
//SYSPUNCH DD DSN=&&XZ00176,DISP=(,PASS),UNIT=SYSDA,DSORG=PS,
// DCB=SYS3.USERMOD.CNTL,SPACE=(CYL,(3,3),RLSE)
//SYSPRINT DD SYSOUT=*
//ASM.SYSIN DD *
PUNCH '++USERMOD (XZ00176) .'
PUNCH '++ VER (Z038) FMID(HBB7720).'
PUNCH '++ MOD (IEFUSO) DISTLIB(ALPALIB).'
*
TITLE 'IEFUSO'
IEFUSO CSECT
IEFUSO AMODE 31
IEFUSO RMODE ANY
USING *,15
L 1,=F'16777215' BUMP OUTPUT BY 16,777,215
LA 15,4 SET RETURN CODE - DO NOT CANCEL JOB
BR 14 RETURN TO CALLER
DC C'IEFUSO '
DC C'02/11/99'
DC C' XZ00176'
END
/*
//RECVAPPL EXEC SMPE,CSI=ZOS17
//SMPPTFIN DD DSN=&&XZ00176,DISP=OLD
//SMPCNTL DD *
SET BDY(GLOBAL) .
REJECT S(XZ00176) BYPASS(APPLYCHECK,ACCEPTCHECK) .
RESETRC .
RECEIVE SYSMODS .
SET BDY(MVSATGT).
APPLY
S(XZ00176) .
/*
--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
[EMAIL PROTECTED]
http://www.phoenixsoftware.com/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
