Program that describes the use of IF CONDITION and PRINT the cast category type.
IDENTIFICATION DIVISION. PROGRAM-ID. caste. DATA DIVISION. WORKING-STORAGE SECTION. 01 castcat PIC 9. 88 OPEN1 value 1. 88 SC value 2. 88 ST value 3. 88 SEBC value 4. PROCEDURE DIVISION. para1. DISPLAY "ENTER CATEGORY". ACCEPT castcat. if OPEN1 DISPLAY "OPEN CATEGORY"elseif SC DISPLAY "SC CATEGORY"elseif ST DISPLAY "ST CATEGORY"elseif SEBC DISPLAY "SEBC CATEGORY"else DISPLAY "YOU HAVE ENTERED INVALID CHOICE". ***************************************************************** ENTER CATEGORY 1 OPEN CATEGORY ENTER CATEGORY 2 SC CATEGORY ENTER CATEGORY 3 ST CATEGORY ENTER CATEGORY 2 SCBC CATEGORY *****************************************************************