Well, I did but with this JCL (only asm step included here):
//S000TBER JOB (8950,C515),'ASM TEST2',NOTIFY=S000TBE, JOB11667
// CLASS=U,MSGCLASS=7,MSGLEVEL=(1,1),REGION=0M
/*JOBPARM S=ESY5
//*********************************************************************
//ASM EXEC PGM=ASMA90,
// PARM=('LC(49)','LANG(EN)',OBJECT,'XREF(SHORT)')
//SYSLIB DD DISP=SHR,DSN=S000TBE.A.MACLIB <<<====== Here is the
macro DECTEST2
//*** DD DSN=SYS6.MACLIB,DISP=SHR
//*** DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
// DD DSN=SYS6.MACLIB,DISP=SHR
// DD DSN=SPADAB.MACLIB,DISP=SHR
//*** DD DSN=SYS1.MODGEN,DISP=SHR
// DD DISP=SHR,DSN=S000TBE.A.MACLIB
//SYSUT1 DD DSN=&SYSUT1,UNIT=VIO,SPACE=(CYL,(50,50)),SEP=(SYSLIB)
//*YSPRINT DD DISP=SHR,DSN=S000TBE.A.ASMLIST(TEST2)
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSLIN DD DSN=&OBJSET,UNIT=VIO,SPACE=(80,(200,800)),
// DISP=(MOD,PASS)
//SYSIN DD DISP=SHR,DSN=S000TBE.A.ASM(TEST2) <<<====== Here is
the program TEST2
//SYSUT2 DD UNIT=VIO,SPACE=(CYL,(5,5))
//SYSUT3 DD UNIT=VIO,SPACE=(CYL,(5,5))
//SYSUT4 DD UNIT=VIO,SPACE=(CYL,(5,5))
//SYSUT5 DD UNIT=VIO,SPACE=(CYL,(5,5))
//SYSUT6 DD UNIT=VIO,SPACE=(CYL,(5,5))
//SYSUT7 DD UNIT=VIO,SPACE=(CYL,(5,5))
//*--------------------------------------------------------------------
//LKED EXEC PGM=IEWL,
etc...
... I get only this in the //SYSPRINT output:
High Level Assembler Option Summary
(PTF UQ93163) Page 1
HLASM R5.0 2005/11/10 19.34
No Overriding ASMAOPT Parameters
Overriding Parameters- LC(49),LANG(EN),OBJECT,XREF(SHORT)
No Process Statements
Options for this Assembly
NOADATA
ALIGN
NOASA
BATCH
CODEPAGE(047C)
NOCOMPAT
NODBCS
NODECK
DXREF
ESD
NOEXIT
FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0)
NOFOLD
NOGOFF
NOINFO
LANGUAGE(EN)
NOLIBMAC
LINECOUNT(49)
LIST(121)
MACHINE(,NOLIST)
MXREF(SOURCE)
OBJECT
OPTABLE(UNI,NOLIST)
NOPCONTROL
NOPESTOP
NOPROFILE
NORA2
NORENT
RLD
RXREF
SECTALGN(8)
SIZE(MAX,ABOVE)
NOSUPRWARN
SYSPARM()
NOTERM
NOTEST
THREAD
NOTRANSLATE
High Level Assembler Option Summary
(PTF UQ93163) Page 2
HLASM R5.0 2005/11/10 19.34
TYPECHECK(MAGNITUDE,REGISTER)
USING(NOLIMIT,MAP,WARN(15))
XREF(SHORT)
No Overriding DD Names
********************************************** Bottom of Data
**********************************************
... The changed macro DECTEST2:
MACRO
DECTEST2
.*--------------------------------------------------------------------*
MNOTE 1,'BEFORE ISDEC'
&XDEC SETB (ISDEC(123))
MNOTE 2,'AFTER ISDEC'
MEND
-----Ursprungligt meddelande-----
Från: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] För Ray Mullins
Skickat: den 10 november 2005 18:03
Till: [email protected]
Ämne: Re: ISDEC do the loop...
Thomas,
Stick an MNOTE before and after to make sure that you are looping when HLASM is
processing the ISDEC function.
If so, it's PMR time...
Later,
Ray
----------------------------------------------------------------------
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
