Re: Anybody got access to a V4R5 machine?

I remember having that exact problem many many years ago!

Reinstalled the exit points enough that I finally set up a weekly AJS job
that called a CL program that did:

RTVDAT CCYYMMDD(&YYYYMMDD)

CHGVAR VAR(&SAVF) +
VALUE('EP' *CAT &YYYYMMDD)

CRTSAVF FILE(JEFF/&SAVF) +
TEXT('Save of QUSRSYS/QUSEXRGOBJ *EXITRG')

SAVOBJ OBJ(QUSEXRGOBJ) +
LIB(QUSRSYS) +
DEV(*SAVF) +
OBJTYPE(*EXITRG) +
SAVF(JEFF/&SAVF) +
DTACPR(*MEDIUM)

Though the problem is long gone, this still runs weekly and I keep the last
2 save files.



On Tue, May 6, 2014 at 12:30 PM, Richard Schoen <richard@xxxxxxxxxxxxxxx>wrote:

From the Year 2000........Found one of my old google posts from 2000.

IBM APAR: II09973

This error can be caused if the FTP exit points are missing from the AS/400
system. This can happen if an AS/400 was updated from CISC to RISC. The FTP
exit points can be found by running the following command: WRKREGINF

The missing exit points are listed below:

QIBM_QTMF_CLIENT_REQ VLRQ0100 *YES FTP Client Request Validatio
QIBM_QTMF_SERVER_REQ VLRQ0100 *YES FTP Server Request Validatio
QIBM_QTMF_SVR_LOGON TCPL0100 *YES FTP Server Logon

In order to reinstall the FTP exit points, run the following command from
the AS/400 command line. Your user ID must have the *ALLOBJ Special
Authority. Also make sure to include the extra 2 spaces after the word
*INSTALL and all characters are keyed in upper case:

CALL PGM(QTCP/QTMFEXIT) PARM('*INSTALL

Regards,
Richard Schoen
RJS Software Systems Inc.
Where Information Meets Innovation
Document Management, Workflow, Report Delivery, Forms and Business
Intelligence
Email: richard@xxxxxxxxxxxxxxx
Web Site: http://www.rjssoftware.com
Tel: (952) 736-5800
Fax: (952) 736-5801
Toll Free: (888) RJSSOFT



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.