Nope. Charles
-----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Richards, Robert B. Sent: Friday, May 22, 2020 9:38 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387 If I turn on HILITE, will the answer become apparent? 😊 -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Charles Mills Sent: Friday, May 22, 2020 12:35 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387 Message handling is fine, other than one very specific problem that is inherent in the Rexx code posted. Note this is a Friday Folly, not a "real question." I know the answer (after 2+ hours of debug struggle!). Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joe Monk Sent: Friday, May 22, 2020 9:07 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Friday Follies/Why won't this work?/TSO Rant #387 Check your message handling ... Joe On Fri, May 22, 2020 at 11:00 AM Seymour J Metz <sme...@gmu.edu> wrote: > <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" ---------------------------------------------------------------------- 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
