/*--+------------------------------------------------------------+--*/
/*--+   PROGRAM ID : $EXIT_FTP                                   +--*/
/*--+ PROGRAM NAME : CL OF FTP SERVER REQUEST VALIDATION         +--*/
/*--+                                         EXIT PROGRAM       +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.0 (1999/02/25)                            +--*/
/*--+------------------------------------------------------------+--*/
PGM PARM(&IN_APPID   +
         &IN_OPID    +
         &IN_USR     +
         &IN_IP      +
         &IN_IPLEN   +
         &IN_OPINF   +
         &IN_OPLEN   +
         &OUT_ALLWOP )


/*--+------------------------------------------------------------+--*/
/*  + DECLARE                                                    +  */
/*--+------------------------------------------------------------+--*/
/* PARAMETERS */
DCL VAR(&IN_APPID  ) TYPE(*CHAR) LEN(   4  ) /* APPLICATION ID      */
DCL VAR(&IN_OPID   ) TYPE(*CHAR) LEN(   4  ) /* OPERATION ID        */
DCL VAR(&IN_USR    ) TYPE(*CHAR) LEN(  10  ) /* USER ID             */
DCL VAR(&IN_IP     ) TYPE(*CHAR) LEN(      ) /* CLIENT IP ADDRESS   */
DCL VAR(&IN_IPLEN  ) TYPE(*CHAR) LEN(   4  ) /* LENGTH OF IP ADDR   */
DCL VAR(&IN_OPINF  ) TYPE(*CHAR) LEN(9999  ) /* OPERATION INFO      */
DCL VAR(&IN_OPLEN  ) TYPE(*CHAR) LEN(   4  ) /* LENGTH OF OP        */
DCL VAR(&OUT_ALLWOP) TYPE(*CHAR) LEN(   4  ) /* ALLOW OPERATION     */

/* DECLARE LOCAL COPIES OF PARAMETERS (IN FORMAT USABLE BY CL) */
DCL VAR(&SH_APPID  ) TYPE(*DEC ) LEN(   1 0)
DCL VAR(&SH_OPID   ) TYPE(*DEC ) LEN(   1 0)
DCL VAR(&SH_IPLEN  ) TYPE(*DEC ) LEN(   5 0)
DCL VAR(&SH_IP     ) TYPE(*CHAR)
DCL VAR(&SH_OPINF  ) TYPE(*CHAR) LEN(9999  )
DCL VAR(&SH_OPLEN  ) TYPE(*DEC ) LEN(   5 0)
DCL VAR(&SH_PATHNAM) TYPE(*CHAR) LEN(9999  )

                                    /* YOU NEED CHANGE LIBRARY NAME */
DCL VAR(&SH_LIB    ) TYPE(*CHAR) LEN(  10  ) VALUE('TOYS400')

DCL VAR(&SH_USRPRF ) TYPE(*CHAR) LEN(  10  ) /* USER PROFILE        */
DCL VAR(&SH_RTNCD  ) TYPE(*DEC ) LEN(   1 0) /* RETURN CODE         */




/*--+------------------------------------------------------------+--*/
/*  + INITIALIZE                                                 +  */
/*--+------------------------------------------------------------+--*/
CHGVAR VAR(%BINARY(&OUT_ALLWOP)) VALUE(0) /* REJECT                  */

/* ASSIGN INPUT PARAMETERS TO LOCAL COPIES */
CHGVAR VAR(&SH_OPID   ) VALUE(%BINARY(&IN_OPID   ))
CHGVAR VAR(&SH_USRPRF ) VALUE(&IN_USR    )



/*--+------------------------------------------------------------+--*/
/*  + M A I N                                                    +  */
/*--+------------------------------------------------------------+--*/
/*--+-----------------------+--*/
/*  + CHECK FOR REQUEST     +  */
/*--+-----------------------+--*/
IF (&SH_OPID *EQ 0) DO
    CHGVAR VAR(%BINARY(&OUT_ALLWOP)) VALUE(1)
ENDDO

IF (&SH_OPID *NE 0) DO
    ADDLIBLE LIB(&SH_LIB) POSITION(*LAST)
        MONMSG MSGID(CPF2103)

    CALL PGM(&SH_LIB/RFTP_REQ ) PARM(&SH_USRPRF +
                                     &SH_OPID   +
                                     &SH_RTNCD  )

    CHGVAR VAR(%BINARY(&OUT_ALLWOP)) VALUE(&SH_RTNCD)
ENDDO


/*--+------------------------------------------------------------+--*/
/*  + END OF PROGRAM                                             +  */
/*--+------------------------------------------------------------+--*/
#_EXIT_:
ENDPGM