Not quite. Every TSO command parses its own operands, normally by calling
IKJPARSE. If the operand description specifies ASIS the PARSE does not
translate the operand to upper case. Ideally the command description would
specify whether the operand is case dependent, but we don't live in an ideal
world.
As I hinted in my <evil grin> quote, this will work and will have the bonus of
irritating Gil:
MyCart = MyCart01
if you leave MyCart01 unquoted in the GETMSG().
The general rule is that the REXX variable pool can have lower case names but
you have to use the value() function to access them; REXX normally translates
names to upper case.
--
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 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
