IDENTIFICATION DIVISION.
       PROGRAM-ID. checkcname.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
          01 castcat PIC 9.
            88 open1 value 1.
          01 admcat PIC 9.
            88 open1 value 1.
          77 category PIC 9.
            88 sc value 1.

       PROCEDURE DIVISION.
        para1.
           DISPLAY "ALLOW SAME CONODITION NAME".

           DISPLAY "ENTER CAST-CAT".
           ACCEPT castcat.
            
           if open1 of castcat
             display "OPEN CATEGORY OF CAST-CAT".

           DISPLAY "ENTER ADM-CAT".
           ACCEPT admcat.

            if open1 of admcat
             display "OPEN CATEGORY OF ADM-CAT".
           
           DISPLAY "ENTER CATEGORY".
           ACCEPT category.
           
           if sc
             display "sc category".

           STOP RUN.

*****************************************************************
ALLOW SAME CONODITION NAME
ENTER CAST-CAT
1
OPEN CATEGORY OF CAST-CAT

ENTER ADM-CAT
1
OPEN CATEGORY OF ADM-CAT
*****************************************************************