* %GOTO RTCTPLSH; /* BILINGUAL MAPPING 00020043 MACRO 00100002 IHARTCT 00120043 .*A-000000-999999 ** NEW DUMP KEYWORDS @G33CPHZ 00126043 .* (INCOMPATIBLE OFFSETS @G33CPHZ 00132043 .* ON FIELDS ONLY USED @G33CPHZ 00138043 .* BY RTM DUMP ROUTINES @G33CPHZ 00144043 .* AND COMMANDS) @G33CPHZ 00150043 AGO .RTCTBAL ** SKIP PLS MACRO STATEMENT ** */ 00162043 *%RTCTPLSH: ; /* BAL/PLS HEADER 00164043 .RTCTBAL ANOP */ 00166043 * 00170043 */********************************************************************/ 00171043 */* */ 00172043 */* MACRO NAME = RTCT OR RTMCT */ 00173043 */* */ 00174043 */* MICROFICHE NAME = IHARTCT */ 00174343 */* */ 00174643 */* DESCRIPTIVE NAME = RECOVERY/TERMINATION CONTROL TABLE */ 00175043 */* */ 00176043 */* STATUS = OS/VS2 RELEASE 3.7 PLUS SU 33 12/08/76 @G33VPHZ*/ 00177043 */* */ 00178043 */* METHOD OF ACCESS = */ 00179043 */* BAL - DSECT IS ALWAYS PRODUCED. USING ON RTCT GIVES */ 00180043 */* ADDRESSABILITY FOR ALL SYMBOLS. CVTRTMCT POINTS TO */ 00181043 */* THE RTCT. */ 00181343 */* PL/S - INCLUDE IHARTCT FROM SYSLIB. ALSO INCLUDE CVT TO */ 00182043 */* DEFINE BASE OF CVTRTMCT. */ 00183043 */* */ 00184043 */* SIZE = DECIMAL 344, X'158' */ 00184343 */* CHANGE ACTIVITY = OZ27434 - DEFINE RTCTSDFX USED TO PROHIBIT */ 00184643 */* ASYNCRONOUS INTERRUPTS WHILE SDUMP */ 00184743 */* HAS THE SYSTEM SET NONDISPATCHABLE. */ 00184843 */* */ 00185343 */********************************************************************/ 00185843 * 00185943 *%GOTO RTCTPLS; /* 00186043 RTCT DSECT , - BAL MAPPING OF TABLE 00200002 .********************************************************************** 00203043 .* KNOWN USERS OF THIS CONTROL BLOCK ARE: 00206043 .* RTM NIP RIM - IEAVNPA6 (CREATES RTCT) 00209043 .* RTM1 MAINLINE - IEAVTRTM 00212043 .* RTM RECORDING - IEAVTRER, IEAVTRET 00215043 .* RTM MEMORY TERMINATION - IEAVTMRM, IEAVTMTC @G33SPHW 00218043 .* RTM2 DUMP ROUTINES - IEAVAD00, IEAVAD0D, IEAVTABD, IEAVTABI, 00221043 .* IEAVTFMT, IEAVTFSD, IEAVTSDI, 00222043 .* (MOST MODULES STARTING WITH IEAVTSD...) 00224043 .* IEAVTSSD, IEAVTSSE @G33VPHZ 00226043 .* CHNGDUMP COMMAND - IEEMB815 00230043 .* DISPLAY DUMP COMMAND - IEECB910 @G33CPHE 00233043 .* LOGDATA FORMATTER - IFCERFMT @G33LPHP 00234043 .********************************************************************** 00236043 IEZBITS , - SYMBOLIC BIT NAMES 00250002 RTCTNAME DS CL4 - CONTAINS C'RTCT' AS IDENTIFIER. 00300002 *********************************************************************** 00302043 * SNAP/ABEND PARMLIB VALUES * 00304043 *********************************************************************** 00306043 RTCTPLIB DS 0CL12 @G33CPHE 00310043 * 00315043 RTCTSAP DS 0BL4 - **SYSABEND INITIAL PARMLIB VALUES** 00320043 RTCTSAP1 DS B - (BYTE 1 OF SDATA OPTIONS:) 00330043 RTCTSAB0 EQU BIT0 1=DISPLAY NUCLEUS 00410002 RTCTSAB1 EQU BIT1 1=DISPLAY SQA 00420002 RTCTSAB2 EQU BIT2 1=DISPLAY LSQA 00430002 RTCTSAB3 EQU BIT3 1=DISPLAY SWA 00440002 RTCTSAB4 EQU BIT4 1=DISPLAY GTF OR SUPERVISOR TRACE 00442002 RTCTSAB5 EQU BIT5 1=DISPLAY CONTROL BLOCKS FOR TASK 00443043 RTCTSAB6 EQU BIT6 1=DISPLAY ENQUEUE CONTROL BLOCKS 00444043 RTCTSAB7 EQU BIT7 1=FORMAT DATA MGMT C.B.S @G33CPHE 00447043 * 00447243 RTCTSAP2 DS B (BYTE 2 OF SDATA OPTIONS:) 00447343 RTCTSABG EQU BIT0 1=FORMAT IOS CONTROL BLOCKS @G33CPHE 00447443 RTCTSABH EQU BIT1 1=FORMAT ERROR CONTROL BLKS @G33CPHE 00447543 * EQU BIT2 RESERVED 00448043 * EQU BIT3 RESERVED 00448243 * EQU BIT4 RESERVED 00448443 * EQU BIT5 RESERVED 00448643 * EQU BIT6 RESERVED 00448843 * EQU BIT7 RESERVED 00449043 * 00449143 RTCTSAP3 DS B - (BYTE 1 OF PDATA OPTIONS:) 00449243 RTCTSAB8 EQU BIT0 1=DISPLAY SAVE AREA TRACE(SA KEYWORD) 00452243 RTCTSAB9 EQU BIT1 0=DISPLAY ENTIRE SAVE AREA 00470002 * 1=DISPLAY SAVE AREA HEADINGS(SAH KWD) 00475043 RTCTSABA EQU BIT2 1=DISPLAY REGISTERS 00490002 RTCTSABB EQU BIT3 1=DISPLAY LINK PACK AREA 00492002 RTCTSABC EQU BIT4 1=DISPLAY JOB PACK AREA 00494002 RTCTSABD EQU BIT5 1=DISPLAY PSW 00496002 RTCTSABE EQU BIT6 1=DISPLAY USER SUBPOOLS: 0-127 00498002 RTCTSABF EQU BIT7 RESERVED 00498402 RTCTSAP4 DS B RESERVED 00540043 * 00542043 RTCTSUP DS 0BL4 - **SYSUDUMP INITIAL PARMLIB VALUES** 00544043 RTCTSUP1 DS B - (BYTE 1 OF SDATA OPTIONS:) 00554043 RTCTSUD0 EQU BIT0 1=DISPLAY NUCLEUS 00602002 RTCTSUD1 EQU BIT1 1=DISPLAY SQA 00610002 RTCTSUD2 EQU BIT2 1=DISPLAY LSQA 00620002 RTCTSUD3 EQU BIT3 1=DISPLAY SWA 00630002 RTCTSUD4 EQU BIT4 1=DISPLAY GTF OR SUPERVISOR TRACE 00640002 RTCTSUD5 EQU BIT5 1=DISPLAY CNTRL BLKS FOR TASK 00642002 RTCTSUD6 EQU BIT6 1=DISPLAY ENQUEUE CNTRL BLKS 00644002 RTCTSUD7 EQU BIT7 1=FORMAT DATA MGMT C.B.S @G33CPHE 00645043 * 00645343 RTCTSUP2 DS B (BYTE 2 OF SDATA OPTIONS:) 00645443 RTCTSUDG EQU BIT0 1=FORMAT IOS CONTROL BLOCKS @G33CPHE 00645743 RTCTSUDH EQU BIT1 1=FORMAT ERROR CONTROL BLKS @G33CPHE 00646043 * EQU BIT2 RESERVED 00646643 * EQU BIT3 RESERVED 00647043 * EQU BIT4 RESERVED 00647443 * EQU BIT5 RESERVED 00647843 * EQU BIT6 RESERVED 00648243 * EQU BIT7 RESERVED 00648643 * 00648843 RTCTSUP3 DS B - (BYTE 1 OF PDATA OPTIONS:) 00649043 RTCTSUD8 EQU BIT0 1=DISPLAY SAVE AREA TRACE(SA KEYWORD) 00652043 RTCTSUD9 EQU BIT1 0=DISPLAY ENTIRE SAVE AREA 00670002 * 1=DISPLAY SAVE AREA HEADINGS(SAH KWD) 00675043 RTCTSUDA EQU BIT2 1=DISPLAY REGISTERS 00690002 RTCTSUDB EQU BIT3 1=DISPLAY LINK PACK AREA 00692002 RTCTSUDC EQU BIT4 1=DISPLAY JOB PACK AREA 00694002 RTCTSUDD EQU BIT5 1=DISPLAY PSW 00696002 RTCTSUDE EQU BIT6 1=DISPLAY USER SUBPOOLS: 0-127 00698002 RTCTSUDF EQU BIT7 RESERVED 00698402 RTCTSUP4 DS B RESERVED 00718443 * 00719443 RTCTSYD DS 0BL4 **SYSMDUMP INITIAL PARMLIB VALUES** 00720443 RTCTSY01 DS B (BYTE 1 OF SDATA OPTIONS:) @G33CPHE 00722443 RTCTSYM0 EQU BIT0 1=DISPLAY NUCLEUS @G33CPHE 00724443 RTCTSYM1 EQU BIT1 1=DISPLAY SQA @G33CPHE 00726443 RTCTSYM2 EQU BIT2 1=DISPLAY LSQA @G33CPHE 00728443 RTCTSYM3 EQU BIT3 1=DISPLAY SWA @G33CPHE 00730443 RTCTSYM4 EQU BIT4 1=DISPLAY GTF OR SUPV TRACE @G33CPHE 00732443 RTCTSYM5 EQU BIT5 1=DISPLAY REGION @G33CPHE 00734443 RTCTSYM6 EQU BIT6 1=DISPLAY LPA FOR REGION @G33CPHE 00736443 RTCTSYM7 EQU BIT7 1=DISPLAY CSA @G33CPHE 00738443 RTCTSY02 DS B RESERVED 00748843 RTCTSY03 DS B RESERVED 00749043 RTCTSY04 DS B RESERVED 00750043 *********************************************************************** 00751043 * RTM AND LOGREC RECORDING INFORMATION * 00752043 *********************************************************************** 00753043 RTCTYYY1 DS H **RESERVED** @G33CPHZ 00756443 RTCTSDID DS H - ASID OF MEMORY IN WHICH SVC DUMP IS 01348443 * OR WILL BE RUNNING. 01350002 RTCTMECB DS XL4 - ECB WAIT'ED ON BY MEMORY 01400002 * TERMINATION CONTROLLER 01450002 RTCTFASB DS A - ADDRESS OF FIRST ASCB ON MEMORY 01500002 * TERMINATION QUEUE. 01550002 RTCTRECB DS XL4 - ECB WAIT'ED ON BY RECORDING TASK. 01600002 RTCTRCB DS A - ADDRESS OF RECORDER'S BUFFER CONTROL 01630043 * BLOCKS (CONTAIN LOGREC ENTRIES). 01660043 *********************************************************************** 01750043 * THE FOLLOWING TABLE IS COMPOSED OF TEN TWELVE-BYTE ENTRIES, EACH * 01770043 * ONE CORRESPONDING TO AN SVC DUMP DATA SET. * 01800043 *********************************************************************** 01870043 RTCTSDDS DS 0CL120 - TOTAL OF TEN TWELVE-BYTE ENTRIES 01950002 RTCTDSNM DS CL3 - NAME IDENTIFIER OF THIS DATA SET... 02000002 * TAPE - EBCDIC UNIT ADDRESS, 02050002 * DISK - EBCDIC 00-09 WITH TRAILING 02100002 * BLANK. 02150002 RTCTFLG DS B - FLAG BYTE.......... 02170043 RTCTDSST EQU BIT0 1-D.S. FULL, 0-D.S. AVAILABLE. 02205043 RTCTDSUS EQU BIT1 1-D.S. USED, 0-D.S. NOT USED. 02220002 RTCTDETP EQU BIT2 0-TAPE D.S., 1-DASD D.S. 02230002 RTCTDCB DS A - DEB ADDRESS FOR THIS DATA SET. 02250002 RTCTDEV DS XL4 - DEVICE TYPE CODE FOR THIS DATA SET. 02300002 RTCTBLEN EQU *-RTCTDSNM LENGTH OF ONE TABLE ENTRY. 02350002 DS CL108 REMAINING NINE ENTRIES. 02400002 * *** END OF TABLE ***************** 02450002 * 02460002 RTCTSDPL DS A - ADDRESS OF SVC DUMP PARAMETER LIST 02500002 * FOR CROSS-MEMORY REQUEST. 02520043 RTCTSDIP EQU BIT0 HIGH ORDER BIT IS SVC DUMP IN 02550043 * PROGRESS FLAG. @G33VPHZ 02560043 * 02600002 RTCTFMT DS A USED FOR TESTING RTM MODULES 02650043 RTCTMLCK DS F LOCK FOR MEM TERM POST SRB 02908102 RTCTMSRB DS F PTR TO MEM TERM POST SRB 02908202 RTCTTEST DS F USED FOR TESTING RTM MODULES 02908302 RTCTRFLG DS B RECORDING FLAGS 02918402 RTCTRTER EQU BIT0 RECORDING TEMPORARY ERROR 02918802 RTCTRPER EQU BIT1 RECORDING PERMANENT ERROR 02918902 RTCTRSTF EQU BIT2 INITIAL STF ENTRY 02921402 RTCTXXX1 DS BL1 RESERVED 02922441 RTCTSEQ# DS H ERRORID SEQUENCE NUMBER @G17EP5W 02924141 RTCTSDSW DS A ADDRESS OF SUMMARY SVC DUMP (SUMDUMP) 02926643 * WORK AREA (IHASMWK) @G33VPHD 02927443 RTCTTDCB DS 9F TAPE DCB FOR SVC DUMP 02929102 RTCTSDWK DS A ADDRESS OF SVC DUMP WORK AREA 02929202 RTCTERID DS 0CL10 ERRORID FOR THIS FAILURE'S SVC DUMP 02930243 * HEADER @G17EP5W 02931243 RTCTESEQ DS CL2 ERRORID SEQUENCE NUMBER @G17EP5W 02933241 RTCTECPU DS CL2 ERRORID LOGICAL CPU ID @G17EP5W 02937741 RTCTEASD DS CL2 ERRORID ASID @G17EP5W 02938041 RTCTETIM DS CL4 ERRORID TIMESTAMP @G17EP5W 02938341 RTCTXXX2 DS CL2 RESERVED @G17EP5W 02938641 *********************************************************************** 02938843 * DEFAULT DUMP OPTIONS, WHICH CAN BE CHANGED BY THE CHNGDUMP * 02939243 * OPERATOR COMMAND * 02939343 *********************************************************************** 02939843 RTCTOPT DS 0CL16 @G33CPHE 02939943 RTCTSAO DS 0BL4 **SYSABEND EFFECTIVE OPTIONS** 02940243 RTCTSASD DS 0BL2 02940343 RTCTSAO1 DS B (BYTE 1 OF SDATA OPTIONS:) 02941243 RTCTSAD0 EQU BIT0 1=DISPLAY NUCLEUS 02941543 RTCTSAD1 EQU BIT1 1=DISPLAY SQA 02942543 RTCTSAD2 EQU BIT2 1=DISPLAY LSQA 02943543 RTCTSAD3 EQU BIT3 1=DISPLAY SWA 02944543 RTCTSAD4 EQU BIT4 1=DISPLAY GTF OR SUPERVISOR TRACE 02945543 RTCTSAD5 EQU BIT5 1=DISPLAY CONTROL BLOCKS FOR TASK 02946543 RTCTSAD6 EQU BIT6 1=DISPLAY ENQUEUE CONTROL BLOCKS 02947443 RTCTSAD7 EQU BIT7 1=FORMAT DATA MGMT C.B.S @G33CPHE 02949443 * 02949643 RTCTSAO2 DS B (BYTE 2 OF SDATA OPTIONS:) 02949843 RTCTSADG EQU BIT0 1=FORMAT IOS CONTROL BLOCKS @G33CPHE 02950243 RTCTSADH EQU BIT1 1=FORMAT ERROR CONTROL BLKS @G33CPHE 02950643 * BIT3 RESERVED 02951043 * BIT4 RESERVED 02951443 * BIT5 RESERVED 02951843 * BIT6 RESERVED 02952243 * BIT7 RESERVED 02952643 RTCTSAPD DS 0BL2 02953043 RTCTSAO3 DS B (BYTE 1 OF PDATA OPTIONS:) 02953243 RTCTSAD8 EQU BIT0 1=DISPLAY SAVE AREA TRACE(SA KEYWORD) 02953843 RTCTSAD9 EQU BIT1 0=DISPLAY ENTIRE SAVE AREA 02954243 * 1=DISPLAY SAVE AREA HEADINGS(SAH KWD) 02954643 RTCTSADA EQU BIT2 1=DISPLAY REGISTERS 02955043 RTCTSADB EQU BIT3 1=DISPLAY LINK PACK AREA 02955443 RTCTSADC EQU BIT4 1=DISPLAY JOB PACK AREA 02955843 RTCTSADD EQU BIT5 1=DISPLAY PSW 02956243 RTCTSADE EQU BIT6 1=DISPLAY USER SUBPOOLS: 0-127 02956643 RTCTSADF EQU BIT7 RESERVED 02957043 * 02957243 RTCTSAO4 DS B (BYTE 1 OF OTHER OPTIONS:) 02957443 RTCTSAMG EQU BIT6 SEE RTCTSAOV @G33CPHZ 02957843 RTCTSAOV EQU BIT6 1=OVER MODE 0=ADD MODE @G33CPHZ 02958143 RTCTISAB EQU BIT7 IGNORE REQUESTS FOR SYSABEND @G33CPHE 02958243 * 02958643 RTCTSUO DS 0BL4 **SYSUDUMP EFFECTIVE OPTIONS** 02959043 RTCTSUSD DS 0BL2 02959443 RTCTSUO1 DS B (BYTE 1 OF SDATA OPTIONS:) 02959643 RTCTSYD0 EQU BIT0 1=DISPLAY NUCLEUS 02960243 RTCTSYD1 EQU BIT1 1=DISPLAY SQA 02960643 RTCTSYD2 EQU BIT2 1=DISPLAY LSQA 02961043 RTCTSYD3 EQU BIT3 1=DISPLAY SWA 02961443 RTCTSYD4 EQU BIT4 1=DISPLAY GTF OR SUPERVISOR TRACE 02961843 RTCTSYD5 EQU BIT5 1=DISPLAY CNTRL BLKS FOR TASK 02962243 RTCTSYD6 EQU BIT6 1=DISPLAY ENQUEUE CNTRL BLKS 02962643 RTCTSYD7 EQU BIT7 1=FORMAT DATA MGMT C.B.S @G33CPHE 02963043 * 02963343 RTCTSUO2 DS B (BYTE 2 OF SDATA OPTIONS:) 02963443 RTCTSYDG EQU BIT0 1=FORMAT IOS CONTROL BLOCKS @G33CPHE 02963743 RTCTSYDH EQU BIT1 1=FORMAT ERROR CONTROL BLKS @G33CPHE 02964043 * RESERVED 02964643 * EQU BIT4 RESERVED 02965043 * EQU BIT5 RESERVED 02965443 * EQU BIT6 RESERVED 02965843 * EQU BIT7 RESERVED 02966243 RTCTSUPD DS 0BL2 02966643 RTCTSUO3 DS B (BYTE 1 OF PDATA OPTIONS:) 02966843 RTCTSYD8 EQU BIT0 1=DISPLAY SAVE AREA TRACE(SA KEYWORD) 02967443 RTCTSYD9 EQU BIT1 0=DISPLAY ENTIRE SAVE AREA 02967843 * 1=DISPLAY SAVE AREA HEADINGS(SAH KWD) 02968243 RTCTSYDA EQU BIT2 1=DISPLAY REGISTERS 02968643 RTCTSYDB EQU BIT3 1=DISPLAY LINK PACK AREA 02969043 RTCTSYDC EQU BIT4 1=DISPLAY JOB PACK AREA 02969443 RTCTSYDD EQU BIT5 1=DISPLAY PSW 02969843 RTCTSYDE EQU BIT6 1=DISPLAY USER SUBPOOLS: 0-127 02970243 RTCTSYDF EQU BIT7 RESERVED 02970643 * 02970843 RTCTSUO4 DS B (BYTE 1 OF OTHER OPTIONS:) 02971043 RTCTSUMG EQU BIT6 SEE RTCTSUOV @G33CPHZ 02971443 RTCTSUOV EQU BIT6 1=OVER MODE 0=ADD MODE @G33CPHZ 02971743 RTCTISYU EQU BIT7 IGNORE REQUESTS FOR SYSUDUMP @G33CPHE 02971843 * 02972043 RTCTSYO DS 0BL4 **SYSMDUMP EFFECTIVE OPTIONS** 02972243 RTCTSD01 DS B (BYTE 1 OF SDATA OPTIONS:) @G33CPHE 02972643 RTCTSDS0 EQU BIT0 1=DISPLAY NUCLEUS @G33CPHE 02973043 RTCTSDS1 EQU BIT1 1=DISPLAY SQA @G33CPHE 02973443 RTCTSDS2 EQU BIT2 1=DISPLAY LSQA @G33CPHE 02973843 RTCTSDS3 EQU BIT3 1=DISPLAY SWA @G33CPHE 02974243 RTCTSDS4 EQU BIT4 1=DISPLAY GTF OR SPV.TRACE @G33CPHE 02974643 RTCTSDS5 EQU BIT5 1=DISPLAY REGION @G33CPHE 02975043 RTCTSDS6 EQU BIT6 1=DISPLAY ACTIVE LPA FOR RGN @G33CPHE 02975243 RTCTSDS7 EQU BIT7 1=DISPLAY CSA @G33CPHE 02975843 RTCTSD02 DS B RESERVED 02976243 RTCTSD03 DS B RESERVED 02976643 * 02976843 RTCTSD04 DS B (BYTE 1 OF OTHER OPTIONS:) 02977043 RTCTSMMG EQU BIT6 SEE RTCTSMOV @G33CPHZ 02977443 RTCTSMOV EQU BIT6 1=OVER MODE 0=ADD MODE @G33CPHZ 02977743 RTCTISYM EQU BIT7 IGNORE REQUESTS FOR SYSMDUMP @G33CPHE 02977843 * 02978243 RTCTSDO DS 0BL4 **SVC DUMP EFFECTIVE OPTIONS** 02978643 RTCTSDOD DS 0BL2 @G33CPHZ 02978743 RTCTSDO1 DS B (BYTE 1 OF SDATA OPTIONS:) 02978843 RTCTSDP0 EQU BIT0 1=DISPLAY ALL PSA'S IN SYSTEM 02979443 RTCTSDP1 EQU BIT1 1=DISPLAY CURRENT PSA 02979843 RTCTSDP2 EQU BIT2 1=DISPLAY NUCLEUS 02980243 RTCTSDP3 EQU BIT3 1=DISPLAY SQA 02980643 RTCTSDP4 EQU BIT4 1=DISPLAY LSQA 02981043 RTCTSDP5 EQU BIT5 1=DISPLAY REGION (PRIVATE AREA) 02981443 RTCTSDP6 EQU BIT6 1=DISPLAY ACTIVE LPA MODULES FOR RGN 02981643 RTCTSDP7 EQU BIT7 1=DISPLAY GTF OR SUPERVISOR TRACE 02982243 RTCTSDO2 DS B - 02982643 RTCTSDP8 EQU BIT0 1=DISPLAY CSA 02983043 RTCTSDP9 EQU BIT1 1=DISPLAY SWA 02983443 RTCTSDPA EQU BIT2 1=DISPLAY SUMMARY SVC DUMP 02983843 * (SUMDUMP) @G33CPHE 02984043 RTCTSDPB EQU BIT3 1=NO SUMMARY DUMP DISPLAY @G33CPHE 02984643 RTCTSDPC EQU BIT4 1=NO ALL PSA DISPLAY @G33CPHE 02985043 RTCTSDPD EQU BIT5 1=NO SQA DISPLAY @G33CPHE 02985443 * EQU BIT6 RESERVED 02985843 * EQU BIT7 RESERVED 02986243 * 02986443 RTCTSDO3 DS B (BYTE 1 OF OTHER OPTIONS:) 02986643 RTCTSDPG EQU BIT0 1 MEANS QUIESCE=YES SPECIFIED ON 02987043 * CHNGDUMP COMMAND 02987443 RTCTSDPH EQU BIT1 1 MEANS QUIESCE=NO SPECIFIED ON 02987843 * CHNGDUMP COMMAND 02988243 * EQU BIT3 RESERVED 02988643 * EQU BIT4 RESERVED 02989043 * EQU BIT5 RESERVED 02989443 * EQU BIT6 RESERVED 02989843 * EQU BIT7 RESERVED 02999643 RTCTSDO4 DS B (BYTE 2 OF OTHER OPTIONS:) 03000643 RTCTSDMG EQU BIT6 SEE RTCTSDOV @G33CPHZ 03001643 RTCTSDOV EQU BIT6 1=OVER MODE 0=ADD MODE @G33CPHZ 03001943 RTCTISVC EQU BIT7 IGNORE REQUESTS FOR SVCDUMP @G33CPHE 03002643 * 03003643 *********************************************************************** 03003743 * ADDITIONAL SVC DUMP INFORMATION AND FLAGS * 03003843 *********************************************************************** 03004243 RTCTASO DS 0BL2 **ACTUAL SVC DUMP OPTIONS FROM MERGER 03004343 * OF DEFAULTS AND SDUMP MACRO OPTIONS** 03004443 * @G33VPHZ 03004543 RTCTASOD DS 0BL2 @G33VPHZ 03004643 RTCTASO1 DS B (BYTE 1 OF SDATA:) @G33VPHZ 03004743 RTCTASAL EQU BIT0 1=DISPLAY ALL PSA'S @G33VPHZ 03004943 RTCTASPS EQU BIT1 1=DISPLAY CURRENT PSA @G33VPHZ 03005043 RTCTASNU EQU BIT2 1=DISPLAY NUCLEUS @G33VPHZ 03005143 RTCTASSQ EQU BIT3 1=DISPLAY SQA @G33VPHZ 03005243 RTCTASLS EQU BIT4 1=DISPLAY LSQA @G33VPHZ 03005343 RTCTASRG EQU BIT5 1=DISPLAY REGION (RGN) @G33VPHZ 03005443 RTCTASLP EQU BIT6 1=DISPLAY ACTIVE LPA @G33VPHZ 03005543 RTCTASTR EQU BIT7 1=DISPLAY GTF OR SUPV TRACE @G33VPHZ 03005743 RTCTASO2 DS B (BYTE 2 OF SDATA:) @G33VPHZ 03005843 RTCTASCS EQU BIT0 1=DISPLAY CSA @G33VPHZ 03005943 RTCTASSW EQU BIT1 1=DISPLAY SWA @G33VPHZ 03006043 RTCTASSU EQU BIT2 1=DISPLAY SUMMARY DUMP @G33VPHZ 03006143 RTCTASNS EQU BIT3 1=DISPLAY NO SUMDUMP @G33VPHZ 03006243 RTCTASNA EQU BIT4 1=DISPLAY NO ALLPSA @G33VPHZ 03006343 RTCTASNQ EQU BIT5 1=DISPLAY NO SQA @G33VPHZ 03006443 * EQU BIT6 RESERVED @G33VPHZ 03006543 * EQU BIT7 RESERVED @G33VPHZ 03006643 RTCTSDI DS 0BL2 **SVC DUMP INFORMATION** 03007343 RTCTSDNA DS B NUMBER ADDR SPACES TO DUMP @G33VPHD 03007443 RTCTINDX DS B INDEX FOR ASID LIST ENTRY @G33VPHD 03007543 RTCTSDPR DS XL1 PERMANENT RETURN CODE @G33VPHD 03007643 RTCTZZZ2 DS BL7 RESERVED @G33VPHZ 03007943 * 03008743 RTCTSDF DS 0BL4 **SVC DUMP FLAGS** 03009043 RTCTSDF1 DS B (BYTE 1 OF FLAGS:) 03009343 RTCTSDNO EQU BIT0 NO SYS1.DUMP DATASETS DEFINED 03009643 RTCTSDND EQU BIT1 SVC DUMP SET SYSTEM NON-DISP 03010143 RTCTSDSH EQU BIT2 SCHEDULE DUMP (IEAVTSDX) REQUEST 03010643 * @G33VPHZ 03011943 RTCTSDMA EQU BIT3 MULTIPLE ADDR SPACE DUMP IN PROGRESS 03012643 * @G33VPHD 03013143 RTCTSDEP EQU BIT4 CALLER'S ECB POSTED 03013643 RTCTSDSD EQU BIT5 SUMMARY DUMP (IEAVTSSD) RECEIVED 03014643 * CONTROL @G33VPHZ 03014943 RTCTSDRS EQU BIT6 REAL STORAGE BUFFER MGR (IEAVPRSB) 03015643 * RECEIVED CONTROL @G33VPHZ 03015943 RTCTSDSC EQU BIT7 SUMMARY DUMP (IEAVTSSD) COMPLETED 03016643 * PROCESSING @G33VPHZ 03016843 * 03017043 RTCTSDF2 DS B (BYTE 2 OF FLAGS:) @G33VPHZ 03017643 RTCTSDMR EQU BIT0 DUMP MASTER ADDR SPACE REQD @G33VPHD 03018243 RTCTSDTQ EQU BIT1 TQE WAS ENQUEUED BY SETDIE @G33VPHD 03019643 RTCTSDDI EQU BIT2 TIMER DIE RECEIVED CONTROL (SCHDIE IN 03020643 * IEAVTSDX) @G33VPHD 03020943 RTCTSDLA EQU BIT3 LAST ASID BEING PROCESSED @G33VPHD 03021643 RTCTSDWF EQU BIT4 SUMDUMP WRITER (IEAVTSDW) HAS 03022643 * COMPLETED @G33VPHD 03022943 RTCTSDSL EQU BIT5 DUMP DATA SET WAS SELECTED @G33VPHD 03023643 RTCTSDRW EQU BIT6 SUMDUMP RECORDS (FROM 03024643 * IEAVTSSD) TO WRITE @G33VPHD 03024943 RTCTSDFX EQU BIT7 ASYNC EXIT FLAG @ZA27434 03025643 RTCTR2D2 DS B (BYTE 3 OF FLAGS:) 03025943 RTCTC3PO DS B (BYTE 4 OF FLAGS:) 03026443 RTCTSDF3 DS 0CL64 **ARRAY OF INFO FOR SVC DUMP OF 03028243 * MULTIPLE ADDRESS SPACES** @G33VPHD 03029043 RTCTSDAS DS BL2 ASID OF THIS ADDRESS SPACE (A.S.) 03029643 * @G33VPHZ 03030243 RTCTSDF4 DS B (BYTE 1 OF FLAGS:) @G33VPHZ 03031643 RTCTSDSS EQU BIT0 GSRB IN ADDR SPACE SCHEDULED @G33VPHZ 03032143 RTCTSDNC EQU BIT1 NON-DISPATCHABLE SRB RECEIVED CONTROL 03033243 * @G33VPHZ 03033643 RTCTSDAN EQU BIT2 ADDRESS SPACE SET NON-DISPATCHABLE 03034043 * @G33VPHZ 03034843 RTCTSDRM EQU BIT3 DUMP TASK HAS BEEN RESUMED @G33VPHZ 03035643 RTCTSDTR EQU BIT4 DUMP TASK RUNNING @G33VPHZ 03036243 RTCTSDEQ EQU BIT5 DUMP TASK ENQUEUED ON DUMP RESOURCE 03036843 * @G33VPHZ 03037443 RTCTSDEN EQU BIT6 SVC DUMP (IEAVAD00 OR IEAVTSDT) IS 03038643 * PROCESSING THIS A.S. @G33VPHZ 03038943 RTCTSDDO EQU BIT7 DUMP ATTEMPTED FOR THIS ASID @G33VPHZ 03039643 RTCTSDF5 DS B RESERVED 03040643 RTCTSDEL EQU *-RTCTSDF3 LENGTH OF ELEMENT OF ADDR SPACE ARRAY 03041643 * @G33VPHZ 03042143 DS CL60 REMAINING 15 ASID ENTRIES @G33VPHZ 03042643 * 03043643 *********************************************************************** 03043743 * RTM INFORMATION * 03043843 *********************************************************************** 03043943 RTCTMRMQ DS A ADDRESS OF QUEUE OF STORAGE AREAS 03044043 * (USED FOR SYSMDUMPS) TO BE FREED 03044343 * AT MEMTERM @G33SPHZ 03044443 RTCTZZZ4 DS F RESERVED @G33VPHZ 03044543 RTCTZZZ5 DS F RESERVED @G33VPHZ 03044643 * 03045443 RTCTLEN EQU *-RTCT TOTAL LENGTH OF RTM CONTROL TABLE. 03045543 MEND 03045643 * */ 03049043 *%RTCTPLS: ; 03050002 *DECLARE 03070043 * 1 RTCT BASED(CVTRTMCT), /* CVT HAS THE ADDRESS OF THE RTCT 03150043 * @G33CPHE*/ 03160043 * 2 RTCTNAME CHAR(4), /* EBCDIC NAME IS C'RTCT' */ 03170043 * /*****************************************************************/ 03202043 * /* SNAP/ABEND PARMLIB VALUES */ 03204043 * /*****************************************************************/ 03206043 * 2 RTCTPLIB CHAR(12), /* @G33CPHE*/ 03210043 * 3 RTCTSAP BIT(32), /* *** SYSABEND INITIAL PARMLIB 03220043 * VALUES *********************** */ 03223043 * 4 RTCTSAP1 BIT(8), /* (BYTE 1 OF SDATA OPTIONS:) */ 03230043 * 6 RTCTSAB0 BIT(1), /* 1=DISPLAY NUCLEUS */ 03300043 * 6 RTCTSAB1 BIT(1), /* 1=DISPLAY SQA */ 03310043 * 6 RTCTSAB2 BIT(1), /* 1=DISPLAY LSQA */ 03320043 * 6 RTCTSAB3 BIT(1), /* 1=DISPLAY SWA */ 03330043 * 6 RTCTSAB4 BIT(1), /* 1=DISPLAY GTF OR SUPERVISOR 03340043 * TRACE */ 03344002 * 6 RTCTSAB5 BIT(1), /* 1=DISPLAY CONTROL BLOCKS FOR 03345043 * TASK */ 03348002 * 6 RTCTSAB6 BIT(1), /* 1=DISPLAY ENQUEUE CNTRL BLKS */ 03348243 * 6 RTCTSAB7 BIT(1), /* 1=FORMAT DATA MGMT C.B.S @G33CPHE*/ 03348843 * 03349143 * 4 RTCTSAP2 BIT(8), /* (BYTE 2 OF SDATA OPTIONS:) */ 03349843 * 6 RTCTSABG BIT(1), /* 1=FORMAT IOS CNTRL BLKS @G33CPHE*/ 03350343 * 6 RTCTSABH BIT(1), /* 1=FORMAT ERROR C.B.S @G33CPHE*/ 03351143 * 6 * BIT(6), /* RESERVED */ 03352843 * 03353343 * 4 RTCTSAP3 BIT(8), /* (BYTE 1 OF PDATA OPTIONS:) */ 03353843 * 6 RTCTSAB8 BIT(1), /* 1=DISPLAY SAVE AREA TRACE (SA) */ 03354843 * 6 RTCTSAB9 BIT(1), /* 0=DISPLAY ENTIRE SAVE AREA 03360043 * 1=DISPLAY SAVE AREA HEADINGS 03366043 * (SAH KEYWORD) */ 03369043 * 6 RTCTSABA BIT(1), /* 1=DISPLAY REGISTERS */ 03385043 * 6 RTCTSABB BIT(1), /* 1=DISPLAY LINK PACK AREA */ 03390043 * 6 RTCTSABC BIT(1), /* 1=DISPLAY JOB PACK AREA */ 03392043 * 6 RTCTSABD BIT(1), /* 1=DISPLAY PSW */ 03394043 * 6 RTCTSABE BIT(1), /* 1=DISPLAY USER SUBPOOLS: 03396043 * 0-127 */ 03398402 * 6 RTCTSABF BIT(1), /* RESERVED */ 03398643 * 4 RTCTSAP4 BIT(8), /* RESERVED */ 03398943 * 03401943 * 3 RTCTSUP BIT(32), /* *** SYSUDUMP INITIAL PARMLIB 03408943 * VALUES *********************** */ 03411943 * 4 RTCTSUP1 BIT(8), /* (BYTE 1 OF SDATA OPTIONS:) */ 03418943 * 6 RTCTSUD0 BIT(1), /* 1=DISPLAY NUCLEUS */ 03450043 * 6 RTCTSUD1 BIT(1), /* 1=DISPLAY SQA */ 03460043 * 6 RTCTSUD2 BIT(1), /* 1=DISPLAY LSQA */ 03470043 * 6 RTCTSUD3 BIT(1), /* 1=DISPLAY SWA */ 03480043 * 6 RTCTSUD4 BIT(1), /* 1=DISPLAY GTF OR SUPERVISOR 03490043 * TRACE */ 03494002 * 6 RTCTSUD5 BIT(1), /* 1=DISPLAY CONTROL BLOCKS FOR 03495043 * TASK */ 03498002 * 6 RTCTSUD6 BIT(1), /* 1=DISPLAY ENQUEUE CONTROL BLKS */ 03498243 * 6 RTCTSUD7 BIT(1), /* 1=FORMAT DATA MANAGEMENT CONTROL 03498843 * BLOCKS @G33CPHE*/ 03499043 * 03499243 * 4 RTCTSUP2 BIT(8), /* (BYTE 2 OF SDATA OPTIONS:) */ 03499843 * 6 RTCTSUDG BIT(1), /* 1=FORMAT IOS C.B.S @G33CPHE*/ 03500843 * 6 RTCTSUDH BIT(1), /* 1=FORMAT ERROR C.B.S @G33CPHE*/ 03501443 * 6 * BIT(6), /* RESERVED */ 03502843 * 03503343 * 4 RTCTSUP3 BIT(8), /* (BYTE 1 OF PDATA OPTIONS:) */ 03503843 * 6 RTCTSUD8 BIT(1), /* 1=DISPLAY SAVE AREA TRACE (SA) */ 03504843 * 6 RTCTSUD9 BIT(1), /* 0=DISPLAY ENTIRE SAVE AREA 03510043 * 1=DISPLAY SAVE AREA HEADINGS 03516043 * (SAH KEYWORD) */ 03519043 * 6 RTCTSUDA BIT(1), /* 1=DISPLAY REGISTERS */ 03535043 * 6 RTCTSUDB BIT(1), /* 1=DISPLAY LINK PACK AREA */ 03540043 * 6 RTCTSUDC BIT(1), /* 1=DISPLAY JOB PACK AREA */ 03542043 * 6 RTCTSUDD BIT(1), /* 1=DISPLAY PSW */ 03544043 * 6 RTCTSUDE BIT(1), /* 1=DISPLAY USER SUBPOOLS: 03546043 * 0-127 */ 03548402 * 6 RTCTSUDF BIT(1), /* RESERVED */ 03548643 * 4 RTCTSUP4 BIT(8), /* RESERVED */ 03549843 * 03550843 * 3 RTCTSYD BIT(32), /* *** SYSMDUMP INITIAL PARMLIB 03552843 * VALUES *********************** */ 03553443 * 4 RTCTSY01 BIT(8), /* (BYTE 1 OF SDATA OPTIONS:) */ 03554843 * 6 RTCTSYM0 BIT(1), /* 1=DISPLAY NUCLEUS @G33CPHE*/ 03556843 * 6 RTCTSYM1 BIT(1), /* 1=DISPLAY SQA @G33CPHE*/ 03558843 * 6 RTCTSYM2 BIT(1), /* 1=DISPLAY LSQA @G33CPHE*/ 03560843 * 6 RTCTSYM3 BIT(1), /* 1=DISPLAY SWA @G33CPHE*/ 03562843 * 03564843 * 6 RTCTSYM4 BIT(1), /* 1=DISPLAY GTF OR SUPERVISOR 03570843 * TRACE @G33CPHE*/ 03571843 * 6 RTCTSYM5 BIT(1), /* 1=DISPLAY REGION @G33CPHE*/ 03573843 * 6 RTCTSYM6 BIT(1), /* 1=DISPLAY LPA FOR RGN @G33CPHE*/ 03575843 * 6 RTCTSYM7 BIT(1), /* 1=DISPLAY CSA @G33CPHE*/ 03577843 * 4 RTCTSY02 BIT(8), /* RESERVED */ 03582843 * 4 RTCTSY03 BIT(8), /* RESERVED */ 03584843 * 4 RTCTSY04 BIT(8), /* RESERVED */ 03588843 * /****************************************************************/ 03589843 * /* RTM AND LOGREC RECORDING INFORMATION */ 03590843 * /****************************************************************/ 03591843 * 2 RTCTYYY1 FIXED(15), /* **RESERVED** @G33CPHZ*/ 03592843 * 2 RTCTSDID FIXED(15), /* ASID OF MEMORY IN WHICH SVC 04048043 * DUMP IS OR WILL BE RUNNING. */ 04050002 * 2 RTCTMECB CHAR(4), /* ECB WAITED ON BY MEMORY 04100002 * TERMINATION CONTROLLER. */ 04120043 * 2 RTCTFASB PTR(31), /* ADDRESS OF FIRST ASCB ON MEMORY 04200002 * TERMINATION QUEUE. */ 04250002 * 2 RTCTRECB CHAR(4), /* ECB WAITED ON BY RECORDING TASK*/ 04300002 * 2 RTCTRCB PTR(31), /* ADDRESS OF RECORDER'S BUFFER 04310043 * CONTROL BLOCKS (CONTAIN LOGREC 04320043 * ENTRIES). THIS FIELD MUST 04330043 * REMAIN AT OFFSET X'20' FOR 04340043 * COMPATIBILITY. */ 04350043 * /***************************************************************/ 04450002 * /* THE FOLLOWING ARRAY CONTAINS TEN TWELVE-BYTE ENTRIES, ONE */ 04500002 * /* FOR EACH OF SVC DUMP'S TEN DATA SETS. */ 04550002 * /***************************************************************/ 04600002 * 2 RTCTSDDS (10) CHAR(12) BDY(WORD), /* TEN 12-BYTE ELEMENTS. */ 04650002 * 3 RTCTDSNM CHAR(3), /* NAME OF THIS DATA SET........ 04670043 * TAPE- EBCDIC UNIT ADDRESS, 04750002 * DISK- EBCDIC 00-09 WITH 04800002 * TRAILING BLANK. */ 04820043 * 3 RTCTFLG BIT(8), /* FLAG BYTE... */ 04840043 * 4 RTCTDSST BIT(1), /* 1-D.S. FULL, 0-D.S. AVAILABLE. */ 04905043 * 4 RTCTDSUS BIT(1), /* 1-D.S. USED, 0-D.S. NOT USED. */ 04920002 * 4 RTCTDETP BIT(1), /* 0-TAPE D.S., 1-DASD D.S. */ 04922002 * 4 * BIT(5), /* RESERVED */ 04930043 * 3 RTCTDCB PTR(31), /* DEB ADDRESS FOR THIS DATA SET. */ 04950002 * 3 RTCTDEV CHAR(4), /* DEVICE TYPE CODE FOR DATA SET. 05000002 * *** END OF TABLE ************* */ 05020043 * 2 RTCTSDPL PTR(31), /* ADDRESS OF SVC DUMP PARAMETER 05100002 * LIST FOR CROSS-MEMORY REQUEST. */ 05120043 * 3 RTCTSDIP BIT(1), /* HIGH ORDER BIT IS SVC DUMP IN 05150043 * PROGRESS FLAG. @G33VPHZ*/ 05160043 * 2 RTCTFMT PTR(31), /* USED FOR TESTING RTM MODULES */ 05170043 * 2 RTCTMLCK FIXED(31), /* LOCK FOR MEM TERM POST SRB */ 05409602 * 2 RTCTMSRB PTR(31), /* PTR TO MEM TERM'S POST SRB */ 05419602 * 2 RTCTTEST PTR(31), /* USED FOR TESTING RTM MODULES */ 05429602 * 2 RTCTRFLG BIT(8), /* RECORDING FLAGS */ 05432002 * 3 RTCTRTER BIT(1), /* RECORDING TEMPORARY ERROR */ 05434002 * 3 RTCTRPER BIT(1), /* RECORDING PERMANENT ERROR */ 05436002 * 3 RTCTRSTF BIT(1), /* INITIAL STF ENTRY */ 05436402 * 3 * BIT(5), /* RESERVED */ 05436802 * 2 RTCTXXX1 CHAR(1), /* RESERVED */ 05437441 * 2 RTCTSEQ# FIXED(16), /* ERRORID SEQUENCE NBR @G17EP5W*/ 05437743 * 2 RTCTSDSW PTR(31), /* ADDR OF SUMMARY SVC DUMP(SUMDUMP) 05440043 * WORK AREA (IHASMWK) @G33VPHZ*/ 05440643 * 2 RTCTTDCB (9) PTR(31), /* TAPE DCB FOR SVC DUMP */ 05442002 * 2 RTCTSDWK PTR(31), /* ADDRESS OF SVC DUMP WORK AREA */ 05443041 * 2 RTCTERID CHAR(10), /*ERRORID FOR THIS FAILURE'S SVC 05443543 * DUMP HEADER @G17EP5W*/ 05443743 * 3 RTCTESEQ CHAR(2), /*ERRORID SEQUENCE NUMBER @G17EP5W*/ 05444243 * 3 RTCTECPU CHAR(2), /*ERRORID LOGICAL CPU ID @G17EP5W*/ 05444343 * 3 RTCTEASD CHAR(2), /*ERRORID ASID @G17EP5W*/ 05444643 * 3 RTCTETIM CHAR(4), /*ERRORID TIME STAMP @G17EP5W*/ 05444743 * 2 RTCTXXX2 CHAR(2), /*RESERVED @G17EP5W*/ 05444843 * /****************************************************************/ 05444943 * /* DEFAULT DUMP OPTIONS, WHICH CAN BE CHANGED BY THE CHNGDUMP */ 05445043 * /* OPERATOR COMMAND */ 05445443 * /****************************************************************/ 05445543 * 2 RTCTOPT CHAR(16), /* @G33CPHE*/ 05445643 * 3 RTCTSAO BIT(32), /* SYSABEND EFFECTIVE OPTIONS */ 05445943 * 3 RTCTSUO BIT(32), /* SYSUDUMP EFFECTIVE OPTIONS */ 05446043 * 3 RTCTSYO BIT(32), /* SYSMDUMP EFFECTIVE OPTIONS */ 05446143 * 3 RTCTSDO BIT(32), /* SVC DUMP EFFECTIVE OPTIONS */ 05446243 * /****************************************************************/ 05446343 * /* ADDITIONAL SVC DUMP INFORMATION AND FLAGS */ 05446443 * /****************************************************************/ 05447143 * 2 RTCTASO BIT(16), /* ACTUAL SVC DUMP OPTIONS FROM 05447243 * MERGER OF DEFAULTS AND SDUMP 05447343 * MACRO OPTIONS ******* @G33VPHZ*/ 05447443 * 4 RTCTASO1 BIT(8), /* (BYTE 1 OF SDATA:) @G33VPHZ*/ 05448143 * 6 RTCTASAL BIT(1), /* 1=DISPLAY ALL PSA'S @G33VPHZ*/ 05448243 * 6 RTCTASPS BIT(1), /* 1=DISPLAY CURRENT PSA @G33VPHZ*/ 05448343 * 6 RTCTASNU BIT(1), /* 1=DISPLAY NUCLEUS @G33VPHZ*/ 05448443 * 6 RTCTASSQ BIT(1), /* 1=DISPLAY SQA @G33VPHZ*/ 05448543 * 6 RTCTASLS BIT(1), /* 1=DISPLAY LSQA @G33VPHZ*/ 05448643 * 6 RTCTASRG BIT(1), /* 1=DISPLAY REGION (RGN) @G33VPHZ*/ 05448743 * 6 RTCTASLP BIT(1), /* 1=DISPLAY ACTIVE LPA @G33VPHZ*/ 05448843 * 6 RTCTASTR BIT(1), /* 1=DISPLAY TRACE @G33VPHZ*/ 05448943 * 05449043 * 4 RTCTASO2 BIT(8), /* (BYTE 2 OF SDATA:) @G33VPHZ*/ 05450443 * 6 RTCTASCS BIT(1), /* 1=DISPLAY CSA @G33VPHZ*/ 05450543 * 6 RTCTASSW BIT(1), /* 1=DISPLAY SWA @G33VPHZ*/ 05450643 * 6 RTCTASSU BIT(1), /* 1=DISPLAY SUMMARY DUMP @G33VPHZ*/ 05450743 * 6 RTCTASNS BIT(1), /* 1=DISPLAY NO SUMDUMP @G33VPHZ*/ 05450843 * 6 RTCTASNA BIT(1), /* 1=DISPLAY NO ALLPSA @G33VPHZ*/ 05450943 * 6 RTCTASNQ BIT(1), /* 1=DISPLAY NO SQA @G33VPHZ*/ 05451043 * 6 * BIT(2), /* RESERVED @G33VPHZ*/ 05451143 * 05451643 * 2 RTCTSDI, /* *** SVC DUMP INFORMATION *** */ 05451743 * 3 RTCTSDNA BIT(8), /* NUMBER OF ADDRESS SPACES TO 05451943 * DUMP @G33VPHD*/ 05452043 * 3 RTCTINDX BIT(8), /* INDEX FOR ASID LIST ENTRY 05452243 * @G33VPHD*/ 05452343 * 3 RTCTSDPR FIXED(8), /* PERMANENT RETURN CODE @G33VPHD*/ 05452443 * 2 RTCTZZZ2 CHAR(7), /* RESERVED @G33VPHZ*/ 05452543 * 05452843 * 2 RTCTSDF BIT(32), /* *** SVC DUMP FLAGS *** @G33VPHD*/ 05452943 * 3 RTCTSDF1 BIT(8), /* (BYTE 1 OF FLAGS:) @G33VPHD*/ 05453143 * 4 RTCTSDNO BIT(1), /* NO SYS1.DUMP D.S. DEFINED 05453243 * @G33VPHD*/ 05453343 * 4 RTCTSDND BIT(1), /* SVC DUMP SET SYSTEM 05453643 * NONDISPATCHABLE @G33VPHD*/ 05453743 * 4 RTCTSDSH BIT(1), /* SCHEDULE DUMP (IEAVTSDX) 05453943 * REQUEST @G33VPHD*/ 05454043 * 4 RTCTSDMA BIT(1), /* MULTIPLE ADDRESS SPACE DUMP IN 05454343 * PROCESS @G33VPHD*/ 05454443 * 4 RTCTSDEP BIT(1), /* CALLER'S ECB POSTED @G33VPHD*/ 05454543 * 4 RTCTSDSD BIT(1), /* SUMMARY DUMP (IEAVTSSD) RECEIVED 05454843 * CONTROL @G33VPHD*/ 05454943 * 4 RTCTSDRS BIT(1), /* REAL STORAGE BUFFER MGR (IEAVPRSB) 05455043 * RECEIVED CONTROL @G33VPHD*/ 05455143 * 4 RTCTSDSC BIT(1), /* SUMMARY DUMP (IEAVTSSD) COMPLETED 05455443 * PROCESSING @G33VPHD*/ 05455543 * 05456143 * 3 RTCTSDF2 BIT(8), /* (BYTE 2 OF FLAGS:) @G33VPHD*/ 05456243 * 4 RTCTSDMR BIT(1), /* DUMP OF MASTER A.S. REQ @G33VPHD*/ 05456443 * 4 RTCTSDTQ BIT(1), /* TQE WAS ENQD BY SETDIE @G33VPHD*/ 05459443 * 4 RTCTSDDI BIT(1), /* TIMER DIE RECEIVED CONTROL 05462443 * (SCHDIE IN IEAVTSDX) @G33VPHD*/ 05463443 * 4 RTCTSDLA BIT(1), /* LAST ASID PROCESSING @G33VPHD*/ 05465443 * 4 RTCTSDWF BIT(1), /* SUMDUMP WRITER (IEAVTSDW) 05468443 * COMPLETED @G33VPHD*/ 05469443 * 4 RTCTSDSL BIT(1), /* SDUMP SELECTED DUMP DS @G33VPHD*/ 05471443 * 4 RTCTSDRW BIT(1), /* SUMDUMP RECORDS (FROM 05472443 * IEAVTSSD) TO WRITE @G33VPHD*/ 05473043 * 4 RTCTSDFX BIT(1), /* ASYNC EXIT FLAG @ZA27434*/ 05474443 * 3 RTCTR2D2 BIT(8), /* (BYTE 3 OF FLAGS:) */ 05484643 * 4 * BIT(8), /* RESERVED */ 05484743 * 3 RTCTC3PO BIT(8), /* (BYTE 4 OF FLAGS:) */ 05484843 * 4 * BIT(8), /* RESERVED */ 05484943 * /****************************************************************/ 05485343 * /* ARRAY OF INFORMATION FOR SVC DUMP OF MULTIPLE ADDRESS SPACES */ 05485443 * /****************************************************************/ 05485543 * 2 RTCTSDF3(16) BIT(32), /* @G33VPHD*/ 05485643 * 3 RTCTSDAS BIT(16), /* ASID OF THIS ADDRESS 05485743 * SPACE @G33VPHZ*/ 05485843 * 3 RTCTSDF4 BIT(8), /* (BYTE 1 OF FLAGS:) @G33VPHD*/ 05485943 * 4 RTCTSDSS BIT(1), /* GSRB IN ADDR SPACE SCHEDULED 05486243 * @G33VPHD*/ 05486543 * 4 RTCTSDNC BIT(1), /* NON-DISPATCHABLE SRB RECEIVED 05487143 * CONTROL @G33VPHD*/ 05487243 * 4 RTCTSDAN BIT(1), /* ADDR SPACE SET NON-DISPATCHABLE 05487643 * @G33VPHD*/ 05487743 * 4 RTCTSDRM BIT(1), /* DUMP TASK HAS BEEN RESUMED 05488143 * @G33VPHD*/ 05488243 * 4 RTCTSDTR BIT(1), /* DUMP TASK RUNNING @G33VPHD*/ 05488643 * 4 RTCTSDEQ BIT(1), /* DUMP TASK ENQUEUED ON SDUMP 05489043 * RESOURCE @G33VPHD*/ 05489443 * 4 RTCTSDEN BIT(1), /* SVC DUMP (IEAVAD00 OR IEAVTSDT) 05490343 * IS PROCESSING THIS ADDRESS SPACE 05490443 * ENTRY @G33VPHD*/ 05490543 * 4 RTCTSDDO BIT(1), /* DUMP ATTEMPTED FOR THIS ASID 05490743 * @G33VPHD*/ 05491043 * 3 RTCTSDF5 BIT(8), /* RESERVED @G33VPHD*/ 05491743 * /*****************************************************************/ 05491843 * /* RTM INFORMATION */ 05491943 * /*****************************************************************/ 05492043 * 2 RTCTMRMQ PTR(31), /* ADDRESS OF QUEUE OF STORAGE AREAS 05492143 * (FOR SYSMDUMPS) TO BE FREED AT 05492343 * MEMTERM @G33SPHZ*/ 05492443 * 2 RTCTZZZ4 PTR(31), /* RESERVED @G33VPHZ*/ 05492543 * 2 RTCTZZZ5 PTR(31); /* RESERVED @G33VPHZ*/ 05493343 * /*****************************************************************/ 05493543 * /* THE FOLLOWING MAPS THE BITS OF THE DEFAULT (EFFECTIVE) */ 05493743 * /* DUMP OPTION WORDS (RTCTOPT) FROM IPL AND CHNGDUMP COMMAND */ 05493943 * /*****************************************************************/ 05494543 *DECLARE 05494743 * 1 RTCTMOPT BASED(ADDR(RTCTOPT)), /* @G33CPHE*/ 05494943 * 2 RTCTMSAO BIT(32), /* *** SYSABEND EFFECTIVE OPTIONS 05495243 * ***************************** */ 05495343 * 3 RTCTSASD BIT(16), /* SDATA BYTES */ 05495643 * 4 RTCTSAO1 BIT(8), /* (BYTE 1 OF SDATA OPTIONS:) */ 05495743 * 6 RTCTSAD0 BIT(1), /* 1=DISPLAY NUCLEUS */ 05495843 * 6 RTCTSAD1 BIT(1), /* 1=DISPLAY SQA */ 05496043 * 6 RTCTSAD2 BIT(1), /* 1=DISPLAY LSQA */ 05496243 * 6 RTCTSAD3 BIT(1), /* 1=DISPLAY SWA */ 05496443 * 6 RTCTSAD4 BIT(1), /* 1=DISPLAY GTF OR SUPERVISOR 05497343 * TRACE */ 05497643 * 6 RTCTSAD5 BIT(1), /* 1=DISPLAY CONTROL BLOCKS FOR 05507643 * TASK */ 05517643 * 6 RTCTSAD6 BIT(1), /* 1=DISPLAY ENQUEUE CONTROL BLKS */ 05527643 * 6 RTCTSAD7 BIT(1), /* 1=FORMAT DATA MANAGEMENT CONTROL 05547643 * BLOCKS @G33CPHE*/ 05567643 * 4 RTCTSAO2 BIT(8), /* (BYTE 2 OF SDATA OPTIONS:) */ 05587643 * 6 RTCTSADG BIT(1), /* 1=FORMAT IOS C.B.S @G33CPHE*/ 05639643 * 6 RTCTSADH BIT(1), /* 1=FORMAT ERROR C.B.S @G33CPHE*/ 05649643 * 6 * BIT(6), /* RESERVED */ 05679643 * 3 RTCTSAPD BIT(16), 05749643 * 4 RTCTSAO3 BIT(8), /* (BYTE 1 OF PDATA OPTIONS:) */ 05779643 * 6 RTCTSAD8 BIT(1), /* 1=DISPLAY SAVE AREA TRACE (SA) */ 05829643 * 6 RTCTSAD9 BIT(1), /* 0=DISPLAY ENTIRE SAVE AREA 05929643 * 1=DISPLAY SAVE AREA HEADINGS 05999643 * (SAH KEYWORD) */ 06009643 * 6 RTCTSADA BIT(1), /* 1=DISPLAY REGISTERS */ 06029643 * 6 RTCTSADB BIT(1), /* 1=DISPLAY LINK PACK AREA */ 06059643 * 6 RTCTSADC BIT(1), /* 1=DISPLAY JOB PACK AREA */ 06089643 * 6 RTCTSADD BIT(1), /* 1=DISPLAY PSW */ 06119643 * 6 RTCTSADE BIT(1), /* 1=DISPLAY USER SUBPOOLS: 06209643 * 0-127 */ 06299643 * 6 RTCTSADF BIT(1), /* RESERVED */ 06329643 * 4 RTCTSAO4 BIT(8), 06389643 * 6 * BIT(6), /* (BYTE 1 OF OTHER OPTIONS:) */ 06429643 * 6 RTCTSAMG BIT(1), /* SEE RTCTSAOV @G33CPHZ*/ 06449643 * 7 RTCTSAOV BIT(1), /* 1=OVER MODE 0=ADD MODE @G33CPHZ*/ 06469643 * 6 RTCTISAB BIT(1), /* IGNORE REQUESTS FOR SYSABEND @G33CPHE*/ 06489643 * 06549643 * 2 RTCTMSUO BIT(32), /* *** SYSUDUMP EFFECTIVE OPTIONS 06599643 * ***************************** */ 06609643 * 3 RTCTSUSD BIT(16), /* SDATA BYTES @G33CPHE*/ 06629643 * 4 RTCTSUO1 BIT(8), /* (BYTE 1 OF SDATA OPTIONS:) */ 06649643 * 6 RTCTSYD0 BIT(1), /* 1=DISPLAY NUCLEUS */ 06689643 * 6 RTCTSYD1 BIT(1), /* 1=DISPLAY SQA */ 06719643 * 6 RTCTSYD2 BIT(1), /* 1=DISPLAY LSQA */ 06749643 * 6 RTCTSYD3 BIT(1), /* 1=DISPLAY SWA */ 06779643 * 6 RTCTSYD4 BIT(1), /* 1=DISPLAY GTF OR SUPERVISOR 06859643 * TRACE */ 06949643 * 6 RTCTSYD5 BIT(1), /* 1=DISPLAY CONTROL BLOCKS FOR 06999643 * TASK */ 07049643 * 6 RTCTSYD6 BIT(1), /* 1=DISPLAY ENQUEUE CNTRL BLKS */ 07069643 * 6 RTCTSYD7 BIT(1), /* 1=FORMAT DATA MANAGEMENT CONTROL 07129643 * BLOCKS @G33CPHE */ 07149643 * 4 RTCTSUO2 BIT(8), /* (BYTE 2 OF SDATA OPTIONS:) */ 07169643 * 6 RTCTSYDG BIT(1), /* 1=FORMAT IOS C.B.S @G33CPHE */ 07209643 * 6 RTCTSYDH BIT(1), /* 1=FORMAT ERROR C.B.S @G33CPHE */ 07239643 * 6 * BIT(6), /* RESERVED */ 07269643 * 3 RTCTSUPD BIT(16), /* @G33CPHE*/ 07299643 * 4 RTCTSUO3 BIT(8), /* (BYTE 1 OF PDATA OPTIONS:) */ 07329643 * 6 RTCTSYD8 BIT(1), /* 1=DISPLAY SAVE AREA TRACE (SA) */ 07359643 * 6 RTCTSYD9 BIT(1), /* 0=DISPLAY ENTIRE SAVE AREA 07449643 * 1=DISPLAY SAVE AREA HEADINGS 07459643 * (SAH KEYWORD) */ 07465643 * 6 RTCTSYDA BIT(1), /* 1=DISPLAY REGISTERS */ 07479643 * 6 RTCTSYDB BIT(1), /* 1=DISPLAY LINK PACK AREA */ 07499643 * 6 RTCTSYDC BIT(1), /* 1=DISPLAY JOB PACK AREA */ 07519643 * 6 RTCTSYDD BIT(1), /* 1=DISPLAY PSW */ 07539643 * 6 RTCTSYDE BIT(1), /* 1=DISPLAY USER SUBPOOLS: 07599643 * 0-127 */ 07649643 * 6 RTCTSYDF BIT(1), /* RESERVED */ 07679643 * 4 RTCTSUO4 BIT(8), 07749643 * 6 * BIT(6), /* (BYTE 1 OF OTHER DATA:) */ 07799643 * 6 RTCTSUMG BIT(1), /* SEE RTCTSUOV @G33CPHZ*/ 07819643 * 7 RTCTSUOV BIT(1), /* 1=OVER MODE 0=ADD MODE @G33CPHZ*/ 07849643 * 6 RTCTISYU BIT(1), /* IGNORE REQUESTS FOR SYSUDUMP @G33CPHE*/ 07879643 * 07949643 * 2 RTCTMSYO BIT(32), /* *** SYSMDUMP EFFECTIVE OPTIONS 07999643 * ***************************** */ 08009643 * 3 RTCTSD01 BIT(8), /* (BYTE 1 OF SDATA OPTIONS:) */ 08039643 * 4 RTCTSDS0 BIT(1), /* 1=DISPLAY NUCLEUS @G33CPHE*/ 08079643 * 4 RTCTSDS1 BIT(1), /* 1=DISPLAY SQA @G33CPHE*/ 08119643 * 4 RTCTSDS2 BIT(1), /* 1=DISPLAY LSQA @G33CPHE*/ 08159643 * 4 RTCTSDS3 BIT(1), /* 1=DISPLAY SWA @G33CPHE*/ 08199643 * 4 RTCTSDS4 BIT(1), /* 1=DISPLAY GTF OR SUPERVISOR TRACE 08299643 * @G33CPHE*/ 08349643 * 4 RTCTSDS5 BIT(1), /* 1=DISPLAY REGION @G33CPHE*/ 08389643 * 4 RTCTSDS6 BIT(1), /* 1=DISPLAY LPA FOR RGN @G33CPHE*/ 08409643 * 4 RTCTSDS7 BIT(1), /* 1=DISPLAY CSA @G33CPHE*/ 08469643 * 3 RTCTSD02 BIT(8), /* RESERVED */ 08509643 * 3 RTCTSD03 BIT(8), /* RESERVED */ 08549643 * 3 RTCTSD04 BIT(8), 08649643 * 4 * BIT(6), /* (BYTE 1 OF OTHER DATA:) */ 08699643 * 4 RTCTSMMG BIT(1), /* SEE RTCTSMOV @G33CPHZ*/ 08719643 * 5 RTCTSMOV BIT(1), /* 1=OVER MODE 0=ADD MODE @G33CPHZ*/ 08749643 * 4 RTCTISYM BIT(1), /* IGNORE REQUESTS FOR SYSMDUMP @G33CPHE*/ 08779643 * 08849643 * 2 RTCTMSDO BIT(32), /* *** SVC DUMP EFFECTIVE OPTIONS 08899643 * (ONLY SUPPLIED BY CHNGDUMP 08909643 * COMMAND) ************ @G33CPHZ*/ 08919643 * 3 RTCTSDOD BIT(16), /* SDATA BYTES @G33CPHZ*/ 08929643 * 4 RTCTSDO1 BIT(8), /* (BYTE 1 OF SDATA OPTIONS:) */ 08949643 * 6 RTCTSDP0 BIT(1), /* 1=DISPLAY ALL PSA'S IN 08979643 * SYSTEM */ 09049643 * 6 RTCTSDP1 BIT(1), /* 1=DISPLAY CURRENT PSA */ 09089643 * 6 RTCTSDP2 BIT(1), /* 1=DISPLAY NUCLEUS */ 09129643 * 6 RTCTSDP3 BIT(1), /* 1=DISPLAY SQA */ 09169643 * 6 RTCTSDP4 BIT(1), /* 1=DISPLAY LSQA */ 09209643 * 6 RTCTSDP5 BIT(1), /* 1=DISPLAY REGION (PRIVATE 09249643 * AREA) */ 09349643 * 6 RTCTSDP6 BIT(1), /* 1=DISPLAY ACTIVE LPA MODULES 09399643 * FOR REGION */ 09429643 * 6 RTCTSDP7 BIT(1), /* 1=DISPLAY GTF OR SUPERVISOR 09459643 * TRACE */ 09549643 * 09599643 * 4 RTCTSDO2 BIT(8), /* (BYTE 2 OF SDATA OPTIONS:) */ 09649643 * 6 RTCTSDP8 BIT(1), /* 1=DISPLAY CSA */ 09669643 * 6 RTCTSDP9 BIT(1), /* 1=DISPLAY SWA */ 09689643 * 6 RTCTSDPA BIT(1), /* 1=DISPLAY SUMMARY SVC DUMP 09709643 * (SUMDUMP) @G33CPHE*/ 09769643 * 6 RTCTSDPB BIT(1), /* 1=NO SUMMARY DUMP DISPLAY 09849643 * @G33CPHE*/ 09899643 * 6 RTCTSDPC BIT(1), /* 1=NO ALL PSA DISPLAY @G33CPHE*/ 09939643 * 6 RTCTSDPD BIT(1), /* 1=NO SQA DISPLAY @G33CPHE*/ 09979643 * 6 * BIT(2), /* RESERVED */ 10019643 * 10099643 * 3 RTCTSDO3 BIT(8), /* (BYTE 1 OF OTHER OPTIONS:) */ 10149643 * 4 RTCTSDPG BIT(1), /* 1 MEANS QUIESCE=YES SPECIFIED ON 10199643 * CHNGDUMP COMMAND */ 10249643 * 4 RTCTSDPH BIT(1), /* 1 MEANS QUIESCE=NO SPECIFIED ON 10299643 * CHNGDUMP COMMAND */ 10349643 * 4 * BIT(6), /* RESERVED */ 10379643 * 3 RTCTSDO4 BIT(8), /* (BYTE 2 OF OTHER OPTIONS:) */ 10409643 * 4 * BIT(6), /* RESERVED */ 10449643 * 4 RTCTSDMG BIT(1), /* SEE RTCTSDOV @G33CPHZ*/ 10549643 * 5 RTCTSDOV BIT(1), /* 1=OVER MODE 0=ADD MODE @G33CPHZ*/ 10559643 * 4 RTCTISVC BIT(1); /* IGNORE REQUESTS FOR SVC DUMPS @G33CPHE*/ 10599643 * %RTCTLEN='LENGTH(RTCT)'; /* TOTAL LENGTH OF RTCT */ 10649643