Which is EXACTLY what LOTS of the IBM macros do!
OPEN ((R4)),MODE=31
+ CNOP 0,4 ALIGN LIST TO HALFWOR
+ BAS 1,*+12 LOAD REG1 W/LIST ADDR
+ DC A(0) OPTION BYTE
+ DC A(0) DCB ADDRESS
+ ST R4,4(1,0) STORE INTO LIST
+ MVI 0(1),128 MOVE IN OPTION BYTE
+ LR 0,1 POINT REG0 TO PLIST
+ SR 1,1 CLEAR REGISTER 1
+ SVC 19 ISSUE OPEN SVC
No error there if RENT or RSECT.
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Jeffrey D. Smith
Sent: Saturday, October 21, 2006 2:44 PM
To: [email protected]
Subject: Re: Is the teaching of non-reentrant HLASM coding practices ever
defensible?
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
> Behalf Of Robert A. Rosenberg
> Sent: Saturday, October 21, 2006 3:09 PM
> To: [email protected]
> Subject: Re: Is the teaching of non-reentrant HLASM coding practices ever
> defensible?
>
> At 07:58 -0700 on 10/21/2006, Charles Mills wrote about Re: Is the
> teaching of non-reentrant HLASM coding practices:
>
> >And then there is no way to test that the code really is reentrant (that
> I
> >know of -- am I missing something?) without running it APF-authorized.
>
> Use RENT as well as RSECT instead of CSECT and you will get TOLD at
> assembly time when you're not reentrant.
Not every time.
LA R3,FUBAR
ST R2,0(0,R3)
No way for the assembler to determine that the ST is storing
into field FUBAR.
----------------------------------------------------------------------
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
