* %GOTO ABDAPLS; /* 00200002
MACRO 00600021
IHAABDA &DSECT=YES 00800002
* */ 00820002
*%ABDAPLS: ; 00850002
* /*******************************************************************/ 00900002
* /* MACMEAN ABDA MEANS ABDUMP AREA */ 00950002
* /* MACCOMP Y-1 SC1CM/PZD81 */ 00960002
* /* MACSTAT Y-1 73045/Y02705 */ 00970002
* /* UPDATED FOR SU 33 12/76 G33SPHW */ 00975033
* /* APAR ZA16374 1/28/77 */ 00977033
* /* APAR ZA25122 9/10/77 */ 00983043
* /* IHAABDA IS A MAP OF THE WORK AREA USED BY SNAP MODULES. PRIOR */ 00990002
* /* TO OS/VS2 RELEASE 2, SNAP WAS REFERRED TO AS ABDUMP. */ 00992002
* /*******************************************************************/ 00994002
* %GOTO ABDAPPLS; /* 00996002
ABDAREA DSECT 01000021
IEZBITS 01050002
ABDTCB DS A ADDRESS OF TCB FOR TASK 01200021
* TO BE DISPLAYED 01400021
ABDCTCB DS A ADDRESS OF CURRENT TCB 01600021
ABDCRB DS A ADDRESS OF ABDUMPS SVRB 01800021
ABDPARMS DS 0CL24 COPY OF ABDUMP PARAMETER LIST 01850033
ABDPID DS CL1 USER SUPPLIED ID FOR DUMP 02200021
ABDFLAG DS B FLAG BYTE 02400002
APFSNAP EQU BIT0 0=SNAP REQUEST 02600002
* 1=SVC DUMP REQUEST 02800002
APFVS2 EQU BIT1 0=OS/VS2 REL.1 03000002
* 1=OS/VS2 REL.2 03200002
APFENVS2 EQU BIT2 1=OS/VS2 ENHANCED SNAP G33SPHW 03250033
APFABEND EQU BIT3 0=ABEND REQUEST 03600002
* 1=SNAP REQUEST 03800002
APFID EQU BIT4 ID SPECIFIED 04000002
APFTCB EQU BIT5 TCB ADDRESS SPECIFIED BY USER 04200002
APFSNAPP EQU BIT6 STORAGE LIST PROVIDED 04400002
APFHDR EQU BIT7 1=STORAGE HEADER SPECIFIED 04420033
* G33SPHW 04450033
DS H RESERVED 04500002
APFSDATA DS B SDATA OPTIONS 04550002
APFNUC EQU BIT0 DUMP PSA, NUCLEUS, LSQA, SQA 04560002
APFSQA EQU BIT1 DUMP SQA 04570002
APFLSQA EQU BIT2 DUMP LSQA 04580002
APFSWA EQU BIT3 DUMP SWA 04590002
APFTRACE EQU BIT4 INCLUDE TRACE TABLES(SUPERVISOR 04592002
* OR GTF) 04594002
APFSUPDA EQU BIT5 FORMAT CONTROL BLOCKS FOR TASK 04596002
APFQCB EQU BIT6 FORMAT ENQ CONTROL BLOCKS FOR 04598002
* TASK 04598402
APFDM EQU BIT7 FORMAT DATA MGT CONTROL BLOCKS 04598633
* G33SPHW 04598833
APFSDAT1 DS B SDATA OPIONS G33SPHW 04598933
APFIO EQU BIT0 FORMAT IOS CONTROL BLOCKS 04599233
* G33SPHW 04599333
APFERR EQU BIT1 FORMAT ERROR CONTROL BLKS 04613533
* G33SPHW 04616533
* EQU BIT2 RESERVED 04619533
* EQU BIT3 RESERVED 04639533
* EQU BIT4 RESERVED 04659533
* EQU BIT5 RESERVED 04760033
* EQU BIT6 RESERVED 04765033
* EQU BIT7 RESERVED 04770033
APFPDATA DS B PDATA OPTIONS 04780033
APFSAVE EQU BIT0 DISPLAY SAVE AREA TRACE 04786033
APFSAVE2 EQU BIT1 0=DISPLAY ENTIRE SAVE AREA 04800002
* 1=DISPLAY HEADINGS ONLY 05000021
APFREGS EQU BIT2 DISPLAY REGISTERS ON ENTRY 05200002
* TO SNAP OR ABEND 05400021
APFLPA EQU BIT3 DISPLAY ACTIVE LPA MODULES 05600002
APFJPA EQU BIT4 DISPLAY JPA MODULES 05800002
APFPSW EQU BIT5 DISPLAY PSW,ILC,INTERRUPT CODE 06000002
APFSPALL EQU BIT6 DISPLAY ALL SUBPOOLS 06200002
* LESS THAN SUBPOOL 128 06400021
* EQU BIT7 RESERVED 06410002
DS B RESERVED 06450002
ABDPDCBP DS A ADDRESS OF DCB FOR DUMP 06600021
* DATA SET 06800021
ABDPTCBP DS A ADDRESS OF TCB TO BE DISPLAYED 07000021
ABDSNAPP DS A ADDRESS OF SNAP LIST 07200021
ABDHDRAD DS A ADDRESS OF HEADER LIST G33SPHW 07240033
* DS CL2 RESERVED ZA25122 07260043
ABDCTR DS CL2 NUMBER OF INDEX ENTRIES G33SPHW 07280033
ABDINXPT DS A POINTER TO INDEX TABLE G33SPHW 07300033
ABDTABPT DS A POINTER TO MODULE TABLE G33SPHW 07320033
ABDPARA DS A ADDRESS OF USER COPY OF 07400021
* PARAMETER LIST 07600021
ABDDECB DS A ADDRESS OF DCB IN SP0 FOR SNAP 09800021
ABDSAVE DS A ADDRESS OF SAVE AREA FOR USE 10000021
* BY OUTPUT 10200021
ABDECB DS F ECB FOR ABDUMP DECB 10400021
ABDTYPE DS CL2 TYPE OF IO REQUEST 10600021
ABDLEN DS H LENGTH OF RECORD TO BE WRITTEN 10800021
ABDDCB DS A ADDRESS OF DCB FOR IO 11000021
ABDPTR DS A ADDRESS OF BUFFER TO BE WRITTEN 11200021
ABDIOBP DS A ADDRESS OF IOB 11400021
ABDLCTR DS H LINE COUNTER 11600021
ABDPCTR DS H PAGE COUNTER 11800021
ABDPTRS DS 0CL12 BLOCKING BUFFER POINTERS 12000021
ABDPTRS1 DS A START OF BUFFER 12200021
ABDPTRS2 DS A NEXT AVAILABLE BYTE OF BUFFER 12400021
ABDPTRS3 DS A END OF BUFFER 12600021
ABDCP DS A ADDRESS OF CURRENT TRACE TABLE 12800021
* ENTRY IN GETMAINED USER CORE 13000021
* AFTER MOVE OF TRACE TABLE 13200021
ABDFP DS A ADDRESS OF FIRST TRACE ENTRY 13400021
ABDLP DS A ADDRESS OF LAST TRACE ENTRY 13600021
ABDCP1 DS A ADDRESS OF CURRENT TRACE TABLE 13800021
* ENTRY IN GETMAINED USER CORE 14000021
* BEFORE MOVE OF TRACE TABLE 14200021
ABDUPRXT DS A ADDRESS OF SPECIFIC EXIT ROUTINE 14400021
* IF UPR EXPECTED, OR ZERO 14600021
ABDRESV3 DS CL4 RESERVED G33SPHW 14620033
ABDWORK1 DS D CONVERT TO DECIMAL WORK AREA 14650002
ABDPGWK DS D INDEX WORKAREA G33SPHW 14700033
ABDFLAG1 DS B FLAG BYTE 14800021
ABDQCBHD EQU BIT0 QUEUE CONTROL BLOCK HEADER HAS 15000002
* BEEN PRINTED 15200021
ABDQCBMJ EQU BIT1 MAJOR QCB HAS BEEN PRINTED 15400002
ABDQCBMN EQU BIT2 MINOR QCB HAS BEEN PRINTED 15600002
ABDLSTHD EQU BIT3 THE STORAGE LIST HEADING LINE 15800002
* HAS BEEN PRINTED 16000021
ABDSQSDM EQU BIT4 SQS HAS BEEN DUMPED 16200002
ABDSVCHD EQU BIT5 THE SVC HEADING LINE HAS 16400002
* BEEN PRINTED 16600021
ABDSPHD EQU BIT6 THE SUBPOOL HEADER HAS BEEN 16800002
* PRINTED 17000021
* 17050033
ABDIDX EQU BIT7 INDEX PROCESSING ACTIVE G33SPHW 17100033
ABDFLAG2 DS B FLAG BYTE 17250002
ABDSUPER EQU BIT0 SUPERVISOR TRACE TO BE PROVIDED 17300002
ABDGTF EQU BIT1 GTF TRACE TO BE PROVIDED 17350002
ABDTRBIT EQU BIT2 0=CORE FREED FOR SUPER TRACE 17400002
* 1=CORE ALLOCATED FOR SUPER TRACE 17450002
ABDTRNAV EQU BIT3 SUPER TRACE NOT AVAILABLE 17500002
ABDGTFCL EQU BIT4 IEAVAD08 ENTERED FOR GTF 17510002
ABDSWAP EQU BIT5 USED BY IEAVAD0D TO DETERMINE 17520002
* OWNERSHIP OF SWA SUBPOOLS 17530002
ABDSTAT EQU BIT6 INDICATE STATUS ISSUED 17540002
ABDLSQA EQU BIT7 IEAVAD0E ENTERED FOR SP229/230 17542033
ABDKEY DS B SAVE KEY FOR MODESET 17550002
ABDRES1 DS B DISPLAY FLAGS G33SPHW 17555033
ABDPSW EQU BIT0 DISPLAY PSW G33SPHW 17560033
ABDREGS EQU BIT1 DISPLAY REGISTERS G33SPHW 17610033
ABDOLSQA EQU BIT2 DISPLAY LSQA IEAVAD0A G33SPHW 17660033
ABDSQA EQU BIT3 DISPLAY SQA IEAVAD0A G33SPHW 17710033
ABDFMTLD EQU BIT4 FORMATTER LOADED G33SPHW 17760033
ABDPGHD EQU BIT5 SKIP LINE AFTER HEADER G33SPHW 17810033
ABDTRSV EQU BIT6 SNAP OBTAINED TRACE COPY 17860033
* ZM45190 17910033
ABDWORK DS CL48 GENERAL WORK AREA 18000021
ABDSSPAR DS CL56 WORKAREA FOR BUILDING PARAMETER 18200002
* LISTS TO SUBSYSTEMS AND 18400021
* FORMATTING ROUTINES OF OTHER 18600021
* COMPONENTS 18800021
ABDBPTR DS A ADDRESS OF CONTROL BLOCK TO 19000021
* BE FORMATTED 19200021
ABDLLINE DS A ADDRESS OF LAYOUT LINE 19400021
ABDLPTR DS A ADDRESS OF NEXT AVAILABLE BYTE 19600021
* OF ABDLINE 19800021
ABDFMTWK DS CL9 WORK AREA FOR FORMAT SUBROUTINE 20000021
ABDUPRF DS B UNDEFINED PAGE REFERENCE FLAGS 20200021
UPRFMAT EQU BIT0 UPR EXPECTED ON THIS CALL TO 20250033
* FORMAT OR FORMAT01 SUBROUTINE 20600021
* @ZA15300 20650033
UPRFMET EQU BIT1 UPR EXPECTED ON THIS CALL TO 20800002
* FORMET 21000021
UPRFMT20 EQU BIT2 UPR EXPECTED ON THIS CALL TO 21200002
* FORMAT20 OR FORMAT22 21400021
ABDUPRFN DS B ACTION REQUESTED BY CALLER IF 21600021
* UPR ENCOUNTERED IN FORMET 21800021
ABDUPRPM EQU BIT0 PRINT A MESSAGE SPECIFYING 22000002
* LOCATIONS X TO Y UNDEFINED,AND 22200021
* CONTINUE WITH NEXT VALID PAGE 22400021
* UNTIL COUNT RUNS OUT 22600021
ABDUPRSL EQU BIT1 SKIP A LINE AND FIND THE NEXT 22800002
* VALID PAGE TO PRINT UNTIL 23000021
* COUNT RUNS OUT. IF ABDUPRPM AND 23200021
* ABDUPRSL ARE BOTH 0, DISCONTINUE 23400021
* PRINTING AND RETURN TO CALLER 23600021
ABDBLNKS DS B BLANK CONTROL 23800021
ABDBLKN3 EQU BIT0 IF ABDBLKN3=0 FORMAT01 WILL 24000002
* PUT 3 BLANKS BETWEEN THE END OF 24200021
* ONE FIELD AND THE BEGINNING 24400021
* OF THE NEXT LABEL.IF ABDBLKN3=1 24600021
* THE NUMBER OF BLANKS SPECIFIED 24800021
* IN BITS 4 TO 7 WILL BE PLACED 25000021
* BETWEEN THE END OF ONE FIELD AND 25200021
* THE BEGINNING OF THE NEXT LABEL 25400021
ABDSTAD DS A LOCATION COUNTER FOR FORMAT20, 25600021
* USED AS A WORK CELL BY FORMET 25800021
ABDBLOCK DS A ADDRESS OF BLOCK OF STORAGE TO 26000021
* BE DUMPED 26200021
ABDLENTH DS F NUMBER OF BYTES OF STORAGE TO 26400021
* BE DUMPED 26600021
ABDSIZE DS F USED TO SAVE SIZE OF BLOCK 26800021
ABDIND DS H INDENTATION FACTOR FOR FIRST 27000021
* LINE TO BE PRINTED 27200021
ABDIDENT DS H NUMBER OF IDENTICAL LINES 27400021
* ENCOUNTERED 27600021
ABDFWORK DS A WORK CELL FOR FORMET ROUTINE 27800021
ABDINCPL DS H LENGTH OF INCOMPLETE LINE 28000021
ABDLLNGH DS B LENGTH OF THE PRINT LINE Z40MPXH 28050040
ABDPCAP DS B MAXIMUM LINES PER PAGE Z40MPXH 28100040
ABDUPRID DS A RETURN ADDRESS FOR IDENTICAL 28400021
* LINE PROCESSING IN FORMET 28600021
ABDSTADS DS A SAVE AREA FOR OLD VALUE OF 28800021
* ABDSTAD 29000021
ABSLCTSV DS A SAVE AREA FOR OLD VALUE OF 29200021
* LINES TO BE PRINTED 29400021
ABDBUFFS DS 0CL8 29450002
ABDBUFAD DS A ADDR OF OUTPUT BUFFER 29500002
ABDBUFS2 DS F SIZE OF OUTPUT BUFFER 29550002
ABDGMA DS 0CL16 WORK AREA FOR BUILDING 29600002
* CONDITIONAL GETMAIN LISTS 29800021
ABDAAREA DS A PDINTER TO ACQUIRED AREA 29850002
ABDASIZE DS F SIZE OF ACQUIRED AREA 29900002
ABDPAREA DS A ADDRESS OF ABDAAREA 29950002
ABDCDID DS CL2 CODE AND SUBPOOL ID 29960002
DS H UNUSED 29970002
ABDSVCB DS A BASE FOR SVC 51 29972002
ABDRTRN DS A ADDRESS OF SVC 51 29980002
ESPARM DS 0CL28 ESTAE PARAMLIST 29985033
ESBSREG DS A BASE REG FOR IEAVAD01 29992002
ESBSREG2 DS A SECOND BASE REG FOR IEAVAD01 29992633
* G33SPHW 29993233
ESAUTOP DS A ADDR OF AUTOMATIC DATA 29994002
EABDAREA DS A ADDR OF SNAP WORK AREA 29996002
EMODNAME DS CL8 MODULE NAME G33SPHW 29997033
ERESTART DS A RESTART ADDR. 29998402
ESTAEFLG DS B FLAG BYTE 29998802
ESUBSYT EQU BIT0 1=SUBSYSTEM RTN. IN CNTRL 29999202
ETCB EQU BIT1 1=TCB VALIDITY CHECK IN PROGRESS 29999602
EDCB EQU BIT2 1=DCB VALIDITY CHECK IN PROGRESS 29999702
DS CL3 RESERVED 29999802
ABDLCNT DS F COUNT OF COMPLETE LINES Z40MPXH 29999940
ABDPHY DS H BUFFER DESCRIPTOR LENGTH Z40MPXH 30003940
ABDSRC1 DS H SYSTEM RESERVED CHARS Z40MPXH 30007940
ABDLOG DS H RECORD DESCRIPTOR LENGTH Z40MPXH 30011940
ABDSRC2 DS H SYSTEM RESERVED CHARS Z40MPXH 30015940
ABDLINEA DS 0CL205 205 CHARACTER REFERENCE FOR 30026040
* ABDCC+ABDLINE Z40MPXH 30030040
ABDCC DS CL1 CARRIAGE CONTROL CHARACTER 30060040
ABDLINE DS CL204 PRINT LINE FOR OUTPUT Z40MPXH 30090040
ABDPADC DS CL3 RESERVED CHARACTERS FOR UNPACK 30097040
* TO END OF ABDLINE Z40MPXH 30104040
ABDSAVHD DS CL80 SAVED HEADING USED TO SAVE A 30108033
* A COPY OF SAVED HEADER PUT ON 30112033
* TOP OF EACH PAGE OF DUMP G33SPHW 30116033
ABDSAVE1 DS A ADDRESS OF SAVE AREA FOR USE 30117033
* BY OUTPUT ZA16374 30118033
ABDTRLN DS CL4 LENGTH OF SAVED TRACE ZA25122 30119043
MEND , */ 30120040
*%ABDAPPLS : ; 30200002
*%IF QZR ^= ' ' %THEN 30250002
*%ABD9999=','; 30300002
*%ELSE 30350002
*%ABD9999=';'; 30360002
*DECLARE 30400021
* 1 ABDAREA BASED(ABDARPTR) BDY(DWORD), 30600021
* 2 ABDTCB PTR(31), /* ADDRESS OF TCB FOR TASK 30800021
* TO BE DISPLAYED */ 31000021
* 2 ABDCTCB PTR(31), /* ADDRESS OF CURRENT TCB */ 31200021
* 2 ABDCRB PTR(31), /* ADDRESS OF ABDUMPS SVRB */ 31400021
* 2 ABDPARMS , /* COPY OF ABDUMP PARAMETER 31600002
* LIST */ 31800021
* 3 ABDPID CHAR(1), /* USER SUPPLIED ID FOR 32000021
* DUMP */ 32200021
* 3 ABDFLAG CHAR(1), /* FLAG BYTE */ 32400002
* 4 APFSNAP BIT(1), /* 0=SNAP REQUEST 32600002
* 1=SVC DUMP REQUEST */ 32650002
* 4 APFVS2 BIT(1), /* 0=OS/VS2 REL.1 32800002
* 1=OS/VS2 REL.2 */ 32850002
* 4 APFENVS2 BIT(1), /* 1=OS/VS2 ENHANCED SNAP 32900033
* @G33SPHW*/ 32950033
* 4 APFABEND BIT(1), /* 0=ABEND REQUEST 33400002
* 1=SNAP REQUEST */ 33600002
* 4 APFID BIT(1), /* ID SPECIFIED */ 33650002
* 4 APFTCB BIT(1), /* TCB ADDRESS SPECIFIED BY 33800002
* USER */ 34000002
* 4 APFSNAPP BIT(1), /* STORAGE LIST PROVIDED */ 34200002
* 4 APFHDR BIT(1), /* 1=STORAGE HEADER 34250033
* SPECIFIED @G33SPHW*/ 34400033
* 3 * CHAR(2), /* RESERVED */ 34600002
* 3 APFSDATA BIT(8), /* SDATA OPTIONS */ 34800002
* 4 APFNUC BIT(1), /* DUMP PSA, NUCLEUS, LSQA 34850002
* SQA */ 34900002
* 4 APFSQA BIT(1), /* DUMP SQA */ 34910002
* 4 APFLSQA BIT(1), /* DUMP LSQA */ 34950002
* 4 APFSWA BIT(1), /* DUMP SWA */ 35000002
* 4 APFTRACE BIT(1), /* INCLUDE TRACE TABLE 35050002
* (SUPERVISOR OR GTF) */ 35100002
* 4 APFSUPDA BIT(1), /* FORMAT CONTROL BLOCKS FOR 35150002
* TASK */ 35160002
* 4 APFQCB BIT(1), /* FORMAT ENQ CONTROL BLOCKS 35170002
* FOR TASK */ 35180002
* 4 APFDM BIT(1), /* FORMAT DATA MGT CONTROL 35185033
* BLOCKS @G33SPHW*/ 35190033
* 3 APFSDAT1 BIT(8), /* SDATA OPTIONS @G33SPHW*/ 35190133
* 4 APFIO BIT(1), /* FORMAT DATA MGT CONTROL 35190433
* BLOCKS @G33SPHW*/ 35190633
* 4 APFERR BIT(1), /* FORMAT ERROR CONTROL 35190833
* BLOCKS @G33SPHW*/ 35191033
* 4 * BIT(6), /* RESERVED */ 35191233
* 3 APFPDATA BIT(8), /* PDATA OPTIONS */ 35200002
* 4 APFSAVE BIT(1), /* DISPLAY SAVE AREA TRACE */ 35400021
* 4 APFSAVE2 BIT(1), /* 0=DISPLAY ENTIRE SAVE 35600021
* AREA 1=DISPLAY HEADINGS 35800021
* ONLY */ 36000021
* 4 APFREGS BIT(1), /* DISPLAY REGISTERS ON 36200021
* ENTRY TO SNAP OR ABEND */ 36400021
* 4 APFLPA BIT(1), /* DISPLAY ACTIVE LPA 36600021
* MODULES */ 36800021
* 4 APFJPA BIT(1), /* DISPLAY JPA MODULES */ 37000021
* 4 APFPSW BIT(1), /* DISPLAY 37200021
* PSW,ILC,INTERRUPT CODE */ 37400021
* 4 APFSPALL BIT(1), /* DISPLAY ALL SUBPOOLS 37600021
* LESS THAN SUBPOOL 128 */ 37800021
* 4 * BIT(1), /* RESERVED */ 38000021
* 3 * BIT(8), /* RESERVED */ 38050002
* 3 ABDPDCBP PTR(31), /* ADDRESS OF DCB FOR DUMP 38200021
* DATA SET */ 38400021
* 3 ABDPTCBP PTR(31), /* ADDRESS OF TCB TO BE 38600021
* DISPLAYED */ 38800021
* 3 ABDSNAPP PTR(31), /* ADDRESS OF SNAP LIST */ 39000021
* 3 ABDHDRAD PTR(31), /* ADDRESS OF HEADER LIST 39020033
* @G33SPHW*/ 39040033
* 2 * FIXED(15), /* RESERVED @ZA25122*/ 39140043
* 2 ABDCTR FIXED(15), /* NUMBER OF INDEX ENTRIES @G33SPHW*/ 39170033
* 2 ABDINXPT PTR(31), /* POINTER TO INDEX TABLE @G33SPHW*/ 39180033
* 2 ABDTABPT PTR(31), /* POINTER TO MODULE TABLE @G33SPHW*/ 39190033
* 2 ABDPARA PTR(31), /* ADDRESS OF USER COPY OF 39200021
* PARAMETER LIST */ 39400021
* 2 ABDDECB PTR(31), /* ADDRESS OF DCB IN SP0 42400021
* FOR SNAP */ 42600021
* 2 ABDSAVE PTR(31), /* ADDRESS OF SAVE AREA FOR 42800021
* USE BY OUTPUT */ 43000021
* 2 ABDECB FIXED(31), /* ECB FOR ABDUMP DECB */ 43200021
* 2 ABDTYPE CHAR(2), /* TYPE OF IO REQUEST */ 43400021
* 2 ABDLEN FIXED(15), /* LENGTH OF RECORD TO BE 43600021
* WRITTEN */ 43800021
* 2 ABDDCB PTR(31), /* ADDRESS OF DCB FOR IO */ 44000021
* 2 ABDPTR PTR(31), /* ADDRESS OF BUFFER TO BE 44200021
* WRITTEN */ 44400021
* 2 ABDIOBP PTR(31), /* ADDRESS OF IOB */ 44600021
* 2 ABDLCTR FIXED(15), /* LINE COUNTER */ 44800021
* 2 ABDPCTR FIXED(15), /* PAGE COUNTER */ 45000021
* 2 ABDPTRS , /* BLOCKING BUFFER POINTERS */ 45200002
* 3 ABDPTRS1 PTR(31), /* START OF BUFFER */ 45400021
* 3 ABDPTRS2 PTR(31), /* NEXT AVAILABLE BYTE OF 45600021
* BUFFER */ 45800021
* 3 ABDPTRS3 PTR(31), /* END OF BUFFER */ 46000021
* 2 ABDCP PTR(31), /* ADDRESS OF CURRENT TRACE 46200021
* TABLE ENTRY IN 46400021
* GETMAINED USER CORE 46600021
* AFTER MOVE OF TRACE 46800021
* TABLE */ 47000021
* 2 ABDFP PTR(31), /* ADDRESS OF FIRST TRACE 47200021
* ENTRY */ 47400021
* 2 ABDLP PTR(31), /* ADDRESS OF LAST TRACE 47600021
* ENTRY */ 47800021
* 2 ABDCP1 PTR(31), /* ADDRESS OF CURRENT TRACE 48000021
* TABLE ENTRY IN 48200021
* GETMAINED USER CORE 48400021
* BEFORE MOVE OF TRACE 48600021
* TABLE */ 48800021
* 2 ABDUPRXT PTR(31), /* ADDRESS OF SPECIFIC EXIT 49000021
* ROUTINE IF UPR EXPECTED, 49200021
* OR ZERO */ 49400021
* 2 ABDRESV3 CHAR(4), /* RESERVED @G33SPHW*/ 49420033
* 2 ABDWORK1 CHAR(8) BDY(DWORD), /* CONVERT TO DECIMAL WORK 49450002
* AREA */ 49550002
* 2 ABDPGWK CHAR(8) BDY(DWORD), /* INDEX WORKAREA @G33SPHW*/ 49570033
* 2 ABDFLAG1 CHAR(1), /* FLAG BYTE */ 49600021
* 3 ABDQCBHD BIT(1), /* QUEUE CONTROL BLOCK 49800021
* HEADER HAS BEEN PRINTED */ 50000021
* 3 ABDQCBMJ BIT(1), /* MAJOR QCB HAS BEEN 50200021
* PRINTED */ 50400021
* 3 ABDQCBMN BIT(1), /* MINOR QCB HAS BEEN 50600021
* PRINTED */ 50800021
* 3 ABDLSTHD BIT(1), /* THE STORAGE LIST HEADING 51000021
* LINE HAS BEEN PRINTED */ 51200021
* 3 ABDSQSDM BIT(1), /* SQS HAS BEEN DUMPED */ 51400021
* 3 ABDSVCHD BIT(1), /* THE SVC HEADING LINE HAS 51600021
* BEEN PRINTED */ 51800021
* 3 ABDSPHD BIT(1), /* THE SUBPOOL HEADER HAS 52000021
* BEEN PRINTED */ 52200021
* 3 ABDIDX BIT(1), /* INDEX PROCESSING ACTIVE 52250033
* @G33SPHW*/ 52400033
* 2 ABDFLAG2 CHAR(1), /* FLAG BYTE */ 52600002
* 3 ABDSUPER BIT(1), /* SUPERVISOR TRACE TO BE 52800002
* PROVIDED */ 52850002
* 3 ABDGTF BIT(1), /* GTF TRACE TO BE PROVIDED */ 52900002
* 3 ABDTRBIT BIT(1), /* 0=CORE FREED FOR SUPER 52950002
* TRACE 52960002
* 1=CORE ALLOCATED FOR 52970002
* SUPER TRACE */ 52980002
* 3 ABDTRNAV BIT(1), /* SUPER TRACE NOT AVAILABLE*/ 52990002
* 3 ABDGTFCL BIT(1), /* IEAVAD08 ENTERED FOR GTF */ 52990402
* 3 ABDSWAP BIT(1), /* USED BY IEAVAD0D TO 52990802
* DETERMINE OWNERSHIP OF 52991002
* SWA SUBPOOLS */ 52991202
* 3 ABDSTAT BIT(1), /* INDICATE STATUS ISSUED */ 52991402
* 3 ABDLSQA BIT(1), /* IEAVAD0E ENTERED FOR 52991533
* SP229/230 */ 52991802
* 2 ABDKEY CHAR(1), /* SAVE KEY FOR MODESET */ 52992002
* 2 ABDRES1 CHAR(1), /* DISPLAY FLAGS @G33SPHW*/ 52993033
* 3 ABDPSW BIT(1), /* DISPLAY PSW @G33SPHW*/ 52994033
* 3 ABDREGS BIT(1), /* DISPLAY REGS @G33SPHW*/ 53044033
* 3 ABDOLSQA BIT(1), /* DISPLAY LSQA @G33SPHW*/ 53054033
* 3 ABDSQA BIT(1), /* DISPLAY SQA @G33SPHW*/ 53064033
* 3 ABDFMTLD BIT(1), /* FORMATTER LOADED @G33SPHW*/ 53074033
* 3 ABDPGHD BIT(1), /* HEADER PRINTED @G33SPHW*/ 53084033
* 3 ABDTRSV BIT(1), /* SNAP OBTAINED TRACE COPY 53086033
* @ZM45190*/ 53088033
* 3 * BIT(1), /* RESERVED @ZM45190*/ 53090033
* 2 ABDWORK CHAR(48), /* GENERAL WORK AREA */ 53400021
* 2 ABDSSPAR CHAR(56), /* WORKAREA FOR BUILDING 53600002
* PARAMETER LISTS TO 53800021
* SUBSYSTEMS AND 54000021
* FORMATTING ROUTINES OF 54200021
* OTHER COMPONENTS */ 54400021
* 2 ABDBPTR PTR(31), /* ADDRESS OF CONTROL BLOCK 54600021
* TO BE FORMATTED */ 54800021
* 2 ABDLLINE PTR(31), /* ADDRESS OF LAYOUT LINE */ 55000021
* 2 ABDLPTR PTR(31), /* ADDRESS OF NEXT 55200021
* AVAILABLE BYTE OF 55400021
* ABDLINE */ 55600021
* 2 ABDFMTWK CHAR(9), /* WORK AREA FOR FORMAT 55800021
* SUBROUTINE */ 56000021
* 2 ABDUPRF CHAR(1), /* UNDEFINED PAGE REFERENCE 56200021
* FLAGS */ 56400021
* 3 UPRFMAT BIT(1), /* UPR EXPECTED ON THIS 56600021
* CALL TO FORMAT OR 56800021
* FORMAT01 SUBROUTINE */ 57000021
* 3 UPRFMET BIT(1), /* UPR EXPECTED ON THIS 57200021
* CALL TO FORMET */ 57400021
* 3 UPRFMT20 BIT(1), /* UPR EXPECTED ON THIS 57600021
* CALL TO FORMAT20 OR 57800021
* FORMAT22 */ 58000021
* 3 * BIT(1), /* RESERVED */ 58200021
* 3 * BIT(1), /* RESERVED */ 58400021
* 3 * BIT(1), /* RESERVED */ 58600021
* 3 * BIT(1), /* RESERVED */ 58800021
* 3 * BIT(1), /* RESERVED */ 59000021
* 2 ABDUPRFN CHAR(1), /* ACTION REQUESTED BY 59200021
* CALLER IF UPR 59400021
* ENCOUNTERED IN FORMET */ 59600021
* 3 ABDUPRPM BIT(1), /* PRINT A MESSAGE 59800021
* SPECIFYING LOCATIONS X 60000021
* TO Y UNDEFINED,AND 60200021
* CONTINUE WITH NEXT VALID 60400021
* PAGE UNTIL COUNT RUNS 60600021
* OUT */ 60800021
* 3 ABDUPRSL BIT(1), /* SKIP A LINE AND FIND THE 61000021
* NEXT VALID PAGE TO 61200021
* PRINT UNTIL COUNT RUNS 61400021
* OUT. IF ABDUPRPM AND 61600021
* ABDUPRSL ARE BOTH 0, 61800021
* DISCONTINUE PRINTING AND 62000021
* RETURN TO CALLER */ 62200021
* 3 * BIT(1), /* RESERVED */ 62400021
* 3 * BIT(1), /* RESERVED */ 62600021
* 3 * BIT(1), /* RESERVED */ 62800021
* 3 * BIT(1), /* RESERVED */ 63000021
* 3 * BIT(1), /* RESERVED */ 63200021
* 3 * BIT(1), /* RESERVED */ 63400021
* 2 ABDBLNKS CHAR(1), /* BLANK CONTROL */ 63600021
* 3 ABDBLKN3 BIT(1), /* IF ABDBLKN3=0 FORMAT01 63800021
* WILL PUT 3 BLANKS 64000021
* BETWEEN THE END OF ONE 64200021
* FIELD AND THE BEGINNING 64400021
* OF THE NEXT LABEL.IF 64600021
* ABDBLKN3=1 THE NUMBER 64800021
* OF BLANKS SPECIFIED IN 65000021
* BITS 4 TO 7 WILL BE 65200021
* PLACED BETWEEN THE END 65400021
* OF ONE FIELD AND THE 65600021
* BEGINNING OF THE NEXT 65800021
* LABEL */ 66000021
* 3 * BIT(1), /* RESERVED */ 66200021
* 3 * BIT(1), /* RESERVED */ 66400021
* 3 * BIT(1), /* RESERVED */ 66600021
* 3 * BIT(1), /* RESERVED */ 66800021
* 3 * BIT(1), /* RESERVED */ 67000021
* 3 * BIT(1), /* RESERVED */ 67200021
* 3 * BIT(1), /* RESERVED */ 67400021
* 2 ABDSTAD PTR(31), /* LOCATION COUNTER FOR 67600021
* FORMAT20, USED AS A 67800021
* WORK CELL BY FORMET */ 68000021
* 2 ABDBLOCK PTR(31), /* ADDRESS OF BLOCK OF 68200021
* STORAGE TO BE DUMPED */ 68400021
* 2 ABDLENTH FIXED(31), /* NUMBER OF BYTES OF 68600021
* STORAGE TO BE DUMPED */ 68800021
* 2 ABDSIZE FIXED(31), /* USED TO SAVE SIZE OF 69000021
* BLOCK */ 69200021
* 2 ABDIND FIXED(15), /* INDENTATION FACTOR FOR 69400021
* FIRST LINE TO BE 69600021
* PRINTED */ 69800021
* 2 ABDIDENT FIXED(15), /* NUMBER OF IDENTICAL 70000021
* LINES ENCOUNTERED */ 70200021
* 2 ABDFWORK PTR(31), /* WORK CELL FOR FORMET 70400021
* ROUTINE */ 70600021
* 2 ABDINCPL FIXED(15), /* LENGTH OF INCOMPLETE 70800021
* LINE */ 71000021
* 2 ABDLLNGH FIXED(8), /* PRINT LINE LENGTH@Z40MPXH*/ 71050040
* 2 ABDPCAP FIXED(8), /* LINES PER PAGE @Z40MPXH*/ 71100040
* 2 ABDUPRID PTR(31), /* RETURN ADDRESS FOR 71400021
* IDENTICAL LINE 71600021
* PROCESSING IN FORMET */ 71800021
* 2 ABDSTADS PTR(31), /* SAVE AREA FOR OLD VALUE 72000021
* OF ABDSTAD */ 72200021
* 2 ABSLCTSV PTR(31), /* SAVE AREA FOR OLD VALUE 72400021
* OF LINES TO BE PRINTED */ 72410002
* 2 ABDBUFFS , 72450002
* 3 ABDBUFAD PTR(31), /* ADDR OF OUTPUT BUFFER */ 72500002
* 3 ABDBUFSZ FIXED(31), /* SIZE OF OUTPUT BUFFER */ 72550002
* 2 ABDGMA , /* WORK AREA FOR BUILDING 72800002
* CONDITIONAL GETMAIN 73000021
* LISTS */ 73200021
* 3 ABDAAREA PTR(31), /* POINTER TO ACQUIRED AREA */ 73250002
* 3 ABDASIZE FIXED(31), /* SIZE OF ACQUIRED AREA */ 73300002
* 3 ABDPAREA PTR(31), /* ADDRESS OF ABDAAREA */ 73350002
* 3 ABDCDID CHAR(2), /* CODE AND SUBPOOL ID */ 73400002
* 3 * CHAR(2), /* UNUSED */ 73450002
* 2 ABDSVCB PTR(31), /* BASE FOR SVC 51 */ 73500002
* 2 ABDRTRN PTR(31), /* ADDRESS OF SVC 51 */ 73550002
* 2 ESPARM, /* ESTAE PARMLIST */ 73600002
* 3 ESBSREG PTR(31), /* BASE REG FOR IEAVAD01 */ 73600102
* 3 ESBSREG2 PTR(31), /* SECOND BASE REG FOR 73600433
* IEAVAD01 @G33SPHW*/ 73600733
* 3 ESAUTOP PTR(31), /* ADDR OF AUTOMATIC DATA */ 73601033
* 3 EABDAREA PTR(31), /* ADDR OF SNAP WORK AREA */ 73601133
* 3 EMODNAME CHAR(8), /* MODULE NAME @G33SPHW*/ 73601333
* 3 ERESTART PTR(31), /* RESTART ADDR */ 73605102
* 3 ESTAEFLG CHAR(1), /* FLAGS BYTE */ 73605502
* 4 ESUBSYT BIT(1), /* 1=SUBSYSTEM RTN IN CNTRL */ 73605902
* 4 ETCB BIT(1), /* 1=TCB VALIDITY CHECK IN 73606902
* PROGRESS */ 73608902
* 4 EDCB BIT(1), /* 1=DCB VALIDITY CHECK IN 73611502
* PROGRESS */ 73613502
* 4 * BIT(5), /* RESERVED */ 73613902
* 3 * CHAR(3), /* RESERVED @Z40MPXH*/ 73614340
* 2 ABDLCNT PTR(31), /* COUNT OF CONPLETE LINES 73614440
* @Z40MPXH*/ 73614540
* 2 ABDPHY FIXED(15), /* BUFFER DESCRIPTOR 73614640
* LENGTH @Z40MPXH*/ 73614740
* 2 ABDSRC1 FIXED(15), /* SYSTEM RESERVED 73614840
* CHARACTERS @Z40MPXH*/ 73614940
* 2 ABDLOG FIXED(15), /* RECORD DESCRIPTOR 73615040
* LENGTH @Z40MPXH*/ 73615140
* 2 ABDSRC2 FIXED(15), /* SYSTEM RESERVED 73615240
* CHARACTERS @Z40MPXH*/ 73615340
* 2 ABDLINEA CHAR(205), /* 205 CHARACTER REFERENCE FOR 73615440
* ABDCC+ABDLINE @Z40MPXH*/ 73615540
* 3 ABDCC CHAR(1), /* CHARRIAGE CONTROL@Z40MPXH*/ 73615640
* 3 ABDLINE CHAR(204), /* PRINT LINE FOR 73615740
* OUTPUT @Z40MPXH*/ 73615840
* 2 ABDPADC CHAR(3), /* RESERVED CHARACTERS FOR 73616033
* UNPACKING TO END OF 73616540
* ABDLINE @Z40MPXH*/ 73616740
* 2 ABDSAVHD CHAR(80), /* SAVED HEADING USED TO SAVE 73616933
* HEADER PUT ON TOP OF EACH 73617733
* PAGE OF DUMP @ZA16374*/ 73618133
* 2 ABDSAVE1 PTR(31), /* ADDRESS OF SAVE AREA FOR 73618643
* USE BY OUTPUT @ZA16374*/ 73618743
* 2 ABDTRLN FIXED(31)ABD9999 /* LENGTH OF TRACE TABLE 73618843
* @ZA25122*/ 73618943
*%IF QZR = ' ' %THEN 73619133
*%GOTO ABDEND; 73619233
*%IF NORTMLST = ' ' %THEN 73619602
*%GOTO ABDEND; 73622202
* 2 TRKTBL , 73624802
* 3 SNAME CHAR(8), /* SEGMENT NAME */ 73627402
* 3 DADDR PTR(31), /* ADDR OF DATA TO BE 73630002
* TRCACKED */ 73632002
* 3 DLNTH FIXED(31), /* LENGTH OF DATA TO BE 73640002
* TRACKED */ 73640402
* 3 DNAME CHAR(40), /* NAME OF DATA TO BE 73642002
* TRACKED */ 73642402
* 3 DREGS CHAR(64), /* REGISTERS AT TIME OF 73644002
* REQUEST */ 73644102
* 3 TRKEP PTR(31); /* RTMTRACK ENTRY ADDR */ 73644402
*%ABDEND: ; 73649640
*% ABDLNGTH = 'LENGTH(ABDAREA)'; /* LENGTH OF WORKAREA */ 73650002