BPX1GTH (__getthent) example
The following code retrieves information on the first
process accessible to the caller. For the callable service, see __getthent (BPX1GTH, BPX4GTH) — Get thread data. For the data structure,
see BPXYPGTH — Map the __getthent input/output structure. AMODE 64 callers use BPX4GTH (__getthent) example.
LA R5,BUFFERB R5 -> Input parameters
ST R5,BUFB ->input buffer
USING PGTHA,R5 R5 base for PGTHA
XC PGTHA(PGTHA#LEN),PGTHA Null Input area
MVI PGTHAFLAG1,PGTHAPROCESS+PGTHACOMMAND+PGTHATHREAD
MVI PGTHAACCESSTHID,PGTH#LAST Last thread
LA R15,BUFFERA PgthB, Output buffer
ST R15,BUFA ->output buffer
DROP R5
SPACE ,
CALL BPX1GTH, __getthent +
(=A(PGTHA#LEN), Input: length input parms BPXYPGTH+
BUFA, Input: ->input parms BPXYPGTH+
=A(1024), Input: length output area BPXYPGTH+
BUFB, Input: ->output area BPXYPGTH+
RETVAL, Return value: 0, -1 +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------