*COMDECK  MAST1RNL
00001 ********** DATA FILE (MAST1) I/O - MAST1RND  *************        12/23/77
00002 *                                                                 MAST1RNL
00003 *                                                                    LV001
00004 *    READ NEXT LINE OF SAME ENTRY                                *MAST1RNL
00005 ******************************************************************MAST1RNL
00006 ******************************************************************MAST1RNL
00007  READ-NEXT-DATA.                                                  MAST1RNL
00008      MOVE "0" TO DATA-RETURN-CODE.                                MAST1RNL
           MOVE 6 TO WORK-LENGTH. 
00010      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RNL
00011      IF CAT-STORE EQUAL TO HIGH-VALUES                            MAST1RNL
00012          MOVE "1" TO DATA-RETURN-CODE                             MAST1RNL
00013          GO TO READ-NEXT-DATA-XIT.                                MAST1RNL
           IF CAT-STORE NOT = "***" 
00015          GO TO RETRIEVE-LINE.                                     MAST1RNL
00016 ******************************************************************MAST1RNL
00017 *    END OF PHYSICAL RECORD - NOT ENTRY - GET NEXT RECORD        *MAST1RNL
00018 ******************************************************************MAST1RNL
00019      ADD 1 TO DATA-NEXT-REC.                                         CL**2
00020      PERFORM DATA-READ THRU DATA-READ-XIT.                           CL**2
00021      IF DATA-RETURN-CODE NOT EQUAL TO "0"                         MAST1RNL
00022          GO TO READ-NEXT-DATA-XIT.                                MAST1RNL
           MOVE DATA-RECORD TO HOLD-DATA-RECORD.                        000160
00023      GO TO READ-NEXT-DATA.                                        MAST1RNL
00024  RETRIEVE-LINE.                                                   MAST1RNL
00025      MOVE LENGTH-STORE TO CAT-LENGTH.                                CL**2
00026      IF CAT-STORE NOT EQUAL TO CAT-CATEGORY                       MAST1RNL
00027          MOVE "2" TO DATA-RETURN-CODE                             MAST1RNL
00028          MOVE CAT-STORE TO CAT-CATEGORY.                             CL**2
           MOVE 9 TO WORK-LENGTH. 
00030      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RNL
00031      MOVE REV-STORE TO CAT-REV.                                      CL**2
00032      MOVE LINE-STORE TO CAT-LINE.                                 MAST1RNL
00033      MOVE CAT-LENGTH TO WORK-LENGTH.                                 CL**2
00034      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RNL
00035      MOVE WORK-LINE TO DETAIL-WORK.                                  CL**2
00036  READ-NEXT-DATA-XIT.                                              MAST1RNL
00037      EXIT.                                                        MAST1RNL
00038                                                                    MAST1RN
