H dftactgrp( *no ) OPTION(*NODEBUGIO)                                                          
     H bnddir( 'QC2LE':'UTILITIES')                                                                 
     d GetToken...                                                                                  
     d                 s          65535    varying Inz                                              
     d MyEnvironment   s              2    Inz('MM')                                                
     d MyOptions       s            100    Inz varying                                              
     d MyPassword      s             10    Inz                                                      
     d MyReturnhandleID...                                                                          
     d                 s             30    Inz                                                      
     d MySavedHeader   s           1000    varying Inz                                              
     d MyUser          s             10    Inz                                                      
     d MyXMLString     s          65535    varying Inz                                              
     d Q               s              1    inz('''')                                                
                                                                                                    
         Dcl-ds System_Link  Qualified;                                                             
          version      char(3);                                                                     
          hostVersion  char(3);                                                                     
          Dcl-ds  LoginResponse;                                                                    
             actionSucceeded  char(5);                                                              
             Dcl-ds SessionHandle;                                                                  
                value  char(30);                                                                    
             End-Ds  SessionHandle;                                                                 
          End-ds  LoginResponse;                                                                    
          Dcl-ds  Response;                                                                         
             sessionHandle  char(30);                                                               
             workHandle  char(30);                                                                  
             systemTimestamp  char(30);                                                             
             systemTimeZoneOffset char(10);                                                         
             hasErrors    char(5);                                                                  
             hasWarnings  char(5);                                                                  
             Dcl-ds  QueryObjectResponse;                                                           
                name  char(30);                                                                     
                requestedDomainClass  char(30);                                                     
                actionSucceeded  char(5);                                                           
                Dcl-ds  DomainEntity;                                                               
                   domainClass  char(30);                                                           
                   Dcl-ds  Key;                                                                     
                      count_Property  int(5);                                                       
                      Dcl-ds  Property qualified Dim(99);                                           
                         path  char(30);                                                            
                         Value  char(10);                                                           
                      End-ds  Property;                                                             
                   End-ds  Key;                                                                     
                   Dcl-ds  Property;                                                                
                      path  char(30);                                                               
                      Value  char(30);                                                              
                   End-Ds  Property;                                                                
                End-ds  DomainEntity;                                                               
             End-ds  QueryObjectResponse;                                                           
          End-ds  Response;                                                                         
       End-ds  System_Link;                                                                         
      /copy qprcsrc,FMTXMLS_CP                                                                      
      /copy qprcsrc,GETHNDL_CP                                                                      
      /copy qprcsrc,GETSLUP_CP                                                                      
      /copy qprcsrc,GETSLHD_CP                                                                      
      /copy qprcsrc,PRCSYSL_CP                                                                      
                                                                                                    
                                                                                                    
            reset MyReturnhandleID;                                                                 
            MyReturnhandleID= GetSystemLinkHandle(MyEnvironment);                                   
                                                                                                    
                                                                                                    
                // return the XML Header                                                            
                MyXMLString =                                                                       
                GetSystemLinkXMLHeader('N': MyEnvironment: MyUser: MyPassword);                     
                                                                                                    
                // return the XML Header                                                            
                MyXMLString =                                                                       
                GetSystemLinkXMLHeader('N': MyEnvironment: MyUser: MyPassword);                     
                                                                                                    
                // need to create the session Handle String                                         
                MyXMLString =  %trimr(MyXMLString) + ' ' +                                          
                '<Request sessionHandle=' + '"' +                                                   
                  %trim(MyReturnhandleID) + '" ' +                                                  
                'workHandle="*new" ' +                                                              
                'broker="EJB" maxIdle="1000"> ';                                                    
                                                                                                    
                                                                                                    
                MySavedHeader = MyXMLString;                                                        
                                                                                                    
            GetToken = %trim(MySavedHeader);                                                        
            GetToken=  %trimr(GetToken) + ' ' +                                                     
             '<QueryObject name="queryObject_ItemProcess_Default" ' +                               
             'domainClass="com.mapics.epdm.ItemProcess"> ' +                                        
             '<Pql> ' +                                                                             
             '<![CDATA[SELECT itemProcessToken ' +                                                  
             'WHERE site =' +Q+'RBS'+Q+' AND item =' +Q+'R10-2'+Q+Q+'A1'+Q +                        
             ' and revision = ' + Q + '---' + Q + ']]> ' +                                          
             '</Pql> ';                                                                             
                                                                                                    
             // close the XML string                                                                
             GetToken =  %trimr(GetToken) + ' ' +                                                   
             '</QueryObject></Request></System-Link>';                                              
                                                                                                    
             SystemLinkDS =                                                                         
             ProcessSystemLinkCommand(GetToken);                                                    
                                                                                                    
            MyOptions =                                                                             
           'case=any ' + ' Path= string ' +                                                         
           'allowmissing=yes allowextra=yes ';                                                      
                                                                                                    
             xml-into System_Link %xml(SystemLinkDS:MyOptions);                                     
                                                                                                    
                                                                                                    
                *inlr = *on;