User Tools

Site Tools


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