Thread: Level 88 and 66

Anyone help me out with the significance of level 66 and level 88 in COBOL also please help me out with specifying where and why we use these special level.
Thank You

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