Charles,
Just a document rc=4 from Getmsg , the getmsg could not match your
criteria , filter ...
Scott
On Fri, May 22, 2020 at 1:58 PM Richards, Robert B. <
000001c91f408b9e-dmarc-requ...@listserv.ua.edu> wrote:
> 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
>
--
Scott Ford
IDMWORKS
z/OS Development
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
