*COMDECK  MAST1RFC
00001 ********** DATA FILE I/O - MAST1RFC  *********                    04/24/78
00002 *                                                                 MAST1RFC
00003 *    READ 1ST LINE OF SPECIFIC CATEGORY OF NAMED ENTRY           *   LV001
00004 ******************************************************************MAST1RFC
00005 ******************************************************************MAST1RFC
00006  READ-CATEGORY.                                                   MAST1RFC
00007      MOVE "0" TO DATA-RETURN-CODE.                                MAST1RFC
           IF DATA-ENTRY-NAME = DATA-REC-ID   AND 
00009      DATA-NEXT-REC EQUAL TO ZERO                                     CL**2
00010          MOVE ZERO TO DATA-SUB                                       CL**2
00011          GO TO READ-DATA-LINE.                                    MAST1RFC
00012 ******************************************************************MAST1RFC
00013 *    GET NAMED ENTRY FROM FILE                                   *MAST1RFC
00014 ******************************************************************MAST1RFC
00015       MOVE ZERO TO DATA-NEXT-REC.                                    CL**2
00016  NEXT-RECORD-CAT.                                                 MAST1RFC
00017      PERFORM DATA-READ THRU DATA-READ-XIT.                           CL**2
00018      IF DATA-RETURN-CODE NOT EQUAL TO "0"                         MAST1RFC
00019          GO TO READ-CATEGORY-XIT.                                 MAST1RFC
00020  READ-DATA-LINE.                                                  MAST1RFC
           MOVE 6 TO WORK-LENGTH. 
00022      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RFC
00023      IF CAT-STORE EQUAL TO DATA-ENTRY-CAT                         MAST1RFC
00024          GO TO MOVE-LINE-CATEGORY.                                MAST1RFC
00025      IF CAT-STORE EQUAL TO HIGH-VALUES                            MAST1RFC
00026          MOVE "2" TO DATA-RETURN-CODE                             MAST1RFC
00027          GO TO READ-CATEGORY-XIT.                                 MAST1RFC
           IF CAT-STORE = "***" 
00029          ADD 1 TO DATA-NEXT-REC                                      CL**2
00030          GO TO NEXT-RECORD-CAT.                                   MAST1RFC
00031      IF CAT-STORE GREATER THAN DATA-ENTRY-CAT                        CL**2
00032          MOVE "2" TO DATA-RETURN-CODE                                CL**2
00033          GO TO READ-CATEGORY-XIT.                                    CL**2
00034 ******************************************************************MAST1RFC
00035 *    HAVE TO SKIP OVER LINE  -  WRONG CATEGORY                   *MAST1RFC
00036 ******************************************************************MAST1RFC
           ADD 9 TO DATA-SUB
00038      MOVE LENGTH-STORE TO CAT-LENGTH.                                CL**2
00039      MOVE CAT-STORE TO CAT-CATEGORY.                              MAST1RFC
00040      MOVE CAT-LENGTH TO WORK-LENGTH.                                 CL**2
00041      ADD WORK-LENGTH TO DATA-SUB.                                 MAST1RFC
00042      GO TO READ-DATA-LINE.                                        MAST1RFC
00043  MOVE-LINE-CATEGORY.                                              MAST1RFC
00044 ******************************************************************MAST1RFC
00045 *    HAVE GOOD CATEGORY - GET 1ST LINE                           *MAST1RFC
00046 ******************************************************************MAST1RFC
00047      MOVE CAT-STORE TO CAT-CATEGORY.                              MAST1RFC
           MOVE 9 TO WORK-LENGTH
00049      MOVE LENGTH-STORE TO CAT-LENGTH.                                CL**2
00050      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RFC
00051      MOVE REV-STORE TO CAT-REV.                                      CL**2
00052      MOVE LINE-STORE TO CAT-LINE.                                 MAST1RFC
00053      MOVE CAT-LENGTH TO WORK-LENGTH.                                 CL**2
00054      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RFC
00055      MOVE WORK-LINE TO DETAIL-WORK.                                  CL**2
00056  READ-CATEGORY-XIT.                                               MAST1RFC
00057      EXIT.                                                        MAST1RFC
