*COMDECK  MAST1READ 
00001  DATA-READ.                                                       08/03/77
00002      PERFORM DATAALG THRU DATAALG-XIT.                            MAST1REA
00003      READ MAST1                                                   D  LV001
00004          INVALID KEY MOVE 1 TO DATA-RETURN-CODE.                  MAST1REA
00007      MOVE ZERO TO DATA-SUB.                                          CL**2
00008  DATA-READ-XIT.                                                   MAST1REA
00009      EXIT.                                                        MAST1REA
