* %GOTO SDUPLS; /* BILINGUAL HEADER 00050043 MACRO 00100043 IHASDUMP &DSECT=YES */ 00100343 *%SDUPLS: ; 00100643 * /* MACMEAN SDUMP MEANS SDUMP PARAMETER LIST */ 00100943 * /* MACCOMP Y-2 SC1CM/PZD10 */ 00101264 * /* MACSTAT Y-1 78073/G64RPHD */ 00101364 * %GOTO SDUMPPLS; /* 00101843 AIF ('&DSECT' EQ 'YES').SDU001 00102143 SDUMP DS 0F 00102443 AGO .SDU002 00102743 .SDU001 ANOP 00103043 SDUMP DSECT , SDUMPPTR SDUMP PARAMETER LIST 00103343 .SDU002 SPACE 2 00103643 IEZBITS 00103943 SDUFLAG0 DS X FIRST BYTE OF FLAGS 00104243 SDUDCB EQU BIT0 1=USER SUPPLIED DCB 00104543 * 0=USE OF SYS1.DUMP DATA SET 00104843 SDUBUF EQU BIT1 1=DUMP 4K SQA BUFFER 00105143 * 0=BYPASS 4K SQA BUFFER 00105443 SDUSTOR EQU BIT2 1=STORAGE LIST SPECIFIED 00105743 * 0=NO STORAGE LIST 00106043 SDUHDR EQU BIT3 1=USER DATA SPECIFIED 00106343 * 0=NO USER DATA 00106643 SDUECB EQU BIT4 1=ECB SPECIFIED 00106943 * 0=ECB NOT SPECIFIED 00107243 SDUASID EQU BIT5 1=SCHEDULE DUMP REQUEST ASID 00107543 * SPECIFIED 00107843 * 0=ASID NOT SPECIFIED 00108143 SDUQUIET EQU BIT6 1=SET SYSTEM NON-DISPATCHABLE 00108443 * WHILE DUMPING SQA/CSA 00108743 * 0=MAINTAIN CURRENT SYSTEM STATUS 00109043 SDUBRANH EQU BIT7 1=BRANCH ENTRY 00109343 * 0=SVC 51 ENTRY 00109643 SDUFLAG1 DS X SECOND BYTE OF FLAGS 00109943 DUMPTYPE EQU BIT0 1=SVC DUMP REQUEST 00110243 SDUABEND EQU BIT1 1=SYSMDUMP REQUEST 00110543 SDUNEW EQU BIT2 1=ENHANCED SVC DUMP REQUEST 00110843 SDUASLST EQU BIT3 1=ASIDLST SPECIFIED 00111143 SDUSULST EQU BIT4 1=SUMLIST SPECIFIED 00111443 SDUIGNCD EQU BIT5 1=IGNORE CHNGDUMP OPTIONS @G64RPHD 00111564 SDUTSOXT EQU BIT6 1=TSO USER EXTENSION PRESENT @G64RPHD 00111664 SDUSDATA DS 0XL2 SDATA OPTION FLAGS @G64RPHD 00111764 SDUSDAT1 DS X FIRST BYTE OF SDATA FLAGS 00111964 SDUALPSA EQU BIT0 DUMP ALL PSA'S IN SYSTEM 00112043 SDUPSA EQU BIT1 DUMP THE CURRENT PSA 00112343 SDUNUC EQU BIT2 DUMP THE NUCLEUS 00112643 SDUSQA EQU BIT3 DUMP SQA 00112943 SDULSQA EQU BIT4 DUMP LSQA 00113243 SDURGN EQU BIT5 DUMP REGION (PRIVATE AREA) 00113543 SDULPA EQU BIT6 DUMP ACTIVE LPA MOD. FOR RGN 00113843 SDUTRT EQU BIT7 DUMP TRACE TABLE / GTF BUFFERS 00114143 SDUSDAT2 DS X SECOND BYTE OF SDATA FLAGS 00114443 SDUCSA EQU BIT0 DUMP CSA 00114743 SDUSWA EQU BIT1 DUMP SWA FOR REGION 00115043 SDUSMDMP EQU BIT2 SUMMARY DUMP REQUESTED 00115343 SDUNSMDP EQU BIT3 DO NOT DUMP SUMMARY DUMP 00115643 SDUNAPSA EQU BIT4 DO NOT DUMP ALL PSA 00115943 SDUNASQA EQU BIT5 DO NOT DUMP SQA 00116243 SDUDCBAD DS A ADDRESS USER SUPPLIED DCB 00116543 SDUSTORA DS A ADDRESS OF STORAGE LIST 00116843 SDUHDRAD DS A ADDRESS OF USER DATA 00117143 SDUECBAD DS A ADDRESS USER SUPPLIED ECB 00117443 SDUMASID DS 0AL4 SCHEDULE DUMP ASIDS 00117743 SDUCASID DS AL2 CALLERS ASID 00118043 SDUTASID DS AL2 TARGET ASID OF SCHEDULE DUMP 00118343 SDUASIDP DS A ADDRESS CALLERS ASID LIST 00118643 SDUSUMLP DS A ADDRESS CALLERS SUMMARY LIST 00118943 SDUTUSID DS 0CL8 TSO USER ID THIS DUMP @G64RPHD 00119264 SDUSYSMS DS A ADDR SYSMDUMP 4K SQA AREA 00119664 SDUSYSMC DS A ADDR SYSMDUMP CSA WORK AREA 00119764 MEND 00119843 * */ 00120143 *%SDUMPPLS: ; 00120443 * DCL 1 SDUMP BASED(SDUMPPTR) BDY(WORD), 00120743 * 2 SDUFLAG0 CHAR(1), /*FIRST BYTE OF FLAGS */ 00121043 * 3 SDUDCB BIT(1), /*1=USER SUPPLIED DCB 00121343 * 0=USE A SYS1.DUMP DATA SET */ 00121643 * 3 SDUBUF BIT(1), /*1=DUMP 4K SQA BUFFER 00121943 * 0=BYPASS 4K SQA BUFFER */ 00122243 * 3 SDUSTOR BIT(1), /*1=STORAGE LIST SPECIFIED 00122543 * 0=NO STORAGE LIST */ 00122843 * 3 SDUHDR BIT(1), /*1=USER DATA SPECIFIED 00123143 * 0=NO USER DATA */ 00123443 * 3 SDUECB BIT(1), /*1=ECB SPECIFIED 00123743 * 0=ECB NOT SPECIFIED */ 00124043 * 3 SDUASID BIT(1), /*1=SCHEDULE DUMP REQUEST 00124343 * ASID SPECIFIED 00124643 * 0= ASID NOT SPECIFIED */ 00124943 * 3 SDUQUIET BIT(1), /*1=SET SYSTEM NON-DISPATCHABLE 00125243 * WHILE DUMPING SQA/CSA 00125543 * 0=MAINTAIN CURRENT SYSTEM 00125843 * STATUS */ 00126143 * 3 SDUBRANH BIT(1), /*1=BRANCH ENTRY 00126443 * 0=SVC 51 ENTRY */ 00126743 * 2 SDUFLAG1 CHAR(1), /*SECOND BYTE OF FLAGS */ 00127043 * 3 DUMPTYPE BIT(1), /*1=SVC DUMP REQUEST */ 00127343 * 3 SDUABEND BIT(1), /*1=SYSMDUMP REQUEST */ 00127643 * 3 SDUNEW BIT(1), /*1=ENHANCED SVC DUMP REQ */ 00127943 * 3 SDUASLST BIT(1), /*1=ASIDLST SPECIFIED */ 00128243 * 3 SDUSULST BIT(1), /*1=SUMLIST SPECIFIED */ 00128543 * 3 SDUIGNCD BIT(1), /*1=IGNORE CHNGDUMP PARAMETERS 00128664 * @G64RPHD*/ 00128864 * 3 SDUTSOXT BIT(1), /*1=TSO USER EXTENSION IS 00129064 * PRESENT @G64RPHD*/ 00129264 * 3 * BIT(1), /*RESERVED @G64RPHD*/ 00129464 * 2 SDUSDATA CHAR(2), /*SDATA OPTION FLAGS @G64RPHD*/ 00129664 * 3 SDUSDAT1 CHAR(1), /* 1ST BYTE OF OPTIONS @G64RPHD*/ 00129864 * 4 SDUALPSA BIT(1), /* DUMP ALL PSA'S @G64RPHD*/ 00130064 * 4 SDUPSA BIT(1), /* DUMP CURRENT PSA @G64RPHD*/ 00130264 * 4 SDUNUC BIT(1), /* DUMP THE NUCLEUS @G64RPHD*/ 00130464 * 4 SDUSQA BIT(1), /* DUMP SQA @G64RPHD*/ 00130664 * 4 SDULSQA BIT(1), /* DUMP LSQA @G64RPHD*/ 00130864 * 4 SDURGN BIT(1), /* DUMP RGN-PRIVATE AREA @G64RPHD*/ 00131064 * 4 SDULPA BIT(1), /* DUMP LPA MOD. FOR RGN @G64RPHD*/ 00131264 * 4 SDUTRT BIT(1), /* DUMP TRACE DATA @G64RPHD*/ 00131464 * 3 SDUSDAT2 CHAR(1), /*SECOND BYTE SDATA FLGS @G64RPHD*/ 00131664 * 4 SDUCSA BIT(1), /* DUMP CSA @G64RPHD*/ 00131864 * 4 SDUSWA BIT(1), /* DUMP SQA @G64RPHD*/ 00132064 * 4 SDUSMDMP BIT(1), /*DUMP SUMMARY DUMP DATA @G64RPHD*/ 00132264 * 4 SDUNSMDP BIT(1), /*DON'T DUMP SUMMARY DUMP @G64RPHD*/ 00132464 * 4 SDUNAPSA BIT(1), /* DO NOT DUMP ALL PSA @G64RPHD*/ 00132664 * 4 SDUNASQA BIT(1), /* DO NOT DUMP SQA @G64RPHD*/ 00132864 * 4 * BIT(2), /* RESERVED @G64RPHD*/ 00133064 * 2 SDUDCBAD PTR(31), /*ADDRESS USER SUPPLIED DCB */ 00134243 * 2 SDUSTORA PTR(31), /*ADDRESS OF STORAGE LIST */ 00134543 * 2 SDUHDRAD PTR(31), /*ADDRESS OF USER DATA */ 00134843 * 2 SDUECBAD PTR(31), /*ADDRESS USER SUPPLIED ECB */ 00135143 * 2 SDUMASID, 00135443 * 3 SDUCASID FIXED(16), /*CALLER'S ASID */ 00135743 * 3 SDUTASID FIXED(16), /*TARGET ASID OF SCHEDULE DUMP*/ 00136043 * 2 SDUASIDP PTR(31), /*ADDRESS CALLERS ASIDLIST */ 00136343 * 2 SDUSUMLP PTR(31), /*ADDRESS CALLERS SUMLIST */ 00136643 * 2 SDUTUSID CHAR(8) BDY(WORD), /*TSO USER ID ASSOCIATED WITH 00136964 * THIS DUMP @G64RPHD*/ 00186964 * 3 SDUSYSMS PTR(31), /*ADDR SYSMDUMP 4K SQA AREA @G64RPHD*/00236964 * 3 SDUSYSMC PTR(31); /*ADDR SYSMDUMP CSA WORK AREA 00286964 * @G64RPHD*/ 00336964