CALL BPX4PTJ, pthread_join +
(THID, Input: Thread ID +
=AD(0), Input: ->Status Field or 0 +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------