Write a COBOL program that allows users to enter the names of students of a class and then displays it. Try to use OCCURS clause for achieving this.

Write a COBOL program that allows users to enter the names of students

1.	Write a COBOL program that allows users to enter the names of students of a class and then displays it. Try to use OCCURS clause for achieving this.
Answer» OCCURS clause is used for specifying the table where the contents can be accessed using indexing. It is advantageous when we do not require different data entries for data of a similar kind. COBOL Program: IDENTIFICATION DIVISION PROGRAM-IDENVIRONMENT DIVISIONDATA DIVISIONWORKING-STORAGE SECTION 01 N PIC 9(2) VALUE 0 01 I PIC 9(2) VALUE 0 01 NAME-IN 02 NAME PIC X(10) OCCURS 10 times 01 KEY-IN PIC X VALUE SPACEPROCEDURE DIVISION P-1 DISPLAY(1 1) ERASE DISPLAY(3 5) "HOW MANY STUDENTS?" ACCEPT N DISPLAY(1 1) ERASE PERFORM GET-DATA-PROC N TIMES DISPLAY(1 1) ERASE MOVE 0 to I PERFORM DISPLAY-DATA-PROC N TIMES STOP RUNGET-DATA-PROC ACCEPT NAME(I) ADD 1 TO IDISPLAY-DATA-PROC DISPLAY NAME(I) ACCEPT KEY-IN ADD 1 TO I