* %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