On Thu, 17 Mar 2011 06:52:38 -0700, Charles Mills wrote:
>Problem as stated included AMODE=31 and reentrancy.
It is reentrant, I believe. For the AMODE=31 and RMODE=31, add
HELLO RMODE 31
That by itself will give an binder warning as coded, but it can be ignored,
or the warning can be eliminated by changing
OLIST_M OPEN (DCB_M,OUTPUT),MF=L
to
OLIST_M OPEN (,OUTPUT),MF=L
complete program now:
HELLO CSECT ,
HELLO RMODE 31
STM 14,12,12(13) SAVE CALLER'S REGISTERS
LR 11,15 SET OUR BASE REGISTER
USING HELLO,11
GETMAIN RU,LV=WORKLEN,LOC=24
ST 13,4(,1) BACK CHAIN
ST 1,8(,13) FORWARD CHAIN
LR 13,1 LOAD MY SAVE AREA ADDRESS
USING WORKAREA,13
MVC OPENLIST(MESSAGE-OLIST_M),OLIST_M
OPEN (SYSPRINT,OUTPUT),MF=(E,OPENLIST)
PUT SYSPRINT,MESSAGE
CLOSE MF=(E,OPENLIST)
LR 1,13 COPY MY SAVE AREA ADDRESS
L 13,4(,13) POINT TO CALLER'S SAVE AREA
FREEMAIN RU,A=(1),LV=WORKLEN
LM 14,12,12(13) RESTORE CALLER'S REGISTERS
SLR 15,15
BR 14 RETURN TO CALLER
OLIST_M OPEN (,OUTPUT),MF=L
DCB_M DCB DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FB,LRECL=80
MESSAGE DC CL80'STUPID "HELLO WORLD" MESSAGE'
WORKAREA DSECT ,
DS 18F SAVE AREA
OPENLIST OPEN (SYSPRINT,OUTPUT),MF=L
SYSPRINT DCB DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FB,LRECL=80
WORKLEN EQU *-WORKAREA
END HELLO
It really isn't so difficult.
--
Tom Marchant
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
