CROSS-POSTED to ASSEMBLER-LIST and IBM-MAIN
Dear Group,
I worked with IBM to determine the best way to move print from one JES2
spool to another was by using EXIT 40.
Last time I was assembling a CSECT I needed the PARM RENT. In
SYS1.SHASSAMP is HASIASM which has NORENT. In SYS1.SHASSAMP is HASX40A which
is what I am modifying.
I added the SYS1.SHASMAC DD to the JCL.
The z/OS V1R13.0 JES2 Installation Exits talks about Exit 40: Modifying
SYSOUT characteristics. I have RMODE ANY. It also says I need AMODE 31. The
HLASM V1R5 Language Reference has figure 26 AMODE/RMODE Defaults. It says
RMODE 31 (was ANY) defaults to AMODE 31. I think I have meet the requirements.
The first two lines in HASX40A are:
*PROCESS USING(WARN(15)),SUPRWARN(324,420,436,437)
ACONTROL CPAT(NOSYSL,NOCASE),FLAG(PAGE0)
But the *PROCESS generates two messages. It looks like WARN(15) may be
obsolete.
** ASMA437N Attempt to override invocation parameter in a *PROCESS statement.
Suboption 15 of USING option ignored.
** ASMA420N Error in a *PROCESS statement parameter - USING(WARN(15))
My program assembles clean with this JCL:
//ASM EXEC PGM=ASMA90,
// PARM='NORENT,DECK,NOOBJ,USING(WARN(3))',
// REGION=6M
//SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=SYS1.SHASMAC
// DD DISP=SHR,DSN=SYS1.MODGEN,VOL=SER=S7XPA2,UNIT=3390
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,1))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,1))
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=SYS2.LIBRSRC.CNTL(HASX40)
//SYSPUNCH DD DSN=&&OBJ,DISP=(,PASS),SPACE=(CYL,(3,1)),
// UNIT=SYSDA,DCB=BLKSIZE=1600
//*
//LKED EXEC PGM=IEWL,PARM='XREF,LIST,RENT,REFR,AC=0'
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,1))
//SYSPRINT DD SYSOUT=*
//OBJ DD DSN=&&OBJ,DISP=(OLD,DELETE)
//SYSLMOD DD DISP=SHR,DSN=SYS2.LINKLIB
//SYSLIN DD *
INCLUDE OBJ
ENTRY HASX40
NAME HASX40(R)
/*
Q). Do I want NORENT for my JES2 EXIT 40? It deals with being reentrant. Not
sure what this exit should have.
Q). Does my PARM=USING(WARN(3)) override the *PROCESS USING(WARN(15))? Then I
can remove USING from the *PROCESS (and maybe not get any messages).
Thank you, Dave
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
