~~~ START STUDENT-HISTORY-FILE KEY NOT LESS THAN ~~~ EXTERNALLY-DESCRIBED-KEY ~~~ INVALID KEY ~~~ CONTINUE. I don't see the read. Start is unnecessary with access mode DYNAMIC. Start is implicit with read. ~~ DISPLAY R9CQAA ' ' R9CMAA ' ' R9KHAA ' ' R9B1AA ~~~ ' ' R9B2AA. ~~~ WRITE STUDENT-HISTORY-REC ~~~ INVALID KEY ~~~ DISPLAY 'DBSTATUS IS ' DBSTATUS. ~~~ CONTINUE. Extra scope delimiter above. I would do it: WRITE my-rec invalid key perform-DO-THIS NOT invalid key perform DO-THAT. Mark Villa in Charleston SC
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.