*DECK S$RTNZZ 
          IDENT  S$RTNZZ
          TITLE  S$RTNZZ - RETURN INTERNAL FILES
          COMMENT  RETURN INTERNAL FILES
          SPACE  4
**        S$RTNZZ - RETURN INTERNAL FILES 
*   CALLING SEQUENCE
*         S$RTNZZ(LFN); 
* 
*    GIVEN -
*         FILENAME(LFN) TO BE RETURNED
* 
*    DOES - 
*         SAVES IT AS A DIRECT ACCESS FILE UNDER
*         UN=TESTING
  
  
          ENTRY  S$RTNZZ
S$RTNZZ   SUBR
          SA2    X1          X2 = LFN 
          BX6    X2 
          SA6    FET
          RETURN FET,RECALL 
  
          EXIT
  
FET       DATA   0
          DATA   100B 
          DATA   100B 
          DATA   100B 
          DATA   201B 
  
          END 
