* %GOTO SNAPLS; /* 00800003 MACRO 01600003 IHASNP &DSECT=YES @Y307PXE*/ 02400003 *%SNAPLS: ; 03200003 * /* MACMEAN SNAP MEANS SNAP PARAMETER LIST */ 04000003 * /* MACCOMP Y-1 SC1C5/PZD81 */ 04800003 * /* MACSTAT Y-1 72245/Y02705 */ 05600003 * /* UPDATED FOR SU 33 3.7 BASE 9/23/76 @G33SPHW*/ 05650043 * %GOTO SNAPPLS; /* 06400003 AIF ('&DSECT' EQ 'YES').SNAP00 07200003 SNPPARMS EQU * 08000003 AGO .SNAP01 08800003 .SNAP00 ANOP 09600003 SNPPARMS DSECT 10400003 .SNAP01 DS 0F 11200003 IEZBITS 12000003 SNPIDENT DS B DUMP ID SUPPLIED BY USER 12800003 SNPFLAG DS B FLAG BYTE 13600003 SNPSNAP EQU BIT0 0=SNAP REQUEST 14400003 * 1=SVC DUMP REQUEST 15200003 SNPVS2 EQU BIT1 0=OS/VS2 REL.1 PARAMETER LIST 16000003 * 1=OS/VS2 REL.2 PARAMETER LIST 16800003 SNPVS2EN EQU BIT2 1=OS/VS2 ENHANCED SNAP 16850043 SNPABEND EQU BIT3 0=ABEND IS CALLER 18400003 * 1=SNAP REQUEST 19200003 SNPID EQU BIT4 1=ID SPECIFIED 20000003 SNPTCB EQU BIT5 1=TCB SPECIFIED 20800003 SNPSLIST EQU BIT6 1=STORAGE LIST SPECIFIED 21600003 SNPHDR EQU BIT7 1=HEADER LIST SPECIFIED 21650043 DS H RESERVED 23200003 SNPSDATA DS CL2 SDATA OPTIONS 23250043 SNPSDAT0 DS 0B SDATA OPTIONS FLAG ONE @G33SPHW 24000043 SNPNUC EQU BIT0 1=DUMP NUCLEUS,PSA,SQA,LSQA 24800003 SNPSQA EQU BIT1 1=DUMP SQA 25600003 SNPLSQA EQU BIT2 1=DUMP LSQA 26400003 SNPSWA EQU BIT3 1=DUMP SWA 27200003 SNPTRT EQU BIT4 1=INCLUDE TRACE TABLE (SUPERVISOR 28000003 * OR GTF) 28800003 SNPCB EQU BIT5 1=FORMAT CNTRL BLKS FOR TASK 29600003 SNPQCB EQU BIT6 1=FORMAT ENQUEUE CNTRL BLKS 30400003 * FOR TASK 31200003 SNPDM EQU BIT7 1=FORMAT DATA MGT. CONTROL BLKS. 31250043 * @G33SPHW 31270043 SNPSDAT1 DS 0B SDATA OPTIONS FLAG TWO @G33SPHW 31300043 SNPIO EQU BIT0 1=FORMAT IOS CONTROL BLKS. @G33SPHW 32000043 SNPERR EQU BIT1 1=FORMAT ERROR CONTROL BLKS.@G33SPHW 32050043 * EQU BIT2 RESERVED 32850043 * EQU BIT3 RESERVED 32900043 * EQU BIT4 RESERVED 32950043 * EQU BIT5 RESERVED 33000043 * EQU BIT6 RESERVED 33050043 * EQU BIT7 RESERVED 33100043 SNPPDATA DS B PDATA OPTIONS 33600003 SNPSAVE EQU BIT0 1=DISPLAY SAVE AREA TRACE 34400003 SNPSAVE2 EQU BIT1 0=DISPLAY ENTIRE SAVE AREA 35200003 * 1=DISPLAY SAVE AREA HEADS 36000003 SNPREGS EQU BIT2 1=DISPLAY REGS- ENTRY TO SNAP/ABEND 36800003 SNPLPA EQU BIT3 1=DISPLAY ACTIVE LPA MODULES 37600003 SNPJPA EQU BIT4 1=DISPLAY JPA MODULES 38400003 SNPPSW EQU BIT5 1=DISPLAY PSW, ILC, INTERRUPT CODE 39200003 SNPSPLS EQU BIT6 1=DISPLAY USER SUBPOOLS: 0-127 40000003 * EQU BIT7 RESERVED 40800003 DS B RESERVED 41600003 SNPDCB DS A ADDRESS OF DCB FOR DUMP DATA 42400003 * SET 43200003 SNPTCBA DS A ADDRESS OF TCB TO BE DISPLAYED 44000003 SNPSTOR DS A ADDRESS OF STORAGE LIST 44800003 * LIST CONTAINS BEGIN AND END 45600003 * ADDR OF AREAS TO BE DUMPED 46400003 SNPHDRA DS A ADDRESS OF HEADER LIST @G33SPHW 46450043 MEND 47200003 **/ 48000003 *%SNAPPLS : ; 48800003 * %IF SNAP9999^=',' %THEN 49600003 * %SNAP9999=';'; 50400003 * %IF SNAPLVL^='' %THEN 51200003 * %GOTO SNAPPLS1; 52000003 *DECLARE 52800003 * 1 SNPPARMS BASED (SNAPPTR) BDY(WORD), 53600003 * %GOTO SNAPPLS2; 54400003 *%SNAPPLS1: ; 55200003 * SNAPLVL SNPPARMS BDY(WORD), 56000003 *%SNAPPLS2: ; 56800003 * 6 SNPIDENT CHAR(1), /* DUMP ID SUPPLIED BY USER */ 57600003 * 6 SNPFLAG CHAR(1), /* FLAG BYTE */ 58400003 * 8 SNPSNAP BIT(1), /* 0=SNAP REQUEST 59200003 * 1=SVC DUMP REQUEST */ 60000003 * 8 SNPVS2 BIT(1), /* 0=OS/VS2 REL.1 PARAMETER LIST 60800003 * 1=OS/VS2 REL.2 PARAMETER LIST */ 61600003 * 8 SNPVS2EN BIT(1), /* 1=OS/VS2 ENHANCED SNAP */ 61650043 * 8 SNPABEND BIT(1), /* 0=ABEND IS CALLER 63200003 * 1=SNAP REQUEST */ 64000003 * 8 SNPID BIT(1), /* 1=ID SPECIFIED */ 64800003 * 8 SNPTCB BIT(1), /* 1=TCB SPECIFIED */ 65600003 * 8 SNPSLIST BIT(1), /* 1=STORAGE LIST SPECIFIED */ 66400003 * 8 SNPHDR BIT(1), /* 1=STORAGE HEADER LIST 66450043 * SPECIFIED */ 67200043 * 6 * FIXED(15), /* RESERVED */ 68000003 * 6 SNPSDATA BIT(16), /* SDATA OPTIONS */ 68050043 * 7 SNPSDAT0 BIT(8), /* SDATA OPTIONS FLAG ONE @G33SPHW*/ 68800043 * 8 SNPNUC BIT(1), /* 1=DUMP NUCLEUS, PSA, SQA, LSQA */ 69600003 * 8 SNPSQA BIT(1), /* 1=DUMP SQA */ 70400003 * 8 SNPLSQA BIT(1), /* 1=DUMP LSQA */ 71200003 * 8 SNPSWA BIT(1), /* 1=DUMP SWA */ 72000003 * 8 SNPTRT BIT(1), /* 1=INCLUDE TRACE TABLE(SUPER- 72800003 * VISOR OR GTF) */ 73600003 * 8 SNPCB BIT(1), /* 1=FORMAT CNTRL BLKS FOR TASK */ 74400003 * 8 SNPQCB BIT(1), /* 1=FORMAT ENQUEUE CNTRL BLKS 75200003 * FOR TASK */ 76000003 * 8 SNPDM BIT(1), /* 1=FORMAT DATA MGT. CONTROL 76050043 * BLKS. @G33SPHW*/ 76100043 * 7 SNPSDAT1 BIT(8), /* SDATA OPTIONS FLAG TWO @G33SPHW*/ 76150043 * 8 SNPIO BIT(1), /* 1=FORMAT IOS CONTROL BLKS. 76800043 * @G33SPHW*/ 76850043 * 8 SNPERR BIT(1), /* 1=FORMAT ERROR CONTROL BLKS. 76900043 * @G33SPHW*/ 76950043 * 8 * BIT(6), /* RESERVED @G33SPHW*/ 77000043 * 6 SNPPDATA BIT(8), /* PDATA OPTIONS */ 78400003 * 8 SNPSAVE BIT(1), /* 1=DISPLAY SAVE AREA TRACE */ 79200003 * 8 SNPSAVE2 BIT(1), /* 0=DISPLAY ENTIRE SAVE AREA 80000003 * 1=DISPLAY SAVE AREA HEADS */ 80800003 * 8 SNPREGS BIT(1), /* 1=DISPLAY REGS- ENTRY TO 81600003 * SNAP/ABEND */ 82400003 * 8 SNPLPA BIT(1), /* 1=DISPLAY ACTIVE LPA MODULES */ 83200003 * 8 SNPJPA BIT(1), /* 1=DISPLAY JPA MODULES */ 84000003 * 8 SNPPSW BIT(1), /* 1=DISPLAY PSW, ILC, INTERRUPT 84800003 * CODE */ 85600003 * 8 SNPSPLS BIT(1), /* 1=DISPLAY USER SUBPOOLS: 0-127 */ 86400003 * 8 * BIT(1), /* RESERVED */ 87200003 * 6 * BIT(8), /* RESERVED */ 88000003 * 6 SNPDCB PTR(31), /* ADDRESS OF DCB FOR DUMP DATA 88800003 * SET */ 89600003 * 6 SNPTCBA PTR(31), /* ADDRESS OF TCB TO BE DISPLAYED */ 90400003 * 6 SNPSTOR PTR(31), /* ADDRESS OF STORAGE LIST 90450043 * LIST CONTAINS BEG AND END 92000003 * ADDR OF AREAS TO BE DUMPED */ 92800003 * 6 SNPHDRA PTR(31) SNAP9999 /* ADDRESS OF HEADER LIST @G33SPHW*/ 92850043 *% SNAPLEN='LENGTH(SNPPARMS)'; /* LENGTH OF SNAP PARAMETER LIST */ 93600003