Hi, I'm getting IRX0250E System abend code 0C4, reason code 00000017 when in Batch I use the IRXJCL to run rexx ( $COREXXB ) . . .So I don't know what I doing bad . . .
The REXX Source is :
ADDRESS TSO
Dsname = 'DADM.CICSTS.V320.FILEA '
Dsname = Strip(Dsname)
Comando = 'D GRS,RES=(*,'Dsname')'
say ' Address is = ' ADDRESS()
say ' '
ADDRESS TSO "CONSPROF SOLDISPLAY(NO)"
say ' Address is = ' ADDRESS()
say ' '
"CONSOLE ACTIVATE NAME(MYCONSO)"
say ' Address is = ' ADDRESS()
say ' '
ADDRESS CONSOLE "SYSCMD("Comando") CART(APPL0001)"
say ' Address is = ' ADDRESS()
say ' '
getcode = GETMSG('Mensa.','SOL','APPL0001',05)
- - - - - - - - - - - - - - - - - - - - - - - - - - - -- - - - - - -- - - - -
And the result is :
Address is = TSO
16 *-* ADDRESS TSO "CONSPROF SOLDISPLAY(NO)"
+++ RC(-3) +++
Address is = TSO
21 *-* "CONSOLE ACTIVATE NAME(MICONSO)"
+++ RC(-3) +++
Address is = TSO
26 *-* ADDRESS CONSOLE "SYSCMD("Comando") CART(APPL0001)"
+++ RC(-3) +++
Address is = TSO
IRX0250E System abend code 0C4, reason code 00000017.
IRX0253E Abend in external function GETMSG.
31 +++ getcode = GETMSG('Mensa.','SOL','APPL0001',05)
IRX0040I Error running $COREXXB, line 31: Incorrect call to routine
Someone can help me . . .?
Thank in advance.
Alvaro.
----------------------------------------------------------------------
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
