Here's the pertinent parts of my production exit for IST020I (z/OS 1.9):
MGCRE MGCRE MF=L
...
MGCRE TEXT==A(START), ...
CONSID==F'0', ...
MF=(E,MGCRE)
...
START DC Y(STARTN-*-2),C'S STARTNET'
STARTN EQU *
Note that as per the doc, this exit is and is marked re-entrant, the L-form
MGCRE is moved to a GETMAINed area.
Bob
George Dranes wrote:
Thanks everyone for the great samples! I've tried to pick pieces from each to
code my exit. I decided to go with the MGCRE macro. My problem is that it
doesn't appear to do anything, most likely due to my assembler ignorance.
I've even hardcoded a D A,L command but nothing. Here is what I have:
STM REG14,REG12,12(REG13)
BALR BASEREG,REG0
USING *,BASEREG
L CTXTPTR,0(REG1)
USING CTXT,CTXTPTR
***********************************
ISSUE INPUT COMMAND.
***********************************
LA REG2,TEXT
MGCRE TEXT=(REG2),
CONSNAME=CONSOLE,
MF=(E,LAREA)
FINISHED EQU *
LM REG14,REG12,12(REG13) RESTORE CALLER'S
REGISTERS
BR REG14 RETURN TO CALLER
SPACE 1
**********************************************************
*************
* *
* LIST FORM OF MGCRE MACRO (STATIC) *
* *
**********************************************************
*************
LAREA MGCRE MF=L MGCRE parameter list
**********************************************************
*************
* *
* STORAGE DEFINITIONS *
* *
**********************************************************
*************
TEXT DS 0CL7
CMDLEN DC XL2'4' LENGTH OF COMMAND
COMMAND DC CL5'D A,L'
CONSOLE DC CL8'MSTRCON ' NAME OF ISSUING CONSOLE
EJECT
IEZVX100 CTXT
EJECT
END MPFCMD
Any help would be appreciated.
----------------------------------------------------------------------
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
