|
View previous topic :: View next topic
|
| Author |
Message |
vinu
New User
.jpg)
Joined: 03 Jul 2005
Posts: 9
|
|
|
|
I gave this in working-storage
01 END-OF-FILE-IND PIC X.
88 END-OF-FILE VALUE 'Y'.
88 NOT-END-OF-FILE VALUE 'N'.
01 END-OF-LN01-FILE-IND PIC X.
88 END-OF-LN01-FILE VALUE 'Y'.
88 NOT-END-OF-LN01-FILE VALUE 'N'.
and after compilation, the error was like
PICTURE CLAUSE SPECIFIED FOR GROUP ITEM "END-OF-LN01-FILE-IND"
should all switches be declared together only, as a rule ?  |
|
| Back to top |
|
 |
shivashunmugam Muthu
Active User
Joined: 22 Jul 2005
Posts: 114
Location: Chennai
|
|
|
|
| No need to group together. First tell me the complete error. Its nt clear. |
|
| Back to top |
|
|
mmwife
Super Moderator
Joined: 30 May 2003
Posts: 1592
|
|
|
|
Hi Vinu,
Take a look at the stmt following
88 NOT-END-OF-LN01-FILE VALUE 'N'.
It's probably an 05 level stmt. If you have a pic in the 01 level you canfollow it with a non-01 levelstmt. E.g. this is illegal:
01 END-OF-LN01-FILE-IND PIC X.
88 END-OF-LN01-FILE VALUE 'Y'.
88 NOT-END-OF-LN01-FILE VALUE 'N'.
05 XXX PIC XX.
You'll get the error msg you described. |
|
| Back to top |
|
|
|
|
