Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.combkdd +++|
00002 M01S00002.combkdd +++|# COMBKDD - *K* DISPLAY DEFINITIONS. #
00003 M01S00003.combkdd +++| CONTROL NOLIST;
00004 M01S00004.combkdd +++| CONTROL IFEQ LISTCON,1;
00005 M01S00005.combkdd +++| CONTROL LIST;
00006 M01S00006.combkdd +++| CONTROL FI;
00007 M01S00007.combkdd +++| BEGIN # COMBKDD #
00008 M01S00008.combkdd +++|
00009 M01S00009.combkdd +++|#
00010 M01S00010.combkdd +++|*** COMBKDK - *K* DISPLAY DEFINITIONS.
00011 M01S00011.combkdd +++|*
00012 M01S00012.combkdd +++|* COMBKDD CONTAINS DEFINITIONS FOR THE *K* DISPLAY AND
00013 M01S00013.combkdd +++|* CONTAINS THE *K* DISPLAY INPUT BUFFER.
00014 M01S00014.combkdd +++|#
00015 M01S00015.combkdd +++|
00016 M01S00016.combkdd +++|
00017 M01S00017.combkdd +++| DEF KLINK #0#; # LINK TO K-QUEUE #
00018 M01S00018.combkdd +++| DEF KDELINK #1#; # DELINK FROM K-QUEUE #
00019 M01S00019.combkdd +++|
00020 M01S00020.combkdd +++| DEF BZEROES #0#; # CLEAR THE *B* DISPLAY LINE 2 #
00021 M01S00021.combkdd +++|
00022 M01S00022.combkdd +++|
00023 M01S00023.combkdd +++|
00024 M01S00024.combkdd +++|#
00025 M01S00025.combkdd +++|* PARAMETER CONVERSIONS.
00026 M01S00026.combkdd +++|#
00027 M01S00027.combkdd +++|
00028 M01S00028.combkdd +++| DEF ALF #0#; # ALPHA - NO CONVERSION #
00029 M01S00029.combkdd +++| DEF DEC #1#; # CONVERT TO DECIMAL DISPLAY #
00030 M01S00030.combkdd +++| DEF OCTL #2#; # CONVERT TO OCTAL DISPLAY #
00031 M01S00031.combkdd +++|
00032 M01S00032.combkdd +++|
00033 M01S00033.combkdd +++|#
00034 M01S00034.combkdd +++|* PARAMETER DEFINITIONS FOR *K* DISPLAY MESSAGES.
00035 M01S00035.combkdd +++|*
00036 M01S00036.combkdd +++|* THE PARAMETER VALUES FOR THE MESSAGE TEXTS ARE PICKED OUT
00037 M01S00037.combkdd +++|* OF THE *KWORD* ARRAY ACCORDING TO THE DEFINITIONS
00038 M01S00038.combkdd +++|* SPECIFIED HERE.
00039 M01S00039.combkdd +++|*
00040 M01S00040.combkdd +++|* PARAMETERS ARE DESCRIBED BY -
00041 M01S00041.combkdd +++|* . CODE - 2 CHARACTER PARAMETER CODE.
00042 M01S00042.combkdd +++|* . FROM LOCATION - LOCATION OF THE PARAMETER VALUE IN THE
00043 M01S00043.combkdd +++|* *KWORD* ARRAY (WORD OFFSET FROM *KW$PAR*, STARTING
00044 M01S00044.combkdd +++|* BIT NUMBER AND LENGTH IN BITS).
00045 M01S00045.combkdd +++|* . CONVERSION - TYPE OF CONVERSION FOR THE PARAMETER VALUE
00046 M01S00046.combkdd +++|* TO RESULT WITH DISPLAY CODE.
00047 M01S00047.combkdd +++|* . TO SIZE - NUMBER OF RIGHT JUSTIFIED CHARACTERS IN THE
00048 M01S00048.combkdd +++|* CONVERTED PARAMETER TO MOVE INTO THE MESSAGE TEXT.
00049 M01S00049.combkdd +++|* THE RESULTANT PARAMETER IS MOVED INTO THE MESSAGE TEXT AS
00050 M01S00050.combkdd +++|* INDICATED IN THE TEXT BY THE (*CODE).
00051 M01S00051.combkdd +++|*
00052 M01S00052.combkdd +++|* - WARNING - IF *KPNUM* CHANGES, THE ARRAY *KPAR* IN *KPFILL*
00053 M01S00053.combkdd +++|* MUST BE CHANGED ACCORDINGLY.
00054 M01S00054.combkdd +++|#
00055 M01S00055.combkdd +++|
00056 M01S00056.combkdd +++| DEF KPNUM #23#; # NUMBER OF PARAMETERS DEFINED #
00057 M01S00057.combkdd +++|
00058 M01S00058.combkdd +++| DEF P1C #"DT"#; # CODE #
00059 M01S00059.combkdd +++| DEF P1W #0#; # FROM WORD OFFSET #
00060 M01S00060.combkdd +++| DEF P1B #18#; # FROM STARTING BIT NUMBER #
00061 M01S00061.combkdd +++| DEF P1L #06#; # FROM LENGTH IN BITS #
00062 M01S00062.combkdd +++| DEF P1T #ALF#; # CONVERSION TYPE #
00063 M01S00063.combkdd +++| DEF P1S #1#; # TO SIZE IN CHARACTERS #
00064 M01S00064.combkdd +++|
00065 M01S00065.combkdd +++| DEF P2C #"EQ"#; # CODE #
00066 M01S00066.combkdd +++| DEF P2W #0#; # FROM WORD OFFSET #
00067 M01S00067.combkdd +++| DEF P2B #00#; # FROM STARTING BIT NUMBER #
00068 M01S00068.combkdd +++| DEF P2L #12#; # FROM LENGTH IN BITS #
00069 M01S00069.combkdd +++| DEF P2T #OCTL#; # CONVERSION TYPE #
00070 M01S00070.combkdd +++| DEF P2S #4#; # TO SIZE IN CHARACTERS #
00071 M01S00071.combkdd +++|
00072 M01S00072.combkdd +++| DEF P3C #"ID"#; # CODE #
00073 M01S00073.combkdd +++| DEF P3W #0#; # FROM WORD OFFSET #
00074 M01S00074.combkdd +++| DEF P3B #24#; # FROM STARTING BIT NUMBER #
00075 M01S00075.combkdd +++| DEF P3L #03#; # FROM LENGTH IN BITS #
00076 M01S00076.combkdd +++| DEF P3T #OCTL#; # CONVERSION TYPE #
00077 M01S00077.combkdd +++| DEF P3S #1#; # TO SIZE IN CHARACTERS #
00078 M01S00078.combkdd +++|
00079 M01S00079.combkdd +++| DEF P4C #"FN"#; # CODE #
00080 M01S00080.combkdd +++| DEF P4W #3#; # FROM WORD OFFSET #
00081 M01S00081.combkdd +++| DEF P4B #00#; # FROM STARTING BIT NUMBER #
00082 M01S00082.combkdd +++| DEF P4L #42#; # FROM LENGTH IN BITS #
00083 M01S00083.combkdd +++| DEF P4T #ALF#; # CONVERSION TYPE #
00084 M01S00084.combkdd +++| DEF P4S #7#; # TO SIZE IN CHARACTERS #
00085 M01S00085.combkdd +++|
00086 M01S00086.combkdd +++| DEF P5C #"JN"#; # CODE #
00087 M01S00087.combkdd +++| DEF P5W #4#; # FROM WORD OFFSET #
00088 M01S00088.combkdd +++| DEF P5B #00#; # FROM STARTING BIT NUMBER #
00089 M01S00089.combkdd +++| DEF P5L #24#; # FROM LENGTH IN BITS #
00090 M01S00090.combkdd +++| DEF P5T #ALF#; # CONVERSION TYPE #
00091 M01S00091.combkdd +++| DEF P5S #4#; # TO SIZE IN CHARACTERS #
00092 M01S00092.combkdd +++|
00093 M01S00093.combkdd +++| DEF P6C #"UI"#; # CODE #
00094 M01S00094.combkdd +++| DEF P6W #3#; # FROM WORD OFFSET #
00095 M01S00095.combkdd +++| DEF P6B #42#; # FROM STARTING BIT NUMBER #
00096 M01S00096.combkdd +++| DEF P6L #18#; # FROM LENGTH IN BITS #
00097 M01S00097.combkdd +++| DEF P6T #OCTL#; # CONVERSION TYPE #
00098 M01S00098.combkdd +++| DEF P6S #6#; # TO SIZE IN CHARACTERS #
00099 M01S00099.combkdd +++|
00100 M01S00100.combkdd +++| DEF P7C #"FM"#; # CODE #
00101 M01S00101.combkdd +++| DEF P7W #5#; # FROM WORD OFFSET #
00102 M01S00102.combkdd +++| DEF P7B #00#; # FROM STARTING BIT NUMBER #
00103 M01S00103.combkdd +++| DEF P7L #42#; # FROM LENGTH IN BITS #
00104 M01S00104.combkdd +++| DEF P7T #ALF#; # CONVERSION TYPE #
00105 M01S00105.combkdd +++| DEF P7S #7#; # TO SIZE IN CHARACTERS #
00106 M01S00106.combkdd +++|
00107 M01S00107.combkdd +++| DEF P8C #"EC"#; # CODE #
00108 M01S00108.combkdd +++| DEF P8W #0#; # FROM WORD OFFSET #
00109 M01S00109.combkdd +++| DEF P8B #30#; # FROM STARTING BIT NUMBER #
00110 M01S00110.combkdd +++| DEF P8L #12#; # FROM LENGTH IN BITS #
00111 M01S00111.combkdd +++| DEF P8T #OCTL#; # CONVERSION TYPE #
00112 M01S00112.combkdd +++| DEF P8S #4#; # TO SIZE IN CHARACTERS #
00113 M01S00113.combkdd +++|
00114 M01S00114.combkdd +++| DEF P9C #"YA"#; # CODE #
00115 M01S00115.combkdd +++| DEF P9W #0#; # FROM WORD OFFSET #
00116 M01S00116.combkdd +++| DEF P9B #30#; # FROM STARTING BIT NUMBER #
00117 M01S00117.combkdd +++| DEF P9L #6#; # FROM LENGTH IN BITS #
00118 M01S00118.combkdd +++| DEF P9T #DEC#; # CONVERSION TYPE #
00119 M01S00119.combkdd +++| DEF P9S #2#; # TO SIZE IN CHARACTERS #
00120 M01S00120.combkdd +++|
00121 M01S00121.combkdd +++| DEF P10C #"ZA"#; # CODE #
00122 M01S00122.combkdd +++| DEF P10W #0#; # FROM WORD OFFSET #
00123 M01S00123.combkdd +++| DEF P10B #36#; # FROM STARTING BIT NUMBER #
00124 M01S00124.combkdd +++| DEF P10L #6#; # FROM LENGTH IN BITS #
00125 M01S00125.combkdd +++| DEF P10T #DEC#; # CONVERSION TYPE #
00126 M01S00126.combkdd +++| DEF P10S #2#; # TO SIZE IN CHARACTERS #
00127 M01S00127.combkdd +++|
00128 M01S00128.combkdd +++| DEF P11C #"SF"#; # CODE #
00129 M01S00129.combkdd +++| DEF P11W #0#; # FROM WORD OFFSET #
00130 M01S00130.combkdd +++| DEF P11B #00#; # FROM STARTING BIT NUMBER #
00131 M01S00131.combkdd +++| DEF P11L #06#; # FROM LENGTH IN BITS #
00132 M01S00132.combkdd +++| DEF P11T #DEC#; # CONVERSION TYPE #
00133 M01S00133.combkdd +++| DEF P11S #1#; # TO SIZE IN CHARACTERS #
00134 M01S00134.combkdd +++|
00135 M01S00135.combkdd +++| DEF P12C #"CN"#; # CODE #
00136 M01S00136.combkdd +++| DEF P12W #0#; # FROM WORD OFFSET #
00137 M01S00137.combkdd +++| DEF P12B #12#; # FROM STARTING BIT NUMBER #
00138 M01S00138.combkdd +++| DEF P12L #06#; # FROM LENGTH IN BITS #
00139 M01S00139.combkdd +++| DEF P12T #OCTL#; # CONVERSION TYPE #
00140 M01S00140.combkdd +++| DEF P12S #2#; # TO SIZE IN CHARACTERS #
00141 M01S00141.combkdd +++|
00142 M01S00142.combkdd +++| DEF P13C #"CI"#; # CODE #
00143 M01S00143.combkdd +++| DEF P13W #0#; # FROM WORD OFFSET #
00144 M01S00144.combkdd +++| DEF P13B #18#; # FROM STARTING BIT NUMBER #
00145 M01S00145.combkdd +++| DEF P13L #3#; # FROM LENGTH IN BITS #
00146 M01S00146.combkdd +++| DEF P13T #OCTL#; # CONVERSION TYPE #
00147 M01S00147.combkdd +++| DEF P13S #1#; # TO SIZE IN CHARACTERS #
00148 M01S00148.combkdd +++|
00149 M01S00149.combkdd +++| DEF P14C #"XX"#; # CODE #
00150 M01S00150.combkdd +++| DEF P14W #0#; # FROM WORD OFFSET #
00151 M01S00151.combkdd +++| DEF P14B #00#; # FROM STARTING BIT NUMBER #
00152 M01S00152.combkdd +++| DEF P14L #00#; # FROM LENGTH IN BITS #
00153 M01S00153.combkdd +++| DEF P14T #DEC#; # CONVERSION TYPE #
00154 M01S00154.combkdd +++| DEF P14S #2#; # TO SIZE IN CHARACTERS #
00155 M01S00155.combkdd +++|
00156 M01S00156.combkdd +++| DEF P15C #"XX"#; # CODE #
00157 M01S00157.combkdd +++| DEF P15W #0#; # FROM WORD OFFSET #
00158 M01S00158.combkdd +++| DEF P15B #00#; # FROM STARTING BIT NUMBER #
00159 M01S00159.combkdd +++| DEF P15L #00#; # FROM LENGTH IN BITS #
00160 M01S00160.combkdd +++| DEF P15T #DEC#; # CONVERSION TYPE #
00161 M01S00161.combkdd +++| DEF P15S #2#; # TO SIZE IN CHARACTERS #
00162 M01S00162.combkdd +++|
00163 M01S00163.combkdd +++| DEF P16C #"XX"#; # CODE #
00164 M01S00164.combkdd +++| DEF P16W #0#; # FROM WORD OFFSET #
00165 M01S00165.combkdd +++| DEF P16B #00#; # FROM STARTING BIT NUMBER #
00166 M01S00166.combkdd +++| DEF P16L #00#; # FROM LENGTH IN BITS #
00167 M01S00167.combkdd +++| DEF P16T #DEC#; # CONVERSION TYPE #
00168 M01S00168.combkdd +++| DEF P16S #2#; # TO SIZE IN CHARACTERS #
00169 M01S00169.combkdd +++|
00170 M01S00170.combkdd +++| DEF P17C #"DD"#; # CODE #
00171 M01S00171.combkdd +++| DEF P17W #0#; # FROM WORD OFFSET #
00172 M01S00172.combkdd +++| DEF P17B #27#; # FROM STARTING BIT NUMBER #
00173 M01S00173.combkdd +++| DEF P17L #03#; # FROM LENGTH IN BITS #
00174 M01S00174.combkdd +++| DEF P17T #DEC#; # CONVERSION TYPE #
00175 M01S00175.combkdd +++| DEF P17S #1#; # TO SIZE IN CHARACTERS #
00176 M01S00176.combkdd +++|
00177 M01S00177.combkdd +++| DEF P18C #"NF"#; # CODE #
| Line S00178 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00178 M02S00178.common1 ---| DEF P18W #0#; # FROM WORD OFFSET #
| Line S00179 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00179 M02S00179.common1 ---| DEF P18B #42#; # FROM STARTING BIT NUMBER #
| Line S00180 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00180 M02S00180.common1 ---| DEF P18L #18#; # FROM LENGTH IN BITS #
00181 M01S00001.common1 +++| DEF P18W #1#; # FROM WORD OFFSET #
00182 M01S00002.common1 +++| DEF P18B #00#; # FROM STARTING BIT NUMBER #
00183 M01S00003.common1 +++| DEF P18L #60#; # FROM LENGTH IN BITS #
00184 M01S00181.combkdd +++| DEF P18T #ALF#; # CONVERSION TYPE #
| Line S00182 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00185 M02S00182.common1 ---| DEF P18S #3#; # TO SIZE IN CHARACTERS #
00186 M01S00004.common1 +++| DEF P18S #10#; # TO SIZE IN CHARACTERS #
00187 M01S00183.combkdd +++|
00188 M01S00184.combkdd +++| DEF P19C #"ND"#; # CODE #
| Line S00185 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00189 M02S00185.common1 ---| DEF P19W #4#; # FROM WORD OFFSET #
00190 M01S00005.common1 +++| DEF P19W #0#; # FROM WORD OFFSET #
00191 M01S00186.combkdd +++| DEF P19B #33#; # FROM STARTING BIT NUMBER #
00192 M01S00187.combkdd +++| DEF P19L #03#; # FROM LENGTH IN BITS #
00193 M01S00188.combkdd +++| DEF P19T #OCTL#; # CONVERSION TYPE #
00194 M01S00189.combkdd +++| DEF P19S #1#; # TO SIZE IN CHARACTERS #
00195 M01S00190.combkdd +++|
00196 M01S00191.combkdd +++| DEF P20C #"PU"#; # CODE #
00197 M01S00192.combkdd +++| DEF P20W #4#; # FROM WORD OFFSET #
| Line S00193 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00198 M02S00193.common1 ---| DEF P20B #36#; # FROM STARTING BIT NUMBER #
| Line S00194 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00199 M02S00194.common1 ---| DEF P20L #24#; # FROM LENGTH IN BITS #
| Line S00195 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00200 M02S00195.common1 ---| DEF P20T #OCTL#; # CONVERSION TYPE #
00201 M01S00006.common1 +++| DEF P20B #30#; # FROM STARTING BIT NUMBER #
00202 M01S00007.common1 +++| DEF P20L #30#; # FROM LENGTH IN BITS #
00203 M01S00008.common1 +++| DEF P20T #DEC#; # CONVERSION TYPE #
00204 M01S00196.combkdd +++| DEF P20S #8#; # TO SIZE IN CHARACTERS #
00205 M01S00197.combkdd +++|
00206 M01S00198.combkdd +++| DEF P21C #"SM"#; # CODE #
00207 M01S00199.combkdd +++| DEF P21W #4#; # FROM WORD OFFSET #
00208 M01S00200.combkdd +++| DEF P21B #24#; # FROM STARTING BIT NUMBER #
00209 M01S00201.combkdd +++| DEF P21L #06#; # FROM LENGTH IN BITS #
00210 M01S00202.combkdd +++| DEF P21T #ALF#; # CONVERSION TYPE #
00211 M01S00203.combkdd +++| DEF P21S #1#; # TO SIZE IN CHARACTERS #
00212 M01S00204.combkdd +++|
| Line S00205 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00213 M02S00205.common1 ---| DEF P22C #"XX"#; # CODE #
| Line S00206 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00214 M02S00206.common1 ---| DEF P22W #0#; # FROM WORD OFFSET #
00215 M01S00009.common1 +++| DEF P22C #"MA"#; # CODE #
00216 M01S00010.common1 +++| DEF P22W #2#; # FROM WORD OFFSET #
00217 M01S00207.combkdd +++| DEF P22B #00#; # FROM STARTING BIT NUMBER #
00218 M01S00208.combkdd +++| DEF P22L #06#; # FROM LENGTH IN BITS #
| Line S00209 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00219 M02S00209.common1 ---| DEF P22T #DEC#; # CONVERSION TYPE #
| Line S00210 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00220 M02S00210.common1 ---| DEF P22S #2#; # TO SIZE IN CHARACTERS #
00221 M01S00011.common1 +++| DEF P22T #ALF#; # CONVERSION TYPE #
00222 M01S00012.common1 +++| DEF P22S #1#; # TO SIZE IN CHARACTERS #
00223 M01S00211.combkdd +++|
00224 M01S00212.combkdd +++| DEF P23C #"XX"#; # CODE #
00225 M01S00213.combkdd +++| DEF P23W #0#; # FROM WORD OFFSET #
00226 M01S00214.combkdd +++| DEF P23B #00#; # FROM STARTING BIT NUMBER #
00227 M01S00215.combkdd +++| DEF P23L #06#; # FROM LENGTH IN BITS #
00228 M01S00216.combkdd +++| DEF P23T #DEC#; # CONVERSION TYPE #
00229 M01S00217.combkdd +++| DEF P23S #2#; # TO SIZE IN CHARACTERS #
00230 M01S00218.combkdd +++|#
00231 M01S00219.combkdd +++|* TO ACCESS THE PARAMETER VALUES IN THE *KWORD* ARRAY.
00232 M01S00220.combkdd +++|#
00233 M01S00221.combkdd +++|
00234 M01S00222.combkdd +++| DEF KP$DT #B<P1B,P1L>KW$PAR[P1W]#; # DEVICE TYPE #
00235 M01S00223.combkdd +++| DEF KP$EQ #B<P2B,P2L>KW$PAR[P2W]#; # EST ORDINAL #
00236 M01S00224.combkdd +++| DEF KP$ID #B<P3B,P3L>KW$PAR[P3W]#; # DRD LOCATION #
00237 M01S00225.combkdd +++| DEF KP$FN #B<P4B,P4L>KW$PAR[P4W]#; # FILE NAME #
00238 M01S00226.combkdd +++| DEF KP$JN #B<P5B,P5L>KW$PAR[P5W]#; # JOB SEQUENCE NUMBER #
00239 M01S00227.combkdd +++| DEF KP$UI #B<P6B,P6L>KW$PAR[P6W]#; # USER INDEX #
00240 M01S00228.combkdd +++| DEF KP$FM #B<P7B,P7L>KW$PAR[P7W]#; # FAMILY NAME #
00241 M01S00229.combkdd +++| DEF KP$EC #B<P8B,P8L>KW$PAR[P8W]#; # ERROR CODE #
00242 M01S00230.combkdd +++| DEF KP$YA #B<P9B,P9L>KW$PAR[P9W]#; # Y MATRIX ADDRESS #
00243 M01S00231.combkdd +++| DEF KP$ZA #B<P10B,P10L>KW$PAR[P10W]#; # Z MATRIX ADDRESS #
00244 M01S00232.combkdd +++| DEF KP$SF #B<P11B,P11L>KW$PAR[P11W]#; # SUBFAMILY #
00245 M01S00233.combkdd +++| DEF KP$CN #B<P12B,P12L>KW$PAR[P12W]#; # CHANNEL NUMBER #
00246 M01S00234.combkdd +++| DEF KP$CI #B<P13B,P13L>KW$PAR[P13W]#; # CIF #
00247 M01S00235.combkdd +++| DEF KP$UN #B<P14B,P14L>KW$PAR[P14W]#; # UNUSED #
00248 M01S00236.combkdd +++| DEF KP$UO #B<P15B,P15L>KW$PAR[P15W]#; # UNUSED #
00249 M01S00237.combkdd +++| DEF KP$UP #B<P16B,P16L>KW$PAR[P16W]#; # UNUSED #
00250 M01S00238.combkdd +++| DEF KP$DD #B<P17B,P17L>KW$PAR[P17W]#; # DRD NUMBER #
00251 M01S00239.combkdd +++| DEF KP$NF #B<P18B,P18L>KW$PAR[P18W]#; # ON/OF STATUS #
00252 M01S00240.combkdd +++| DEF KP$ND #B<P19B,P19L>KW$PAR[P19W]#; # NUM DRDS DS/ST #
00253 M01S00241.combkdd +++| DEF KP$PU #B<P20B,P20L>KW$PAR[P20W]#; # PRU NUMBER #
00254 M01S00242.combkdd +++| DEF KP$SM #B<P21B,P21L>KW$PAR[P21W]#; # SM IDENTIFIER #
| Line S00243 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00255 M02S00243.common1 ---| DEF KP$UW #B<P22B,P22L>KW$PAR[P22W]#; # UNUSED #
00256 M01S00013.common1 +++| DEF KP$MA #B<P22B,P22L>KW$PAR[P22W]#; # MAINTENANCE #
00257 M01S00244.combkdd +++| DEF KP$UX #B<P23B,P23L>KW$PAR[P23W]#; # UNUSED #
00258 M01S00245.combkdd +++|
00259 M01S00246.combkdd +++|
00260 M01S00247.combkdd +++|
00261 M01S00248.combkdd +++|#
00262 M01S00249.combkdd +++|*
00263 M01S00250.combkdd +++|* . PARAMETERS ARE SPECIFIED BY - *CODE .
00264 M01S00251.combkdd +++|* THE CODE MUST BE DEFINED IN THE ABOVE PARAMETER
00265 M01S00252.combkdd +++|* DEFINITIONS LIST.
00266 M01S00253.combkdd +++|* . MAXIMUM MESSAGE LENGTH IS 40 CHARACTERS.
00267 M01S00254.combkdd +++|* . THE FIRST CHARACTER MUST BE A BLANK.
00268 M01S00255.combkdd +++|*
00269 M01S00256.combkdd +++|* . WARNING - IF *KMNUM* CHANGES, THE ARRAY *KMESSAGES* IN
00270 M01S00257.combkdd +++|* *KDISPLY* MUST BE CHANGED ACCORDINGLY.
00271 M01S00258.combkdd +++|#
00272 M01S00259.combkdd +++|
00273 M01S00260.combkdd +++| DEF KMNUM #30#; # NUMBER OF MESSAGES DEFINED #
00274 M01S00261.combkdd +++|
00275 M01S00262.combkdd +++| DEF KM1 #" EST*EQ, CH *CN "#;
00276 M01S00263.combkdd +++| DEF KM2 #" EST*EQ, CH *CN, SM *DT "#;
00277 M01S00264.combkdd +++| DEF KM3 #" EST*EQ, CH *CN, SM *DT, DRD *ID "#;
00278 M01S00265.combkdd +++| DEF KM4 #" UNRECOVERABLE WRITE. "#;
00279 M01S00266.combkdd +++| DEF KM5 #" UNRECOVERABLE READ. "#;
00280 M01S00267.combkdd +++| DEF KM6 #" VOLUME LABEL ERROR. "#;
00281 M01S00268.combkdd +++| DEF KM7 #" CARTRIDGE MISSING, Y=*YA, Z=*ZA. "#;
00282 M01S00269.combkdd +++| DEF KM8 #" CARTRIDGE LABEL ERROR - SEE DAYFILE. "#;
00283 M01S00270.combkdd +++| DEF KM9 #" CARTRIDGE EJECTED. "#;
| Line S00271 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00284 M02S00271.common1 ---| DEF KM10 #" PATH TURNED OFF - SEE MPA OUTPUT. "#;
00285 M01S00014.common1 +++| DEF KM10 #" PATH(S) TURNED OFF - SEE MPA OUTPUT. "#;
00286 M01S00272.combkdd +++| DEF KM11 #" CELL FULL, Y=*YA, Z=*ZA. "#;
00287 M01S00273.combkdd +++| DEF KM12 #" AWAITING UDT ALTERATION. "#;
00288 M01S00274.combkdd +++| DEF KM13 #" CHANNEL TURNED OFF. "#;
00289 M01S00275.combkdd +++| DEF KM14 #" CHANNEL ERROR. "#;
00290 M01S00276.combkdd +++| DEF KM15 #" CONTROLLER ERROR. "#;
00291 M01S00277.combkdd +++| DEF KM16 #" DEVICE TURNED OFF. "#;
00292 M01S00278.combkdd +++| DEF KM17 #" DRD LOAD ERROR. "#;
00293 M01S00279.combkdd +++| DEF KM18 #" DRD UNLOAD ERROR. "#;
00294 M01S00280.combkdd +++| DEF KM19 #" OUTPUT TRAY FULL. "#;
00295 M01S00281.combkdd +++| DEF KM20 #" INPUT TRAY EMPTY. "#;
00296 M01S00282.combkdd +++| DEF KM21 #" STORAGE MODULE ERROR. "#;
00297 M01S00283.combkdd +++| DEF KM22 #" ALL CHANNELS OFF TO THIS CONTROLLER. "#;
00298 M01S00284.combkdd +++| DEF KM23 #" EST*EQ "#;
00299 M01S00285.combkdd +++| DEF KM24 #" CHANNEL INTERFACE *CI OFFLINE. "#;
00300 M01S00286.combkdd +++| DEF KM25 #" OPERATOR IMPL REQUIRED. "#;
00301 M01S00287.combkdd +++| DEF KM26 #" UNUSED "#;
00302 M01S00288.combkdd +++| DEF KM27 #" UNUSED "#;
00303 M01S00289.combkdd +++| DEF KM28 #" UNUSED "#;
00304 M01S00290.combkdd +++| DEF KM29 #" UNUSED "#;
00305 M01S00291.combkdd +++| DEF KM30 #" UNUSED "#;
00306 M01S00292.combkdd +++|
00307 M01S00293.combkdd +++|#
00308 M01S00294.combkdd +++|* ORDINALS FOR THE *K* MESSAGES.
00309 M01S00295.combkdd +++|#
00310 M01S00296.combkdd +++|
00311 M01S00297.combkdd +++| STATUS KM # DEFINED *K* MESSAGES #
00312 M01S00298.combkdd +++| KNONE, # RESERVED #
00313 M01S00299.combkdd +++| KM1, # MESSAGE 1 #
00314 M01S00300.combkdd +++| KM2, # MESSAGE 2 #
00315 M01S00301.combkdd +++| KM3, # MESSAGE 3 #
00316 M01S00302.combkdd +++| KM4, # MESSAGE 4 #
00317 M01S00303.combkdd +++| KM5, # MESSAGE 5 #
00318 M01S00304.combkdd +++| KM6, # MESSAGE 6 #
00319 M01S00305.combkdd +++| KM7, # MESSAGE 7 #
00320 M01S00306.combkdd +++| KM8, # MESSAGE 8 #
00321 M01S00307.combkdd +++| KM9, # MESSAGE 9 #
00322 M01S00308.combkdd +++| KM10, # MESSAGE 10 #
00323 M01S00309.combkdd +++| KM11, # MESSAGE 11 #
00324 M01S00310.combkdd +++| KM12, # MESSAGE 12 #
00325 M01S00311.combkdd +++| KM13, # MESSAGE 13 #
00326 M01S00312.combkdd +++| KM14, # MESSAGE 14 #
00327 M01S00313.combkdd +++| KM15, # MESSAGE 15 #
00328 M01S00314.combkdd +++| KM16, # MESSAGE 16 #
00329 M01S00315.combkdd +++| KM17, # MESSAGE 17 #
00330 M01S00316.combkdd +++| KM18, # MESSAGE 18 #
00331 M01S00317.combkdd +++| KM19, # MESSAGE 19 #
00332 M01S00318.combkdd +++| KM20, # MESSAGE 20 #
00333 M01S00319.combkdd +++| KM21, # MESSAGE 21 #
00334 M01S00320.combkdd +++| KM22, # MESSAGE 22 #
00335 M01S00321.combkdd +++| KM23, # MESSAGE 23 #
00336 M01S00322.combkdd +++| KM24, # MESSAGE 24 #
00337 M01S00323.combkdd +++| KM25, # MESSAGE 25 #
00338 M01S00324.combkdd +++| KM26, # MESSAGE 26 #
00339 M01S00325.combkdd +++| KM27, # MESSAGE 27 #
00340 M01S00326.combkdd +++| KM28, # MESSAGE 28 #
00341 M01S00327.combkdd +++| KM29, # MESSAGE 29 #
00342 M01S00328.combkdd +++| KM30, # MESSAGE 30 #
00343 M01S00329.combkdd +++| KEND; # END OF LIST #
00344 M01S00330.combkdd +++|
00345 M01S00331.combkdd +++|#
00346 M01S00332.combkdd +++|* DEFINE *K* MESSAGE TEXTS FOR DESCRIBING *SM* STATUS.
00347 M01S00333.combkdd +++|*
00348 M01S00334.combkdd +++|* . SAME RULES APPLY AS FOR MESSAGES ABOVE
00349 M01S00335.combkdd +++|* . WARNING - IF *KSMNUM* CHANGES, THE ARRAY *KSMMSGS* IN *KDSM*
00350 M01S00336.combkdd +++|* MUST BE CHANGED ACCORDINGLY.
00351 M01S00337.combkdd +++|#
00352 M01S00338.combkdd +++| DEF KSMNUM #13#; # NUMBER OF *SM* MESSAGES DEFINED #
00353 M01S00339.combkdd +++|
00354 M01S00340.combkdd +++| DEF KSM1
| Line S00341 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00355 M02S00341.common1 ---| #" SM*ID STATUS: *NF "#;
00356 M01S00015.common1 +++| #" SM*SM STATUS *NF*MA "#;
00357 M01S00342.combkdd +++| DEF KSM2
00358 M01S00343.combkdd +++| #" *ND MAX DRDS FOR STAGING "#;
00359 M01S00344.combkdd +++| DEF KSM3
00360 M01S00345.combkdd +++| #" *ND MAX DRDS FOR DESTAGING "#;
00361 M01S00346.combkdd +++| DEF KSM4
| Line S00347 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00362 M02S00347.common1 ---| #" JOB / FILE / UI / PRUS "#;
00363 M01S00016.common1 +++| #" JSN FILE UI PRU-S "#;
00364 M01S00348.combkdd +++| DEF KSM5
| Line S00349 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00365 M02S00349.common1 ---| #" DRD*DD: STAGE - *JN/*FN/*UI/*PU "#;
00366 M01S00017.common1 +++| #" DRD*DD STAGE - *JN *FN *UI *PU "#;
00367 M01S00350.combkdd +++| DEF KSM6
| Line S00351 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00368 M02S00351.common1 ---| #" DRD*DD: DESTAGE - *JN/*FN/*UI/*PU "#;
00369 M01S00018.common1 +++| #" DRD*DD DESTAGE - *JN *FN *UI *PU "#;
00370 M01S00352.combkdd +++| DEF KSM7
| Line S00353 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00371 M02S00353.common1 ---| #" DRD*DD: UTILITY "#;
00372 M01S00019.common1 +++| #" DRD*DD UTILITY "#;
00373 M01S00354.combkdd +++| DEF KSM8
| Line S00355 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00374 M02S00355.common1 ---| #" DRD*DD: OFF "#;
00375 M01S00020.common1 +++| #" DRD*DD OFF "#;
00376 M01S00356.combkdd +++| DEF KSM9
| Line S00357 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00377 M02S00357.common1 ---| #" DRD*DD: IDLE "#;
| Line S00358 Modification History |
M01 (Added by) | combkdd |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00378 M02S00358.common1 ---| DEF KSM10 #" UNUSED "#;
00379 M01S00021.common1 +++| #" DRD*DD IDLE "#;
00380 M01S00022.common1 +++| DEF KSM10
00381 M01S00023.common1 +++| #" DRD*DD MAINTENANCE "#;
00382 M01S00359.combkdd +++| DEF KSM11 #" UNUSED "#;
00383 M01S00360.combkdd +++| DEF KSM12 #" UNUSED "#;
00384 M01S00361.combkdd +++| DEF KSM13 #" UNUSED "#;
00385 M01S00362.combkdd +++|#
00386 M01S00363.combkdd +++|* ORDINALS FOR *K* DISPLAY *SM* MESSAGES
00387 M01S00364.combkdd +++|#
00388 M01S00365.combkdd +++| STATUS KMSM # DEFINED *K* *SM* MESSAGES #
00389 M01S00366.combkdd +++| KSMZERO, # RESERVED #
00390 M01S00367.combkdd +++| KSM1, # SM MESSAGE 1 #
00391 M01S00368.combkdd +++| KSM2, # SM MESSAGE 2 #
00392 M01S00369.combkdd +++| KSM3, # SM MESSAGE 3 #
00393 M01S00370.combkdd +++| KSM4, # SM MESSAGE 4 #
00394 M01S00371.combkdd +++| KSM5, # SM MESSAGE 5 #
00395 M01S00372.combkdd +++| KSM6, # SM MESSAGE 6 #
00396 M01S00373.combkdd +++| KSM7, # SM MESSAGE 7 #
00397 M01S00374.combkdd +++| KSM8, # SM MESSAGE 8 #
00398 M01S00375.combkdd +++| KSM9, # SM MESSAGE 9 #
00399 M01S00376.combkdd +++| KSM10, # SM MESSAGE 10 #
00400 M01S00377.combkdd +++| KSM11, # SM MESSAGE 11 #
00401 M01S00378.combkdd +++| KSM12, # SM MESSAGE 12 #
00402 M01S00379.combkdd +++| KSM13, # SM MESSAGE 13 #
00403 M01S00380.combkdd +++| KSMEND; # END OF LIST #
00404 M01S00381.combkdd +++|
00405 M01S00382.combkdd +++|#
00406 M01S00383.combkdd +++|* *KWORD* ARRAY DEFINES THE *K* DISPLAY REQUEST WORDS.
00407 M01S00384.combkdd +++|#
00408 M01S00385.combkdd +++|
00409 M01S00386.combkdd +++| BASED
00410 M01S00387.combkdd +++| ARRAY KWORD [0:0] S(1); # K-REQUEST WORDS #
00411 M01S00388.combkdd +++| BEGIN
00412 M01S00389.combkdd +++| ITEM KW$WORD U(00,00,60); # REQUEST WORD #
00413 M01S00390.combkdd +++| ITEM KW$CW U(00,00,15); # CONTROL FLAGS #
00414 M01S00391.combkdd +++| ITEM KW$KCTL U(00,00,07); # K-CONTROLLED FIELDS #
00415 M01S00392.combkdd +++| ITEM KW$COMP B(00,00,01); # COMPLETE FLAG #
00416 M01S00393.combkdd +++| ITEM KW$OP U(00,01,04); # OPERATOR REPLY #
00417 M01S00394.combkdd +++| ITEM KW$OPGO B(00,01,01); # - GO #
00418 M01S00395.combkdd +++| ITEM KW$OPDROP B(00,02,01); # - DROP #
00419 M01S00396.combkdd +++| ITEM KW$ACT B(00,05,01); # CURRENTLY ACTIVE #
00420 M01S00397.combkdd +++| ITEM KW$RES U(00,06,01); # RESERVED #
00421 M01S00398.combkdd +++| ITEM KW$UCTL U(00,07,08); # USER CONTROLLED FIELDS #
00422 M01S00399.combkdd +++| ITEM KW$IC B(00,07,01); # IMMEDIATE COMPLETE #
00423 M01S00400.combkdd +++| ITEM KW$RP U(00,08,04); # VALID REPLY #
00424 M01S00401.combkdd +++| ITEM KW$RPGO B(00,08,01); # - GO #
00425 M01S00402.combkdd +++| ITEM KW$RPDROP B(00,09,01); # - DROP #
00426 M01S00403.combkdd +++| ITEM KW$DF B(00,12,01); # ISSUE TO DAYFILE #
00427 M01S00404.combkdd +++| ITEM KW$ELOG B(00,13,01); # ISSUE TO ERRLOG #
00428 M01S00405.combkdd +++| ITEM KW$MP B(00,14,01); # RESERVED #
00429 M01S00406.combkdd +++| ITEM KW$LINE1 U(00,15,09); # LINE 1 MESSAGE ORDINAL #
00430 M01S00407.combkdd +++| ITEM KW$LINE2 U(00,24,09); # LINE 2 MESSAGE ORDINAL #
00431 M01S00408.combkdd +++| ITEM KW$LINE3 U(00,33,09); # LINE 3 MESSAGE ORDINAL #
00432 M01S00409.combkdd +++| ITEM KW$LINK U(00,42,18); # K-QUEUE LINK #
00433 M01S00410.combkdd +++| ITEM KW$PAR U(01,00,60); # PARAMETER WORD #
00434 M01S00411.combkdd +++| END
00435 M01S00412.combkdd +++|
00436 M01S00413.combkdd +++|#
00437 M01S00414.combkdd +++|* A MESSAGE ORDINAL IN *KWORD* CAN BE ACCESSED BY LINE NUMBER.
00438 M01S00415.combkdd +++|#
00439 M01S00416.combkdd +++|
00440 M01S00417.combkdd +++| DEF KW$MSGORD(I) #B<((I)-1)*09+15,09>KW$WORD[0]#;
00441 M01S00418.combkdd +++|
00442 M01S00419.combkdd +++|#
00443 M01S00420.combkdd +++|* *BKDDCOM* COMMON BLOCK.
00444 M01S00421.combkdd +++|#
00445 M01S00422.combkdd +++|
00446 M01S00423.combkdd +++| COMMON BKDDCOM;
00447 M01S00424.combkdd +++|
00448 M01S00425.combkdd +++| BEGIN # BKDDCOM #
00449 M01S00426.combkdd +++|
00450 M01S00427.combkdd +++|#
00451 M01S00428.combkdd +++|* *KBINPUT* IS THE BUFFER FOR THE KEYBOARD. IT CONTAINS THE
00452 M01S00429.combkdd +++|* CURRENT RESPONSE FROM THE OPERATOR.
00453 M01S00430.combkdd +++|#
00454 M01S00431.combkdd +++|
00455 M01S00432.combkdd +++| ARRAY KBINPUT [0:0] S(8); # KEYBOARD BUFFER #
00456 M01S00433.combkdd +++| BEGIN
00457 M01S00434.combkdd +++| ITEM KB$SCAN C(00,00,80); # FULL RESPONSE #
00458 M01S00435.combkdd +++| ITEM KB$CLEAR U(00,00,60); # CLEAR THE RESPONSE #
00459 M01S00436.combkdd +++| ITEM KB$FILEORD C(00,36,01); # *FILES* COMMAND ORDINAL #
00460 M01S00437.combkdd +++| END
00461 M01S00438.combkdd +++|
00462 M01S00439.combkdd +++| END # BKDDCOM #
00463 M01S00440.combkdd +++|
00464 M01S00441.combkdd +++| END # COMBKDD #
00465 M01S00442.combkdd +++|
00466 M01S00443.combkdd +++| CONTROL LIST;