|
|
|
The account exit, if activated, is passed to each account record just as it is about to be written to the account file. This exit may modify, delete, or insert records at this point. Note that extreme care must be exercised if records are being inserted since no further editing or validation operations will be performed before the record is written to the account file.
This exit name is coded in by positions 51-58 on the PARMS control statement.
The parameter list contains the following parameters:
|
Word |
Description |
|---|---|
|
1 |
Address of logical record currently being processed (following the RDW) |
|
2 |
Address of a 1-character disposition indicator |
|
3 |
Address of a 1-character insertion indicator |
Each account record is made available to the user exit routine. The sequence in which the records are passed to the exit routine for each job is step records first, followed by the job record summarizing the accumulated step information. The disposition and insertion indicators work in the same manner as when employed by the input exit. This allows you to edit and select basic accounting records which will ultimately be used during the reporting phase.
Records are inserted in exactly the same fashion as described for an input exit with the following exception: the record to be inserted must be preceded by a valid RDW which contains the length of the record (including the four bytes for the RDW), but the address stored into the first word of the parameter list must point to the beginning of the record after the RDW.
The accumulation from the step records to the job record is accomplished prior to passing. Therefore, they must complete the mathematical roll up process from the step to the job records. Account exits are easier to code than input exits and are more powerful because:
Typical uses of an account exit are to:
Note: CA JARS will not accept a summary file input with mixed record types. Job or Job/Step (level 6 or level 7) history records may not be processed simultaneously with summary records (level 1 to 5). Also, only level 6 or level 7 records will be used to prepare System Use Reports.
See the User Guide for the layout of the basic accounting record.
To make coding easier, a DSECT that maps this record is distributed with this product and resides in CAJRMAC as member JSIACSUM.
A sample expansion of JSIACSUM is provided on the following pages.
449 JSIACSUM A,RDW 450+*********************************************************************** 451+* * 452+* A C C O U N T - S U M M A R Y R E C O R D * 453+* * 454+*********************************************************************** 455+* 000000 456+JARDW DS 0XL4 RECORD DESCRIPTOR WORD. 01-00016 000000 457+JALRECL DS HL2'0' RECORD LENGTH. 01-00017 _000002 458+ DS HL2'0' ZEROS. 01-00018 000004 460+JACPUID DS CL1' ' 57 CPU ID. 01-00022 461+* 000005 462+JAFILEID DS CL1' ' FILE IDENTIFIER (A=ACCOUNT, 1-7=HISTORY) 01-00024 000C1 463+JAACCT EQU C'A' 01-00025 000F1 464+JALVL1 EQU C'1' 01-00026 000F2 465+JALVL2 EQU C'2' 01-00027 000F3 466+JALVL3 EQU C'3' 01-00028 000F4 467+JALVL4 EQU C'4' 01-00034 000F5 468+JALVL5 EQU C'5' 01-00035 000F6 469+JAJOB EQU C'6' 01-00036 000F7 470+JAJOBSTP EQU C'7' 01-00037 471+* 000006 472+JAFILEVL DS XL1'4C' FILE VERSION LEVEL. 01-00040 0004C 473+JACURLVL EQU X'4C' 01-00041 0004C 474+JALEVL40 EQU X'4C' 01-00042 0002C 475+JALEVL30 EQU X'2C' 01-00043 0001C 476+JALEVL27 EQU X'1C' 01-00044 477+* 000007 478+JATIEBRK DS 0CL25 SORT TIE BREAKER 01-00046 000007 479+JAJOBLOG DS 0CL20 JOB LOG 01-00047 000007 480+JARDRSDT DS CL6' ' 60 READER START DATE YYMMDD 01-00048 00000D 481+JARDRSTM DS CL6' ' 61 READER START TIME HHMMSS 01-00049 000013 482+JAJOBNM DS CL8' ' 04, JOB NAME 01-00050 _ 483+* G8 RJE LINE NAME 00001B 485+JASJIND DS 0CL2 STEP/JOB INDICATORS. 01-00053 00001B 486+JASTEPI DS CL1' ' STEP INDICATOR. 01-00054 000F1 487+JAISSTEP EQU C'1' IS A STEP RECORD 01-00055 00001C 488+JAJOBI DS CL1' ' JOB INDICATOR. 01-00056
_ PAGE 11 _ LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 11.49 02/28/98 000F1 489+JAISJOB EQU C'1' IS A JOB RECORD 01-00057 490+* 00001D 491+JASTEPNO DS XL2'0000' 56 NUMBER OF STEPS/STEP NUMBER. 01-00059 492+* XH 00001F 493+JAPROCID DS CL1' ' 03 RECORD TYPE (I.E. PROCESSING ID). 01-00061 000C3 494+JATYPEC EQU C'C' CICS 01-00062 000C4 495+JATYPED EQU C'D' DOS 01-00063 000C8 496+JATYPEH EQU C'H' HISTORY LEVEL SUMMARY FIELDS 01-00064 000D9 497+JATYPER EQU C'R' RJE RECORD 01-00065 000E2 498+JATYPES EQU C'S' OS 01-00066 000E3 499+JATYPET EQU C'T' TSO 01-00067 000E4 500+JATYPEU EQU C'U' UNIT-RECORD DEVICE RECORD 01-00068 00060 501+JATYPECR EQU C'-' CREDIT RECORD 01-00069 0004E 502+JATYPEDB EQU C'+' DEBIT RECORD 01-00070 0005C 503+JATYPEBD EQU C'*' BUDGET RECORD 01-00071 0007C 504+JATYPEI EQU C'@' IPL RECORD 01-00072 0007B 505+JATYPEW EQU C'#' OS WAIT TIME, MVS WAIT TIME RECORDS 01-00073 0006F 506+JATYPEL EQU C'?' SMF DATA LOST RECORD 01-00074 0007A 507+JATYPEEX EQU C':' EXTDATA RECORD 01-00075 508+* 509+* *SYSTEM RECORD ONLY 510+* 000020 511+JAETIME DS PL6'0' ELAPSED TIME 01-00079 000026 512+JADVAL DS PL6'0' DATA VALUE 01-00080 00002C 513+JALEFLG DS C' ' LEGITIMATE ACCOUNT RECORD FLAG 01-00081 00002D 514+JAWAIT DS 16PL6'0' INDIVIDUAL ENGINE WAIT TIMES 01-00082 00008D 515+JAUPDN DS 16X'00' ENGINE UP/DOWN: BIT 7 ONLINE, AND OK 01-00083 00009D 00020 516+ ORG JAETIME 01-00084 517+* 518+* *ACCOUNT RECORD ONLY 519+* 000020 520+JAUSERID DS CL8' ' 10, USER IDENTIFICATION 01-00088 521+* G6 RJE PASSWORD 000028 522+JASTARTT DS CL6' ' 12 START TIME HHMMSS 01-00090 00002E 523+JASTARTD DS CL6' ' 06 START DATE YYMMDD 01-00091 000034 524+JAJOBCLS DS CL2' ' 07 JOB CLASS 01-00092 000036 525+JASTOPTM DS CL6' ' 13 STOP TIME HHMMSS 01-00093 00003C 526+JAPGMRNM DS 0CL20 58 PROGRAMMER'S NAME 01-00094 00003C 527+JAPGMRN1 DS CL16' ' 01-00095 00004C 528+JAPGMRN2 DS CL4' ' 01-00096 529+* 000050 530+JA$ACC$ DS CL16' ' 08 ACCOUNTING FIELDS 01-00098 531+* 000060 532+JACOMPCD DS CL4' ' 09 COMPLETION CODE 01-00100 000064 533+JATERMID DS CL2' ' 59 TERMINATION INDICATOR 01-00101 534+* 000066 535+JASTEPNM DS CL8' ' 11, STEP NAME 01-00103 536+* G7 RJE REMOTE NAME 00006E 537+JAPGMNM DS CL8' ' 05 PROGRAM NAME/MODULE NAME 01-00105 538+* 000076 539+JACOREAL DS PL4'0' 22 CORE ALLOCATED 01-00107 00007A 540+JACOREUS DS PL4'0' 21 CORE USED 01-00108 00007E 541+JACOREPU DS PL3'0' 23 PERCENT OF UNUSED CORE (999V99) 01-00109 542+* 000081 543+JAJOBNO DS CL5' ' 14, JOB NUMBER (EXCEPT FOR TYPE H RECORDS) 01-00111
PAGE 12 _ LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 11.49 02/28/98 544+* B4 TSU NUMBER 000086 00081 545+ ORG JAJOBNO 01-00113 000081 546+ DS CL1 RESERVED **************** 01-00114 000082 547+JATSOSES DS XL2 XG # OF TSO SESSIONS * TYPE H RECORDS 01-00115 000084 548+JABATCH DS XL2 XF # OF BATCH JOBS **************** 01-00116 549+* 000086 550+JAPRTY DS CL2' ' 15 PRIORITY 01-00118 551+* 000088 552+JACARDRD DS PL6'0' 18 CARDS READ 01-00120 00008E 553+JALINEPN DS PL6'0' E5 STANDARD-LINES-PRINTED. 01-00121 000094 554+JALINEPS DS PL6'0' LINES PRINTED - SPECIAL 01-00122 00009A 555+JACARDPU DS PL6'0' 20 CARDS PUNCHED 01-00123 0000A0 556+JAFORMPT DS CL4' ' 16 PRINT FORMS ID 01-00124 0000A4 557+JAFORMPU DS CL4' ' 17 PUNCH FORMS ID 01-00125 558+* 0000A8 559+JAIDLETM DS PL6'0' 24 SETUP/IDLE TIME HOURS (999999V99999) 01-00127 0000AE 560+JAELAPTM DS PL6'0' 25 ELAPSED TIME HOURS (999999V99999) 01-00128 561+* 65 562+* 90 0000B4 563+JACPUTM DS PL6'0' 26 CPU TIME HOURS (999999V99999) 01-00131 564+* 66 565+* 91 0000BA 566+JAOVHDTM DS PL6'0' 27 OVERHEAD TIME HOURS (999999V99999) 01-00134 567+* 67 0000C0 568+JAWAITTM DS PL6'0' 28 WAIT TIME HOURS (999999V99999) 01-00136 569+* 68 0000C6 570+JARDRQTM DS CL6' ' 62 READER QUEUE TIME HHMMSS 01-00138 0000CC 571+JAWTRQTM DS CL6' ' 63 WRITER QUEUE TIME HHMMSS 01-00139 0000D2 572+JATURNTM DS CL6' ' 64 TURNAROUND TIME HHMMSS 01-00140 573+* 574+* DEVICE EXCP COUNTS BY DEVICE TYPE: 575+* 0000D8 576+JARDRIOC DS PL7'0' 33, READER I/O COUNT 01-00144 577+* F8 RJE EXCP-COUNT 0000DF 578+JAPRTIOC DS PL7'0' 34, PRINTER I/O COUNT 01-00146 579+* G1 RJE NAKS 0000E6 580+JAPUNIOC DS PL7'0' 35, PUNCH I/O COUNT 01-00148 581+* G3 RJE DATA-CHECKS 0000ED 582+JATAPIOC DS PL7'0' 37, TAPE I/O COUNT 01-00150 583+* G5 RJE # INV-PASSWORDS 0000F4 584+JADSKIOC DS PL7'0' 38 DISK I/O COUNT 01-00152 0000FB 585+JAOTHIOC DS PL7'0' 39, OTHER I/O COUNT 01-00153 586+* F9 RJE OTHER-ERRORS 000102 587+JATOTIOC DS PL7'0' 40 TOTAL COUNT OF ALL I/O 01-00155 000109 588+JAINDXIO DS PL4'0' 78 I/O INDEX 01-00156 589+* 00010D 590+JAAPPCTY DS 0CL1' ' 72 APPC TYPE 01-00158 000C9 591+JAINBND EQU C'I' INBOUND 01-00159 000D6 592+JAOUTBND EQU C'O' OUTBOUND 01-00160 000E3 593+JAAPPX EQU C'T' TRANSACTION 01-00161 594+* 00010D 595+JAMEMORY DS CL1' ' 72 STORAGE INDICATOR 01-00163 000D9 596+JAREAL EQU C'R' REAL "R" STORAGE 01-00164 000E5 597+JAVIRT EQU C'V' VIRTUAL "V" STORAGE 01-00165 598+*
_ PAGE 13 _ LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 11.49 02/28/98 00010E 599+JAPAGEIN DS PL7'0' 73 PAGE-IN COUNT 01-00167 000115 600+JAPAGEOT DS PL7'0' 75 PAGE-OUT COUNT 01-00168 00011C 601+JAPAGETL DS PL7'0' 76 TOTAL PAGING COUNT 01-00169 000123 602+JAPAGERT DS PL4'0' 77 CPU PAGING RATE= 01-00170 603+* (PAGE-TOTAL/CPU-TIME) * 3600 = (PAGES/SECOND) 000127 604+JAPAGEEL DS PL4'0' 76 ELAPSED PAGING RATE= 01-00172 605+* (PAGE-TOTAL/ELAPSED-TIME) * 60 = (PAGES/MINUTE) 606+* 00012B 607+JAGROUP1 DS CL1' ' 84 GROUP CODE #1 01-00175 00012C 608+JAGROUP2 DS CL1' ' 85 GROUP CODE #2 01-00176 00012D 609+JAGROUP3 DS CL1' ' 86 GROUP CODE #3 01-00177 610+* 00012E 611+JAJOBTYP DS 0CL1' ' JOB TYPE 01-00179 000C1 612+JAJAPPC EQU C'A' APPC 01-00180 000E2 613+JAJSNA EQU C'S' SNA RJE 01-00181 000C2 614+JAJBSC EQU C'B' BSC RJE 01-00182 000E2 615+JAJSTC EQU C'S' STC 01-00183 000D1 616+JAJJOB EQU C'J' JOB 01-00184 000E3 617+JAJTSU EQU C'T' TSU 01-00185 0006F 618+JAJOTH EQU C'?' OTHER 01-00186 619+* 00012E 620+JAPARTID DS CL2' ' 87 PARTITION ID 01-00188 000130 621+JAIDEVNM DS CL8' ' INPUT DEVICE NAME 01-00189 000138 622+JARDRDUR DS PL6'0' 88 READER DURATION HOURS (999999V99999) 01-00190 00013E 623+JAWTRDUR DS PL6'0' 89 WRITER DURATION HOURS (999999V99999) 01-00191 624+* 000144 625+JANSWAPS DS PL7'0' A1 NUMBER OF SWAPS 01-00193 00014B 626+JASPAGEI DS PL7'0' A2 SWAP PAGES-IN 01-00194 000152 627+JASPAGEO DS PL7'0' A3 SWAP PAGES-OUT 01-00195 000159 628+JASPAGET DS PL7'0' A4 TOTAL SWAP PAGES 01-00196 629+* 630+* DEVICE COUNTS BY DEVICE TYPE: 631+* 000160 632+JARDRUSE DS PL2'0' 92 NUMBER OF READERS USED 01-00200 000162 633+JAPRTUSE DS PL2'0' 93 NUMBER OF PRINTERS USED 01-00201 000164 634+JAPUNUSE DS PL2'0' 94 NUMBER OF PUNCHES USED 01-00202 000166 635+JATAPUSE DS PL2'0' 95 NUMBER OF TAPES USED 01-00203 000168 636+JADSKUSE DS PL2'0' 96 NUMBER OF DISKS USED 01-00204 00016A 637+JAOTHUSE DS PL2'0' 98 NUMBER OF OTHER DEVICES USED 01-00205 00016C 638+JAPVTUSE DS PL2'0' 97 NUMBER OF PRIVATE DISKS USED 01-00206 00016E 639+JATOTUSE DS PL2'0' 32 TOTAL OF ALL DEVICES USED 01-00207 640+* 000170 641+JATPUTS DS PL4'0' A5 TPUTS 01-00209 000174 642+JATGETS DS PL4'0' A6 TGETS 01-00210 643+* 000178 644+JAACTVTM DS PL6'0' A7, ACTIVE TIME HOURS (999999V99999) 01-00212 645+* A8, 646+* A9 00017E 647+JACONNTM DS PL6'0' B0, CONNECT TIME HOURS (999999V99999) 01-00215 648+* B1, 649+* B2 000184 650+JAALDLTM DS PL6'0' B8, ALLOC. DEL. TIME HOURS (999999V99999) 01-00218 651+* B9, 652+* C0 00018A 653+JARESDTM DS PL6'0' C1, RESIDENT TIME HOURS (999999V99999) 01-00222
_ PAGE 14 _ LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 11.49 02/28/98 654+* C2, 655+* C3 000190 656+JACPUSRB DS PL6'0' C4, CPU TIME (SRB) HOURS (999999V99999) 01-00225 657+* C5, 658+* C6 000196 659+JACPUTCB DS PL6'0' C7, CPU TIME (TCB) HOURS (999999V99999) 01-00228 660+* C8, 661+* C9 00019C 662+JASVCUNT DS PL6'0' D1 SERVICE UNITS 01-00231 0001A2 663+JASVCRT DS PL3'0' D2 SERVICE RATE= (999V99) 01-00232 664+* (SERVICE-UNITS/ACTUAL-TIME) * 3600 = SERVICE-UNITS/SECOND 0001A5 665+JACPUIDX DS PL2'0' D0 CPU INDEX = (9V99) 01-00234 666+* (CPUSRB/CPU-TIME) * 100 = SRB % OF TOTAL 0001A7 667+JAPAGESS DS PL6'0' D3 PAGE SECONDS 01-00236 0001AD 668+JAPERGRP DS CL3'0' D4 PERFORMANCE GROUP 01-00237 0001B0 669+JAIROUTE DS CL3' ' B6 INPUT ROUTE CODE ZZ9 01-00238 0001B3 670+JAPROUTE DS CL3' ' B7 PRINT ROUTE CODE ZZ9 01-00239 671+* 672+* JOB RESTART FLAGS: 673+* 0001B6 674+JAJOBRQI DS 0CL2 B5 JOB REQUEUED INDICATOR 01-00243 0001B6 675+JAWRSTRT DS CL1' ' '1'=JOB WAS RESTARTED. 01-00244 0001B7 676+JAIRSTRT DS CL1' ' '1'=JOB IS A RESTART. 01-00245 0001B8 677+JADTIND DS CL1'0' D5, DAY-OF-WEEK-IND. 01-00247 678+* D6 0001B9 679+JAGROUP4 DS CL1' ' D7 GROUP-CODE-4. 01-00249 0001BA 680+JAGROUP5 DS CL1' ' D8 GROUP-CODE-5. 01-00250 0001BB 681+JAGROUP6 DS CL1' ' D9 GROUP-CODE-6. 01-00251 0001BC 682+JAFORMCT DS PL2'0' E0 #FORMS ENTRIES. 01-00252 0001BE 683+JASOUTGP DS 0CL22 01-00253 0001BE 684+JAPRTCLS DS CL1' ' E1 PRINT-CLASS. 01-00254 0001BF 685+JASYSOTP DS CL1'1' E2 SYSOUT-TYPE (P=PRT,C=PUN) 01-00255 0001C0 686+JAOPRICD DS CL1' ' E3 OPR-INTV-CD. 01-00256 0001C1 687+JAOUTDNM DS CL8' ' E4 OUTPUT-DEVICE-NAME. 01-00257 0001C9 688+JALINEPT DS PL6'0' 19 LINES PRINTED 01-00258 0001CF 689+JAPAGEPN DS PL5'0' E6 STANDARD-PAGES-PRINTED. 01-00259 0001D4 690+JAPAGEPS DS PL5'0' E7 SPECIAL-PAGES-PRINTED. 01-00260 0001D9 691+JAPAGEPT DS PL5'0' E8 TOTAL-PAGES-PRINTED. 01-00261 0001DE 692+JATAPMTS DS PL4'0' F0 #TAPES-MOUNTED. 01-00262 0001E2 693+JADSKMTS DS PL4'0' F1 #DISKS-MOUNTED. 01-00263 0001E6 694+JAABSORP DS PL4'0' E9 ABSORPTION-RATE. 01-00264 0001EA 695+JAACCT2 DS CL16' ' F2 2ND 16 BYTE ACCT-FIELD. 01-00265 0001FA 696+JAACCT3 DS CL16' ' F3 3RD 16 BYTE ACCT-FIELD. 01-00266 00020A 697+JAUSRCHR DS CL16' ' F4 USER 16 BYTE CHAR-FLD. 01-00267 00021A 698+JAUSRCT DS PL5'0' F5 USER-INTEGER-CNT-FLD. 01-00268 00021F 699+JAUSRTM DS PL5'0' F6 USER TIME-FLD. S9999V99999 HOURS. 01-00269 000224 700+JARSRVD1 DS CL6' ' 6 BYTE-RESERVED AREA. 01-00270 701+* 0022A 702+JAENDCOM EQU * END OF COMMON AREA 01-00276 00226 703+JACOMLEN EQU *-JACPUID COMMON AREA LENGTH 01-00277 704+* 705+* S U M M A R Y RECORD ONLY FIELDS 706+* 00022A 707+JAPROCTM DS PL6'0' 29, PROC. TIME HOURS (999999V99999) 01-00281 708+* 69
_ PAGE 15 _ LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 11.49 02/28/98 000230 709+JAPROCHG DS PL6'0' 44 PROC. CHARGE DOLLARS (999999999V99) 01-00283 000236 710+JAIOTIME DS PL6'0' 30, I/O TIME HOURS (999999V99999) 01-00284 711+* 70 00023C 712+JAIOCHG DS PL6'0' 45 I/O CHARGE DOLLARS (999999999V99) 01-00286 000242 713+JAURCHG DS PL5'0' 54 U/R CHARGE DOLLARS (9999999V99) 01-00287 000247 714+JASETCHG DS PL5'0' 55 SET-UP CHARGE DOLLARS (9999999V99) 01-00288 00024C 715+JATOTCHG DS PL6'0' 46 TOTAL CHARGE DOLLARS (999999999V99) 01-00289 000252 716+JACHGSUF DS CL1' ' CHARGE SUFFIX 01-00290 000253 717+JAADJTRT DS PL6'0' RESERVED (ADJ. RATE) (999999999V99) 01-00291 000259 718+JACONCHG DS PL5'0' B3 CONNECT CHARGE DOLLARS (9999999V99) 01-00293 00025E 719+JARJECHG DS PL5'0' G9 RJE CHARGE DOLLARS (9999999V99) 01-00295 000263 720+JACLASCD DS PL1'0' CLASS CODE 01-00297 00264 721+JAENDSUM EQU * END OF SUMMARY RECORDS ONLY FIELDS 01-00298 0003A 722+JASUMLEN EQU *-JAPROCTM LENGTH OF SUMMARY ONLY PORTION 01-00299 723+* 724+* SYSOUT TABLE (0-16 50-BYTE ENTRIES) ### SUMMARY RECORD ### 725+* BASED ON 'J.FORMCT' 726+* 000264 727+JASSYSTB DS 0CL50 50-BYTE-SYSOUT-TBL. 01-00305 000264 728+JASSYSDT DS CL6' ' SYSOUT-START-DT. YYMMDD 01-00306 00026A 729+JASSYSIT DS PL3'0' SYSOUT-START-TIME. SECONDS 01-00307 00026D 730+JASSYSET DS PL3'0' SYSOUT-STOP-TIME. SECONDS 01-00308 000270 731+JASSYSDR DS PL4'0' SYSOUT-DURATION. HOURS 99V99999 01-00309 000274 732+JASSYSGP DS 0CL22 SYSOUT-GROUP-FLD. 01-00310 000274 733+JASSYSCL DS CL1' ' SYSOUT-CLASS. 01-00311 000275 734+JASSYSTP DS CL1' ' SYSOUT-TYPE. 1=STD PRT,2=SPCL PRT, 01-00312 735+* 3=STD PUN,4=SPCL PUN 000276 736+JASSYSIC DS CL1' ' SYSOUT-OP-INT-CD. 01-00314 000277 737+JASSYSDN DS CL8' ' SYSOUT-OUTPUT-DEVICE-NAME. 01-00315 00027F 738+JASSYSLN DS PL6'0' SYSOUT-LINES-PRINTED. 01-00316 000285 739+JASSYSPG DS PL5'0' SYSOUT-PAGES-PRINTED. 01-00317 00028A 740+JASSYSFI DS CL4' ' SYSOUT-FORMS-ID. 01-00318 00028E 741+JASSYSRC DS CL3' ' SYSOUT-ROUTE-CD. 01-00319 000291 742+JASSYSCH DS PL5'0' SYSOUT-CHARGE DOLLARS (9999999V99) 01-00320 000296 743+JASSYNX DS 0CL50 NEXT SYSOUT-TABLE-ENTRY 01-00321 000296 00264 744+ ORG JAENDSUM 01-00322 745+* 746+* IO DEVICE TABLE (0-256 8-BYTE ENTRIES) ### SUMMARY RECORD ### 747+* BASED ON THE TOTAL OF ALL DEVICES 'J.TOTUSE' 748+* 000264 749+JASDEVTB DS 0CL8 IO DEVICE TABLE. 01-00328 750+* 000264 751+JASDEVTY DS PL1'0' DEVICE TYPE (1-7). 01-00330 0001C 752+JARDRDEV EQU X'1C' P'1' READER 01-00331 0002C 753+JAPRTDEV EQU X'2C' P'2' PRINTER 01-00332 0003C 754+JAPUNDEV EQU X'3C' P'3' PUNCH 01-00333 0004C 755+JATAPDEV EQU X'4C' P'4' TAPE 01-00334 0005C 756+JADSKDEV EQU X'5C' P'5' DISK 01-00335 0006C 757+JAOTHDEV EQU X'6C' P'6' OTHER 01-00336 0007C 758+JAPVTDEV EQU X'7C' P'7' PRIVATE DISK 01-00337 000265 759+JASDEVAD DS CL3' ' CHANNEL/UNIT ADDRESS (EBCDIC). 01-00338 000268 760+JASDEVIO DS PL4'0' EXCP COUNT FOR DEVICE. 01-00339 761+* 762+* 763+* A C C O U N T RECORD ONLY FIELDS
_ PAGE 16 _ LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 11.49 02/28/98 764+* 00026C 0022A 765+ ORG JAENDCOM 01-00344 766+* 767+* SYSOUT TABLE (0-16 50-BYTE ENTRIES) ### SUMMARY RECORD ### 768+* BASED ON 'J.FORMCT' 769+* 770+* 00022A 771+JAASYSTB DS 0CL50 50-BYTE-SYSOUT-TBL. 01-00351 00022A 772+JAASYSDT DS CL6' ' SYSOUT-START-DT. YYMMDD 01-00352 000230 773+JAASYSIT DS PL3'0' SYSOUT-START-TIME. SECONDS 01-00353 000233 774+JAASYSET DS PL3'0' SYSOUT-STOP-TIME. SECONDS 01-00354 000236 775+JAASYSDR DS PL4'0' SYSOUT-DURATION. HOURS 99V99999 01-00355 00023A 776+JAASYSGP DS 0CL22 SYSOUT-GROUP-FLD. 01-00356 00023A 777+JAASYSCL DS CL1' ' SYSOUT-CLASS. 01-00357 00023B 778+JAASYSTP DS CL1' ' SYSOUT-TYPE. 1=STD PRT,2=SPCL PRT, X01-00358 + 3=STD PUN,4=SPCL PUN 00023C 779+JAASYSIC DS CL1' ' SYSOUT-OP-INT-CD. 01-00359 00023D 780+JAASYSDN DS CL8' ' SYSOUT-OUTPUT-DEVICE-NAME. 01-00360 000245 781+JAASYSLN DS PL6'0' SYSOUT-LINES-PRINTED. 01-00361 00024B 782+JAASYSPG DS PL5'0' SYSOUT-PAGES-PRINTED. 01-00362 000250 783+JAASYSFI DS CL4' ' SYSOUT-FORMS-ID. 01-00363 000254 784+JAASYSRC DS CL3' ' SYSOUT-ROUTE-CD. 01-00364 000257 785+JAASYCH DS PL5'0' SYSOUT-CHARGE DOLLARS (9999999V99) 01-00365 00025C 786+JAASYNX DS 0CL50 NEXT SYSOUT-TABLE-ENTRY 01-00366 00025C 0022A 787+ ORG JAENDCOM 01-00367 788+* 789+* IO DEVICE TABLE (0-256 8-BYTE ENTRIES) ### ACCOUNT RECORD ### 790+* BASED ON THE TOTAL OF ALL DEVICES 'J.TOTUSE' 791+* 00022A 792+JAADEVTB DS 0CL8 IO DEVICE TABLE. 01-00373 793+* 00022A 794+JAADEVTY DS PL1'0' DEVICE TYPE (1-7). 01-00375 00022B 795+JAADEVAD DS CL3' ' CHANNEL/UNIT ADDRESS (EBCDIC). 01-00376 00022E 796+JAADEVIO DS PL4'0' EXCP COUNT FOR DEVICE. 01-00377 000232 00296 797+ ORG 01-00378 798+* 799+* S P E C I A L RECORD ONLY FIELDS (POST SORT RECORD) 800+* 000296 00264 801+ ORG JAENDSUM 01-00384 802+* 000264 803+JACNTL01 DS 0XL32 XC WORK AREA FIELDS FOR "JSIRPG6" 01-00386 000264 804+JASUMJOB DS PL5'0' 14 TOTAL JOBS ** SUMMARY ** 01-00387 000269 805+JASUMSTP DS PL4'0' 56 TOTAL STEPS ** SUMMARY ** 01-00388 00026D 806+JASUMSES DS PL4'0' H3 TOTAL SESSIONS ** SUMMARY ** 01-00389 000271 807+JASUMTSO DS PL5'0' B4 TSO SESSIONS ** SUMMARY ** 01-00390 000276 808+JAURIOC DS PL5'0' 36 TOTAL UNIT RECORD I/O COUNT (999999999) 01-00391 00027B 809+JATOTIME DS PL6'0' 66 TOTAL TIME HOURS (999999V99999) 01-00392 000281 810+JASELFLG DS XL1'00' XR SORT SELECTION REASON FLAG (JSIMOVEA) 01-00393 00001 811+JASELSUM EQU X'01' SELECTED FOR SUMMARY FILE CREATION 01-00394 00010 812+JASELACM EQU X'10' SELECTED FOR REPORT ACCUMULATION 01-00395 00020 813+JASELPRT EQU X'20' SELECTED FOR REPORT DETAIL PRINTING 01-00396 000282 814+JAPROCIB DS XL2'0000' XP PROCESS ID - CONVERTED FOR BIT TESTING 01-00397 815+* 000284 816+JADEV001 DS PL4'0' G0 01-00399 000288 817+JADEV002 DS PL4'0' G0 01-00400
_ PAGE 17 _ LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 11.49 02/28/98 00028C 818+JADEV003 DS PL4'0' G0 01-00401 000290 819+JADEV004 DS PL4'0' G0 01-00402 000294 820+JADEV005 DS PL4'0' G0 EXPANDED DEVADDR 01-00403 000298 821+JADEV006 DS PL4'0' G0 01-00404 00029C 822+JADEV007 DS PL4'0' G0 ENTRIES AREA 01-00405 0002A0 823+JADEV008 DS PL4'0' G0 01-00406 0002A4 824+JADEV009 DS PL4'0' G0 01-00407 0002A8 825+JADEV010 DS PL4'0' G0 01-00408 0002AC 826+JADEV011 DS PL4'0' G0 01-00409 0002B0 827+JADEV012 DS PL4'0' G0 01-00410 0002B4 828+JADEV013 DS PL4'0' G0 01-00411 0002B8 829+JADEV014 DS PL4'0' G0 01-00412 0002BC 830+JADEV015 DS PL4'0' G0 01-00413 0002C0 831+JADEV016 DS PL4'0' G0 01-00414 0002C4 832+JADEV017 DS PL4'0' G0 01-00415 0002C8 833+JADEV018 DS PL4'0' G0 01-00416 0002CC 834+JADEV019 DS PL4'0' G0 01-00417 0002D0 835+JADEV020 DS PL4'0' G0 01-00418 836+* 00014 837+JADEVCNT EQU 20 TOTAL SPECIAL DEVICE ENTRIES 01-00420 838+* 0002D4 839+JASORTKY DS 0CL160 S0 SORT KEY EXPANSION AREAS 01-00422 0002D4 840+JASORTK1 DS CL32' ' S1 01-00423 0002F4 841+JASORTK2 DS CL32' ' S2 01-00424 000314 842+JASORTK3 DS CL32' ' S3 01-00425 000334 843+JASORTK4 DS CL32' ' S4 01-00426 000354 844+JASORTK5 DS CL32' ' S5 01-00427 845+* 000374 846+JAJOB# DS CL5' ' NO. OF JOBS 01-00429 000379 847+JATSU# DS CL5' ' NO. OF STEPS 01-00430 848+* 00037E 0037E 849+ ORG 01-00432 0037E 850+JASPCLEN EQU *-JARDW SPECIAL PORTION LENGTH 01-00434 0037E 851+JAMAXLEN EQU *-JARDW MAXIMUM RECORD LENGTH 01-00440 00037E 0037E 852+ ORG 01-00445
| Copyright © 2012 CA. All rights reserved. |
|