RE: How does the RPG MONITOR operation code work

Frank,

This may be way out in left field but I noticed an inconsistency in your
message that may be the source of your frustration.

In your RPG code you are monitoring the open of file INPUTR.  The message
you include refers to file AVM01V.  If AVM01V is being opened by the program
at startup and not with a user open the error is occurring before the
program loads so any error trapping in the RPG will not be executed.  Maybe
the error is on a file other than the one you are monitoring.

Just a thought.

Rick

-----Original Message-----
From: Frank.Kolmann@revlon.com [mailto:Frank.Kolmann@revlon.com]
Sent: Thursday, January 23, 2003 8:12 PM
To: rpg400-l@midrange.com
Subject: How does the RPG MONITOR operation code work

We are on V5R1  and I cant get MONITOR to work.
I saw references in the archives but I cant see an answer to my problem.

Program CHKALPFLD is a MOD and uses procedures.
INPUTR is a program described file overridden to a DBF.
 This is the code
 //  Open the file
     MONITOR;
     OPEN  INPUTR;
       If not %error;
         Exsr ChkData;
       Endif;
     ON-ERROR;
     ENDMON;

I get these messages in the log, I expected MONITOR to suppress them.

 File AVM01V in library UAUBPCF with member *N not found.
 Error message CPF4102 appeared during OPEN.
 Error message CPF4102 appeared during OPEN (C G D F).
 C
 Error message CPF4102 appeared during OPEN (C G D F).
 C
 Application error.  RNX1217 unmonitored by CHKALPFLD at statement
   0000008500, instruction X'0000'.

I have also put in a rudimentary PSSR to see if it  works.

CSR   *PSSR         BEGSR
 *
CSR                 ENDSR
The program still crashes,  any suggestions. TIA
Frank kolmann


_______________________________________________
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/mailman/listinfo.cgi/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.