*COMDECK  MAST1RDI
00001 *                                                                 10/22/77
00002 *     READ MAST1 IN CALLING MODULE (EXTERNAL)                     MAST1RDI
00003 *                                                                    LV001
00004  DATA-READ.                                                       MAST1RDI
00005      PERFORM DATAALG THRU DATAALG-XIT.                            MAST1RDI
00006      MOVE DATA-KEY TO MAST1-KEY.                                  MAST1RDI
00007      MOVE "1" TO GTBL-MOD-REQ.                                    MAST1RDI
00008      EXIT PROGRAM.                                                 MAST1RD
00009  DATA-READ-RETURN.                                                MAST1RDI
00010      MOVE ZERO TO GTBL-MOD-REQ.                                   MAST1RDI
00011      IF DATA-HDR-ENT-ID EQUAL TO HIGH-VALUES                      MAST1RDI
00012          MOVE 1 TO DATA-RETURN-CODE.                              MAST1RDI
00013      MOVE ZERO TO DATA-SUB.                                       MAST1RDI
00014  DATA-READ-XIT.                                                   MAST1RDI
00015      EXIT.                                                        MAST1RDI
