× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. May 2006

Re: Problem w/ calling a multi-members file

It can't find the program. The lower case library name looks suspicious.

On 5/30/06, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:


Now I am getting a different problem. I have heard of this problem, but
never happened to me:

Message ID . . . . . . :   RNQ0211       Severity . . . . . . . :   99
Message type . . . . . :   Inquiry
Date sent  . . . . . . :   05/30/06      Time sent  . . . . . . :
11:16:16

Message . . . . :   Error occurred while calling program or procedure
   mylib/OECREPAIRC (C G D F).
Cause . . . . . :   RPG procedure OERRPR in program MYLIB/OERRPR at
statement
   322 attempted to call program or procedure mylib/OECREPAIRC, but was
unable
   to access the program or procedure, the library, or a required service
   program. If the name is *N, the call was a bound call by procedure
pointer.



> add a chkobj :
>
>  CHKOBJ OBJ(REPAIRS) OBJTYPE(*FILE) MBR(&MBR)
>
> ----- Original Message -----
> From: <steema@xxxxxxxxxxxxx>
> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> Sent: Tuesday, May 30, 2006 4:35 PM
> Subject: Re: Problem w/ calling a multi-members file
>
>
>> NO there is none, but the main file thinks there is.
>>
>> Can I monmsg this? I tried but it didn't take.
>>
>> > So in debug, at line 19 of the CL, what's the value of &MBR? Does
that
>> > member exist in the REPAIRS file that's found in the library list?
>> >
>> > On 5/30/06, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:
>> >>
>> >> The CL is here:
>> >>
>> >> 0007.00      PGM        PARM(&MBR &COMM1 &COMM2 &COMM3 &COMM4
&COMM5)
>> >> 0008.00
>> >> 0009.00      DCL        VAR(&MBR) TYPE(*CHAR) LEN(7)
>> >> 0010.00      DCL        VAR(&COMM1) TYPE(*CHAR) LEN(80)
>> >> 0011.00      DCL        VAR(&COMM2) TYPE(*CHAR) LEN(80)
>> >> 0012.00      DCL        VAR(&COMM3) TYPE(*CHAR) LEN(80)
>> >> 0013.00      DCL        VAR(&COMM4) TYPE(*CHAR) LEN(80)
>> >> 0014.00      DCL        VAR(&COMM5) TYPE(*CHAR) LEN(80)
>> >> 0015.00
>> >> 0016.00      OVRDBF     FILE(REPAIRS) MBR(&MBR)
>> >>
>> >> 0019.00     CALL       PGM(OERRPRM) PARM(&COMM1 &COMM2 &COMM3 +
>> >> 0020.00                  &COMM4  &COMM5
>> >>
>> >> THE RPG:
>> >>
>> >> 0009.00 Frepairs   if   e           disk
>> >> 0010.00 c*
>> >> 0011.00 c     *entry        plist
>> >> 0012.00 c                   parm                    comm1
>> 80
>> >> 0013.00 c                   parm                    comm2
>> 80
>> >> 0014.00 c                   parm                    comm3
>> 80
>> >> 0015.00 c                   parm                    comm4
>> 80
>> >> 0016.00 c                   parm                    comm5
>> 80
>> >>
>> >> > Show the complete OVRDBF and the complete File spec.
>> >> >
>> >> > On 5/30/06, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:
>> >> >>
>> >> >> Peter, I didn't make it Usropn, bec. I am simply passing the
>> member
>> >> name
>> >> >> from the main program. However, I will try this idea as well.
>> >> >> Thanks,
>> >> >> Steve Merer
>> >> >> > Did you make the file UsrOpn?
>> >> >> >
>> >> >> > if not, and the ExtMbr variable is blanks, you might get this
> error
>> >> >> > (haven't checked but my gut feeling suggests it)
>> >> >> >
>> >> >> > Also the "implicit" open suggests that your file is opened
>> >> >> automagically
>> >> >> > when the program is started, whereas a UsrOpn file will be
>> >> >> "explicitly"
>> >> >> > opened.
>> >> >> >
>> >> >> > HTH,
>> >> >> >
>> >> >> > Peter Colpaert
>> >> >> > Application Developer
>> >> >> > PLI - IT - Kontich, Belgium
>> >> >> > -----
>> >> >> > Yoda of Borg are we.  Futile is resistance, assimilated will
you
>> >> be.
>> >> >> > -----
>> >> >> >
>> >> >> >
>> >> >> >
>> >> >> > steema@xxxxxxxxxxxxx
>> >> >> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
>> >> >> > 30/05/2006 15:16
>> >> >> > Please respond to
>> >> >> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>> >> >> >
>> >> >> >
>> >> >> > To
>> >> >> > "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx
>
>> >> >> > cc
>> >> >> >
>> >> >> > Subject
>> >> >> > Re: Problem w/ calling a multi-members file
>> >> >> >
>> >> >> >
>> >> >> >
>> >> >> >
>> >> >> >
>> >> >> >
>> >> >> > Yes but the file does exist. The issue is that the member does
>> not
>> >> >> exist,
>> >> >> > I think.
>> >> >> >
>> >> >> > this is the called program error
>> >> >> >
>> >> >> >
>> >> >> > Message ID . . . . . . :   CPF9C32       Severity . . . . . . .
>> :
>> >> 40
>> >> >> > Message type . . . . . :   Diagnostic
>> >> >> > Date sent  . . . . . . :   05/30/06      Time sent  . . . . . .
>> :
>> >> >> 09:05:19
>> >> >> >
>> >> >> > Message . . . . :   Unmonitored exception at line 1
>> >> >> > Cause . . . . . :   An unmonitored exception occurred in module
>> >> >> OERRPRM
>> >> >> in
>> >> >> >   program OERRPRM in library MYLIB. The exception occurred at
>> line
>> >> 1
>> >> >> in
>> >> >> > view
>> >> >> >   "ILE RPG Source View".
>> >> >> > Recovery  . . . :   See the job log to view the exception.
>> >> >> > Technical description . . . . . . . . :   The program is
stopped
> in
>> >> >> line
>> >> >> 1
>> >> >> > of
>> >> >> >   view "ILE RPG Source View".
>> >> >> >
>> >> >> >
>> >> >> >> It's a file not found error - check your file name. If you're
>> >> >> specifying
>> >> >> > a
>> >> >> >> variable for the file name, make sure it's correct. If it's a
> hard
>> >> >> coded
>> >> >> >> file name, check your F spec.
>> >> >> >>
>> >> >> >> On 5/30/06, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:
>> >> >> >>>
>> >> >> >>> HI if you recall, I have to find the comments for a repair in
>> a
>> >> file
>> >> >> >>> that
>> >> >> >>> is multi - member. the name of the member, is the invoice
> number,
>> >> >> which
>> >> >> >>> I
>> >> >> >>> can get from the main file or via the subfile. what is very
>> >> strange
>> >> >> is
>> >> >> >>> that the called program, seems to kick off w/out any logic. I
>> >> have
>> >> a
>> >> >> >>> debug
>> >> >> >>> break on the call statement, but it still kicks off w/ this
> error
>> >> >> >>> message:
>> >> >> >>>
>> >> >> >>> Perhaps someone has seen this before.
>> >> >> >>>
>> >> >> >>>
>> >> >> >>> Message ID . . . . . . :   RNX1216       Severity . . . . . .
>> .
> :
>> >> >> 99
>> >> >> >>> Message type . . . . . :   Diagnostic
>> >> >> >>> Date sent  . . . . . . :   05/30/06      Time sent  . . . . .
>> .
> :
>> >> >> >>> 09:05:19
>> >> >> >>>
>> >> >> >>> Message . . . . :   Error message CPF4102 appeared during
OPEN
>> >> for
>> >> >> file
>> >> >> >>>   REPAIRS.
>> >> >> >>> Cause . . . . . :   RPG procedure OERRPRM in program
>> >> MYLIB/OERRPRM
>> >> >> >>> received
>> >> >> >>>   the message CPF4102 while performing an implicit OPEN
> operation
>> >> on
>> >> >> >>> file
>> >> >> >>>   REPAIRS. The actual file is REPAIRS.
>> >> >> >>> Recovery  . . . :   Check the job log for a complete
>> description
>> >> of
>> >> >> >>> message
>> >> >> >>>   CPF4102, and contact the person responsible for program
>> >> >> maintenance.
>> >> >> >
>> >> >> >
>> >> >> >
>> >> >> > --
>> >> >> > 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.
>> >> >> >
>> >> >> >
>> >> >>
>> >> >> --
>> >> >> 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.
>> >> >>
>> >> >>
>> >> > --
>> >> > 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.
>> >> >
>> >> >
>> >>
>> >> --
>> >> 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.
>> >>
>> >>
>> > --
>> > 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.
>> >
>> >
>>
>> --
>> 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.
>>
>>
>
> --
> 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.
>
>

--
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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.