Another BIF question!

[Leslie Russell <leslier@xxxxxxxxxx>]

I have written a few sub procedures to simplify the creation and deletion 
of libraries, files and members. I have compiled these into a service 
program called OBJAPI. They all work just fine but I am having a strange 
problem. 
I have bound OBJAPI to another program and a weird thing happens, if I 
call the object creation procedures in succession e.g. 

C                 if       CrtLib('MYLIB':'*PROD':'My little library')
C                 eval     LibCrtd = *on
C                 endif

C                 if       CrtFile('MYLIB':'MYFILE':112:'*NONE':
C                                  'My File')
C                 eval     FileCrtd = *on
C                 endif

Then the CrtFile procedure fails quietly saying that The Library 'MYLIB' 
was not found eventhough  the library was created. If I run the program a 
second time, the CrtLib procedure returns *off because the library 
already exists and the CrtFile procedure creates the file without any 
problem. 

I ran a little test, I can execute a program which calls two seperate 
programs (A and B: A creates the LIB and B creates the FILE). When A 
finishes and control is returned to the caller the library exists and 
then B completes as I expect. In both cases the activation group is 
*CALLER.
Any ideas?

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