Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.dsdump +++| IDENT DSDUMP
00002 M00S00002.dsdump +++| ENTRY DSDUMP
00003 M00S00003.dsdump +++| SYSCOM B1
| Line S00004 Modification History |
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00004 M01S00004.ns2440 ---| COMMENT 72/07/24. 72/10/05. DIRECT SUBSEQUENT DUMPS.
| Line S00001 Modification History |
M01 (Added by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00005 M01S00001.ns2440 +++| TITLE DSDUMP - DIRECT SUBSEQUENT DUMPS.
00006 M01S00002.ns2440 +++|*COMMENT DSDUMP - DIRECT SUBSEQUENT DUMPS.
| Line S00005 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00005.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00006 Modification History |
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00009 M01S00006.ns2440 ---| TITLE DSDUMP - DIRECT SUBSEQUENT DUMPS.
00010 M00S00007.dsdump +++| SPACE 4
00011 M00S00008.dsdump +++|***** DSDUMP - DIRECT SUBSEQUENT DUMPS.
00012 M00S00009.dsdump +++|*
00013 M00S00010.dsdump +++|* A. J. KOMOR. 72/07/24.
00014 M00S00011.dsdump +++|* J. R. HOGUE. 72/10/05.
00015 M00S00012.dsdump +++|* W. E. MARTIN. 78/12/30.
00016 M00S00013.dsdump +++| SPACE 4
00017 M00S00014.dsdump +++|* COMMON TEXTS.
00018 M00S00015.dsdump +++|
00019 M00S00016.dsdump +++|
00020 M00S00017.dsdump +++|*CALL COMCMAC
00021 M00S00018.dsdump +++|*CALL COMKMAC
00022 M00S00019.dsdump +++|*CALL COMSPRD
00023 M00S00020.dsdump +++| SPACE 4,75
00024 M00S00021.dsdump +++|*** DSDUMP - DIRECT SUBSEQUENT DUMPS.
00025 M00S00022.dsdump +++|*
00026 M00S00023.dsdump +++|* DSDUMP IS A PRODUCT SET INTERFACE WHICH ALLOWS THE APPLI-
00027 M00S00024.dsdump +++|* CATION PROGRAMMER TO CHANGE ANY OF THE DEFAULT VALUES OF A
00028 M00S00025.dsdump +++|* CMDUMP REQUEST. THE DSDUMP DOES NOT CAUSE A DUMP IN ITSELF,
00029 M00S00026.dsdump +++|* EXCEPT, WHEN THE SYSTEM DETECTS AN ERROR (I.E. ABORT). ANY
00030 M00S00027.dsdump +++|* DEFAULT VALUES ON THE DSDUMP ARE SATISFIED FROM THE GENERAL
00031 M00S00028.dsdump +++|* DEFAULT VALUES WHICH ARE ASSEMBLED IN THE EXECUTIVE.
00032 M00S00029.dsdump +++|*
00033 M00S00030.dsdump +++|* CALLING FORMATS -
00034 M00S00031.dsdump +++|*
00035 M00S00032.dsdump +++|* COBOL -
00036 M00S00033.dsdump +++|*
00037 M00S00034.dsdump +++|* ENTER DSDUMP USING FWA, LWA, EP, DB, OQ, QD.
00038 M00S00035.dsdump +++|*
00039 M00S00036.dsdump +++|* FORTRAN EXTENDED -
00040 M00S00037.dsdump +++|*
00041 M00S00038.dsdump +++|* CALL DSDUMP(FWA,LWA,EP,DB,OQ,QD)
00042 M00S00039.dsdump +++|*
00043 M00S00040.dsdump +++|* FWA BEGINNING ADDRESS, LEGAL VALUES - FWA .LT. FL.
00044 M00S00041.dsdump +++|* IF NEGATIVE (BIT 17 SET) USE DEFAULT.
00045 M00S00042.dsdump +++|* COBOL COMP-1.
00046 M00S00043.dsdump +++|* FORTRAN EXTENDED INTEGER.
00047 M00S00044.dsdump +++|*
00048 M00S00045.dsdump +++|* LWA LAST WORD ADDRESS, LEGAL VALUES - FWA .LT. FL.
00049 M00S00046.dsdump +++|* .EQ. 0 - IMPLIES NO DUMP OF FIELD LENGTH.
00050 M00S00047.dsdump +++|* IF NEGATIVE (BIT 17 SET) USE DEFAULT.
00051 M00S00048.dsdump +++|* COBOL COMP-1.
00052 M00S00049.dsdump +++|* FORTRAN EXTENDED INTEGER.
00053 M00S00050.dsdump +++|*
00054 M00S00051.dsdump +++|* EP EXCHANGE PACKAGE, LEGAL VALUES -
00055 M00S00052.dsdump +++|* .EQ. 0 - OPTION NOT DESIRED.
00056 M00S00053.dsdump +++|* .NE. 0 - OPTION SELECTED.
00057 M00S00054.dsdump +++|* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
00058 M00S00055.dsdump +++|* COBOL COMP-1.
00059 M00S00056.dsdump +++|* FORTRAN EXTENDED INTEGER.
00060 M00S00057.dsdump +++|*
00061 M00S00058.dsdump +++|* DB DATA BUFFERS DUMP, LEGAL VALUES -
00062 M00S00059.dsdump +++|* .EQ. 0 - OPTION NOT DESIRED.
00063 M00S00060.dsdump +++|* .NE. 0 - OPTIONSELECTED.
00064 M00S00061.dsdump +++|* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
00065 M00S00062.dsdump +++|* COBOL COMP-1.
00066 M00S00063.dsdump +++|* FORTRAN EXTENDED INTEGER.
00067 M00S00064.dsdump +++|*
00068 M00S00065.dsdump +++|* OQ OUTPUT QUEUE, LEGAL VALUES -
00069 M00S00066.dsdump +++|* .EQ. O - DUMP TO BATCH PRINTER.
00070 M00S00067.dsdump +++|* .EQ. 1 - DUMP TO E/I 200.
00071 M00S00068.dsdump +++|* .EQ 2 - DUMP TO USER PERMANENT FILE.
00072 M00S00069.dsdump +++|* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
00073 M00S00070.dsdump +++|* COBOL COMP-1.
00074 M00S00071.dsdump +++|* FORTRAN EXTENDED INTEGER.
00075 M00S00072.dsdump +++|*
00076 M00S00073.dsdump +++|* QD QUEUE DESTINATION, LEGAL VALUES -
00077 M00S00074.dsdump +++|* IF PRINTER IS SPECIFIED IN PREVIOUS PARAMETER,
00078 M00S00075.dsdump +++|* PRINTER I.D. IS SPECIFIED IN NUMERIC CHARACTERS
00079 M00S00076.dsdump +++|* RIGHT JUSTIFIED WITHIN WORD.
00080 M00S00077.dsdump +++|* IF NEGATIVE (BIT 17 SET) USE DEFAULT.
00081 M00S00078.dsdump +++|*
00082 M00S00079.dsdump +++|* IF E/I 200 IS SPECIFIED IN PREVIOUS PARAMETER, THE
00083 M00S00080.dsdump +++|* ACCOUNT NUMBER IS SPECIFIED IN DISPLAY CODED LEFT
00084 M00S00081.dsdump +++|* JUSTIFIED CHARACTERS. MAXIMUM LENGTH IS SEVEN
00085 M00S00082.dsdump +++|* CHARACTERS.
00086 M00S00083.dsdump +++|* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
00087 M00S00084.dsdump +++|*
00088 M00S00085.dsdump +++|* IF USER PERMANENT FILE IS SPECIFIED, THE PERMANENT
00089 M00S00086.dsdump +++|* FILE NAME IS SPECIFIED IN DISPLAY CODED LEFT
00090 M00S00087.dsdump +++|* JUSTIFIED CHARACTERS. ANY LEGAL FILE NAME IS
00091 M00S00088.dsdump +++|* PERMISSIBLE WITH A MAXIMUM OF SEVEN CHARACTERS.
00092 M00S00089.dsdump +++|* IF NEGATIVE (BIT 59 SET) USE DEFAULT.
00093 M00S00090.dsdump +++|*
00094 M00S00091.dsdump +++|*
00095 M00S00092.dsdump +++|* USES A - 1, 2, 3, 4, 6, 7.
00096 M00S00093.dsdump +++|* X - ALL.
00097 M00S00094.dsdump +++|* B - 1, 3.
00098 M00S00095.dsdump +++|*
00099 M00S00096.dsdump +++|* CALLS ZFN.
00100 M00S00097.dsdump +++|*
00101 M00S00098.dsdump +++|* MACROS DSDUMP.
00102 M00S00099.dsdump +++|
00103 M00S00100.dsdump +++|
00104 M00S00101.dsdump +++| VFD 42/0LDSDUMP,18/DSDUMP
00105 M00S00102.dsdump +++|
00106 M00S00103.dsdump +++| DSD5 SA1 DSDB RESTORE (A0)
00107 M00S00104.dsdump +++| SA0 X1+
00108 M00S00105.dsdump +++|
00109 M00S00106.dsdump +++| DSDUMP SUBR ENTRY/RETURN
00110 M00S00107.dsdump +++| SX6 A0 SAVE (A0)
00111 M00S00108.dsdump +++| MX5 60-18
00112 M00S00109.dsdump +++| SA6 DSDB
00113 M00S00110.dsdump +++| SB1 1
00114 M00S00111.dsdump +++| SA4 X1 READ FWA PARAMETER ADDRESS
00115 M00S00112.dsdump +++| SA3 A1+B1 READ LWA PARAMETER ADDRESS
00116 M00S00113.dsdump +++| BX6 -X5*X4
00117 M00S00114.dsdump +++| SA2 X3 READ LWA
00118 M00S00115.dsdump +++| BX2 -X5*X2
00119 M00S00116.dsdump +++| LX2 30
00120 M00S00117.dsdump +++| BX6 X2+X6 (X6) = LWA AND FWA
00121 M00S00118.dsdump +++| SA1 A3+B1 READ EXCHANGE POINT PARAMETER
00122 M00S00119.dsdump +++| SA3 A1+B1 READ DATA BASE PARAMETER ADDRESS
00123 M00S00120.dsdump +++| SA2 X1 READ EXCHANGE PACKAGE DUMP FLAG
00124 M00S00121.dsdump +++| SA1 X3 READ DATA BASE DUMP FLAG
00125 M00S00122.dsdump +++| BX3 X3-X3
00126 M00S00123.dsdump +++| SA4 A3+B1 READ OUTPUT QUEUE PARAMETER ADDRESS
00127 M00S00124.dsdump +++| SX7 X1
00128 M00S00125.dsdump +++| ZR X7,DSD1 IF DATA BUFFER DUMP NOT DESIRED
00129 M00S00126.dsdump +++| SX3 B1
00130 M00S00127.dsdump +++| LX3 58
00131 M00S00128.dsdump +++| PL X1,DSD1 IF NOT DEFAULT PARAMETER
00132 M00S00129.dsdump +++| LX3 -2
00133 M00S00130.dsdump +++| DSD1 SX7 X2
00134 M00S00131.dsdump +++| BX1 X1-X1
00135 M00S00132.dsdump +++| ZR X7,DSD2 IF EXCHANGE PACKAGE DUMP NOT DESIRED
00136 M00S00133.dsdump +++| MX1 1
00137 M00S00134.dsdump +++| PL X2,DSD2 IF NOT DEFAULT PARAMETER
00138 M00S00135.dsdump +++| LX1 -2
00139 M00S00136.dsdump +++| DSD2 BX6 X6+X3 (X6) = LWA + FWA + DB
00140 M00S00137.dsdump +++| SA3 A4+B1 READ SIXTH PARAMETER POINTER
00141 M00S00138.dsdump +++| BX6 X6+X1 (X6) = LWA + FWA + DB + EP
00142 M00S00139.dsdump +++| SA2 X4 READ OUTPUT QUEUE
00143 M00S00140.dsdump +++| SA6 DSDA
00144 M00S00141.dsdump +++| BX0 -X5*X2
00145 M00S00142.dsdump +++| SA1 X3 READ QUEUE DESTINATION
00146 M00S00143.dsdump +++| SB3 X0+
00147 M00S00144.dsdump +++| ZR B3,DSD3 IF DUMP IS TO LOCAL PRINTER
00148 M00S00145.dsdump +++| RJ ZFN ZERO FILL NAME
00149 M00S00146.dsdump +++| EQ DSD4 PROCESS QUEUE DESTINATION PARAMETER
00150 M00S00147.dsdump +++|
00151 M00S00148.dsdump +++| DSD3 BX5 -X5
00152 M00S00149.dsdump +++| DSD4 BX7 X5*X1 EXTRACT QUEUE DESTINATION
00153 M00S00150.dsdump +++| BX7 X7+X0 (X7) = DESTINATION + QUEUE
00154 M00S00151.dsdump +++| SA7 A6+1
00155 M00S00152.dsdump +++| DSDUMP DSDA ISSUE REQUEST TO EXECUTIVE
00156 M00S00153.dsdump +++| EQ DSD5 RESTORE (A0) AND RETURN
00157 M00S00154.dsdump +++|
00158 M00S00155.dsdump +++| DSDA VFD 1/1,1/1,1/0,1/0,8/,18/3LLWA,12/0,18/3LFWA
00159 M00S00156.dsdump +++| VFD 42/2LQD,18/2LOT
00160 M00S00157.dsdump +++| DSDB CON 0 STORAGE FOR (A0)
00161 M00S00158.dsdump +++| SPACE 4
00162 M00S00159.dsdump +++|* COMMON DECK.
00163 M00S00160.dsdump +++|
00164 M00S00161.dsdump +++|
00165 M00S00162.dsdump +++|*CALL COMKZFN
00166 M00S00163.dsdump +++| SPACE 4
00167 M00S00164.dsdump +++| END