Operation: If the user state current value for the target member is X'22', replace that value with the value X'44', and save the current value. In the IXCSETUS macro,

• COMPUS points to the value 22.
• NEWUS points to the value 44.
• OLDUS points to the area where XCF will save the current value.

For OLDUS, the storage must be in common storage. In this example, the STORAGE OBTAIN macro returns the address of the area in register 1. The code moves the address to register 3. XCF is to store the return code and reason code into the fields RETURN and REASON. The code is as follows:

* ZERO ECB1
       STORAGE OBTAIN,LENGTH=LEN,SP=228  OBTAIN STORAGE FOR OLD USER   X
                                       STATE VALUE
       LR    R3,R1                     SAVE ADDRESS FOR IXCSETUS       X
                                       INVOCATION

       IXCSETUS MEMTOKEN=TOKEN1,NEWUS=STATE4,USLEN=LEN,                X
             TARGET=TOKEN2,COMPUS=STATE2,OLDUS=(R3),ECB=ECB1,          X
             RETCODE=RETURN,RSNCODE=REASON,MF=S

* TEST RETURN CODE
       WAIT  ECB=ECB1                  WAIT FOR IXCSETUS TO COMPLETE

TOKEN1   DS    CL8                       MEMBER TOKEN OF CALLER
TOKEN2   DS    CL8                       TOKEN OF MEMBER WHOSE USER    X
                                         STATE IS TO BE CHANGED
RETURN   DS    1F                        RETURN CODE
REASON   DS    1F                        REASON CODE
ECB1     DS    1F                        ECB TO BE POSTED BY XCF
STATE2   DC    X'22'                     USER STATE FOR COMPARISON
STATE4   DC    X'44'                     NEW USER STATE VALUE
LEN      DC    F'1'                      LENGTH OF ALL USER STATES