DECLARE INTEGER QueryInformationJobObject IN kernel32;
	INTEGER hJob, INTEGER JobObjectInfoClass,;
	STRING @lpJobObjectInfo, INTEGER cbJobObjectInfoLength,;
	INTEGER @lpReturnLength

PROCEDURE QueryInfo
	LOCAL nResult, cBuffer, nBufsize
	cBuffer = REPLICATE(CHR(0), 48) && JOBOBJECT_BASIC_ACCOUNTING_INFORMATION
	nBufsize=0
	nResult = QueryInformationJobObject(THIS.hJob,;
		1, @cBuffer, LEN(cBuffer), @nBufsize)

	IF nResult = 0
	* 24=ERROR_BAD_LENGTH
		nResult = GetLastError()
		= MESSAGEBOX("QueryInformationJobObject call failed: " +;
			TRANSFORM(nResult))
	ELSE
	* parse cBuffer, which is 
	* JOBOBJECT_BASIC_ACCOUNTING_INFORMATION structure
	ENDIF