AS/400 FTP Server, AS/400 FTP Exit Point

Download Example: FTPEXIT

Terms of Use
	1.	You may freely download this file or set of files for use within your site or at your client sites.
	2.	You must keep all of the original copyrights and other notifications with all copies of the file(s) that you download from this site.
	3.	You may use any of the code or techniques described in your own programs.
	4.	You may not develop any article, publication, Web page or other document that is based entirely or substantially on any of the information or code that you download.
	5.	You may link directly to www.web400.com from any of your Web sites. Please do not link directly to internal pages on this site.
	6.	Use of any materials, files, descriptions, code, procedures, etc., that you obtain from this Web site is AT YOUR OWN RISK. DO NOT USE any of the materials, files, descriptions, code, procedures, etc., if you are uncertain what the effect might be, and if you do not have adequate backup and recovery to correct any possible problems.
	7.	I do not offer "free" support for any of the material available on this site. Consulting services are available by request for a fee.

File name: FTPEXIT.RPG, TCPAPPLOG.RPG, CHGFTPEXTC.CLP, CHGFTPEXT.CMD

Program name: FTPEXIT

Program type: AS/400 RPG, CL and CMD

Environment: OS/400 V3R2, OS/400 V3R7, OS/400 V4Rx

Date Posted: March 23, 1998

Purpose of the program:

The programs and commands included in this download let you attach an Exit Point program to the FTP Server, FTP Client, REXEC Server, TFTP Server, FTP Logon Server and REXEC Logon Server exit points.

You should always use an exit point program with the FTP Server to limit access to potentially damaging operations from FTP clients. Also, you will need an exit point program for the FTP Logon Server if you want to allow anonymous FTP to your AS/400.

Before creating these programs and assigning them to TCP/IP Exit Points, you should familiarize yourself with all available information about Exit Points used for TCP/IP. The primary reference is the IBM manual TCP/IP Configuration and Reference (V4, SC41-5420). Appendix I in that manual describes the Exit Point programs for TCP/IP in detail.

How to create:

Download the source code for the two RPG programs, the CL program and the command from this site. Transfer the source members to source files, or enter the source code using an AS/400 editor. Use the create commands described below to create the program and command objects.

NOTE: You need authority to add programs to FTP Exit Points. DO NOT ATTACH THESE PROGRAMS TO THE EXIT POINTS IF YOU ARE UNCERTAIN ABOUT THE SECURITY IMPLICATIONS OF USING THE PROGRAMS.

Table of Downloads:

Download these source files to a temporary directory on your PC:

Note: To download these files, left-click on the link and use the browser's "file/save" menu option or right-click on the link and choose "save link as".

File Name	Description	Type	Size
CHGFTPEXTC	Change parameters for FTP Exit Point program	CLP	26K
CHGFTPEXT	Command to change parameters for FTP Exit Point program	CMD	16K
FTPEXIT	FTP Exit Point program	RPG	50K
TCPAPPLOG	Exit Point program for FTP Applicaton Logon	RPG	48K
FTPEXIT.ZIP	Zip file containing all of the above	ZIP	18K

Create commands:

Run the following commands in the sequence shown to create the programs and command. You are responsible for creating the library and source files that the source code is located in.

If you are uncertain what these commands are doing, seek competent help before running the commands.

Create the CL program:
CRTCLPGM PGM(library_name/CHGFTPEXTC) SRCFILE(library_name/QCLSRC)
Create the CHGFTPEXT command:
CRTCMD CMD(library_name/CHGFTPEXT) PGM(library_name/CHGFTPEXTC) SRCFILE(library_name/QCMDSRC)

Create the FTPEXIT program:
CRTBNDRPG CMD(library_name/FTPEXIT) SRCFILE(library_name/QRPGLESRC) DFTACTGRP(*NO)

Create the TCPAPPLOG program:
CRTBNDRPG CMD(library_name/TCPAPPLOG) SRCFILE(library_name/QRPGLESRC) DFTACTGRP(*NO)

Add program TCPAPPLOG to the FTP Server Logon exit point:
ADDEXITPGM EXITPNT(QIBM_QTMF_SVR_LOGON) FORMAT(TCPL0100) PGMNBR(1) PGM(library_name/TCPAPPLOG)

Add program TCPAPPLOG to the REXEC Server Logon exit point:
ADDEXITPGM EXITPNT(QIBM_QTMX_SVR_LOGON) FORMAT(TCPL0100) PGMNBR(1) PGM(library_name/TCPAPPLOG)

Add program FTPEXIT to the FTP Server exit point:
ADDEXITPGM EXITPNT(QIBM_QTMF_SERVER_REQ) FORMAT(VLRQ0100) PGMNBR(1) PGM(library_name/FTPEXIT)

Add program FTPEXIT to the FTP Client exit point:
ADDEXITPGM EXITPNT(QIBM_QTMF_CLIENT_REQ) FORMAT(VLRQ0100) PGMNBR(1) PGM(library_name/FTPEXIT)

Add program FTPEXIT to the REXEC Server exit point:
ADDEXITPGM EXITPNT(QIBM_QTMX_SERVER_REQ) FORMAT(VLRQ0100) PGMNBR(1) PGM(library_name/FTPEXIT)

Add program FTPEXIT to the TFTP Server exit point:
ADDEXITPGM EXITPNT(QIBM_QTOD_SERVER_REQ) FORMAT(VLRQ0100) PGMNBR(1) PGM(library_name/FTPEXIT)

Create data area QGPL/DAFTPEXIT:
CRTDTAARA DTAARA(QGPL/DAFTPEXIT) TYPE(*CHAR) LEN(150) TEXT('Data Area for FTP Exit Point programs')

Running the program:

Before attaching the programs to the FTP Exit Points, you should run the CHGFTPEXT (Change FTP Exit Point) command. The command is used to set options in the data area used by the FTP Exit Point programs.

The programs are called by the FTP Exit Point processor each time an FTP, REXEC or TFTP function is invoked. The purpose of the programs is to examine the parameter list passed by the FTP Exit Point processor then accept or reject the request based on the settings you supply. You can add other accept/reject conditions to the program for your unique circumstances.

Craig Pelkie
Bits & Bytes Programming, Inc.
craig@web400.com

File name:	FTPEXIT.RPG, TCPAPPLOG.RPG, CHGFTPEXTC.CLP, CHGFTPEXT.CMD
Program name:	FTPEXIT
Program type:	AS/400 RPG, CL and CMD
Environment:	OS/400 V3R2, OS/400 V3R7, OS/400 V4Rx
Date Posted:	March 23, 1998