RE: Library list heartache -- RPG400-L

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