Re: Knowing running environment inside rpgiv

[Ron@xxxxxxxxxx]

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
+---