export-cp-bug.p
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. |