* %GOTO SNAPLS; /* 00050002 MACRO 00100002 IHASNAP &DSECT=YES */ 00150002 *%SNAPLS: ; 00160002 * /* MACMEAN SNAP MEANS SNAP PARAMETER LIST */ 00170002 * /* MACCOMP Y-1 SC1C5/PZD81 */ 00180002 * /* MACSTAT Y-1 72245/Y02705 */ 00190002 * /* UPDATED FOR SU 33 9/15/76 @G33SPHW*/ 00191043 * %GOTO SNAPPLS; /* 00192002 AIF ('&DSECT' EQ 'YES').SNAP00 00194002 SNPPARMS EQU * 00196002 AGO .SNAP01 00198002 .SNAP00 ANOP 00198402 SNPPARMS DSECT 00200002 .SNAP01 DS 0F 00210002 IEZBITS 00220002 SNPIDENT DS B DUMP ID SUPPLIED BY USER 00250002 SNPFLAG DS B FLAG BYTE 00300002 SNPSNAP EQU BIT0 0=SNAP REQUEST 00350002 * 1=SVC DUMP REQUEST 00400002 SNPVS2 EQU BIT1 0=OS/VS2 REL.1 PARAMETER LIST 00450002 * 1=OS/VS2 REL.2 PARAMETER LIST 00500002 SNPVS2EN EQU BIT2 1=OS/VS2 ENHANCED SNAP @G33SPHW 00510043 SNPABEND EQU BIT3 0=ABEND IS CALLER 00600002 * 1=SNAP REQUEST 00650002 SNPID EQU BIT4 1=ID SPECIFIED 00700002 SNPTCB EQU BIT5 1=TCB SPECIFIED 00750002 SNPSLIST EQU BIT6 1=STORAGE LIST SPECIFIED 00800002 SNPHDR EQU BIT7 1=HEADER LIST SPECIFIED @G33SPHW 00820043 DS H RESERVED 00900002 SNPSDATA DS B SDATA OPTIONS 00950002 SNPNUC EQU BIT0 1=DUMP NUCLEUS,PSA,SQA,LSQA 01050002 SNPSQA EQU BIT1 1=DUMP SQA 01100002 SNPLSQA EQU BIT2 1=DUMP LSQA 01150002 SNPSWA EQU BIT3 1=DUMP SWA 01200002 SNPTRT EQU BIT4 1=INCLUDE TRACE TABLE (SUPERVISOR 01250002 * OR GTF) 01260002 SNPCB EQU BIT5 1=FORMAT CNTRL BLKS FOR TASK 01300002 SNPQCB EQU BIT6 1=FORMAT ENQUEUE CNTRL BLKS 01350002 * FOR TASK 01400002 SNPDM EQU BIT7 1=FORMAT DATA MGT. CONTROL BLKS. 01420043 * @G33SPHW 01425043 SNPSDAT1 DS B SDATA OPTIONS 01430043 SNPIO EQU BIT0 1-FORMAT CONTROL BLKS. @G33SPHW 01450043 SNPERR EQU BIT1 1=FORMAT ERROR CONTROL BLKS @G33SPHW 01460043 * EQU BIT2 RESERVED 01506043 * EQU BIT3 RESERVED 01512043 * EQU BIT4 RESERVED 01518043 * EQU BIT5 RESERVED 01524043 * EQU BIT6 RESERVED 01530043 * EQU BIT7 RESERVED 01536043 SNPPDATA DS B PDATA OPTIONS 01550002 SNPSAVE EQU BIT0 1=DISPLAY SAVE AREA TRACE 01650002 SNPSAVE2 EQU BIT1 0=DISPLAY ENTIRE SAVE AREA 01700002 * 1=DISPLAY SAVE AREA HEADS 01750002 SNPREGS EQU BIT2 1=DISPLAY REGS- ENTRY TO SNAP/ABEND 01800002 SNPLPA EQU BIT3 1=DISPLAY ACTIVE LPA MODULES 01850002 SNPJPA EQU BIT4 1=DISPLAY JPA MODULES 01900002 SNPPSW EQU BIT5 1=DISPLAY PSW, ILC, INTERRUPT CODE 01950002 SNPSPLS EQU BIT6 1=DISPLAY USER SUBPOOLS: 0-127 02000002 * EQU BIT7 RESERVED 02050002 DS B RESERVED 02100002 SNPDCB DS A ADDRESS OF DCB FOR DUMP DATA 02150002 * SET 02200002 SNPTCBA DS A ADDRESS OF TCB TO BE DISPLAYED 02250002 SNPSTOR DS A ADDRESS OF STORAGE LIST 02300002 * LIST CONTAINS BEGIN AND END 02350002 * ADDR OF AREAS TO BE DUMPED 02400002 SNPHDRA DS A ADDR OF HEADER LIST @G33SPHW 02420043 MEND 02450002 **/ 02500002 *%SNAPPLS : ; 02550002 * %IF SNAP9999^=',' %THEN 02552002 * %SNAP9999=';'; 02554002 * %IF SNAPLVL^='' %THEN 02556002 * %GOTO SNAPPLS1; 02558002 *DECLARE 02560002 * 1 SNPPARMS BASED (SNAPPTR) BDY(WORD), 02600002 * %GOTO SNAPPLS2; 02602002 *%SNAPPLS1: ; 02610002 * SNAPLVL SNPPARMS BDY(WORD), 02620002 *%SNAPPLS2: ; 02630002 * 6 SNPIDENT CHAR(1), /* DUMP ID SUPPLIED BY USER */ 02650002 * 6 SNPFLAG CHAR(1), /* FLAG BYTE */ 02700002 * 8 SNPSNAP BIT(1), /* 0=SNAP REQUEST 02750002 * 1=SVC DUMP REQUEST */ 02800002 * 8 SNPVS2 BIT(1), /* 0=OS/VS2 REL.1 PARAMETER LIST 02850002 * 1=OS/VS2 REL.2 PARAMETER LIST */ 02900002 * 8 SNPVS2EN BIT(1), /* 1=OS/VS2 ENHANCED SNAP @G33SPHW*/ 02920043 * 8 SNPABEND BIT(1), /* 0=ABEND IS CALLER 03000002 * 1=SNAP REQUEST */ 03050002 * 8 SNPID BIT(1), /* 1=ID SPECIFIED */ 03100002 * 8 SNPTCB BIT(1), /* 1=TCB SPECIFIED */ 03150002 * 8 SNPSLIST BIT(1), /* 1=STORAGE LIST SPECIFIED */ 03200002 * 8 SNPHDR BIT(1), /* 1=STORAGE HEADER LIST 03220043 * SPECIFIED */ 03250043 * 6 * FIXED(15), /* RESERVED */ 03300002 * 6 SNPSDATA BIT(8), /* SDATA OPTIONS */ 03350002 * 8 SNPNUC BIT(1), /* 1=DUMP NUCLEUS, PSA, SQA, LSQA */ 03400002 * 8 SNPSQA BIT(1), /* 1=DUMP SQA */ 03450002 * 8 SNPLSQA BIT(1), /* 1=DUMP LSQA */ 03500002 * 8 SNPSWA BIT(1), /* 1=DUMP SWA */ 03550002 * 8 SNPTRT BIT(1), /* 1=INCLUDE TRACE TABLE(SUPER- 03600002 * VISOR OR GTF) */ 03610002 * 8 SNPCB BIT(1), /* 1=FORMAT CNTRL BLKS FOR TASK */ 03650002 * 8 SNPQCB BIT(1), /* 1=FORMAT ENQUEUE CNTRL BLKS 03700002 * FOR TASK */ 03750002 * 8 SNPDM BIT(1), /* 1=DATA MGT CONTROL BLKS 03770043 * @G33SPHW*/ 03773043 * 6 SNPSDAT1 BIT(8), /* SDATA OPTIONS */ 03780043 * 8 SNPIO BIT(1), /* 1=DUMP IOS CONTROL BLKS. 03790043 * @G33SPHW*/ 03800043 * 8 SNPERR BIT(1), /* 1-DUMP ERROR CONTROL BLKS. 03820043 * @G33SPHW*/ 03826043 * 8 BIT(6), /* RESERVED @G33SPHW*/ 03840043 * 6 SNPPDATA BIT(8), /* PDATA OPTIONS */ 03900002 * 8 SNPSAVE BIT(1), /* 1=DISPLAY SAVE AREA TRACE */ 03950002 * 8 SNPSAVE2 BIT(1), /* 0=DISPLAY ENTIRE SAVE AREA 04000002 * 1=DISPLAY SAVE AREA HEADS */ 04050002 * 8 SNPREGS BIT(1), /* 1=DISPLAY REGS- ENTRY TO 04100002 * SNAP/ABEND */ 04110002 * 8 SNPLPA BIT(1), /* 1=DISPLAY ACTIVE LPA MODULES */ 04150002 * 8 SNPJPA BIT(1), /* 1=DISPLAY JPA MODULES */ 04200002 * 8 SNPPSW BIT(1), /* 1=DISPLAY PSW, ILC, INTERRUPT 04250002 * CODE */ 04260002 * 8 SNPSPLS BIT(1), /* 1=DISPLAY USER SUBPOOLS: 0-127 */ 04300002 * 8 * BIT(1), /* RESERVED */ 04350002 * 6 * BIT(8), /* RESERVED */ 04400002 * 6 SNPDCB PTR(31), /* ADDRESS OF DCB FOR DUMP DATA 04450002 * SET */ 04500002 * 6 SNPTCBA PTR(31), /* ADDRESS OF TCB TO BE DISPLAYED */ 04550002 * 6 SNPSTOR PTR(31), /* ADDRESS OF STORAGE LIST 04570043 * LIST CONTAINS BEG AND END 04650002 * ADDR OF AREAS TO BE DUMPED */ 04700002 * 6 SNPHDRA PTR(31) SNAP9999 /* ADDRESS OF HEADER LIST @G33SPHW*/ 04720043 *% SNAPLEN='LENGTH(SNPPARMS)'; /* LENGTH OF SNAP PARAMETER LIST */ 04750002