Snippet:
Cart_V = 'CONS1'random(100,) /* build CART value
*/
pass_arg. = "CONSOLE SYSCMD("con_input") CART("Cart_V")"
"TSOEXEC CONSPROF SOLDISP(NO) SOLNUM(400)"
/*
activate Console services*/
"TSOEXEC CONSOLE ACTIVATE NAME("con_name") CART("Cart_V")"
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Charles Mills
Sent: Friday, May 22, 2020 1:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
We have a winner! You've got it about 90%.
The clue is in the subject line -- this is actually a TSO rant.
TSO uppercases commands so "CART" MyCart becomes effectively "CART MYCART01".
GETMSG is an ordinary Rexx function so parameters are passed "as-is," and RC =
GETMSG('MYMSGS.','SOL',MyCart,,1) becomes effectively RC =
GETMSG('MYMSGS.','SOL','MyCart01',,1).
The two CARTs do not match, and no messages are retrieved.
I think it is *possible* that you could solve the problem by quoting the CART
but I have not tested. Something like "CART" "'"||MyCart||"'" .
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Robert Garrett
Sent: Friday, May 22, 2020 10:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
Your problem is caused by using lower case characters in your CART parameter
value, the value of variable MyCart. If you used all upper case, or all
numerics, it would work fine.
That's not documented anywhere that I've thus far been able to find.
Cheers,
Robert
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Seymour J Metz
Sent: Friday, May 22, 2020 11:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387
<eg>
I called my congressman and he said quote
I'd like to help you son, but you're too young to vote.
</eg>
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
________________________________________
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Charles Mills [charl...@mcn.org]
Sent: Friday, May 22, 2020 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday Follies/Why won't this work?/TSO Rant #387
What is wrong with this Rexx? (I spent about two hours debugging before I
solved it.) The problem is right here on this page: the answer is NOT something
in RACF or JES2. It's not something missing: it's a sin of commission, not a
sin of omission. The below will never work. That is, the output will always be
RC = 4 , Msgs = MYMSGS.0 , Msg.1 = MYMSGS.1. Why?
/* Rexx to test command/response */
MyCart = "MyCart01"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE"
Address Console
"CART" MyCart
"$DQ"
RC = GETMSG('MYMSGS.','SOL',MyCart,,1)
Say "RC =" RC ", Msgs =" MYMSGS.0 ", Msg.1 =" MYMSGS.1 "CONSOLE DEACTIVATE"
Charles
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
