George,
the value in CMDLEN is suspect. The command you want to execute is 5 characters
in length, not 4. Without checking on the macro definition, is CMDLEN only the
length of the command or does it include the two bytes of length before the
command?
________________________________
From: IBM Mainframe Discussion List on behalf of George Dranes
Sent: Sat 2/7/2009 7:50 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: MPFLST Exit
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
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
