000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID.  TABLE2.
000300 AUTHOR.  SAMUELS.
000400*************************************************************
000500*  THIS PROGRAM ILLUSTRATES HOW TO LOAD A TABLE.            *
000600*                                                           *
000700*   USES CSCSMS.CSC.DATUM(COURNAME) -- SUBMIT JCLPRO5B      *
000800*************************************************************
000900 ENVIRONMENT DIVISION.
001000 INPUT-OUTPUT SECTION.
001100 FILE-CONTROL.
001200     SELECT INFILE ASSIGN TO INFOIN.
001300 DATA DIVISION.
001400 FILE SECTION.
001500 FD  INFILE
001600     BLOCK CONTAINS 0 RECORDS
001700     RECORD CONTAINS 80 CHARACTERS
001800     LABEL RECORDS ARE STANDARD
001900     DATA RECORD IS INREC.
002000 01  INREC                      PIC X(80).
002100 WORKING-STORAGE SECTION.
002200 01  TABLE-POINTER         PIC 99 VALUE 0.
002300 01  SWITCH                PIC XXX VALUE SPACES.
002400 01  WORK-REC.
002500     05  COURSE-NAME-IN    PIC X(25).
002600 01  DEPARTMENT-TABLE.
002700     05  TAB-COURSE-NAME OCCURS 20 TIMES PIC X(25).
002800 PROCEDURE DIVISION.
002900     PERFORM 100-BEGIN.
003000     PERFORM 200-LOAD-TABLE UNTIL SWITCH = 'YES'.
003100     PERFORM 250-DISPLAY-TABLE VARYING TABLE-POINTER FROM 1 BY 1
003200         UNTIL TABLE-POINTER > 20.
003300     DISPLAY ' '.
003400     PERFORM 250-DISPLAY-TABLE VARYING TABLE-POINTER FROM 20 BY -1
003500       UNTIL TABLE-POINTER < 1.
003600     PERFORM 300-ENDER.
003700 100-BEGIN.
003800     OPEN INPUT INFILE.
003900     READ INFILE INTO WORK-REC AT END
003910         MOVE 'YES' TO SWITCH
003920     END-READ.
004000 200-LOAD-TABLE.
004100     ADD 1 TO TABLE-POINTER.
004200     MOVE COURSE-NAME-IN TO TAB-COURSE-NAME (TABLE-POINTER).
004300     READ INFILE INTO WORK-REC AT END
004310         MOVE 'YES' TO SWITCH
004320     END-READ.
004400 250-DISPLAY-TABLE.
004500     DISPLAY TAB-COURSE-NAME (TABLE-POINTER).
004600 300-ENDER.
004700     CLOSE INFILE.
004800     STOP RUN.
******************************** Bottom of Data ********************************

INPUT

SKY DIVING
GRAPE GROWING
APPLE SPRAYING
TERRORISM
PSYCHIATRY
UNDERWATER BASKETWEAVING
SELLING COMPUTERS
COBOL
NURSING
ROCKS FOR JOCKS
HANDBALL
FILM STUDY
DANCING
HOW TO SLEEP WELL
PHOTOGRAPHY
GLASS BLOWING
CHEMISTRY
FURNITURE MAKING
AUTO REPAIR
TECHNICAL WRITING

OUTPUT

SKY DIVING
GRAPE GROWING
APPLE SPRAYING
TERRORISM
PSYCHIATRY
UNDERWATER BASKETWEAVING
SELLING COMPUTERS
COBOL
NURSING
ROCKS FOR JOCKS
HANDBALL
FILM STUDY
DANCING
HOW TO SLEEP WELL
PHOTOGRAPHY
GLASS BLOWING
CHEMISTRY
FURNITURE MAKING
AUTO REPAIR
TECHNICAL WRITING


TECHNICAL WRITING
AUTO REPAIR
FURNITURE MAKING
CHEMISTRY
GLASS BLOWING
PHOTOGRAPHY
HOW TO SLEEP WELL
DANCING
FILM STUDY
HANDBALL
ROCKS FOR JOCKS
NURSING
COBOL
SELLING COMPUTERS
UNDERWATER BASKETWEAVING
PSYCHIATRY
TERRORISM
APPLE SPRAYING
GRAPE GROWING
SKY DIVING