Hi,
I am just trying one simple example to show the field in reverse image if user left the field blank. but the check "= SPACE" is not working. could someone please guide. Control is not going inside IF condition. I am just pressing Enter without filling any field. in the following code I checked if my first field ISBN is filled or not.
I am just trying one simple example to show the field in reverse image if user left the field blank. but the check "= SPACE" is not working. could someone please guide. Control is not going inside IF condition. I am just pressing Enter without filling any field. in the following code I checked if my first field ISBN is filled or not.
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. SELECT BOOK-DSP ASSIGN TO WORKSTATION-BOOKD ORGANIZATION IS TRANSACTION ACCESS MODE IS SEQUENTIAL. DATA DIVISION. FILE SECTION. FD BOOK-DSP LABEL RECORDS ARE STANDARD. 01 BOOKDSP-RECORD. COPY DDS-ALL-FORMATS OF BOOKD. WORKING-STORAGE SECTION. 77 ALL-FILLED PIC X. PROCEDURE DIVISION. OPEN I-O BOOK-DSP. WRITE BOOKDSP-RECORD FORMAT IS "CRTBOOK". READ BOOK-DSP RECORD. PERFORM VALIDATION UNTIL ALL-FILLED = "Y". VALIDATION. MOVE "Y" TO ALL-FILLED. IF ISBN OF CRTBOOK-I = SPACE THEN MOVE "1" TO IN99 OF CRTBOOK-O MOVE "N" TO ALL-FILLED END-IF. WRITE BOOKDSP-RECORD FORMAT IS "CRTBOOK". READ BOOK-DSP RECORD. STOP RUN.
Comment