//JOBNAME JOB (ACCT),NAME,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) //********************************************************************* //ASMCL PROC N=TEMPNAME,AOPT=,LOPT=,NCAL=NCAL, // MAC1='SYS1.MACLIB', // MAC2='SYS1.MACLIB', // MAC3='SYS1.MODGEN', // LLIB='SYS1.SVCLIB' <== SYS1.SVCLIB OR SYS1.LPALIB //A EXEC PGM=ASMA90, // PARM='OBJ,NODECK,LC(32767),XREF(SHORT),TERM,RLD,ASA,&AOPT' //SYSPRINT DD SYSOUT=* //SYSTERM DD SYSOUT=* //SYSLIB DD DISP=SHR,DSN=&MAC1 // DD DISP=SHR,DSN=&MAC2 // DD DISP=SHR,DSN=&MAC3 //SYSUT1 DD UNIT=SYSALLDA,SPACE=(TRK,(80,20)) //SYSLIN DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(TRK,(30,15),RLSE), // DCB=(RECFM=FB,BLKSIZE=0,LRECL=80) //L EXEC PGM=IEWL,COND=(5,LT,A), // PARM=('LIST,MAP,LET,XREF,&NCAL,&LOPT') //SYSPRINT DD SYSOUT=* //SYSLIN DD DSN=*.A.SYSLIN,DISP=(OLD,DELETE) // DD DDNAME=SYSIN //SYSLMOD DD DISP=SHR,DSN=&LLIB(&N) // PEND //********************************************************************* //IGG019WA EXEC ASMCL,N=IGG019WA,LOPT=RENT //A.SYSIN DD * LCLC &MDLNM &MDLNM SETC 'IGG019WA' SET THIS MODULE NAME &MDLNM TITLE 'EXCP PROGRAMMING EXERCISE - EOE APPENDAGE RTN' &MDLNM CSECT , DEFINE CODE SECTION &MDLNM AMODE 31 DEFINE DEFAULT AMODE *---------------------------------------------------------------------* * MVS E.O.E APPENDAGE ROUTINE. * * ===================================================== * * CHANGE DEB DASD SECTION EXTENT ADDRESS TO ALLOW FOR * * READING ANY TRACK ON VOLUME. * *---------------------------------------------------------------------* USING IOBSTDRD,2 ADDRESS TO IOB BASIC SECTION USING DEBBASIC,3 ADDRESS TO DEB BASIC SECTION TM DEBOPATB,DEBACCS INPUT DCB ? BNZ 0(,14) NO, DISALLOW WRITE/UPDAT CMD LA 10,DEBBASND LOAD DEB DASD SECTION USING DEBDASD,10 ADDRESS IT CLC DEBSTRCC(4),IOBCC SAME SEEK ADDRESS ? BE 0(,14) YES, ITS EXTENT ADDRESS ERROR MVC DEBSTRCC(4),IOBCC NO, CHANGE DEB EXTENT ADDRESS + BY IOB SEEK(CCHH) ADDRESS MVC DEBENDCC(4),IOBCC NO, CHANGE DEB EXTENT ADDRESS + BY IOB SEEK(CCHH) ADDRESS B 8(,14) REQUEST TO RETRY CHANNEL PGM *---------------------------------------------------------------------* IEZIOB DSECT=YES IOB IEZDEB LIST=YES DEB END // //