IDENTIFICATION DIVISION. PROGRAM-ID. HELLO-WORLD. DATA DIVISION. WORKING-STORAGE SECTION. 01 IFELSE-CHK PIC X(6). 01 DAT-CHK PIC X(6). 01 LNGTH PIC 9(1). 01 COUNTER-VARIABLES. 05 X-COUNTER PIC 9(01) VALUE ZEROS. 05 X-OP-COUNTER PIC 9(01) VALUE 1. 01 MARKS PIC 9(3). 88 PASS VALUE IS 035 THRU 100. 88 FAIL VALUE IS 000 THRU 034. PROCEDURE DIVISION. INITIALIZE IFELSE-CHK , DAT-CHK , LNGTH. ACCEPT IFELSE-CHK. DISPLAY IFELSE-CHK. STRING IFELSE-CHK DELIMITED BY ' ' INTO DAT-CHK. MOVE LENGTH OF DAT-CHK TO LNGTH. DISPLAY 'LENGTH : ' LNGTH. DISPLAY 'DATA-CHK: ' DAT-CHK ' END'. IF DAT-CHK = "MALE" THEN DISPLAY "HE IS MALE" ELSE DISPLAY "SHE IS FEMALE" END-IF. ACCEPT MARKS. DISPLAY MARKS. IF PASS THEN DISPLAY "STUDENT IS PASS WITH " MARKS ELSE DISPLAY "STUDENT IS FAIL WITH " MARKS END-IF. STOP RUN.
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more