Comments on: How to get the file name in RPG when file error/exception occured

By: philpl1jb

philpl1jb — Fri, 15 Jun 2012 11:58:43 +0000

Great idea. I’m looking forward to your video tutorial on this subject.

By: tomliotta

tomliotta — Sat, 18 Jun 2011 02:43:41 +0000

Also, the definition of each INFDS only requires a single line of code:

D OPNFDBK1        ds           228

That defines a DS covering the first 228 bytes of an INFDS. You can have as many of those as needed to cover each file.

You would have the various subfields defined in a BASED() DS. Then when you need info from any one of the different DSes, you set the basing pointer to cover the one that you need. You should only need to check one at a time.

Tom

By: tomliotta

tomliotta — Sat, 18 Jun 2011 02:19:02 +0000

The PSDS should have enough exception data in positions 91-170 to tell who has the lock. The message ID is likely to be CPF5027, and the exception data should say something like “Record &6 in use by job &9.” The record and job info should be filled in.

You could create a (service program) procedure that takes the PSDS as a parm and extracts whatever you need. Code like that ought to be maintained in a single location.

Tom

By: kar

kar — Sat, 18 Jun 2011 01:32:43 +0000

Phil, that was an excellent delivery…… I’ll try the “last file operation in PSDS” Thanks a lot.!

In addition, could you please let me know how to get the session/job that has locked the file/record, due to which my program crashes…!
From PSDS & INFDS , I think there is no such parameter to identify the locking job…

My error message to the user includes “File Name + User/Session (if possible)”, please teach me how to obtain locking part…

-karol