Code for CREATE MARKSHEET OF STUDENT in Cobol
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.