Hi,
Could someone please guide. Getting following error. Thank you.
* 25 MSGID: LBL1463 SEVERITY: 30 SEQNBR: 003800 Message . . . . : 'BOOKD-RECORD' previously defined in program, use cannot be determined. Default item assumed.
Could someone please guide. Getting following error. Thank you.
* 25 MSGID: LBL1463 SEVERITY: 30 SEQNBR: 003800 Message . . . . : 'BOOKD-RECORD' previously defined in program, use cannot be determined. Default item assumed.
Code:
IDENTIFICATION DIVISION. PROGRAM-ID. ADDBOOKCB. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT BOOK-DSP ASSIGN TO WORKSTATION-BOOKD ORGANIZATION IS TRANSACTION ACCESS MODE IS SEQUENTIAL. DATA DIVISION. FILE SECTION. FD BOOK-DSP. 01 BOOKD-RECORD. COPY DD-ALL-FORMATS OF BOOKD. PROCEDURE DIVISION. OPEN I-O BOOK-DSP. WRITE BOOKD-RECORD FORMAT IS CRTBOOK. STOP RUN.
Comment