*DECK FFSCRFR 
USETEXT TEXTFFS 
      PROC FFSCRFR; 
*CALL COPYRITE
# TITLE FFSCRFR - *RNFR* PROTOCOL ELEMENT PROCESSOR.                   #
  
      BEGIN                            # FFSCRFR                       #
# 
**    FFSCRFR  *RNFR* PROTOCOL ELEMENT PROCESSOR. 
* 
*     A. LIM                           88/02/18 
* 
*     THIS PROCEDURE PROCESSES A *RNFR* PROTOCOL ELEMENT. 
* 
*     PROC FFSCRFR
* 
*     ENTRY    PAR[1]  = OLD PFN. 
* 
*     EXIT     RNFRFN  = OLD PFN. 
* 
*     METHOD   SAVE OLD PFN IN COMMON BLOCK.
*              GENERATE A SEND DATA REQUEST TO THE CONNECTION 
*              MANAGEMENT TO SEND A:  
*              "350 - REQUESTED FILE ACTION PENDING FURTHER 
*                     INFORMATION" MESSAGE. 
* 
*     NOTE:    FOR A DETAIL DESCRIPTION, REFER TO FTP STATE TABLE.
# 
  
# 
****  PROC FFSCRFR - XREF LIST
# 
      XREF
        BEGIN 
        END 
# 
****
# 
  
CONTROL EJECT;
  
# 
**    START MAIN PROCEDURE. 
# 
      RNFRFN = PAR$VALUE[1];                        # SAVE OLD PFN     #
      REQ$RCODE[RFTPCM$] = RCM"RCSENDAT";           # SEND DATA REQUEST#
      REQ$CTYPE[RFTPCM$] = RSPCT; 
      REQ$LEN[RFTPCM$]   = FTPMSGL$;                # DATA LENGTH      #
      REQ$ADDR[RFTPCM$]  = LOC(FTPRMSG[MSG$350]);   # DATA ADDRESS     #
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFSCRFR                       #
  
      TERM
