This is an example of a simple File Transfer Protocol (FTP) Server Logon exit program. It is written in ILE RPG.
This code is not complete, but provides a starting point to help you create your own program.
(Pre formatted text in the following example will flow outside the frame.)
* Module Description ***********************************************
* *
********************************************************************
* *
* Note: This program is a sample only and has NOT undergone any *
* formal review or testing. *
* *
********************************************************************
* *
* PROGRAM FUNCTION *
* *
* This program demonstrates some of the abilities an FTP Server *
* Logon Exit Program can have. *
* *
********************************************************************
F/SPACE 3
********************************************************************
* *
* INDICATOR USAGE *
* *
* IND. DESCRIPTION *
* *
* LR - CLOSE FILES ON EXIT *
* *
********************************************************************
F/EJECT
********************************************************************
* DATA STRUCTURES USED BY THIS PROGRAM *
********************************************************************
*
* Define constants
*
1 D Anonym C CONST('ANONYMOUS ')
D Text1 C CONST('Anonymous (')
D Text2 C CONST(') FTP logon')
D InvalidNet C CONST('10.')
C/EJECT
********************************************************************
* VARIABLE DEFINITIONS AND LISTS USED BY THIS PROGRAM *
********************************************************************
C/SPACE 2
*
* Define binary parameters
*
D DS
D APPIDds 1 4B 0
D USRLENds 5 8B 0
D AUTLENds 9 12B 0
D IPLENds 13 16B 0
D RETCDds 17 20B 0
*
C *LIKE DEFINE APPIDds APPIDIN
C *LIKE DEFINE USRLENds USRLENIN
C *LIKE DEFINE AUTLENds AUTLENIN
C *LIKE DEFINE IPLENds IPLENIN
C *LIKE DEFINE RETCDds RETCDOUT
*
* Define parameter list
*
C *Entry PLIST
* Input parameters:
C PARM APPIDIN Application ID
* possible values: 1 = FTP Server Program
C PARM USRIN 999 User ID
C PARM USRLENIN Length of User ID
C PARM AUTIN 999 Authentication Strg
C PARM AUTLENIN Length of Auth. Strg
C PARM IPADDRIN 15 Client IP Address
C PARM IPLENIN Length of IP Address
* Return parameters:
C PARM RETCDOUT Return Code (Out)
* possible values: 0 = Reject Logon
* 1 = Continue Logon
* 2 = Continue Logon,
* override current
* library
* 3 = Continue Logon,
* override user prf,
* password
* 4 = Continue Logon,
* override user prf,
* password, current
* library
* 5 = Accept logon with
* user prf returned
* 6 = Accept logon with
* user prf returned,
* override current
* library
C PARM USRPRFOUT 10 User Profile (Out)
C PARM PASSWDOUT 10 Password (Out)
C PARM CURLIBOUT 10 Current Lib. (Out)
C/EJECT
********************************************************************
* THE MAIN PROGRAM *
********************************************************************
*
* Check for ANONYMOUS user
* 1
C USRLENIN SUBST(P) USRIN:1 User 10
C User IFEQ Anonym
C MOVEL Anonym USRPRFOUT
*
* Check if the user entered something as a e-mail address
*
C AUTLENIN IFGT *ZERO
E-mail addr. entered
*
* Check if the E-mail address is a valid one
*
C Z-ADD 0 i 3 0
C '@' SCAN AUTIN:1 i Valid E-mail address
* contains @ character
*
C i IFGT 0 Found a '@'
C AUTLENIN SUBST(P) AUTIN:1 Email 30
C Z-ADD 5 RETCDOUT Accept Logon
*
* Log Anonymous FTP Logon to message queue QSYSOPR
* (The logging should be done to a secure physical file!!!!!!!)
*
C Text1 CAT(p) Email:0 Message 43
C Message CAT(p) Text2:0 Message
C Message DSPLY 'QSYSOPR'
*
C ELSE Invalid E-mail addr
C Z-ADD 0 RETCDOUT Reject Logon attempt
C ENDIF
*
C ELSE No E-mail address
C Z-ADD 0 RETCDOUT Reject Logon attempt
C ENDIF
*
C ELSE
*
* Any Other User: Proceed with Normal Logon Processing, but the Client address must not belong
* to network 10.xxx.xxx.xxx
*
C 3 SUBST IPADDRIN:1 TheNet 3
C TheNet IFEQ InvalidNet Wrong Net
C Z-ADD 0 RETCDOUT Reject Logon attempt
C ELSE Right Net
C Z-ADD 1 RETCDOUT Continue with Logon
C ENDIF
*
C ENDIF
*
C EVAL *INLR = *ON
C RETURN