|
midrange.com
Lance,
Here's a program that uses the QUSRJOBI API. After calling the API, the Job
Type field (QUSJT04) will contain a B for batch or I for interactive. If
you don't pass the internal job name (don't pass anything) it will retrieve
information about the current job.
DQUSI020000 DS
D* Qwc JOBI0200
D QUSBR01 1 4B 0
D* Bytes Return
D QUSBA01 5 8B 0
D* Bytes Avail
D QUSJN03 9 18
D* Job Name
D QUSUN03 19 28
D* User Name
D QUSJNBR03 29 34
D* Job Number
D QUSIJID01 35 50
D* Int Job ID
D QUSJS05 51 60
D* Job Status
D QUSJT04 61 61
D* Job Type
D QUSJS06 62 62
D* Job Subtype
D QUSSN 63 72
D* Subsys Name
D QUSRP01 73 76B 0
D* Run Priority
D QUSSPID00 77 80B 0
D* System Pool ID
D QUSCPUU00 81 84B 0
D* CPU Used
D QUSAIOR 85 88B 0
D* Aux IO Request
D QUSIT 89 92B 0
D* Interact Trans
D QUSRT 93 96B 0
D* Response Time
D QUSFT 97 97
D* Function Type
D QUSFN15 98 107
D* Function Name
D QUSAJS 108 111
D* Active Job Stat
D QUSNDBLW 112 115B 0
D* Num DBase Lock Wts
D QUSNIMLW 116 119B 0
D* Num Internal Mch Lck Wts
D QUSNDBLW00 120 123B 0
D* Num Non DBase Lock Wts
D QUSTDBLW 124 127B 0
D* Wait Time DBase Lock Wts
D QUSTIMLW 128 131B 0
D* Wait Time Internal Mch L
D QUSNDBLW01 132 135B 0
D* Wait Time Non DBase Lock
D QUSERVED45 136 136
D* Reserved
D QUSCSPID 137 140B 0
D* Current System Pool ID
D QUSTC01 141 144B 0
D* Thread Count
DQUSEC DS 116 inz
D QUSBPRV 1 4B 0 inz(116)
D QUSBAVL 5 8B 0 inz(0)
D QUSEI 9 15
D QUSERVED 16 16
D QUSED01 17 116
D FormatName S 8 Inz('JOBI0200')
D InJobName S 26
D IntJobName S 16
D JobName S 26 Inz('*')
D Outcount S 5 0
D ReceiveLen S 10i 0 Inz(187)
c *entry Plist
c Parm InJobName
c If %parms > 0
c Eval JobName = InJobName
c Endif
* Call the api to get the information you want
C Call 'QUSRJOBI'
C Parm QusI020000
C Parm ReceiveLen
C Parm FormatName
C Parm JobName
C Parm IntJobName
C Parm QusEc
c Eval *inlr = *on
HTH,
Ron Hawkins
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
