-
Junior Member
Re: Level 88 and 66
Hi,
Level number 66 is only for renaming the variable.
66 ACCOUNT-NUM PIC X(09) RENAME ACCT-NUM.
Level number 88 is a Condition name variable.It's used for condition checking.
I declared one Condition name variable
01 EOF PIC x(1).
88 EOF-Y vALUE 'Y'.
88 EOF-N VALUE 'N'.
Below perform statement will stop when the EOF-Y is true.
PERFORM 300-PROCESS-PARA THRU 300-EXIT
UNTIL EOF-Y.
When the file is reaches the Enf of file condition then it move "Y" to EOF.Now EOF-Y is true.
200-READ-PARA.
READ CUST-INFILE AT END MOVE 'Y' to EOF.
200-EXIT-PARA.
exit.
I think it will help you.
Thank's
Loges
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules