Hallo zusammen
V7R1

wir rufen in einem recht komplexen Ablauf mit Recursion über Actgrp's
u.a. das QleActBndPgm.

Das funktioniert auch mehrere 100 oder sogar 1000de mal in diesem ablauf!

Plötzlich aber, findet der Aufruf das *SRVPGM nicht mehr.

PHP-Code:
D ActivateProgram...                                            
D                 PR            10i 0 EXTPROC('QleActBndPgm')   
D                                 *   PROCPTR                   
D                                     CONST                     
D                               10i 0                           
D Info                                LIKE(Qle_ABP_Info_t)      
D                               10i 0                           
D Error                               LIKE(ErrorDS)             
D                                     OPTIONS(*OMIT:*VARSIZE)   
D                                     NOOPT 
PHP-Code:
D GetSysPointer   PR              *   PROCPTR               
D                                     EXTPROC('rslvsp')     
/* return value as Procedure Pointer weak documentation     
D HexType                        2A   VALUE                 
D Object                          *   value options(*string)
D Library                         *   value options(*string)
D Authoritie                     2A   value                 
...

...
C                   EVAL      ServicePgmP =              
C                                GetSysPointer(          
C                                   HexType  :           
C                                   %trim(ServicePgm)   :
C                                   WRPRCLIB  :          
C                                   AUTH_NONE            
C                                )                       

C                   EVAL      ActivateResult =       
C                                ActivateProgram(    
C                                   ServicePgmP   :  
C                                   ActivationMark : 
C                                   ActivationInfo : 
C                                   ActInfolen  :    
C                                   Error            
C                                )    
C                   CALLP     GetExport(                
 *                  ====      ============              
C                                ActivationMark   :     
C                                0   :                  
C                                %len(%trim(Procedure)):
C                                %trim(Procedure)   :   
C                                Ergebnis   :           
C                                ExportType   :         
C                                Error                  
C                             ) 
Der ServicePgmP enthällt, lt debug, nach dem GetSysPointer
SYP:MYPGMA_FNT :0203:AS03 :0000000000000000

ActivationMark ist zunächst 0, nach dem ActivateProgram -2147478087
Error jedoch leer

nach dem GetExport steht ExportType auf 0

Das SRVPGM ist in diesem Ablauf mehrere 100 mal vorher gefunden worden!

Hat da einer ne Idee?

Der ILEMax