*COMDECK  MAST1RFL
00001 **********   DATA FILE I/O - MAST1RFL   **************            12/23/77
00002 *                                                                 MAST1RFL
00003  READ-FIRST-DATA.                                                    LV001
00004 ******************************************************************MAST1RFL
00006 *    TO READ FIRST LINE OF FIRST CATEGORY OF NAMED ENTRY         *MAST1RFL
00009      MOVE "0" TO DATA-RETURN-CODE.                                MAST1RFL
00011 *    DETERMINE IF NAMED ENTRY HAS ALREADY BEEN READ              *MAST1RFL
00012 ******************************************************************MAST1RFL
           IF DATA-ENTRY-NAME = DATA-REC-ID   AND 
00014          DATA-NEXT-REC EQUAL TO ZERO                                 CL**2
00015          MOVE ZERO TO DATA-SUB                                       CL**2
00016          GO TO MOVE-DATA-LINE.                                    MAST1RFL
00017 ******************************************************************MAST1RFL
00018 *    GET NAMED ENTRY FROM FILE - CONTROL PROGRAM DOES THIS       *MAST1RFL
00019 ******************************************************************MAST1RFL
00020      MOVE ZERO TO DATA-NEXT-REC.                                     CL**2
00021      PERFORM DATA-READ THRU DATA-READ-XIT.                           CL**2
00022      IF DATA-RETURN-CODE NOT EQUAL TO "0"                         MAST1RFL
00023          GO TO READ-FIRST-DATA-XIT.                               MAST1RFL
00024  MOVE-DATA-LINE.                                                  MAST1RFL
           MOVE 15 TO WORK-LENGTH.
00026      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RFL
00027      MOVE HEADER-DETAIL TO CAT-HEADER.                            MAST1RFL
00028      IF CAT-STORE EQUAL TO HIGH-VALUES                               CL**2
00029          MOVE 1 TO DATA-RETURN-CODE                                  CL**2
00030          GO TO READ-FIRST-DATA-XIT.                                  CL**2
00031      MOVE CAT-LENGTH TO WORK-LENGTH.                                 CL**2
00032      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RFL
00033      MOVE WORK-LINE TO DETAIL-WORK.                                  CL**2
00034  READ-FIRST-DATA-XIT.                                             MAST1RFL
00035      EXIT.                                                        MAST1RFL
