cdc:nos2.source:opl.opl871:common:combkdd
Common COMBKDD
1 Modification
Source
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;
cdc/nos2.source/opl.opl871/common/combkdd.txt · Last modified: by 127.0.0.1