RE: Trapping CPF4101 thorugh *PSSR

["Ken Slaugh" <ken.slaugh@xxxxxxxxxx>]

Easier yet...

        Use USROPN on the F spec. Then use the OPEN(E) opcode with %ERROR or
use OPEN with resulting error indicator.

        HTH, 


Ken Slaugh (707) 795-1512 x118
Chouinard & Myhre, Inc.
http://www.cm-inc.com/


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bala, Narsi
Sent: Thursday, March 25, 2004 3:09 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Trapping CPF4101 thorugh *PSSR

Hi all, 

We have an application here that Crashes with a 

Error message CPF4101 appeared during OPEN (C S D F). As one of our logical
file got accidentally deleted. We have rectified this problem but we would
like to trap this error next time it occurs and take appropriate actions.  

I have a *PSSR routine written and I do have this assigned as the error
subroutine to the file. I still continue to get the break message. How to
avoid this break message and instead let the application flow through
smoothly through the *PSSR subroutine.  

The file definition

FICMACTL1UF  E           K        DISK
F            CMACTLR                           KRENAMECMACTL2
F                                                      KINFSR *PSSR
F                                                      KCOMIT


and my pssr routine.


C           *PSSR     BEGSR
*
C                             MOVEL'1'       P@ERR
C           S@PGM     DUMP
C                             MOVEL'*CANCL'  RETURN  6
 *
C                            ENDSRRETURN

What am i doing wrong ?





Thanks
Narsi




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