Re: File update after abnormal program termination

We had the same problem. The software we use, utilizes the same methodology, 
resulting in the same problem.
Due to auditing/security concerns, I had to devise a method of displaying the 
contents of said file (through sub-file programming techniques), giving certain 
users the  authority to delete the "bad" record(s) concerned.
This satisfied auditing, as well as the user community, otherwise they would 
have to wait overnight for this file to be cleared.

>>> "Fisher, Don" <Dfisher@roomstoreeast.com> 02/21/02 02:00PM >>>
I think I know the answer to this but I'm hoping I'm wrong.

There are programs here that update a field in a file to indicate the record
(and other associated records that do not have this field updated) is in use
by workstation.  Trouble is, if the job is ended because of external factors
like the terminal being shut down or communications between the terminal and
the controller being terminated, we have to manually reset this field.

I've experimented with the *PSSR subroutine but it apparently does not get
executed when a job ends abnormally.  I also checked the RPG/400 reference
and users guide to no avail.

Does anyone know how I can ensure the field in the file gets cleared when
the job is terminated or will I have to redesign the process?  We are at
V4R1 and RPGIV is not an option here as the program must be compiled to
ignore decimal data errors (no, I had nothing to do with it but must now
maintain it).

Any help will be greatly appreciated.

Donald R. Fisher, III
Project Manager
The Roomstore Furniture Company
(804) 784-7600 ext. 2124
DFisher@roomstoreeast.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.