H*--+--------------------------------------------------------+--*
     H*--+   PROGRAM ID : RFTP_REQ                                +--*
     H*--+ PROGRAM NAME : RPG OF $FTP_REQ                         +--*
     H*--+--------------------------------------------------------+--*
     H*--+      VERSION : 1.0 (1999/10/05)                        +--*
     H*--+--------------------------------------------------------+--*
      *
     FFTPREQ  IF  E           K        DISK
      *
     C*--+--------------------------------------------------------+--*
     C*--+ ACCEPT PARAMETER FROM CL $FTP_REQ                      +--*
     C*--+--------------------------------------------------------+--*
     C           *ENTRY    PLIST
     C                     PARM           P#USR  10        USER PROFILE
     C                     PARM           P#OP    10       OPERATION
     C                     PARM           P#RTN   10       RETURN CODE
      *
     C*--+--------------------------------------------------------+--*
     C*--+ START OF PROGRAM                                       +--*
     C*--+--------------------------------------------------------+--*
     C                     EXSR SRINIT
     C                     EXSR SRMAIN
     C                     EXSR SREND
      *
     C*--+--------------------------------------------------------+--*
     C*--+ INITIALIZE                                             +--*
     C*--+--------------------------------------------------------+--*
     C           SRINIT    BEGSR
     C                     Z-ADD0         P#RTN
     C                     ENDSR
      *
     C*--+--------------------------------------------------------+--*
     C*--+ M A I N                                                +--*
     C*--+--------------------------------------------------------+--*
     C           SRMAIN    BEGSR
     C* CHECK FOR REQUEST VALIDATION DATA (FOR USER)
     C                     MOVELP#USR     X#USR  10
     C                     EXSR SRREQ
     C           *IN91     IFEQ '1'
     C*
     C*   CHECK FOR REQUEST VALIDATION DATA (FOR PUBLIC)
     C                     MOVEL'*PUBLIC' X#USR
     C                     EXSR SRREQ
     C                     END
     C*
     C*
     C* CHECK FOR STATUS
     C           XF#STS    IFEQ '*ALLOW'
     C                     Z-ADD1         P#RTN
     C                     END
     C                     ENDSR
      *
     C*--+--------------------------------------------------------+--*
     C*--+ END OF PROGRAM                                         +--*
     C*--+--------------------------------------------------------+--*
     C           SREND     BEGSR
     C                     SETON                     LR
     C                     RETRN
     C                     ENDSR
      *
     C*--+--------------------------------------------------------+--*
     C*--+ CHECK FOR REQUEST VALIDATION DATA                      +--*
     C*--+--------------------------------------------------------+--*
     C           SRREQ     BEGSR
     C                     MOVE '      '  XF#STS  6        FLG
     C*
     C           X#USR     CHAINFTPREQ               91
     C           *IN91     IFEQ '0'
     C* MKDIR
     C           P#OP      IFEQ 1
     C           REQ01     ANDEQ'Y'
     C                     MOVE '*ALLOW'  XF#STS
     C                     END
     C* RMDIR
     C           P#OP      IFEQ 2
     C           REQ02     ANDEQ'Y'
     C                     MOVE '*ALLOW'  XF#STS
     C                     END
     C* CD
     C           P#OP      IFEQ 3
     C           REQ03     ANDEQ'Y'
     C                     MOVE '*ALLOW'  XF#STS
     C                     END
     C* LS
     C           P#OP      IFEQ 4
     C           REQ04     ANDEQ'Y'
     C                     MOVE '*ALLOW'  XF#STS
     C                     END
     C* RM
     C           P#OP      IFEQ 5
     C           REQ05     ANDEQ'Y'
     C                     MOVE '*ALLOW'  XF#STS
     C                     END
     C* GET
     C           P#OP      IFEQ 6
     C           REQ06     ANDEQ'Y'
     C                     MOVE '*ALLOW'  XF#STS
     C                     END
     C* PUT
     C           P#OP      IFEQ 7
     C           REQ07     ANDEQ'Y'
     C                     MOVE '*ALLOW'  XF#STS
     C                     END
     C* REN
     C           P#OP      IFEQ 8
     C           REQ08     ANDEQ'Y'
     C                     MOVE '*ALLOW'  XF#STS
     C                     END
     C* EXECUTE PGM
     C           P#OP      IFEQ 9
     C           REQ09     ANDEQ'Y'
     C                     MOVE '*ALLOW'  XF#STS
     C                     END
     C*
     C                     END
     C                     ENDSR