AS/400 HELP

"CHGHIST"

Save and display a log of replaced objects from QRPLOBJ

(how many times did your nerdy programmers compile that program?)

CHGHIST is two programs. Program CHGHIST (in cl program GETHIST) creates a record in file CHGHIST for every entry in the QRPLOBJ library. Program DSPHIST displays this file.

Records are extracted by using DSPOBJD to a work file in QTEMP.

CHGHIST was developed at 5.1 in free format RPGIV.

PC INSTRUCTIONS:

Download "CHGHIST to your PC.

Go to a DOS session and enter the following;

FTP SYSTEM (system = your AS/400’s name or IP address)

Enter a valid user id and password

CD QGPL

LCD C:\DIRECTORY (directory= the directory on your pc where you downloaded “chghist.savf”

QUOTE SITE NAMEFMT 1

BIN

PUT CHGHIST.SAVF

QUOTE RCMD RSTLIB SAVLIB(CHGHIST) DEV(*SAVF) SAVF(QGPL/CHGHIST)

 Note: If there is a security problem restoring all objects with the command above, sign on to your as/400 as Qsecofr and run RSTLIB from the command line.

DOWNLOAD chghist.savf

AS/400 INSTRUCTIONS:

To extract and save

ADDLIBLE CHGHIST

CALL GETHIST

To display the file

CALL DSPHIST

NOTE: If CHGHIST bombs out (IBM may have added new fields in your OS release), simply recompile GETHIST asap while the *outfile from DSPOBJD is still in QTEMP. First rename the CHGHIST savf file in QGPL otherwise the compiler may try to use this savf file instead of the chghist in library chghis

NOTE: Library QRPLOBJ is cleared every IPL. Run GETHIST before the each IPL

NOTE: If you don’t IPL or clear library QRPLOBJ often this library may be very large. GETHIST may take awhile.