* %GOTO SPDL1; 00002002 .* /* START OF SPECIFICATIONS **** 00004002 .* 00006002 .*01 MODULE-NAME = IGGSPD 00008002 .* 00010002 .*01 DESCRIPTIVE-NAME = SAM/PAM/DAM GTRACE BUFFER 00012002 .* 00014002 .*01 COPYRIGHT = NONE 00016002 .* 00018002 .*01 STATUS = VS2 RELEASE 2 LEVEL 0 00020002 .* 00022002 .*01 FUNCTION = DEFINES THE STRUCTURE OF THE GTRACE BUFFER 00024002 .* 00026002 .*01 MODULE-TYPE = MACRO 00028002 .* 00030002 .*02 MACRO-SIZE = N/A FOR A MAPPING MACRO 00032002 .* 00034002 .*02 PARAMETER-RECEIVED = NONE 00036002 .* 00038002 .*01 TABLES = NONE 00040002 .* 00042002 .*01 INNER-MACROS = NONE 00044002 .* 00046002 .*01 SYSTEM-MACROS = NONE 00048002 .* 00050002 .*01 CHANGE-ACTIVITY = SEE BELOW 00052002 .* VS2 RELEASE 2 DELETIONS 00054002 .* 00056002 .**** END OF SPECIFICATIONS ***/ 00058002 * %SPDL1: ; 00060002 * /* MACCOMP Y-2 SC1D0/SJD48 */ 00062002 * /* MACSTAT Y-2 73141/021160 */ 00064002 /********************************************************************/ 00066002 /* */ 00068002 /* THIS MACRO DEFINES THE STRUCTURE OF A GTRACE BUFFER. */ 00100002 /* */ 00110002 /* VS2 RELEASE 2, 5/21/73, LEVEL=0 */ 00120002 /* */ 00130002 /* METHOD OF ACCESS - IF SPDBASE IS NOT OTHERWISE DECLARED IT */ 00140002 /* WILL DEFAULT TO %SPDBASE = 'BASED'. */ 00144002 /* */ 00146002 /********************************************************************/ 00150002 %IF SPDBASE = '' /* WAS SPDBASE DECLARED */ 00160002 %THEN %SPDBASE = 'BASED'; /* USE DEFAULT VALUE IF NOT */ 00170002 DCL 1 SPDBFR SPDBASE BDY(BYTE), 00200002 2 SPDHDR, /* BUFFER HEADER */ 00250002 3 SPDDDNAM CHAR(8), /* DDNAME FROM TIOT */ 00300002 3 SPDABCCD FIXED(8), /* ABEND CONDITION CODE */ 00350002 2 SPDTRACE CHAR(247); /* TRACE RECORD AREA */ 00400002 00450002 /********************************************************************/ 00500002 /* THE FOLLOWING DEFINES THE STRUCTURE OF THE TRACE RECORD AREA */ 00550002 /********************************************************************/ 00600002 DCL 1 SPDTRRCD BASED BDY(BYTE), 00650002 2 SPDRCDHD, /* RECORD HEADER */ 00700002 3 SPDRCDLN FIXED(8), /* LENGTH OF THIS TRACE RCD */ 00750002 3 SPDBLKID FIXED(8), /* ID OF TRACED BLOCK */ 00800002 4 SPDPTRSW BIT(1), /* ADDR REQD WITH TRACE RCD */ 00810002 2 SPDDATA1, /* AREA TO BE TRACED */ 00850002 3 SPDBLKAD PTR(31) BDY(BYTE), /* ADDR OF BLOCK (NOT PRESENT 00900002 FOR ALL TRACE RECORDS) */ 00950002 3 SPDDATA2 CHAR(*); /* BLOCK TO BE TRACED */ 01000002 01050002 /********************************************************************/ 01100002 /* THE FOLLOWING DEFINES THE STRUCTURE OF THE TRACE RCD DATA AREA */ 01150002 /********************************************************************/ 01200002 DCL SPDRDATA CHAR(*) BASED BDY(BYTE); 01250002 01300002 /********************************************************************/ 01350002 /* THE FOLLLOWING CONSTANTS IDENTIFY THE VARIOUS AREAS WHICH ARE */ 01400002 /* TRACED. CONSTANTS 1 THROUGH 127 IDENTIFY AREAS WHOSE ADDRESSES */ 01450002 /* ARE NOT TO BE TRACED. CONSTANTS 129 THROUGH 255 IDENTIFY AREAS */ 01500002 /* WHOSE ADDRESSES ARE TO BE TRACED. */ 01550002 /********************************************************************/ 01600002 DCL SPDONEXT FIXED(8) CONSTANT(1); /* CURRENT DEB EXTENT ID */ 01650002 DCL SPDALLXT FIXED(8) CONSTANT(2); /* ALL DEB EXTENTS ID */ 01700002 DCL SPDIOSEK FIXED(8) CONSTANT(3); /* IOB OR ICB SEEK FIELD ID */ 01750002 DCL SPDMAXBK FIXED(8) CONSTANT(4); /* MAX BLOCK SIZE FIELD ID */ 01800002 DCL SPDBCB FIXED(8) CONSTANT(129); /* BCB ID */ 01810002 DCL SPDDCB FIXED(8) CONSTANT(130); /* DCB ID */ 01850002 DCL SPDDECB FIXED(8) CONSTANT(131); /* DECB ID */ 01900002 DCL SPDECB FIXED(8) CONSTANT(132); /* ECB ID */ 01910002 DCL SPDIOB FIXED(8) CONSTANT(133); /* NORMAL SCHEDULING IOB ID */ 01920002 DCL SPDCSIOB FIXED(8) CONSTANT(134); /* CHAINED SCHEDULING IOB ID */ 01930002 DCL SPDICB FIXED(8) CONSTANT(135); /* CHAINED SCHEDULING ICB ID */ 01940002 DCL SPDBLOCK FIXED(8) CONSTANT(136); /* USERS BDW AND BLOCK ID */ 01950002 DCL SPDRECRD FIXED(8) CONSTANT(137); /* USERS RDW AND RECORD ID */ 02000002 DCL SPDEXLST FIXED(8) CONSTANT(138); /* DCB EXIT LIST ENTRY ID */ 02010002 DCL SPDSETPR FIXED(8) CONSTANT(139); /* SETPRINT PARAMETER LIST */ 02020002 DCL SPDREADX FIXED(8) CONSTANT(140); /* READ EXCLUSIVE LIST ENTRY */ 02070002 DCL SPDFCBIM FIXED(8) CONSTANT(141); /* 1ST 6 BYTES OF FCB IMAGE */ 02120002 SPDFID: GEN(EQU X'FE'); /* ID OF SAM/PAM/DAM GTRACE 02170002 FORMAT ROUTINE */ 02220002