*COMDECK  RELALG
00001 ******************************************************************11/18/77
00002 *                                                                 RELALG
00003 * RELATIONAL FILE ALGORITHM                                          LV001
00004 *                                                                    CL**2
00005 ***********************************************************          CL**2
00006  RELALG.                                                             CL**2
           MOVE REL-ENTRY-NAME TO REL-REC-ID. 
00009      MOVE REL-NEXT-REC TO REL-REC-ID-TRLR.                           CL**2
00010      MOVE 1 TO BLNK-SUB.                                             CL**2
00022  RELALG-XIT.                                                         CL**2
00023      EXIT.                                                           CL**2
00024                                                                    RELALG 
