Fair play Wayne! At least you can still remember CLIST! I recently had
to convert some CLIST code to REXX and it was about as much fun as a
holiday in the Sahara!
On 2020-04-23 3:24 PM, Wayne Bickerdike wrote:
Wow, code an example and it gets totally dissected. I'll write the next
"you beaut line of code" and you guys can QA it. Is that how Oracle got so
big?
On Thu, Apr 23, 2020 at 1:27 PM Seymour J Metz <sme...@gmu.edu> wrote:
EXIT leaves the CLIST.
IF &NRSTR(&DS) THEN EXIT
DO WHILE 1 = 1
--
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: Wednesday, April 22, 2020 10:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Here we go again;
On Thu, 23 Apr 2020 12:07:13 +1000, Wayne Bickerdike wrote:
Something like this:
DO I = 1 TO 5000
WRITER ENTER DATASET NAME ==>
READ &DS
IF &DS = ' ' THEN EXIT
ELSE DELETE &DS
END
&STR( breaks the CLIST with a IKJ56545I message produced.
Ah! The invention of code injection.
I prefer Rexx's convention of not re-interpreting expressions.
Doesn't CLIST have a setting to limit that?
What does EXIT do? Presumably not exit to READY prompt?
Why compare to one blank rather than empty string?
Is there no DO FOREVER?
-- 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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
