Walt,
I added a Subpool value of 229 (recommended for an MPFLSTxx exit) to my
dynamic GETMAIN and FREEMAIN calls and now it seems to work. Almost like it
was picking up residual data when storage was in the default subpool?? Here
is my code, hopefully it formats correctly:
STM R14,R12,12(R13)
LR R12,R15
USING MPFEXIT,R12
L R2,0(R1)
USING CTXT,R2
GETMAIN RU,LV=DYN_WKA_L,SP=229
ST R13,4(,R1)
ST R1,8(,R13)
LR R13,R1
USING DYN_WKA,R13
LA R4,80
STC R4,WORK_TOKN_DYN
MVI WORK_TOKN_DYN+1,X'01'
LA R5,RACR_LIST_DYN
MVC RACR_LIST_DYN,RACR_LIST
RACROUTE REQUEST=TOKENBLD,MF=(E,(R5)),RELEASE=1.9,
MSGRTRN=NO,MSGSUPP=NO,
SESSION=SYSAS,TRUSTED,REMOTE=NO,USERID=INUSER,
TOKNOUT=WORK_TOKN_DYN,WORKA=RACWRK_DYN
LA R6,8
STH R6,CMD_LEN_DYN
MVC CMD_TEXT_DYN,CTXTAUTT
LA R7,CMD_AREA_DYN
XR R8,R8
LA R9,WORK_TOKN_DYN
MVC MGCRE_LIST_DYN,MGCRE_LIST
LA R10,MGCRE_LIST_DYN
MGCRE TEXT=(R7),CONSID=(R8),UTOKEN=(R9),MF=(E,(R10))
FINISHED EQU *
LR R1,R13
L R13,4(,R13)
FREEMAIN RU,A=(R1),LV=DYN_WKA_L,SP=229
DROP R13,R2
SLR R15,R15
L R14,12(,R13)
LM R2,R12,28(R13)
BR R14
SPACE 1
RACR_LIST RACROUTE REQUEST=TOKENBLD,RELEASE=1.9,WORKA=0,MF=L
RACR_LIST_L EQU *-RACR_LIST
EJECT
MGCRE_LIST MGCRE MF=L
MGCRE_LIST_L EQU *-MGCRE_LIST
EJECT
INUSER DC X'08'
DC 'L#TSCONS'
DYN_WKA DSECT
SAVAREA DS 18F
MGCRE_LIST_DYN DS CL(MGCRE_LIST_L)
CMD_AREA_DYN DS 0F
CMD_LEN_DYN DS H
CMD_TEXT_DYN DS CL8
RACR_LIST_DYN DS CL(RACR_LIST_L)
WORK_TOKN_DYN DS CL80
RACWRK_DYN DS CL512
DYN_WKA_L EQU *-DYN_WKA
EJECT
PUSH PRINT
PRINT NOGEN
IEZVX100
POP PRINT
EJECT
END MPFEXIT
----------------------------------------------------------------------
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
