EOF handling in CLIST

[SowKan]

I am trying to write a CLIST which involves reading a file and manipulating the file contents. When end of file is reached, execution stops with RC=E400. How can I handle this?
Thanks in advance,
Sowmya.

 

[KiwiREXXDude]

Try using REXX?

Seriously though, there's nothing you can do in CList you can't do in REXX (though there is the odd thing CList does better). Try this;

/* Rexx */
"Alloc Fi(INPUT) Da('[COLOR=blue]MY.DATA.SET(MEMBER)[/color]') Shr Reu"
"Execio * DiskR INPUT (Stem INP. Finis)"
"Free Fi(INPUT)"
do i = 1 to INP.0
  Line = INP.i
  say 'Line 'i' = 'Line
end

 

[rexxhead]

You should have a generic ERROR block early in your code. It has been so long since I actually wrote CLIST I no longer recall exactly the syntax, but I -think- it went something like this:

ON ERROR
   SET &SAVERC = &COND
   RETURN
END

and handle ALL retrun codes in-line, so you would

GETFILE STUFF
IF &SAVERC = 400 THEN GOTO ENDSTUFF /* EOF

If you're currently writing CLIST, you should be able to correct my syntactical errors, but I have to second KRD's tongue-in-cheek remark: give it up; switch to REXX.


Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[SowKan]

Thanks KiwiREXXDude!
I got it.