*COMDECK  MAST1RK 
00001 **********  DATA FILE (MAST1) I/O - MAST1RK  **********           08/12/77
00002 *                                                                 MAST1RK 
00003 *    RETURN FILE POINTER TO A STORED KEY                         *   LV001
00004 ******************************************************************MAST1RK 
00005 ******************************************************************MAST1RK 
00006  RETURN-KEY.                                                      MAST1RK 
00007      MOVE "0" TO DATA-RETURN-CODE.                                MAST1RK 
00008 ******************************************************************MAST1RK 
00009 *    DETERMINE IF NAME IS ALREADY IN BUFFER                      *MAST1RK 
00010 ******************************************************************MAST1RK 
           IF DATA-ENTRY-NAME = DATA-REC-ID   AND 
00012          DATA-NEXT-REC EQUAL TO ZERO                                 CL**2
00013          MOVE ZERO TO DATA-SUB                                       CL**2
00014          GO TO CK-CAT-RETURN.                                        CL**2
00015 ******************************************************************MAST1RK 
00016 *    GET NAME FROM FILE                                          *MAST1RK 
00017 ******************************************************************MAST1RK 
00018      MOVE ZERO TO DATA-NEXT-REC.                                     CL**2
00019  NEXT-RECORD-RETURN.                                              MAST1RK 
00020      PERFORM DATA-READ THRU DATA-READ-XIT.                           CL**2
00021      IF DATA-RETURN-CODE NOT EQUAL TO "0"                         MAST1RK 
00022          GO TO RETURN-KEY-XIT.                                    MAST1RK 
00023  CK-CAT-RETURN.                                                   MAST1RK 
           MOVE 6 TO WORK-LENGTH. 
00025      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RK 
00026      IF CAT-STORE EQUAL TO HIGH-VALUES                            MAST1RK 
00027          MOVE "3" TO DATA-RETURN-CODE                             MAST1RK 
00028          GO TO RETURN-KEY-XIT.                                    MAST1RK 
00029      MOVE CAT-STORE TO CAT-CATEGORY.                              MAST1RK 
00030      IF CAT-STORE EQUAL TO DATA-ENTRY-CAT                         MAST1RK 
00031          GO TO CK-LINE-RETURN.                                    MAST1RK 
           IF CAT-STORE = "***" 
00033      ADD 1 TO DATA-NEXT-REC                                          CL**2
00034          GO TO NEXT-RECORD-RETURN.                                MAST1RK 
00035 ******************************************************************MAST1RK 
00036 *    WRONG CATEGORY                                              *MAST1RK 
00037 ******************************************************************MAST1RK 
           ADD 9 TO DATA-SUB
00039      MOVE LENGTH-STORE TO CAT-LENGTH.                                CL**2
00040  BYPASS-LINE.                                                     MAST1RK 
00041      MOVE CAT-LENGTH TO WORK-LENGTH.                                 CL**2
00042      ADD WORK-LENGTH TO DATA-SUB.                                 MAST1RK 
00043      GO TO CK-CAT-RETURN.                                         MAST1RK 
00044  CK-LINE-RETURN.                                                  MAST1RK 
           MOVE 9 TO WORK-LENGTH
00046      MOVE LENGTH-STORE TO CAT-LENGTH.                                CL**2
00047      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RK 
00048      IF LINE-STORE NOT EQUAL TO DATA-ENTRY-LINE                   MAST1RK 
00049          GO TO BYPASS-LINE.                                       MAST1RK 
00050      MOVE REV-STORE TO CAT-REV.                                      CL**2
00051      MOVE LINE-STORE TO CAT-LINE.                                 MAST1RK 
00052      MOVE CAT-LENGTH TO WORK-LENGTH.                                 CL**2
00053      PERFORM EXTRACT-FIELD THRU EXTRACT-FIELD-XIT.                MAST1RK 
00054      MOVE WORK-LINE TO CAT-DETAIL.                                MAST1RK 
00055  RETURN-KEY-XIT.                                                  MAST1RK 
00056      EXIT.                                                        MAST1RK 
