I think HBO needs to commission its first IT-related sitcom ... REXX and the City ....
Chris Hoelscher Technology Architect, Database Infrastructure Services Technology Solution Services : humana.com 123 East Main Street Louisville, KY 40202 Humana.com (502) 714-8615, (502) 476-2538 > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Pfister, Nathan > Sent: Monday, January 04, 2016 3:44 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: [IBM-MAIN] REXX and the console > > I use the ISFCALLS with ISFSLASH to run commands: > > /* REXX */ > begin = 'false' > cmd.0 = 1 > cmd.1 = 'd omvs,l' > x=isfcalls("on") > "ALLOC F(O) DA(A7G.OUT) DSORG(PS) SPACE(2,0) TRACKS LRECL(132) > RECFM(F,B) NEW" > ADDRESS SDSF ISFSLASH "("cmd.") (WAIT)" > do i=1 to isfulog.0 > If POS('MAXPROCSYS',isfulog.i) <> 0 Then > BEGIN='TRUE' > If BEGIN = 'TRUE' Then > CALL PARSEMSGS(isfulog.i) > End > "EXECIO 0 DISKW O (FINIS" > "FREE F(O)" > x=isfcalls("off") > exit > > /* This routine will parse out what we want from the messages */ > PARSEMSGS: > ARG PRTMSG > PARSE VAR PRTMSG LIMIT MPCUR MPHIGH MPLIM . > out.0=4 > out.1=LIMIT > out.2=" Current Usage: "MPCUR > out.3=" Highwater Usage: "MPHIGH > out.4=" System Limit: "MPLIM > "EXECIO * DISKW O (STEM out." > RETURN > > That runs a d omvs,l command and captures the output. > > > ISFSLASH would be where I started. > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Mark Pace > Sent: Monday, January 04, 2016 3:34 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: REXX and the console > > I was hoping to be able to issue a command to the console, eg. D M, and > capture the output in a REXX exec. I though I might be able to use SDSF > interface, but as of yet I've been able to find that might work. > > If it is in fact possible, could some give me a pointer where I might start > reading? > > -- > The postings on this site are my own and don’t necessarily represent > Mainline’s positions or opinions > > Mark D Pace > Senior Systems Engineer > Mainline Information Systems > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN E-MAIL > CONFIDENTIALITY NOTICE: This e-mail from Donegal Insurance Group may > contain CONFIDENTIAL and legally protected information. If you are not an > intended recipient, please do not copy, use or disclose this email or its > contents to others; and please notify us by calling toll free (800) 877-0600 > x7880 or by replying to this message, and then delete it from your system. > Delivery of this email to an unintended recipient is not a waiver of any > attorney-client or other applicable privilege. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
