*COMDECK  MAST1ALG
00001 ******************************************************************11/18/77
00002 *                                                                *MAST1ALG
00003 * DATA FILE ALGORITHM                                                LV001
00004 *                                                                *   CL**2
00005 ******************************************************************   CL**2
00006  DATAALG.                                                            CL**2
           MOVE DATA-ENTRY-NAME TO DATA-REC-ID. 
00009      MOVE DATA-NEXT-REC TO DATA-REC-ID-TRLR.                         CL**2
00021  DATAALG-XIT.                                                        CL**2
00022      EXIT.                                                           CL**2
