Re: Anybody got access to a V4R5 machine?

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

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.