BPX4PTT (pthread_tag_np) example

The following code updates the pthread tag. For the callable service, see pthread_tag_np (BPX1PTT, BPX4PTT) — Set, query, or both set and query the caller's thread tag data. AMODE 31 callers use BPX1PTT (pthread_tag_np) example.

                                              
         LA    R15,=CL30'UPDATING MONTH-END STATISTICS'                 
         STG   R15,PT_NEWA                                              
         LA    R15,PT_OLD                                               
         STG   R15,PT_OLDA                                              
         CALL  BPX4PTT,              pthread_tag_np                    +
               (=A(30),              Input: Length of New Tag          +
               PT_NEWA,              Input: Address of New Tag         +
               PT_OLDL,              Input: Length of Old Tag          +
               PT_OLDA,              Input: Address to store Old Tag   +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code:                      +
               RSNCODE),             Reason code:                      +
               MF=(E,PLIST)          ----------------------------------