cdc:nos2.source:opl.opl871:common:combucr
Common COMBUCR
0 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.combucr +++| 00002 M01S00002.combucr +++|# COMBUCR - DATA DECLARATIONS FOR UCP REQUEST PROCESSING. # 00003 M01S00003.combucr +++| CONTROL NOLIST; 00004 M01S00004.combucr +++| CONTROL IFEQ LISTCON,1; 00005 M01S00005.combucr +++| CONTROL LIST; 00006 M01S00006.combucr +++| CONTROL FI; 00007 M01S00007.combucr +++| BEGIN # COMBUCR # 00008 M01S00008.combucr +++| 00009 M01S00009.combucr +++|# 00010 M01S00010.combucr +++|*** COMBUCR - DATA DECLARATIONS FOR UCP REQUEST PROCESSING. 00011 M01S00011.combucr +++|* 00012 M01S00012.combucr +++|* COMBUCR CONTAINS THE BASED ARRAYS AND STATUS LISTS NECESSARY 00013 M01S00013.combucr +++|* TO PROCESS UCP REQUESTS AND TO COMMUNICATE WITH THE UCP VIA 00014 M01S00014.combucr +++|* SFCALL REQUESTS. 00015 M01S00015.combucr +++|# 00016 M01S00016.combucr +++| 00017 M01S00017.combucr +++|# 00018 M01S00018.combucr +++|* *KILLCODE* IS THE STATUS LIST WHICH DEFINES THE REASONS FOR WHICH 00019 M01S00019.combucr +++|* A UCP IS ABORTED. THIS CODE IS PASSED TO *KILL$UCP* FROM THE 00020 M01S00020.combucr +++|* PROCESSOR WHICH IS REQUESTING THAT A UCP BE ABORTED. 00021 M01S00021.combucr +++|# 00022 M01S00022.combucr +++| 00023 M01S00023.combucr +++| STATUS KILLCODE 00024 M01S00024.combucr +++| NOTUSED, # NOT USED # 00025 M01S00025.combucr +++| NOTAUTH, # NOT AUTHORIZED # 00026 M01S00026.combucr +++| NOTCON, # NOT CONNECTED # 00027 M01S00027.combucr +++| MULCON, # ALREADY CONNECTED # 00028 M01S00028.combucr +++| MULREQ, # MULTIPLE REQUESTS # 00029 M01S00029.combucr +++| MULRUN, # MULTIPLE RUN # 00030 M01S00030.combucr +++| INVRQT, # INVALID REQUEST TYPE # 00031 M01S00031.combucr +++| INVRQC, # INVALID REQUEST CODE # 00032 M01S00032.combucr +++| UTLCONF, # UTILITY CONFLICT # 00033 M01S00033.combucr +++| MULCART, # CARTRIDGE ALREADY ACTIVE # 00034 M01S00034.combucr +++| CLOSED, # *SSEXEC* IS CLOSED # 00035 M01S00035.combucr +++| INVADDR, # INVALID ADDRESS # 00036 M01S00036.combucr +++| LASTCODE; # INVALID *KILLCODE* FROM HERE # 00037 M01S00037.combucr +++| 00038 M01S00038.combucr +++|# 00039 M01S00039.combucr +++|* *REQNAME* IS THE STATUS LIST WHICH DEFINES THE VALID REQUEST 00040 M01S00040.combucr +++|* IDENTIFIERS KNOWN TO SSEXEC. 00041 M01S00041.combucr +++|# 00042 M01S00042.combucr +++| 00043 M01S00043.combucr +++| STATUS REQNAME 00044 M01S00044.combucr +++| RQIFIRST, # INVALID # 00045 M01S00045.combucr +++| RQIMOVE, # *SSMOVE* # 00046 M01S00046.combucr +++| RQILABL, # *SSLABEL* # 00047 M01S00047.combucr +++| RQIDBUG, # *SSDEBUG* # 00048 M01S00048.combucr +++| RQIVALD, # *SSVAL* # 00049 M01S00049.combucr +++| RQIALTER, # *SSALTER* # 00050 M01S00050.combucr +++| RQITEST, # TEST HOOKS # 00051 M01S00051.combucr +++| RQIINT, # INTERNAL # 00052 M01S00052.combucr +++| RQIAUCP, # ABORTED UCP # 00053 M01S00053.combucr +++| RQILAST; # INVALID FROM HERE # 00054 M01S00054.combucr +++| 00055 M01S00055.combucr +++|# 00056 M01S00056.combucr +++|* THE FOLLOWING DEFINE THE OCTAL VALUES OF THE VARIOUS SFCALL 00057 M01S00057.combucr +++|* REQUESTS. 00058 M01S00058.combucr +++|# 00059 M01S00059.combucr +++| 00060 M01S00060.combucr +++| DEF SFREGR #O"02"#; # MESSAGE TO UCP DAYFILE AND ABORT 00061 M01S00061.combucr +++| UCP # 00062 M01S00062.combucr +++| DEF SFTIMR #O"04"#; # OBTAIN ACCOUNTING DATA FOR SCP # 00063 M01S00063.combucr +++| DEF SFENDT #O"06"#; # INDICATE END OF TASK TO UCP # 00064 M01S00064.combucr +++| DEF SFREAD #O"10"#; # READ FROM UCP FIELD LENGTH # 00065 M01S00065.combucr +++| DEF SFWRIT #O"14"#; # WRITE TO UCP FIELD LENGTH # 00066 M01S00066.combucr +++| DEF SFSTAT #O"12"#; # REQUEST STATUS OF UCP FROM 00067 M01S00067.combucr +++| SYSTEM # 00068 M01S00068.combucr +++| DEF SFEXIT #O"16"#; # EXIT FROM SCP STATUS # 00069 M01S00069.combucr +++| DEF SFSWPO #O"24"#; # INDICATE UCP AS CANDIDATE FOR 00070 M01S00070.combucr +++| SWAP OUT # 00071 M01S00071.combucr +++| DEF SFSWPI #O"26"#; # REQUEST SWAP IN OF UCP # 00072 M01S00072.combucr +++| DEF SFSLTC #O"30"#; # SET THE LONG TERM CONNECTION 00073 M01S00073.combucr +++| INDICATOR # 00074 M01S00074.combucr +++| DEF SFCLTC #O"32"#; # CLEAR THE LONG TERM CONNECTION 00075 M01S00075.combucr +++| INDICATOR # 00076 M01S00076.combucr +++| DEF SFLIST #O"34"#; # PROCESS A LIST OF SFXXXX 00077 M01S00077.combucr +++| FUNCTIONS # 00078 M01S00078.combucr +++| 00079 M01S00079.combucr +++|# 00080 M01S00080.combucr +++|* SFCALL ERRORS RETURNED TO THE SCP. 00081 M01S00081.combucr +++|# 00082 M01S00082.combucr +++| 00083 M01S00083.combucr +++| DEF SFRCLSTER #O"40"#; # AT LEAST ONE ERROR DETECTED IN 00084 M01S00084.combucr +++| LIST # 00085 M01S00085.combucr +++| DEF SFRCJOBINV #O"41"#; # JOB IDENTIFIER IS INVALID # 00086 M01S00086.combucr +++| DEF SFRCBDSCPA #O"42"#; # *SCPA* IS NOT WITHIN THE 00087 M01S00087.combucr +++| SUBSYSTEM FL # 00088 M01S00088.combucr +++| DEF SFRCBDUCPA #O"43"#; # *UCPA* IS NOT WITHIN THE UCP FL 00089 M01S00089.combucr +++| # 00090 M01S00090.combucr +++| DEF SFRCSWPOUT #O"44"#; # USER JOB IS SWAPPED OUT # 00091 M01S00091.combucr +++| DEF SFRCUCPGON #O"45"#; # USER JOB IS NOT IN THE SYSTEM # 00092 M01S00092.combucr +++| DEF SFRCMULTCN #O"57"#; # CONNECTION PREVIOUSLY 00093 M01S00093.combucr +++| ESTABLISHED # 00094 M01S00094.combucr +++| DEF SFRCCONREJ #O"60"#; # CONNECTION REJECTED # 00095 M01S00095.combucr +++| DEF SFRCNOCON #O"61"#; # CONNECTION NOT PREVIOUSLY 00096 M01S00096.combucr +++| ESTABLISHED # 00097 M01S00097.combucr +++| DEF SFRCXFERBD #O"62"#; # WORD TRANSFER TOO LONG # 00098 M01S00098.combucr +++| DEF SFRCUCPNET #O"63"#; # UCP NOT ESTABLISHED WITH 00099 M01S00099.combucr +++| SUBSYSTEM # 00100 M01S00100.combucr +++| DEF SFRCSSESTR #O"64"#; # SUBSYSTEM ESTABLISHED WITH 00101 M01S00101.combucr +++| RECEIVER # 00102 M01S00102.combucr +++| DEF SFRCILERFG #O"65"#; # ATTEMPT TO SET ILLEGAL ERROR 00103 M01S00103.combucr +++| FLAG # 00104 M01S00104.combucr +++| DEF SFRCILDFFG #O"66"#; # ILLEGAL DAYFILE PROCESSING FLAG 00105 M01S00105.combucr +++| # 00106 M01S00106.combucr +++| 00107 M01S00107.combucr +++| COMMON BUCRCOM; 00108 M01S00108.combucr +++| 00109 M01S00109.combucr +++| BEGIN # BUCRCOM # 00110 M01S00110.combucr +++| #$$# 00111 M01S00111.combucr +++| ITEM $$BUCR$$ C(20) = "****** COMBUCR *****"; 00112 M01S00112.combucr +++| #$$# 00113 M01S00113.combucr +++| 00114 M01S00114.combucr +++|# 00115 M01S00115.combucr +++|* *UCPR* DEFINES THE SYSTEM HEADER WHICH IS ATTACHED TO THE 00116 M01S00116.combucr +++|* FRONT OF THE DATA WHICH IS PASSED FROM THE UCP VIA THE 00117 M01S00117.combucr +++|* CALLSS REQUEST. 00118 M01S00118.combucr +++|# 00119 M01S00119.combucr +++| 00120 M01S00120.combucr +++| BASED 00121 M01S00121.combucr +++| ARRAY UCPR [0:0] P(2); 00122 M01S00122.combucr +++| BEGIN 00123 M01S00123.combucr +++| ITEM UCP$WORD0 U(00,00,60); # WORD 0 # 00124 M01S00124.combucr +++| ITEM UCP$USUSD1 U(00,00,12); # RESERVED FOR INSTALLATION # 00125 M01S00125.combucr +++| ITEM UCP$UNUSD2 U(00,12,24); # CDC RESERVED # 00126 M01S00126.combucr +++| ITEM UCP$STAT U(00,36,06); # UCP REQ STATUS # 00127 M01S00127.combucr +++| ITEM UCP$ADDR U(00,42,18); # ADDRESS FROM CALLSS MACRO # 00128 M01S00128.combucr +++| ITEM UCP$WORD1 U(01,00,60); # FULL WORD DEFINITION # 00129 M01S00129.combucr +++| ITEM UCP$JBSN C(01,00,04); # JOB SEQUENCE NUMBER # 00130 M01S00130.combucr +++| ITEM UCP$FSTA U(01,48,12); # *FST* ADDRESS # 00131 M01S00131.combucr +++| END 00132 M01S00132.combucr +++| 00133 M01S00133.combucr +++| 00134 M01S00134.combucr +++|# 00135 M01S00135.combucr +++|* SIZE OF *PRAMUCP* DEPENDS ON *CPRLEN* WHICH IS DEFINED IN THE 00136 M01S00136.combucr +++|* COMMON DECK *COMACPR*. 00137 M01S00137.combucr +++|# 00138 M01S00138.combucr +++| 00139 M01S00139.combucr +++| ARRAY PRAMUCP [0:1] S(12); 00140 M01S00140.combucr +++| BEGIN 00141 M01S00141.combucr +++| ITEM UCPPARM U(00,00,60); # REFERENCE WORD # 00142 M01S00142.combucr +++| END 00143 M01S00143.combucr +++| 00144 M01S00144.combucr +++|# 00145 M01S00145.combucr +++|* *UCPPARMSW* IS THE MEANS BY WHICH THE ALTERNATE UCP PARAMETER 00146 M01S00146.combucr +++|* RECEIVING AREA IS DETERMINED. THE VALUE OF THIS ITEM WILL 00147 M01S00147.combucr +++|* EITHER BE 0 OR 1 DEPENDING ON WHICH AREA IS BEING USED. 00148 M01S00148.combucr +++|# 00149 M01S00149.combucr +++| 00150 M01S00150.combucr +++| ITEM UCPPARMSW U = 0; # CONTROLS UCP PARAMETER AREA # 00151 M01S00151.combucr +++| 00152 M01S00152.combucr +++| 00153 M01S00153.combucr +++|# 00154 M01S00154.combucr +++|* *CONIND* IS AN ARRAY WHICH IS USED TO INDICATE WETHER A REQUEST 00155 M01S00155.combucr +++|* IDENTIFIER IS CURRENTLY CONNECTED TO SSEXEC. THIS TABLE IS THUS 00156 M01S00156.combucr +++|* USED TO PREVENT MULTIPLE REQUESTS FROM THE SAME REQUEST ID. 00157 M01S00157.combucr +++|# 00158 M01S00158.combucr +++| 00159 M01S00159.combucr +++| ARRAY NAMECON [1:REQNAME"RQITEST"] S(1); 00160 M01S00160.combucr +++| BEGIN 00161 M01S00161.combucr +++| ITEM CONIND B(00,00,01); # TRUE IS REQUEST ID CONNECTED 00162 M01S00162.combucr +++| # 00163 M01S00163.combucr +++| END 00164 M01S00164.combucr +++| 00165 M01S00165.combucr +++|# 00166 M01S00166.combucr +++|* *SFPARMBLK* IS THE TWO WORD PARAMETER BLOCK WHICH IS USED TO 00167 M01S00167.combucr +++|* COMMUNICATE WITH THE UCP VIA THE SFCALL CAPABILITY. 00168 M01S00168.combucr +++|# 00169 M01S00169.combucr +++| 00170 M01S00170.combucr +++| ITEM SFBLKPTR U; # POINTER TO THE SFCALL PARAMETER 00171 M01S00171.combucr +++| BLOCK # 00172 M01S00172.combucr +++| 00173 M01S00173.combucr +++| ARRAY SFPARMBLK [0:0] S(2); 00174 M01S00174.combucr +++| BEGIN 00175 M01S00175.combucr +++| ITEM SFRC U(00,00,06); # REPLY CODE # 00176 M01S00176.combucr +++| ITEM SFFP U(00,06,12); # FUNCTION PARAMETER # 00177 M01S00177.combucr +++| ITEM SFFPPP B(00,12,01); # PRIVILEGED PROGRAM INDICATOR 00178 M01S00178.combucr +++| # 00179 M01S00179.combucr +++| ITEM SFFPPU B(00,13,01); # PRIVILEGED USER INDICATOR # 00180 M01S00180.combucr +++| ITEM SFFPL B(00,14,01); # LONG TERM CONNECTION SET # 00181 M01S00181.combucr +++| ITEM SFFRRC U(00,15,03); # REQUEST COUNT # 00182 M01S00182.combucr +++| ITEM SFUCPA U(00,18,18); # RELATIVE ADDR IN UCP # 00183 M01S00183.combucr +++| ITEM SFSCPA U(00,36,18); # RELATIVE ADDR IN SCP # 00184 M01S00184.combucr +++| ITEM SFFC U(00,54,06); # FUNCTION CODE # 00185 M01S00185.combucr +++| ITEM SFFCC B(00,59,01); # COMPLETE BIT # 00186 M01S00186.combucr +++| ITEM SFJBSN U(01,00,24); # JOB SEQUENCE NUMBER # 00187 M01S00187.combucr +++| ITEM SFFSTA U(01,48,12); # *FST* ADDRESS # 00188 M01S00188.combucr +++| END 00189 M01S00189.combucr +++| 00190 M01S00190.combucr +++| END # BUCRCOM # 00191 M01S00191.combucr +++| 00192 M01S00192.combucr +++| END # COMBUCR # 00193 M01S00193.combucr +++| 00194 M01S00194.combucr +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/combucr.txt · Last modified: by 127.0.0.1