* %GOTO SMDLRHDR; /* BILINGUAL MAPPING */ 00050033 MACRO 00100033 IHASMDLR 00150033 *%SMDLRHDR:; 00200033 */******************************************************************* 00250033 * 00258033 * MACRO NAME - IHASMDLR 00266033 * DESCRIPTIVE NAME - SUMMARY DUMP LOGICAL RECORD MAPPING AND CONSTANTS 00274033 * STATUS - OS/VS2 R3.7 SU33 NEW 12/13/76 @G33VPHE 00282033 * TRACE TABLE LENGTH APAR FIX 9/12/77 @ZA25122 00286064 * OS/VS2 R3.7 SU64 8/8/78 @G64UPHD 00288064 * 00290033 ********************************************************************/ 00400033 * %GOTO SMDLRPLS; /* BILINGUAL MAPPING */ 00450033 SMDLR DSECT 00500033 SMDLRHDR DS 0XL20 HEADER FOR EACH SUMMARY DUMP LOGICAL 00502064 * RECORD @ZM49583 00502664 SMDLRID DS H UNIQUE ID FOR EACH RECORD. SEE THE 00504064 * CONSTANTS BELOW 00505064 DS H RESERVED @ZA25122 00506064 SMDLRLEN DS F TOTAL LENGTH OF THE DATA AREA 00507064 * WHICH IS REPRESENTED BY THIS LOGICAL 00508064 * RECORD AND ALL ITS CONTINUATIONS. 00509064 * THIS WILL BE 0 FOR A CONTINUATION 00510064 * @ZA25122 00511064 SMDLRADR DS F ORIGINAL ADDR OF THE DATA FOLLOWING 00512064 SMDLRPL DS F LENGTH OF THE DATA THAT ACTUALLY 00513064 * FOLLOWS THIS HEADER @ZA25122 00514064 SMDLRMSG DS XL1 IF NONZERO THIS IS THE ID OF A 00520033 * SUMMARY DUMP MESSAGE WHICH IS TO BE 00522033 * GENERATED AS PART OF THE PRINTED 00524033 * OUTPUT WHEN THE DATA IS FORMATED 00526033 DS XL3 RESERVED @ZA25122 00528064 SMDLRDAT DS C DATA 00530033 * 00532033 SMDPASID EQU X'FFFA',2,C'H' PSEUDO ASID FOR THE SUMMARY DUMP 00533000 * RECORDS IN THE SDUMP 00535033 SPACE 2 00535533 ********************************************************************** 00536033 * CONSTANTS IDENTIFYING MESSAGES TO BE ASSOCIATED WITH SUMMARY 00540033 * DUMP RECORDS. SEE FIELD SMDLRMSG 00542033 * 00543033 SMDLSTER EQU 1 AN ERROR IN THE SDUMP SUMLIST 00543233 SMDNORT2 EQU 2 NO RTM2 WA FOUND FOR THE ASID 00543533 EJECT 00548033 ********************************************************************** 00550733 * CONSTANTS IDENTIFYING EACH TYPE OF SUMMARY DUMP RECORD. SEE 00551433 * FIELD SMDLRID 00552133 * 00552433 SMDPCCA EQU 1 PCCA PHYSICAL CONFIG COMMUNICATION AREA 00552833 SMDLCCA EQU 2 LCCA LOCAL CONFIG COMMUNICATION AREA 00553533 SMDPSA EQU 3 PSA PREFIX SAVE AREA 00554233 SMDTRT EQU 4 SYSTEM TRACE TABLE WITH PRECEEDING CNTL INFO 00554533 SMDR2TRT EQU 58 SYSTEM TRACE TABLE W/O PRECEEDING CNTL INFO 00554933 SMDFRRS EQU 5 THE SUPERVISOR FRR STACKS 00555233 SMDLIST EQU 46 STORAGE INDICATED BY THE SUMLIST KEYWORD 00556333 SMDIHSA EQU 47 IHSA INT HANDLER SAVE AREA 00557033 SMDREGV EQU 48 STORAGE NEAR ADDRESSES IN REGISTERS 00557733 SMDPSWS EQU 49 STORAGE NEAR ADDRESSES IN PSWS 00558433 SMDWSAGV EQU 50 WSAVTG GLOBAL WSA VECTOR TABLE 00559133 SMDGPGIO EQU 6 WSA FOR PAGE IO 00559833 SMDGGMFM EQU 7 WSA FOR GETMAIN/FREEMAIN 00560533 SMDGNUSD EQU 8 CURRENTLY UNUSED @G64UPHD 00561264 SMDGSSRS EQU 9 WSA FOR SUSPEND/RESET FOR RSM 00561933 SMDGEMS0 EQU 10 WSA FOR MEMORY SWITCH 00562633 SMDGSTAT EQU 11 WSA FOR STATUS 00563333 SMDGOPTM EQU 12 WSA FOR SYSTEM RESOURCE MANAGER 00564033 SMDGMEMT EQU 13 WSA FOR MEMORY TERMINATION 00564733 SMDGNQDQ EQU 14 WSA FOR ENQ/DEQ 00565433 SMDGREST EQU 15 WSA FOR STOP RESTART ROUTINE 00566133 SMDWSCHE EQU 16 WSA FOR SCHEDULE ROUTINE (BRANCH ENTRY) 00566833 SMDGSLTO EQU 61 WSA FOR SPIN LOOP TIMEOUT NOTIFY @G64UPHD 00566964 SMDGDCCR EQU 63 WSA FOR GLOBAL DISABLED CONSOLE @ZM49476 00567064 SMDWSACV EQU 51 WSAVTC CPU WSA VECTOR TABLE 00567133 SMDCCWSA EQU 17 WSA FOR LOW-LEVEL COMMON 00568233 SMDCGTF EQU 18 WSA FOR GENERALIZED TRACE FACILITY 00568933 SMDCOPTM EQU 19 WSA FOR SYSTEM RESOURCES MANAGER 00569633 SMDCTIME EQU 20 WSA FOR TIMER SAVE AREA 00570333 SMDCACR EQU 21 WSA FOR AUTOMATIC CPU RECONFIGURATION 00571033 SMDCRTMK EQU 22 WSA FOR RTM MACHINE CHECK HANDLER 00571733 SMDCIOS EQU 23 WSA FOR IOS FLIH 00572433 SMDCEDS0 EQU 24 WSA FOR DISPATCHER 00573133 SMDCMF1 EQU 25 WSA FOR MANAGEMENT FACILITY 1 00573833 SMDCABTM EQU 26 WSA FOR ABTERM 00574533 SMDCRSTI EQU 27 WSA FOR RESTART 00575233 SMDCREST EQU 28 WSA FOR STOP RESTART 00575933 SMDCRRSA EQU 29 WSA FOR SUPERVISOR REPAIR ROUTINE 00576633 SMDCCCH EQU 30 WSA FOR RMS CHANNEL CHECK HANDLER 00577333 SMDCASMD EQU 54 WSA FOR ASM DISABLED INTERRUPT HANDLER 00578033 SMDCASMS EQU 55 WSA FOR ASM SRB DRIVEN IO ROUTINES 00578733 SMDCDCON EQU 62 WSA FOR DISABLED CONSOLE SUPPORT @G64UPHD 00579064 SMDWSALV EQU 52 WSAVTL LOCAL WSA VECTOR TABLE 00579433 SMDLCWSA EQU 31 WSA FOR LOW-LEVEL COMMON 00580133 SMDLVALC EQU 32 WSA FOR VALIDITY CHECK ROUTINE 00580833 SMDLRTM2 EQU 33 WSA FOR RTM 00581533 SMDLSDMP EQU 34 WSA FOR SDUMP 00582233 SMDLABTM EQU 35 WSA FOR ABTERM 00582933 SMDLCIRB EQU 36 WSA FOR CIRB 00583633 SMDLS2EE EQU 37 WSA FOR STAGE 2 EXIT EFFECTOR 00584333 SMDLEXIT EQU 38 WSA FOR EXIT (SVC 3) 00585033 SMDLPOST EQU 39 WSA FOR POST 00585733 SMDLWAIT EQU 40 WSA FOR WAIT 00586433 SMDLSTAT EQU 41 WSA FOR STATUS 00587133 SMDLSTAE EQU 42 WSA FOR STAE 00587833 SMDLEVNT EQU 43 WSA FOR EVENTS (FAST MULTIPLE WAIT) 00588533 SMDLRSM EQU 44 WSA FOR REAL STORAGE MANAGER 00589233 SMDLACHP EQU 45 WSA FOR ASCB CHAP ROUTINE 00589933 SMDSDWA EQU 56 SDWA SYSTEM DIAGNOSTIC WORK AREA 00590633 SMDRTM2A EQU 57 RTM2WA RTM2 WORK AREA 00591333 SMDNULL EQU 59 EMPTY RECORD,CONTAINS NO DATA 00591633 SMDASIDR EQU 60 ASID JOB PROCSTEP & STEP NAME FOR FOLLOWING 00591733 * RECORDS 00591833 SMDUNKWN EQU 99 UNKNOWN RECORD ID @G64UPHD*/ 00592064 SMDEOD EQU 53 END OF SUMMARY DUMP 00592464 MEND 00592733 MEXIT 00600033 %SMDLRPLS:; 00650033 DCL /* SUMMARY DUMP LOGICAL RECORD */ 00700033 1 SMDLR BASED, 00750033 2 SMDLRHDR, /*HEADER FOR EACH SUMMARY DUMP 00800033 LOGICAL RECORD */ 00810033 3 SMDLRID PTR(16), /*UNIQUE ID FOR EACH RECORD. SEE 00850033 THE CONSTANTS BELOW */ 00860033 3 * PTR(16), /*RESERVED @ZA25122*/ 00900064 3 SMDLRLEN FIXED(31), /*TOTAL LENGTH OF THE DATA AREA 00930064 WHICH IS REPRESENTED BY THIS LOGICAL 00960064 RECORD AND ALL ITS CONTINUATIONS. THIS 00990064 WILL BE 0 FOR A CONTINUATION @ZA25122*/ 01020064 3 SMDLRADR PTR(31), /*ORIGINAL ADDRESS DATA FOLLOWING */ 01050064 3 SMDLRPL PTR(31), /*LENGTH OF THE DATA THAT ACTUALLY 01080064 FOLLOWS THIS HEADER @ZA25122*/ 01110064 3 SMDLRMSG PTR(8), /* IF NONZERO THIS IS THE ID OF A 01250033 SUMMARY DUMP MESSAGE WHICH IS TO BE 01300033 GENERATED AS PART OF THE PRINTED 01350033 OUTPUT WHEN THE DATA IS FORMATED*/ 01400033 3 * PTR(24), /*RESERVED @ZA25122*/ 01450064 2 SMDLRDAT CHAR(*); /*DATA */ 01500033 DCL SMDPASID BIT(16) CONSTANT('FFFA'X); /* PSEUDO ASID FOR THE SUMMARY01504033 DUMP RECORDS IN THE SDUMP*/ 01508033 /* CONSTANTS IDENTIFYING MESSAGES TO BE ASSOCIATED WITH SUMMARY 01512033 DUMP RECORDS. SEE FIELD SMDLRMSG */ 01516033 DCL 01520033 SMDLSTER PTR(8) CONSTANT(1),/* AN ERROR IN THE SDUMP SUMLIST*/ 01522033 SMDNORT2 PTR(8) CONSTANT(2);/* NO RTM2 WA FOUND FOR THE ASID*/ 01525033 /* CONSTANTS IDENTIFYING EACH TYPE OF SUMMARY DUMP RECORD. SEE 01532033 FIELD SMDLRID */ 01536033 DCL ( 01540033 SMDPCCA CONSTANT(1), /* PCCA PHYSICAL CONFIG COMMUNICATION AREA*/ 01600033 SMDLCCA CONSTANT(2), /* LCCA LOCAL CONFIG COMMUNICATION AREA */ 01610033 SMDPSA CONSTANT(3),/* PSA PREFIX SAVE AREA */ 01620033 SMDTRT CONSTANT(4), /*SYSTEM TRACE TABLE WITH PRECEEDING CNTL INFO*/ 01630033 SMDR2TRT CONSTANT(58), /*SYSTEM TRACE TABLE W/O PRECEEDING CNTL INFO*/01633033 SMDFRRS CONSTANT(5), /* THE SUPERVISOR FRR STACKS */ 01636033 SMDLIST CONSTANT(46), /* STORAGE INDICATED BY THE SUMLIST KEYWORD */01650033 SMDIHSA CONSTANT(47), /* IHSA INT HANDLER SAVE AREA */ 01660033 SMDREGV CONSTANT(48), /* STORAGE NEAR ADDRESSES IN REGISTERS */ 01670033 SMDPSWS CONSTANT(49), /* STORAGE NEAR ADDRESSES IN PSWS */ 01680033 SMDWSAGV CONSTANT(50),/* WSAVTG GLOBAL WSA VECTOR TABLE*/ 01690033 SMDGPGIO CONSTANT(6), /* WSA FOR PAGE IO */ 01700033 SMDGGMFM CONSTANT(7), /* WSA FOR GETMAIN/FREEMAIN */ 01710033 SMDGNUSD CONSTANT(8), /* CURRENTLY NOT USED @G64UPHD*/ 01720064 SMDGSSRS CONSTANT(9), /* WSA FOR SUSPEND/RESET FOR RSM */ 01730033 SMDGEMS0 CONSTANT(10), /* WSA FOR MEMORY SWITCH */ 01740033 SMDGSTAT CONSTANT(11), /* WSA FOR STATUS */ 01750033 SMDGOPTM CONSTANT(12), /* WSA FOR SYSTEM RESOURCE MANAGER */ 01760033 SMDGMEMT CONSTANT(13), /* WSA FOR MEMORY TERMINATION */ 01770033 SMDGNQDQ CONSTANT(14), /* WSA FOR ENQ/DEQ */ 01780033 SMDGREST CONSTANT(15), /* WSA FOR STOP RESTART ROUTINE*/ 01790033 SMDWSCHE CONSTANT(16), /* WSA FOR SCHEDULE ROUTINE (BRANCH ENTRY)*/ 01800033 SMDWSACV CONSTANT(51),/* WSAVTC CPU WSA VECTOR TABLE */ 01805033 SMDCCWSA CONSTANT(17), /* WSA FOR LOW-LEVEL COMMON*/ 01820033 SMDCGTF CONSTANT(18), /* WSA FOR GENERALIZED TRACE FACILITY */ 01830033 SMDCOPTM CONSTANT(19), /* WSA FOR SYSTEM RESOURCES MANAGER */ 01840033 SMDCTIME CONSTANT(20), /* WSA FOR TIMER SAVE AREA */ 01850033 SMDCACR CONSTANT(21), /* WSA FOR AUTOMATIC CPU RECONFIGURATION */ 01860033 SMDCRTMK CONSTANT(22), /* WSA FOR RTM MACHINE CHECK HANDLER */ 01870033 SMDCIOS CONSTANT(23), /* WSA FOR IOS FLIH*/ 01880033 SMDCEDS0 CONSTANT(24), /* WSA FOR DISPATCHER */ 01890033 SMDCMF1 CONSTANT(25), /* WSA FOR MANAGEMENT FACILITY 1 */ 01900033 SMDCABTM CONSTANT(26), /* WSA FOR ABTERM */ 01910033 SMDCRSTI CONSTANT(27), /* WSA FOR RESTART */ 01920033 SMDCREST CONSTANT(28), /* WSA FOR STOP RESTART */ 01930033 SMDCRRSA CONSTANT(29), /* WSA FOR SUPERVISOR REPAIR ROUTINE */ 01940033 SMDCCCH CONSTANT(30), /* WSA FOR RMS CHANNEL CHECK HANDLER */ 01950033 SMDCASMD CONSTANT(54), /* WSA FOR ASM DISABLED INTERRUPT HANDLER*/ 01960033 SMDCASMS CONSTANT(55), /* WSA FOR ASM SRB DRIVEN IO ROUTINES */ 01970033 SMDWSALV CONSTANT(52),/* WSAVTL LOCAL WSA VECTOR TABLE */ 01980033 SMDLCWSA CONSTANT(31), /* WSA FOR LOW-LEVEL COMMON */ 01990033 SMDLVALC CONSTANT(32), /* WSA FOR VALIDITY CHECK ROUTINE*/ 02000033 SMDLRTM2 CONSTANT(33), /* WSA FOR RTM*/ 02010033 SMDLSDMP CONSTANT(34), /* WSA FOR SDUMP */ 02020033 SMDLABTM CONSTANT(35), /* WSA FOR ABTERM */ 02030033 SMDLCIRB CONSTANT(36), /* WSA FOR CIRB */ 02040033 SMDLS2EE CONSTANT(37), /* WSA FOR STAGE 2 EXIT EFFECTOR */ 02050033 SMDLEXIT CONSTANT(38), /* WSA FOR EXIT (SVC 3) */ 02060033 SMDLPOST CONSTANT(39), /* WSA FOR POST */ 02070033 SMDLWAIT CONSTANT(40), /* WSA FOR WAIT */ 02080033 SMDLSTAT CONSTANT(41), /* WSA FOR STATUS */ 02090033 SMDLSTAE CONSTANT(42), /* WSA FOR STAE */ 02100033 SMDLEVNT CONSTANT(43), /* WSA FOR EVENTS (FAST MULTIPLE WAIT)*/ 02110033 SMDLRSM CONSTANT(44), /* WSA FOR REAL STORAGE MANAGER */ 02120033 SMDLACHP CONSTANT(45), /* WSA FOR ASCB CHAP ROUTINE */ 02130033 SMDSDWA CONSTANT(56), /* SDWA SYSTEM DIAGNOSTIC WORK AREA */ 02140033 SMDRTM2A CONSTANT(57),/* RTM2WA RTM2 WORK AREA */ 02150033 SMDNULL CONSTANT(59), /* EMPTY RECORD,CONTAINS NO DATA*/ 02155033 SMDASIDR CONSTANT(60), /* ASID JOB PROCSTEP & STEP NAME FOR FOLLOWING02160033 RECORDS */ 02210033 SMDEOD CONSTANT(53) /* END SUMMARY DUMP */ 02218064 ) PTR(16); 02238064 DCL (SMDGSLTO CONSTANT(61), /*WSA FOR SPIN LOOP TIMEOUT NOTIFY 02258064 @G64UPHD*/ 02278064 SMDCDCON CONSTANT(62), /*CPU WSA FOR DISABLED CONSOLE @G64UPHD*/ 02298064 SMDGDCCR CONSTANT(63), /*GLOBAL WSA FOR DISABLED CONSOLE @ZM49476*/ 02304064 SMDUNKWN CONSTANT(99) /*UNKNOWN RECORD ID @G64UPHD*/ 02318064 ) PTR(16); 02358064 DCL /* ARRAYS OF SIMILAR RECORD IDS */ 02378064 SMDWSAG(13) PTR(16) STATIC LOCAL INIT(6,7,8,9,10,11,12,13,14,15, 02398064 16,61,63), /* GLOBAL WORK SAVE AREAS INCLUDE IN WSAVTG @ZM49476*/ 02418064 SMDWSAC(18) PTR(16) STATIC LOCAL INIT(17,18,19,20,21,22,23,24, 02438064 25,26,27,28,29,30,54,55,8,62), /* CPU WORK SAVE AREA 02488064 POINTED TO BY THE WSAVTC @G64UPHD*/ 02690064 SMDWSAL(15) PTR(16) STATIC LOCAL INIT(31,32,33,34,35,36,37,38, 02740064 39,40,41,42,43,44,45); /* LOCAL 02790064 WORK SAVE AREAS POINTED TO BY THE WSAVTL*/ 02840064