Re: Library list heartache -- RPG400-L

That's a possibility, but I'm not sure how that would done.
The activation group should be *CALLER.  I believe the 
activation group is coming from the initial CL program.

I just did a RCLACTGRP and prompted, and my parameters are 
ACTGRP and OPTION.  The only parameters I can give for ACTGRP
are *ELIGIBLE and Activation Group Name.  I don't believe the
activation group I'm calling from is eligable, though, since
there is an active call in it.

Regards

"Stone, Brad V (TC)" wrote:
> 
> You could reclaim the AG.  Just an idea.
> 
> > -----Original Message-----
> > From: Jim Langston [mailto:jimlangston@conexfreight.com]
> > Sent: Monday, January 15, 2001 1:17 PM
> > To: RPG400-L@midrange.com
> > Subject: Library list heartache
> >
> >
> > I have a program that processes a customer given file into
> > our own OS/400 files written in RPG.
> >
> > In test environment, everything works great, but now that it's
> > in production I find a problem.
> >
> > I have a CL calling this same program twice, once to process
> > records for one of my locations, the second time to process records
> > for another location.  It adds to the library list for the second
> > call, and calls the program with another parameter.
> >
> > Now here's the problem.
> >
> > I have this program calling some modules that are bound together into
> > a service program.  One of these modules has a file in the
> > F-Specs, which
> > it searches to see if the record exists.  What I find is happening is
> > when the module is first called the library list is pointing
> > to a certain
> > file which it opens.  After that program is done, it gets
> > called again,
> > but it still has the previous file open, so it is looking at the wrong
> > records (pain in the neck to track down that bug).
> >
> > I do not want to hard code library names in the program, so I
> > guess my
> > question is: If I define this file as USROPN, and close it
> > and immediately
> > reopen it, will it switch to the file pointed to in the
> > Library List, or will
> > it just reopen the same file again?
> >
> > Snippet from the CL:
> >
> >     /*** REMOVE THE LIBRARY SO WE KNOW IT IS *FIRST ***/
> >     RMVLIBLE   LIB(CARTCNX)
> >     MONMSG     MSGID(CPF0000)
> >     ADDLIBLE   LIB(CARTCNX)
> >     CALL       PGM(BSTORDADD) PARM('CNX')
> >
> >     /*** REMOVE THE LIBRARY SO WE KNOW IT IS *FIRST ***/
> >     RMVLIBLE   LIB(CARTSEA)
> >     MONMSG     MSGID(CPF0000)
> >     ADDLIBLE   LIB(CARTSEA)
> >     CALL       PGM(BSTORDADD) PARM('SEA')
> >
> > Snippet from the RPG:
> >
> >  C                   Eval      FilePrefix = OHICFP
> >  C                   Eval      FileSuffix = GetNextSuffix(FilePrefix)
> >
> > Snippet from the RPG Module:
> >
> >  FCCOHD     UF   E           K DISK
> >  ...
> >  C     CCOHD_Key     KList
> >  C                   KFld                    GNS_Prefix
> >
> >  C                   Eval      FileSuffix = -1
> >
> >  C     CCOHD_Key     SetLL     OHdRc
> >  C     CCOHD_Key     Reade(N)  OHdRc
> >  C                   DoW       Not %Eof(CCOHD)
> >
> > That is where it is giving me problems.  On the second call
> > to the RPG it still has
> > CARTCNX/CCOHD open instead of CARTSEA/CCOHD.
> >
> > Regards,
> >
> > Jim Langston
> > +---
> > | This is the RPG/400 Mailing List!
> > | To submit a new message, send your mail to RPG400-L@midrange.com.
> > | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
> > RPG400-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> > david@midrange.com
> > +---
> >
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---