/********************************************************************/ 00050064 /* */ 00060064 /* MACRO NAME = SDWORK */ 00070064 /* */ 00080064 /* MICROFICHE NAME = IHASDWRK */ 00090064 /* */ 00100064 /* DESCRIPTIVE NAME = SVC DUMP WORK AREA */ 00110064 /* */ 00120064 /* STATUS = OS/VS2 RELEASE 3.7 PLUS SU 64 11/02/78 @ZM49564*/ 00130064 /* @G64MPHD*/ 00133064 /* */ 00140064 /* FUNCTION = THE SVC DUMP WORK AREA IS USED BY SVC DUMP DURING */ 00150064 /* ITS PROCESSING TO CONTAIN POINTERS, COUNTERS AND AN OUTPUT */ 00160064 /* BUFFER. IT CONTAINS THE FRR/ESTAE WORK AREA USED BY SVC */ 00170064 /* DUMP. IT IS OBTAINED BY MODULE IEAVTSDI (SVC DUMP NIP RIM) */ 00180064 /* FROM CSA SUBPOOL 231. THIS MAPPING IS ALSO USED BY @G64LPHD*/ 00190064 /* IEAVTABD, TO OBTAIN THE LENGTH OF THE INTERFACE WORK @G64LPHD*/ 00192064 /* AREAS FOR SYSMDUMP REQUESTS. @G64LPHD*/ 00194064 /* */ 00200064 /* SERIALIZATION - RTCTSDPL FIELD (ONE ACCESS AT A TIME) */ 00203064 /* */ 00206064 /* METHOD OF ACCESS = RTCTSDWK POINTS TO THIS AREA AFTER IPL. */ 00210064 /* THE CVT POINTS TO THE RTCT (CVTRTMCT). @G64MPHD*/ 00220064 /* */ 00225064 /* TOTAL SIZE = DECIMAL 4656, X'1230' @G64MPHD*/ 00230064 /* */ 00235064 /* CHANGE ACTIVITY = @G64LPHD*/ 00240064 /* - SU64 DEVICE INDEPENDENCE RESTRUCTURE @G64LPHD*/ 00245064 /* - SU64 MASTER TRACE DUMP EXIT SUPPORT @G64MPHD*/ 00250064 /* - OZ43713 @ZA43713*/ 00252403 /* OZ43713 CHANGED A RESERVED FIELD FIXED(31) @ZA43713*/ 00254803 /* TO M994REQ CHAR(1),RESERVED CHAR(3) @ZA43713*/ 00257203 /* OZ53292 - USE RESERVED FIELD TO PROVIDE A BIT @ZA53292*/ 00257903 /* TO INDICATE THAT DOM IS REQUIRED. @ZA53292*/ 00258603 /* USED BY IEAVTSDC AND IEAVTSDH. @ZA53292*/ 00259303 /********************************************************************/ 00260064 DCL 1 SDWORK BASED BDY(DWORD), /*SVC DUMP WORK AREA */ 00500033 2 SDCNTRL, /*SVC DUMP CONTROL SECTION OF 00510033 THE WORK AREA @G33VPHD*/ 00520033 3 SDECB FIXED(32), /*ECB WAITED ON - EXCP, GTF 00550033 READ, PAGE FIX/FREE */ 00590033 3 SDIOB CHAR(40), /*IOB, I/O BY EXCP */ 00630033 3 LSTESTAE CHAR(16), /*LIST FORM OF ESTAE MACRO */ 00670033 3 SDDSCHAR CHAR(4) BDY(WORD), /*DUMP DATASET CHARACTERISTICS 00710064 @G64LPHD*/ 00715064 4 SDRCTMAX FIXED(15) UNSIGNED, /*MAX RECORDS PER TRACK 00720064 @G64LPHD*/ 00725064 4 SDTRCMAX FIXED(15) UNSIGNED, /*MAX TRACKS PER CYLINDER 00730064 @G64LPHD*/ 00735064 3 NUCADDR PTR(31), /*ADDR OF NUCLEUS SEC OF TABLE*/ 00750033 3 LOCALADR PTR(31), /*ADDR OF LOCAL SEC OF TABLE */ 00790033 3 GLOBADDR PTR(31), /*ADDR OF GLOBAL SEC OF TABLE */ 00830033 3 RANGEPTR PTR(31), /*ADDR OF CURRENT ADDR RANGE */ 00870033 3 ENDADRNT PTR(31), /*END OF ADDRESS RANGE TABLE */ 00910033 3 SVCDSRBA PTR(31), /*SRB BLOCK ADDR IN SDX @G33VPHD*/ 00950033 3 SDSRBADR PTR(31), /*SRB ROUTINE ADDRESS FROM MODULE 00990033 IEAVTSDX @G33VPHD*/ 01030033 3 SDSRBBAS PTR(31), /*SRB ROUTINE BASE REGISTER FROM 01150033 MODULE IEAVTSDX @G33VPHD*/ 01160033 3 SDWSDPL PTR(31), /*ADDR SDUMP PARM LIST @G33SPHD*/ 01200033 3 SVCDOPTS BIT(16), /*DUMP OPTIONS FOR THIS DUMP */ 01240033 4 SVCDOPT1 CHAR(1), /*FIRST BYTE OF OPTIONS */ 01280033 5 SVCDAPSA BIT(1), /*DUMP ALL PSA IN SYSTEM */ 01320033 5 SVCDPSA BIT(1), /*DUMP PSA FOR CURRENT CPU */ 01360033 5 SVCDNUC BIT(1), /*DUMP THE NUCLEUS */ 01400033 5 SVCDSQA BIT(1), /*DUMP SQA */ 01440033 5 SVCDLSQA BIT(1), /*DUMP LSQA */ 01480033 5 SVCDRGN BIT(1), /*DUMP RGN(PRIVATE AREA) */ 01520033 5 SVCDLPA BIT(1), /*DUMP MODS, SVCS IN LPA */ 01560033 5 SVCDTRT BIT(1), /*DUMP SUP TRT OR GTF TRT */ 01600033 4 SVCDOPT2 CHAR(1), /*SECOND BYTE OF OPTIONS */ 01640033 5 SVCDCSA BIT(1), /*DUMP CSA */ 01680033 5 SVCDSWA BIT(1), /*DUMP SWA */ 01720033 5 SVCDSMDP BIT(1), /*DUMP SUMMARY DUMP @G33VPHD*/ 01760033 5 SVCDNSMD BIT(1), /*NO SUMMARY DUMP @G33VPHD*/ 01800033 5 SVCDNAPA BIT(1), /*NO ALL PSA DUMP @G33VPHD*/ 01840033 5 SVCDNSQA BIT(1), /*NO SQA DUMP @G33VPHD*/ 01880033 3 FLAGSONE BIT(8), /*FLAG BYTE */ 01920033 4 FLGRTFUL BIT(1), /*IND ADDR RANGE TABLE FULL */ 01960033 4 FLGTAPEE BIT(1), /*IND END OF VOL ON TAPE */ 02000033 4 FLGFLAST BIT(1), /*IND LAST FREE DUMP DS FOUND 02040033 @G33VPHD*/ 02220033 4 SDWPAGOT BIT(1), /*INDICATE PAGE FAULT POSSIBLE 02230033 @ZM45207*/ 02240033 4 SVCDMTRC BIT(1), /*INDICATE MASTER TRACE TO BE DUMPED 02243064 @ZM49564*/ 02246064 3 FLAGSTWO BIT(8), /*FLAG BYTE */ 02250033 3 ERRORWK CHAR(24), /*ERR WKAREA WHEN ESTAE ACTIVE*/ 02260033 3 SVCDMPNM CHAR(8), /*NAME SVC DUMP CSECT IN CONTROL 02270033 @G33VPHD*/ 02320033 3 SVCDLPST CHAR(12), /*LIST FORM OF POST @G33VPHD*/ 02330033 3 SDIORETA PTR(31), /*RET ADDR FROM SDIO */ 02350033 3 DISPRETA PTR(31), /*RET ADDR FROM SETSDISP */ 02370033 3 CDERETA PTR(31), /*RET ADDR FROM LPACDE */ 02390033 3 LPDERETA PTR(31), /*RET ADDR FROM LPALPDE */ 02410033 3 FREERETA PTR(31), /*RETURN ADDRESS FROM SDFREE */ 02430033 3 AFFNSAV BIT(16), /*SAVE CPU AFFINITY VALUE @G33VPHD*/ 02450033 3 SDWKEY BIT(8), /*SAVE PROTECT KEY FOR SYSMDUMP 02470033 @G33VPHD*/ 02490033 3 SDFLAGS BIT(8), /*USED TO DOM MSG @ZA53292*/ 02522003 4 * BIT(3), /*RESERVED @ZA53292*/ 02554003 4 SDDOMMSG BIT(1), /*IF ONE THEN DOM MSG @ZA53292*/ 02586003 4 * BIT(4), /*RESERVED @ZA53292*/ 02618003 3 SPQERETA PTR(31), /*RETURN ADDRESS FROM SDSPQE */ 02650033 3 PGFRRETA PTR(31), /*RETURN ADDR FROM SDPGFREE */ 02690033 3 USERRETA PTR(31), /*RETURN ADDR FROM USERNGES */ 02730033 3 SPQEADDR PTR(31), /*ADDRESS OF SPQE FOR SDSPQE */ 02770033 3 USESTART PTR(31), /*START ADDRESS FOR INCLUDING 02810033 USER STORAGE ADDRESSES IN A 02900033 PART OF THE ADDR RANGE TABLE*/ 02950033 3 USEEND PTR(31), /*END ADDR FOR USER STOR ADDR */ 03000033 3 ADDADRWA PTR(31), /*SAVE WORKA IN SDADDADR RTN */ 03030033 3 ADDADRWB PTR(31), /*SAVE WORKB IN SDADDADR RTN */ 03060033 3 ADDADRWC PTR(31), /*SAVE WORKC IN SDADDADR RTN */ 03090033 3 ADDADRWD PTR(31), /*SAVE WORKD IN SDADDADR RTN */ 03120033 3 SDRETCOD PTR(31), /*RETURN CODE FROM DUMP RTN */ 03150033 3 SDWRGSV1 CHAR(72), /*REGISTER SAVE AREA @G33VPHD*/ 03180033 3 SDWRGSV2 CHAR(72), /*REGISTER SAVE AREA @G33VPHD*/ 03210033 3 DSTINDEX FIXED(31), /*INDEX TO CURR DS IN DUMP DS 03240033 TABLE(RTMCT), FOR MSG DS NAM*/ 03270033 3 TIMCNT FIXED(15), /*LOOP COUNTER @G17EP5W*/ 03300033 3 CHCNT FIXED(15), /*LOOP COUNTER @G17EP5W*/ 03330033 3 CVRT11 CHAR(8) BDY(DWORD), /*AREA FOR CVD @G17EP5W*/ 03390033 4 * CHAR(4), /*NOT USED FOR UNPK @G17EP5W*/ 03420033 4 CVRT1 CHAR(4), /*USED FOR UNPACK @G17EP5W*/ 03450033 5 * CHAR(2), /*UNUSED FOR UNPACK @G33VPHD*/ 03480033 5 SDCVRT1 CHAR(2), /*USED FOR ASID UNPACK @G33VPHD*/ 03510033 3 CVRT2 CHAR(8) BDY(DWORD), /*AREA FOR UNPACK @G17EP5W*/ 03540033 4 * CHAR(2), /*UNPACK CHARACTERS @G33VPHD*/ 03570033 4 SDCVRT4 CHAR(6), /*UNPACK CHARACTERS ASID @G33VPHD*/ 03600033 5 * CHAR(5), /*UNUSED FOR UNPACK @G33VPHD*/ 03630033 5 CVRT2SGN CHAR(1), /*SIGN POSITION @G33VPHD*/ 03660033 3 SVC994ID FIXED(31), /*MESG ID OF OUTSTANDING IEA994A 03690033 MESSAGE OR ZERO IF NO MESSAGE 03720033 IS OUTSTANDING @G33VPHD*/ 03750033 3 M994REQ CHAR(1), /*'00'X PRIOR TO @ZA43713*/ 03760003 /* IEAVTSDH OR @ZA43713*/ 03761603 /* AFTER IEAVTSDC @ZA43713*/ 03763203 /* 'Y'C IF IEAVTSDH @ZA43713*/ 03764803 /* REQUESTS @ZA43713*/ 03766403 /* IEAVTSDC TO @ZA43713*/ 03768003 /* PUT OUT MSG. @ZA43713*/ 03769603 /* 'N'C IF IEAVTSDH @ZA43713*/ 03771203 /* INDICATES @ZA43713*/ 03772803 /* IEAVTSDC NOT @ZA43713*/ 03774403 /* TO ISSUE MSG. @ZA43713*/ 03776003 3 * CHAR(3), /*RESERVED @ZA43713*/ 03777603 3 SVCNAME CHAR(8) BDY(DWORD), /*NAME FOR PROGRAM MANAGER 03780033 SUBROUTINE @G33VPHD*/ 03810033 4 SVCNM1T5 CHAR(5), /*FIRST 5 CHAR NAME(STD=IGC00)*/ 03950033 5 SVCNM1T4 CHAR(4), /*FIRST 4 CHAR NAME(STD=IGC0) */ 03990033 4 SVCNM6T8 CHAR(3), /*LAST 3 CHAR NAME */ 04030033 5 SVCNM6 CHAR(1), /*6TH CHAR IN NAME(0) */ 04070033 5 SVCNM7T8 CHAR(2), /*LAST 3 CHAR NAME(-RBINTCOD) */ 04110033 6 SVCNM7 CHAR(1), /*7TH CHAR IN NAME */ 04150033 6 SVCNM8 CHAR(1), /*8TH(LAST) CHAR IN NAME */ 04190033 3 CCWCHAIN BDY(DWORD), /*START OF CCW CHAIN FOR EXCP */ 04230033 4 CCW1, /*FIRST CCW */ 04270033 5 CMDCODE1 CHAR(1), /*COMMAND CODE */ 04310033 5 DATAADR1 PTR(24), /*DATA ADDRESS */ 04350033 5 FLAGS1 CHAR(1), /*FLAGS */ 04390033 6 CD1 BIT(1), /*DATA CHAINNING */ 04430033 6 CMDC1 BIT(1), /*COMMAND CHAINNING */ 04470033 6 SLI1 BIT(1), /*SUPPRESS INCORRECT LEN IND */ 04510033 6 SKIP1 BIT(1), /*SUPPRESS DATA TRANSFER */ 04550033 6 PCI1 BIT(1), /*PROGRAM CONTROLLED INTERRUPT*/ 04590033 5 * CHAR(1), /*NOT USED */ 04630033 5 BYTECNT1 FIXED(16), /*COUNT OF BYTES TO TRANSFER */ 04670033 4 CCW2, /*SECOND CCW */ 04710033 5 CMDCODE2 CHAR(1), /*COMMAND CODE */ 04750033 5 DATAADR2 PTR(24), /*DATA ADDRESS */ 04790033 5 FLAGS2 CHAR(1), /*FLAGS */ 04830033 6 CD2 BIT(1), /*DATA CHAINNING */ 04870033 6 CC2 BIT(1), /*COMMAND CHAINNING */ 04900033 6 SLI2 BIT(1), /*SUPPRESS INCORRECT LEN IND */ 04930033 6 SKIP2 BIT(1), /*SUPPRESS DATA TRANSFER */ 04960033 6 PCI2 BIT(1), /*PROGRAM CONTROLLED INTERRUPT*/ 04990033 5 * CHAR(1), /*NOT USED */ 05020033 5 BYTECNT2 FIXED(16), /*COUNT OF BYTES TO TRANSFER */ 05050033 4 CCW3, /*THIRD CCW */ 05080033 5 CMDCODE3 CHAR(1), /*COMMAND CODE */ 05110033 5 DATAADR3 PTR(24), /*DATA ADDRESS */ 05140033 5 FLAGS3 CHAR(1), /*FLAGS */ 05170033 6 CD3 BIT(1), /*DATA CHAINNING */ 05200033 6 CC3 BIT(1), /*COMMAND CHAINNING */ 05230033 6 SLI3 BIT(1), /*SUPPRESS INCORRECT LEN IND */ 05260033 6 SKIP3 BIT(1), /*SUPPRESS DATA TRANSFER */ 05290033 6 PCI3 BIT(1), /*PROGRAM CONTROLLED INTERRUPT*/ 05320033 5 * CHAR(1), /*NOT USED */ 05350033 5 BYTECNT3 FIXED(16), /*COUNT OF BYTES TO TRANSFER */ 05380033 3 SDSMBUFF PTR(31), /*ADDRESS OF THE 4104 BYTE OUTPUT 05590033 BUFFER @G33VPHD*/ 05630033 3 SDSMDECB PTR(31), /*ADDRESS OF DECB FOR SYSMDUMP 05670033 @G33VPHD*/ 05710033 2 SDOUTBUF BDY(DWORD), /*SDUMP OUTPUT BUFFER STARTS 06000064 HERE @G64MPHD*/ 06010064 3 RCDCCHH CHAR(4), /*CYL CYL HEAD HEAD-COUNT FLD */ 06050033 4 RCDCC CHAR(2), /*CYL CYL - COUNT FIELD */ 06100033 4 RCDHH CHAR(2), /*HEAD HEAD - COUNT FIELD */ 06150033 3 RECORDNO CHAR(1), /*RECORD NUMBER - COUNT FIELD */ 06200033 3 KEYLEN FIXED(8), /*KEY LENGTH - COUNT FIELD */ 06250033 3 DATALEN FIXED(16), /*DATA LENGTH - COUNT FIELD */ 06300033 2 SDBUFFER CHAR(4104), /*REST OF OUTPUT BUFFER @G33VPHD*/ 06350064 2 SDCOMWRK CHAR(120); /*SDUMP COMMON WORK AREA USED BY 06400064 IEAVTSDU @G64MPHD*/ 06450064