BPX4PTS (pthread_self) example

The following code gets the thread ID of the calling thread. For the callable service, see pthread_self (BPX1PTS, BPX4PTS) — Query the thread ID. AMODE 31 callers use BPX1PTS (pthread_self) example.
                                              
         CALL  BPX4PTS,              pthread_self                      +
               (THID),               Output: Thread ID                 +
               MF=(E,PLIST)          ----------------------------------