EXECIO has been a part of TSO/E REXX since day one.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Paul Gilmartin <0000000433f07816-dmarc-requ...@listserv.ua.edu> Sent: Thursday, March 19, 2020 8:51 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Does anybody remember CLIST? On Fri, 20 Mar 2020 00:33:40 +0000, CM Poncelet wrote: > ... >BTW Some things can be done in Clist which cannot (well at least not >easily) be done in REXX, e.g. opening/reading a dataset associated with >a DDNAME passed as a parm to a Clist submitted as a batch TSO job via >JCL ... > If EXECIO were part of Rexx, couldn't it be done with EXECIO? > ... >SET MAXCC = 0 >OPENFILE &DESTLIST INPUT /* open DDNAME=&DESTLIST for reading */ >GETFILE &DESTLIST /* read the 1st record in DDNAME=&DESTLIST */ >DO I = 0 TO 99 WHILE &MAXCC = 0 > SET USER = &USREC > SET J = &SYSINDEX(&STR( ),&USER,1) > SET J = &J - 1 > SET USER = &SUBSTR(1:&J,&USER) > SET SENDTO = &STR(&SENDTO&USER,) > GETFILE &DESTLIST > ENDO >/* etc. etc. */ > Grrr. The over-and-under test for completion is a treacherous construct; a maintenance pitfall. In Rexx, I prefer LEAVE. -- gil ---------------------------------------------------------------------- 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