Project

General

Profile

export-cp-bug.p

EXPORT-PRINCIPAL bug? - Igor Skornyakov, 06/07/2019 04:56 AM

Download (420 Bytes)

 
1 
DEF VAR hcp AS HANDLE NO-UNDO.
2 
DEF VAR raw AS RAW NO-UNDO.
3 

    		
  

  

    
      4
    
    
      
CREATE CLIENT-PRINCIPAL hcp.


    		
  

  

    
      5
    
    
      

    		
  

  

    
      6
    
    
      
raw = hcp:EXPORT-PRINCIPAL().


    		
  

  

    
      7
    
    
      

    		
  

  

    
      8
    
    
      
hcp:DOMAIN-NAME="domain".


    		
  

  

    
      9
    
    
      
hcp:USER-ID = "user".


    		
  

  

    
      10
    
    
      

    		
  

  

    
      11
    
    
      
MESSAGE "USER-ID" hcp:USER-ID "DOMAIN-NAME" hcp:DOMAIN-NAME "QUALIFIED-USER-ID" hcp:QUALIFIED-USER-ID.


    		
  

  

    
      12
    
    
      

    		
  

  

    
      13
    
    
      
hcp:QUALIFIED-USER-ID  = "user1@domain1".


    		
  

  

    
      14
    
    
      

    		
  

  

    
      15
    
    
      
MESSAGE "USER-ID" hcp:USER-ID "DOMAIN-NAME" hcp:DOMAIN-NAME "QUALIFIED-USER-ID" hcp:QUALIFIED-USER-ID.