RE: Record lock on primary input

It's been ages since I used a PSSR routine. Never liked them.

May I suggest looking into the MONITOR op-code? One can be a lot more specific as far as what to do on-error, rather than generic like PSSR, and, thus, gives you more control.

But, then, you didn't say what kind of error you wanted to trap.

Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Young
Sent: Thursday, March 19, 2009 11:26 AM
To: RPG programming on the IBM i / System i
Subject: Re: Record lock on primary input

John,
The *PSSR will only be called by the system when a program exception error occurs.
You can put any code in it that you want to execute when that happens.
If you are using the cycle, you can specify a return point within the cycle to continue processing at after the error, but I would not recommend it.
Normally, this routine will only be called when a severe unrecoverable error occurs.

The INFSR subroutine has the same purpose as the *PSSR, but is only called when a severe exception condition occurs for the file it is specified for.
You would put whatever code you needed to trap the error information and soft end the program rather than have the user see a CPF message.

 
Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2 
IBM  Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
IBM  Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3
  
 






________________________________
From: John Furniss <JFurniss@xxxxxxxxxxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, March 19, 2009 11:55:54 AM
Subject: Record lock on primary input

List,

            I researched this in the archives and found lots of
suggestions, but unfortunately I've never coded a *PSSR or used an
INFSR. Could someone just post a small snippet of code or tell me where
I need to put the INFSR? I couldn't get the *PSSR to get called. So any
help would be greatly appreciated.



Thanks much!



John Furniss

Applications Programmer

Allied Machine & Engineering, Corp

Phone: 330-343-4283, ext. 8371

email: jfurniss@xxxxxxxxxxxxxxxxx