|
midrange.com
This is a multi-part message in MIME format.
--
3rd part
~~~~~~~~~~~~~~~~~~~~~
Dipl.Inf.(FH) Rolf P Mittag
IBM Partner in Development
Leipziger Str. 50
D-69214 Eppelheim
Fon: +49 (6221) 76 78 60
Fax: +49 (6221) 76 80 26
eMl: rm@r-m-e-d-v.de
--
D*** START HEADER FILE SPECIFICATIONS ****************************
D*
D*Header File Name: H/QUSRJOBI
D*
D*Descriptive Name: Retrieve Job Information API
D*
D*5763-SS1 (C) Copyright IBM Corp. 1994,1998
D*All rights reserved.
D*US Government Users Restricted Rights -
D*Use, duplication or disclosure restricted
D*by GSA ADP Schedule Contract with IBM Corp.
D*
D*Licensed Materials-Property of IBM
D*
D*
D*Description: Describe your function here.
D*
D*Header Files Included: H/OPM-API-name or Service-pgm-name
D*
D*Macros List: None.
D*
D*Structure List: Qwc_JOBI0100_t.
D* Qwc_JOBI0150_t.
D* Qwc_JOBI0200_t.
D* Qwc_JOBI0300_t.
D* Qwc_JOBI0400_t.
D* Qwc_JOBI0500_t.
D* Qwc_JOBI0600_t.
D* Qwc_JOBI0700_t.
D* Qwc_Grp_List_t.
D* Qwc_Lib_List_t.
D*
D*Function Prototype List: QUSRJOBI.
D*
D*Change Activity:
D*
D*CFD List:
D*
D*FLAG REASON LEVEL DATE PGMR CHANGE DESCRIPTION
D*---- ------------ ----- ------ --------- ----------------------
D*$A0= D2862000 3D10 940424 ROCH: New Include
D*$A1= D6464800 3D70 960322 MJD: Add routing data.
D*$A2= D9497904 4D20 970314 TDP: Add Decimal Format.
D*$A3= D9497904 4D20 970314 TDP: Add Decimal Format.
D*$01= p3653833 4D20 970909 TCR: Add reserved field.
D* to 200 fmt
D*$A4= D9560000 4D30 971008 ROCH: Add Server Mode for
D* SQL
D* Correct order of
D* Qwc_JOBI0900_t fields
D*
D*$A5= D9571100 4D30 971203 ROCH: Add Chrid Control
D*$A6= D9560400 4D30 971217 ROCH: Add Maximum threads
D*$A7= D9560411 4D30 980107 ROCH: Add Job user ID,
D* Job user ID setting,
D* Process ID number
D*$02= p3669769 4Q30 980430 AMN: Move reserved field
D* p3669897 in 200 fmt.
D*$A8= D95998 4D40 980624 ROCH: Add server type.
D*$A9= D97233 4D40 980902 ROCH: Add new tmp storage
D*End CFD List.
D*
D*Additional notes about the Change Activity
D*End Change Activity.
D*** END HEADER FILE SPECIFICATIONS ******************************
D******************************************************************
D*Prototype for calling Retrieve Job Information API (QUSRJOBI)
D******************************************************************
D QUSRJOBI C 'QUSRJOBI'
D******************************************************************
D*Record structure for QUSRJOBI JOBI0100 format
D******************************************************************
DQUSI010000 DS
D* Qwc JOBI0100
D QUSBR 1 4B 0
D* Bytes Return
D QUSBA 5 8B 0
D* Bytes Avail
D QUSJN01 9 18
D* Job Name
D QUSUN01 19 28
D* User Name
D QUSJNBR01 29 34
D* Job Number
D QUSIJID 35 50
D* Int Job ID
D QUSJS01 51 60
D* Job Status
D QUSJT02 61 61
D* Job Type
D QUSJS02 62 62
D* Job Subtype
D QUSERVED28 63 64
D* Reserved
D QUSRP 65 68B 0
D* Run Priority
D QUSTS 69 72B 0
D* Time Slice
D QUSDW 73 76B 0
D* Default Wait
D QUSPURGE 77 86
D* Purge
D******************************************************************
D*Record structure for QUSRJOBI JOBI0150 format
D******************************************************************
DQUSI0150 DS
D* Qwc JOBI0150
D QUSBR00 1 4B 0
D* Bytes Return
D QUSBA00 5 8B 0
D* Bytes Avail
D QUSJN02 9 18
D* Job Name
D QUSUN02 19 28
D* User Name
D QUSJNBR02 29 34
D* Job Number
D QUSIJID00 35 50
D* Int Job ID
D QUSJS03 51 60
D* Job Status
D QUSJT03 61 61
D* Job Type
D QUSJS04 62 62
D* Job Subtype
D QUSERVED29 63 64
D* Reserved
D QUSRP00 65 68B 0
D* Run Priority
D QUSTS00 69 72B 0
D* Time Slice
D QUSDW00 73 76B 0
D* Default Wait
D QUSPURGE00 77 86
D* Purge
D QUSTSEP 87 96
D* Time Slice End Pool
D QUSCPUU 97 100B 0
D* CPU Used
D QUSSPID 101 104B 0
D* System Pool ID
D QUSMCPUT 105 108B 0
D* Max CPU Time
D QUSTSU 109 112B 0
D* Temp Storage Used
D QUSMTS 113 116B 0
D* Max Temp Storage
D QUSTC02 117 120B 0
D* Thread Count
D QUSMT 121 124B 0
D* Maximum Threads
D QUSTSUMB 125 128B 0
D* Temp Storage Used MB
D QUSMTSMB 129 132B 0
D* Max Temp Storage MB
D******************************************************************
D*Record structure for QUSRJOBI JOBI0200 format
D******************************************************************
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 Lck W
D QUSNDBLW01 132 135B 0
D* Wait Time Non DBase Lock Wts
D QUSERVED45 136 136
D* Reserved
D QUSCSPID 137 140B 0
D* Current System Pool ID
D QUSTC01 141 144B 0
D* Thread Count
D******************************************************************
D*Record structure for QUSRJOBI JOBI0300 format
D******************************************************************
DQUSI030000 DS
D* Qwc JOBI0300
D QUSBR02 1 4B 0
D* Bytes Return
D QUSBA02 5 8B 0
D* Bytes Avail
D QUSJN04 9 18
D* Job Name
D QUSUN04 19 28
D* User Name
D QUSJNBR04 29 34
D* Job Number
D QUSIJID02 35 50
D* Int Job ID
D QUSJS07 51 60
D* Job Status
D QUSJT05 61 61
D* Job Type
D QUSJS08 62 62
D* Job Subtype
D QUSJN05 63 72
D* Jobq Name
D QUSJL 73 82
D* Jobq Lib
D QUSJP 83 84
D* Jobq Priority
D QUSON 85 94
D* Outq Name
D QUSOL 95 104
D* Outq Lib
D QUSOP 105 106
D* Outq Priority
D QUSPDN 107 116
D* Prt Dev Name
D QUSSJN 117 126
D* Subm Job Name
D QUSSUN 127 136
D* Subm User Name
D QUSSJNBR 137 142
D* Subm Job Num
D QUSSMN 143 152
D* Subm Msgq Name
D QUSSML 153 162
D* Subm Msgq Lib
D QUSSOJ 163 172
D* Sts On Jobq
D QUSDPOJ 173 180
D* Date Put On Jobq
D QUSJD 181 187
D* Job Date
D******************************************************************
D*Record structure for QUSRJOBI JOBI0400 format
D******************************************************************
DQUSI0400 DS
D* Qwc JOBI0400
D QUSBR03 1 4B 0
D* Bytes Return
D QUSBA03 5 8B 0
D* Bytes Avail
D QUSJN06 9 18
D* Job Name
D QUSUN05 19 28
D* User Name
D QUSJNBR05 29 34
D* Job Number
D QUSIJID03 35 50
D* Int Job ID
D QUSJS09 51 60
D* Job Status
D QUSJT06 61 61
D* Job Type
D QUSJS10 62 62
D* Job Subtype
D QUSDES 63 75
D* Date Enter Sys
D QUSDJA 76 88
D* Date Job Active
D QUSJAC 89 103
D* Job Acct Code
D QUSJDN 104 113
D* Job Desc Name
D QUSJDL 114 123
D* Job Desc Lib
D QUSUWID 124 147
D* Unit Work ID
D QUSMN06 148 155
D* Mode Name
D QUSIMR 156 165
D* Inq Msg Reply
D QUSLCP 166 175
D* Log Cl Pgms
D QUSBMH 176 185
D* Brk Msg Hndl
D QUSSMH 186 195
D* Status Msg Hndl
D QUSDRA 196 208
D* Device Recov Act
D QUSDDMCH 209 218
D* DDM Conv Hndl
D QUSDS 219 219
D* Date Separator
D QUSDF 220 223
D* Date Format
D QUSPT 224 253
D* Print Text
D QUSSJN00 254 263
D* Subm Job Name
D QUSSUN00 264 273
D* Subm User Name
D QUSSJNBR00 274 279
D* Subm Job Num
D QUSSMN00 280 289
D* Subm Msgq Name
D QUSSML00 290 299
D* Subm Msgq Lib
D QUSTS01 300 300
D* Time Separator
D QUSCCSID07 301 304B 0
D* Coded Char Set ID
D QUSSDT 305 312
D* Sched Date Time
D QUSPKF 313 322
D* Print Key Format
D QUSSS03 323 332
D* Sort Sequence
D QUSSSL 333 342
D* Sort Sequence Lib
D QUSLID01 343 345
D* Language ID
D QUSCID01 346 347
D* Country ID
D QUSCS 348 348
D* Completion Status
D QUSSOJ00 349 349
D* Signed On Job
D QUSJS11 350 357
D* Job Switches
D QUSJMFA 358 367
D* Job Msgq Full Action
D QUSRVED1 368 368
D* Reserved1
D QUSJMMS 369 372B 0
D* Job Msgq Max Size
D QUSDCCSI 373 376B 0
D* Default Coded Char Set Id
D QUSRD03 377 456
D* Routing Data
D QUSDF00 457 457
D* Decimal Format
D QUSCC05 458 467
D* Chrid Ctl
D QUSST03 468 497
D* Server Type
D******************************************************************
D*Record structure for QUSRJOBI JOBI0500 format
D******************************************************************
DQUSI0500 DS
D* Qwc JOBI0500
D QUSBR04 1 4B 0
D* Bytes Return
D QUSBA04 5 8B 0
D* Bytes Avail
D QUSJN07 9 18
D* Job Name
D QUSUN06 19 28
D* User Name
D QUSJNBR06 29 34
D* Job Number
D QUSIJID04 35 50
D* Int Job ID
D QUSJS12 51 60
D* Job Status
D QUSJT07 61 61
D* Job Type
D QUSJS13 62 62
D* Job Subtype
D QUSERVED30 63 64
D* Reserved
D QUSES 65 68B 0
D* End Severity
D QUSLS 69 72B 0
D* Log Severity
D QUSLL 73 73
D* Log Level
D QUSLT 74 83
D* Log Text
D******************************************************************
D*Record structure for QUSRJOBI JOBI0600 format
D******************************************************************
DQUSQGL DS
D* Qwc Grp List
D QUSGN01 1 10
D* Grp Name
DQUSI0600 DS
D* Qwc JOBI0600
D QUSBR05 1 4B 0
D* Bytes Return
D QUSBA05 5 8B 0
D* Bytes Avail
D QUSJN08 9 18
D* Job Name
D QUSUN07 19 28
D* User Name
D QUSJNBR07 29 34
D* Job Number
D QUSIJID05 35 50
D* Int Job ID
D QUSJS14 51 60
D* Job Status
D QUSJT08 61 61
D* Job Type
D QUSJS15 62 62
D* Job Subtype
D QUSJS16 63 70
D* Job Switch
D QUSES00 71 71
D* End Status
D QUSSN00 72 81
D* Subsys Name
D QUSSL06 82 91
D* Subsys Lib
D QUSCUN 92 101
D* Curr Usrprf Name
D QUSDE 102 102
D* Dbcs Enabled
D QUSEK 103 103
D* Exit Key
D QUSCK00 104 104
D* Cancel Key
D QUSPRC 105 108B 0
D* Product Return Code
D QUSURC 109 112B 0
D* User Return Code
D QUSPGMRC 113 116B 0
D* Program Return Code
D QUSSE02 117 126
D* Special Environment
D QUSDN 127 136
D* Device Name
D QUSGPN 137 146
D* Group Profile Name
D QUSGRP 10 DIM(00015)
D QUSGN00 10 OVERLAY(QUSGRP:00001)
D QUSJUID 297 306
D* Job User ID
D QUSJUIDS 307 307
D* Job User ID Setting
D******************************************************************
D*Record structure for QUSRJOBI JOBI0700 format
D**** ***
D*NOTE: The following type definition only defines the fixed
D* portion of the format. Any varying length field will
D* have to be defined by the user.
D******************************************************************
DQUSQLL DS
D* Qwc Lib List
D QUSLN01 1 11
D* Lib Name
DQUSI0700 DS
D* Qwc JOBI0700
D QUSBR06 1 4B 0
D* Bytes Return
D QUSBA06 5 8B 0
D* Bytes Avail
D QUSJN09 9 18
D* Job Name
D QUSUN08 19 28
D* User Name
D QUSJNBR08 29 34
D* Job Number
D QUSIJID06 35 50
D* Int Job ID
D QUSJS17 51 60
D* Job Status
D QUSJT09 61 61
D* Job Type
D QUSJS18 62 62
D* Job Subtype
D QUSERVED31 63 64
D* Reserved
D QUSLIS 65 68B 0
D* Libs In Syslibl
D QUSPL 69 72B 0
D* Prod Libs
D QUSCL01 73 76B 0
D* Curr Libs
D QUSLIU 77 80B 0
D* Libs In Usrlibl
D*QUSLIB 11 DIM(00001)
D* QUSLN00 11 OVERLAY(QUSLIB:00001)
D*
D* Varying length
D******************************************************************
D*Record structure for QUSRJOBI JOBI0800 format
D**** ***
D*NOTE: The following type definition only defines the fixed
D* portion of the format. Any varying length field will
D* have to be defined by the user.
D******************************************************************
DQUSQSL DS
D* Qwc Sig List
D QUSSNBR01 1 4B 0
D* Signal Number
D QUSSA 5 8B 0
D* Signal Action
D QUSDSA 9 12B 0
D* Default Signal Action
D QUSMNBRS 13 16B 0
D* Max Num Signal
D QUSCNBRS 17 20B 0
D* Current Num Signals
D QUSERVED42 21 32
D* Reserved
DQUSI0800 DS
D* Qwc JOBI0800
D QUSBR09 1 4B 0
D* Bytes Return
D QUSBA09 5 8B 0
D* Bytes Avail
D QUSJN12 9 18
D* Job Name
D QUSUN14 19 28
D* User Name
D QUSJNBR11 29 34
D* Job Number
D QUSIJID10 35 50
D* Int Job ID
D QUSJS19 51 60
D* Job Status
D QUSJT10 61 61
D* Job Type
D QUSJS20 62 62
D* Job Subtype
D QUSERVED40 63 64
D* Reserved
D QUSSS06 65 68B 0
D* Signal Status
D QUSSBM 69 76
D* Signal Blocking Mask
D QUSPSS 77 84
D* Pending Signal Set
D QUSOSMD 85 88B 0
D* Offset Signal Monitor Data
D QUSNBRSM 89 92B 0
D* Number Signal Monitor
D QUSPIDN 93 96B 0
D* Process ID Number
D*QUSSIG 32 DIM(00001)
D* QUSSNBR02 9B 0 OVERLAY(QUSSIG:00001)
D* QUSSA00 9B 0 OVERLAY(QUSSIG:00005)
D* QUSDSA00 9B 0 OVERLAY(QUSSIG:00009)
D* QUSMNBRS00 9B 0 OVERLAY(QUSSIG:00013)
D* QUSCNBRS00 9B 0 OVERLAY(QUSSIG:00017)
D* QUSERVED43 12 OVERLAY(QUSSIG:00021)
D*
D* Varying length
D******************************************************************
D*Record structure for QUSRJOBI JOBI0900 format
D**** ***
D*NOTE: The following type definition only defines the fixed
D* portion of the format. Any varying length field will
D* have to be defined by the user.
D******************************************************************
DQUSQCL DS
D* Qwc Cur List
D QUSOBJN04 1 10
D* Object Name
D QUSOBJL06 11 20
D* Object Library
D QUSOBJT04 21 30
D* Object Type
D QUSOCN 31 48
D* Open Cursor Name
D QUSSN03 49 66
D* Statement Name
DQUSI0900 DS
D* Qwc JOBI0900
D QUSBR10 1 4B 0
D* Bytes Return
D QUSBA10 5 8B 0
D* Bytes Avail
D QUSJN13 9 18
D* Job Name
D QUSUN15 19 28
D* User Name
D QUSJNBR12 29 34
D* Job Number
D QUSIJID11 35 50
D* Int Job ID
D QUSJS21 51 60
D* Job Status
D QUSJT11 61 61
D* Job Type
D QUSJS22 62 62
D* Job Subtype
D QUSMFSQL 63 63
D* Server Mode for SQL
D QUSERVED41 64 64
D* Reserved
D QUSQLOCD 65 68B 0
D* Offset SQL Open Cursor Data
D QUSQLOCE 69 72B 0
D* Size SQL Open Cursor Entry
D QUSSQLOC 73 76B 0
D* Num SQL Open Cursors
D*QUSCUR 66 DIM(00001)
D* QUSOBJN05 10 OVERLAY(QUSCUR:00001)
D* QUSOBJL07 10 OVERLAY(QUSCUR:00011)
D* QUSOBJT05 10 OVERLAY(QUSCUR:00021)
D* QUSOCN00 18 OVERLAY(QUSCUR:00031)
D* QUSSN04 18 OVERLAY(QUSCUR:00049)
D*
D* Varying length
--
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
