pgm    ( +                                                                      
         &pAID        +                                                         
         &pCtlOpt     +                                                         
       )                                                                        
                                                                                
   dcl   &pAID        *char    1                                                
   dcl   &pCtlOpt     *char   10                                                
                                                                                
   dcl   &AID         *char    1                                                
   dcl   &hLoLvlEnv   *char    4                                                
   dcl   &ErrCod      *char    8                                                
                                                                                
   dcl   &RtnVal      *char    2                                                
                                                                                
                                                                                
   chgvar            &hLoLvlEnv   x'00000000'                                   
   chgvar            &ErrCod      x'00000000'                                   
                                                                                
   callprc 'QsnGetAID'      ( +                                                 
                              &AID         +                                    
                              &hLoLvlEnv   +                                    
                              &ErrCod      +                                    
                            ) +                                                 
                      rtnval( +                                                 
                              &RtnVal       +                                   
                            )                                                   
                                                                                
   chgvar            &pAID        &AID                                          
                                                                                
   return                                                                       
                                                                                
endpgm