Re: Is there a way to......

[PaulMmn <PaulMmn@xxxxxxxxxxxxx>]

>Your purge program (SOURCE) can be as short as 11 statements
>1) Input file definition
>2) Output file definition
>3) Rename of the output record
>4) Read INPUT (LR on, if no record)
>5) DO While not LR
>6) IF criteria met
>7) write (output record)
>8) delet (input record)
>9) end --- IF loop
>10) read INPUT (LR on, if no record)
>11) end --- DO loop
>
>---- voila ---
>
>Just a note, don't forget to "re-org" your input file to remove the
>"null"/deleted records.

>Leo Lefebvre




A -=perfect=- place to use the RPG Cycle!  (ducking!)


>1) Input file definition  IP  E              K    DISK
>2) Output file definition O   E                   DISK
>3) Rename of the output record
>4) INPUT spec for input file; assign record resulting indicator

>6) IF criteria met
>7) write (output record)
>8) delet (input record)
>9) end --- IF loop



==Paul E Musselman
PaulMmn@ix.netcom.com


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---