88 Level Entries

Example 1

Without 88 Levels 

       WORKING-STORAGE SECTION.
       01 END-OF-FILE-SWITCH PIC X VALUE SPACE.


       MAIN-PARAGRAPH.
           PERFORM INIT-PARAGRAPH.
           PERFORM LOOP-PARAGRAPH
               UNTIL END-OF-FILE-SWITCH = 'Y'.

       INIT-PARAGRAPH.
           OPEN INPUT CUSTOMER-FILE.
           READ CUSTOMER-FILE
             AT END MOVE 'Y' TO END-OF-FILE-SWITCH.

       LOOP-PARAGRAPH.
           ... 
           READ CUSTOMER-FILE
             AT END MOVE 'Y' TO END-OF-FILE-SWITCH.
With 88 Levels 

       WORKING-STORAGE SECTION.
       01 END-OF-FILE-SWITCH PIC X VALUE SPACE.
          88 NO-MORE-DATA          VALUE 'Y'.

       MAIN-PARAGRAPH.
           PERFORM INIT-PARAGRAPH.
           PERFORM LOOP-PARAGRAPH
               UNTIL NO-MORE-DATA.  

       INIT-PARAGRAPH.
           OPEN INPUT CUSTOMER-FILE.
           READ CUSTOMER-FILE
             AT END MOVE 'Y' TO END-OF-FILE-SWITCH.

       LOOP-PARAGRAPH.
           ... 
           READ CUSTOMER-FILE
             AT END MOVE 'Y' TO END-OF-FILE-SWITCH.

Example 2

Without 88 Levels 

       01 IN-RECORD.
          02 STUDENT-ID-NUMBER      PIC 9(5).
          02 STUDENT-NAME.
             03 STUDENT-LAST-NAME   PIC X(15).
             03 STUDENT-FIRST-NAME  PIC X(10).
          02 STUDENT-PHONE-NUMBER.
             03 STUDENT-AREA-CODE   PIC 9(3).
             03 STUDENT-PREFIX      PIC 9(3).
             03 STUDENT-NUMBER      PIC 9(4).
          02 STUDENT-CLASS-CODE     PIC X(1).
          02 STUDENT-GPA            PIC 9V99.


           IF STUDENT-CLASS-CODE = '1'
              MOVE 'Fr' TO WS-STUDENT-CLASS-CODE
           ELSE IF STUDENT-CLASS-CODE = '2'
                   MOVE 'So' TO WS-STUDENT-CLASS-CODE
                ELSE IF STUDENT-CLASS-CODE = '3'
                        MOVE 'Jr' TO WS-STUDENT-CLASS-CODE
                     ELSE IF STUDENT-CLASS-CODE = '4'
                             MOVE 'Sr' TO WS-STUDENT-CLASS-CODE
                          ELSE IF STUDENT-CLASS-CODE = '5'
                                  MOVE 'Gr' TO WS-STUDENT-CLASS-CODE.
With 88 Levels 

       01 IN-RECORD.
          02 STUDENT-ID-NUMBER      PIC 9(5).
          02 STUDENT-NAME.
             03 STUDENT-LAST-NAME   PIC X(15).
             03 STUDENT-FIRST-NAME  PIC X(10).
          02 STUDENT-PHONE-NUMBER.
             03 STUDENT-AREA-CODE   PIC 9(3).
             03 STUDENT-PREFIX      PIC 9(3).
             03 STUDENT-NUMBER      PIC 9(4).
          02 STUDENT-CLASS-CODE     PIC X(1).
             88 FRESHMAN            VALUE '1'.
             88 SOPHOMORE           VALUE '2'.
             88 JUNIOR              VALUE '3'.
             88 SENIOR              VALUE '4'.
             88 GRADUATE-STUDENT    VALUE '5'.
             88 UNDERCLASS          VALUES '1' THRU '5'.  
          02 STUDENT-GPA            PIC 9V99.


           IF FRESHMAN
              MOVE 'Fr' TO WS-STUDENT-CLASS-CODE
           ELSE IF SOPHOMORE
                   MOVE 'So' TO WS-STUDENT-CLASS-CODE
                ELSE IF JUNIOR
                        MOVE 'Jr' TO WS-STUDENT-CLASS-CODE
                     ELSE IF SENIOR
                             MOVE 'Sr' TO WS-STUDENT-CLASS-CODE
                          ELSE IF GRADUATE-STUDENT
                                  MOVE 'Gr' TO WS-STUDENT-CLASS-CODE.

Cobol Home