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" > > 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
