Nope. Charles
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Richards, Robert B. Sent: Friday, May 22, 2020 9:38 AM To: [email protected] 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 <[email protected]> On Behalf Of Charles Mills Sent: Friday, May 22, 2020 12:35 PM To: [email protected] 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:[email protected]] On Behalf Of Joe Monk Sent: Friday, May 22, 2020 9:07 AM To: [email protected] 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 <[email protected]> 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 [[email protected]] on > behalf of Charles Mills [[email protected]] > Sent: Friday, May 22, 2020 10:02 AM > To: [email protected] > 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 [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
