*COMDECK  MAST2RK 
00001 ***************************************************************   09/27/77
00002 *   RETURN TO RELATIONAL FILE POINTER                             MAST2RK 
00003 *        THIS SUBROUTINE RETRIEVES A PREVIOUSLY RETRIEVED            LV001
00004 *        POINTER IN A NAMED REL FILE RECORD                       MAST2RK 
00005 ***************************************************************   MAST2RK 
00006  RETURN-POINTER.                                                  MAST2RK 
00007      MOVE ZERO TO REL-RETURN-CODE.                                MAST2RK 
00008      PERFORM RELALG THRU RELALG-XIT.                              MAST2RK 
00009      READ MAST2 INVALID KEY                                       MAST2RK 
00010          GO TO RP0900-POINTER-ERROR.                              MAST2RK 
00011      MOVE ZERO TO REL-SUB.                                        MAST2RK 
00012  RP0100-FIND-POINTER.                                             MAST2RK 
00013      ADD 1 TO REL-SUB.                                            MAST2RK 
00014      IF REL-SUB GREATER THAN REL-LIMIT                            MAST2RK 
00015          GO TO RP0900-POINTER-ERROR.                              MAST2RK 
00016      IF REL-DTL-CATNAME (REL-SUB) NOT EQUAL TO                       CL**2
00017             REL-POINTER-NAME                                         CL**2
00018          GO TO RP0100-FIND-POINTER.                               MAST2RK 
00019  RP0200-HAVE-POINTER.                                             MAST2RK 
00020      MOVE REL-REC-ID TO REL-LAST-ENTRY-NAME.                      MAST2RK 
00021      MOVE REL-HDR-ALIAS TO REL-ENTRY-ALIAS.                       MAST2RK 
00022      MOVE REL-HDR-ENTRY-TYPE TO REL-ENTRY-TYPE.                      CL**2
00023      MOVE REL-DTL-ENT-ID (REL-SUB) TO REL-POINTER-TYPE.           MAST2RK 
00024      MOVE REL-DTL-ENT-PTR-ALIAS (REL-SUB) TO REL-POINTER-ALIAS.   MAST2RK 
00025      MOVE REL-DTL-ENT-PTR (REL-SUB) TO REL-PUSE.                  MAST2RK 
00026      GO TO RETURN-POINTER-XIT.                                    MAST2RK 
00027  RP0900-POINTER-ERROR.                                            MAST2RK 
00028      MOVE 8 TO REL-RETURN-CODE.                                   MAST2RK 
00029  RETURN-POINTER-XIT.                                                 CL**2
00030      EXIT.                                                        MAST2RK 
