George,
In addition to CMDLEN being 5, shouldn't LA REG2,TEXT be LA REG2,CMDLEN ??
Cliff McNeill> Date: Sat, 7 Feb 2009 23:06:52 -0500> From:
[email protected]> Subject: Re: MPFLST Exit> To: [email protected]> >
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
_________________________________________________________________
Windows Live™: Keep your life in sync.
http://windowslive.com/explore?ocid=TXT_TAGLM_WL_t1_allup_explore_022009
----------------------------------------------------------------------
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
