cdc:nos2.source:opl.opl871:common:combucr
Common COMBUCR
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.combucr +++| 00002 M00S00002.combucr +++|# COMBUCR - DATA DECLARATIONS FOR UCP REQUEST PROCESSING. # 00003 M00S00003.combucr +++| CONTROL NOLIST; 00004 M00S00004.combucr +++| CONTROL IFEQ LISTCON,1; 00005 M00S00005.combucr +++| CONTROL LIST; 00006 M00S00006.combucr +++| CONTROL FI; 00007 M00S00007.combucr +++| BEGIN # COMBUCR # 00008 M00S00008.combucr +++| 00009 M00S00009.combucr +++|# 00010 M00S00010.combucr +++|*** COMBUCR - DATA DECLARATIONS FOR UCP REQUEST PROCESSING. 00011 M00S00011.combucr +++|* 00012 M00S00012.combucr +++|* COMBUCR CONTAINS THE BASED ARRAYS AND STATUS LISTS NECESSARY 00013 M00S00013.combucr +++|* TO PROCESS UCP REQUESTS AND TO COMMUNICATE WITH THE UCP VIA 00014 M00S00014.combucr +++|* SFCALL REQUESTS. 00015 M00S00015.combucr +++|# 00016 M00S00016.combucr +++| 00017 M00S00017.combucr +++|# 00018 M00S00018.combucr +++|* *KILLCODE* IS THE STATUS LIST WHICH DEFINES THE REASONS FOR WHICH 00019 M00S00019.combucr +++|* A UCP IS ABORTED. THIS CODE IS PASSED TO *KILL$UCP* FROM THE 00020 M00S00020.combucr +++|* PROCESSOR WHICH IS REQUESTING THAT A UCP BE ABORTED. 00021 M00S00021.combucr +++|# 00022 M00S00022.combucr +++| 00023 M00S00023.combucr +++| STATUS KILLCODE 00024 M00S00024.combucr +++| NOTUSED, # NOT USED # 00025 M00S00025.combucr +++| NOTAUTH, # NOT AUTHORIZED # 00026 M00S00026.combucr +++| NOTCON, # NOT CONNECTED # 00027 M00S00027.combucr +++| MULCON, # ALREADY CONNECTED # 00028 M00S00028.combucr +++| MULREQ, # MULTIPLE REQUESTS # 00029 M00S00029.combucr +++| MULRUN, # MULTIPLE RUN # 00030 M00S00030.combucr +++| INVRQT, # INVALID REQUEST TYPE # 00031 M00S00031.combucr +++| INVRQC, # INVALID REQUEST CODE # 00032 M00S00032.combucr +++| UTLCONF, # UTILITY CONFLICT # 00033 M00S00033.combucr +++| MULCART, # CARTRIDGE ALREADY ACTIVE # 00034 M00S00034.combucr +++| CLOSED, # *SSEXEC* IS CLOSED # 00035 M00S00035.combucr +++| INVADDR, # INVALID ADDRESS # 00036 M00S00036.combucr +++| LASTCODE; # INVALID *KILLCODE* FROM HERE # 00037 M00S00037.combucr +++| 00038 M00S00038.combucr +++|# 00039 M00S00039.combucr +++|* *REQNAME* IS THE STATUS LIST WHICH DEFINES THE VALID REQUEST 00040 M00S00040.combucr +++|* IDENTIFIERS KNOWN TO SSEXEC. 00041 M00S00041.combucr +++|# 00042 M00S00042.combucr +++| 00043 M00S00043.combucr +++| STATUS REQNAME 00044 M00S00044.combucr +++| RQIFIRST, # INVALID # 00045 M00S00045.combucr +++| RQIMOVE, # *SSMOVE* # 00046 M00S00046.combucr +++| RQILABL, # *SSLABEL* # 00047 M00S00047.combucr +++| RQIDBUG, # *SSDEBUG* # 00048 M00S00048.combucr +++| RQIVALD, # *SSVAL* # 00049 M00S00049.combucr +++| RQIALTER, # *SSALTER* # 00050 M00S00050.combucr +++| RQITEST, # TEST HOOKS # 00051 M00S00051.combucr +++| RQIINT, # INTERNAL # 00052 M00S00052.combucr +++| RQIAUCP, # ABORTED UCP # 00053 M00S00053.combucr +++| RQILAST; # INVALID FROM HERE # 00054 M00S00054.combucr +++| 00055 M00S00055.combucr +++|# 00056 M00S00056.combucr +++|* THE FOLLOWING DEFINE THE OCTAL VALUES OF THE VARIOUS SFCALL 00057 M00S00057.combucr +++|* REQUESTS. 00058 M00S00058.combucr +++|# 00059 M00S00059.combucr +++| 00060 M00S00060.combucr +++| DEF SFREGR #O"02"#; # MESSAGE TO UCP DAYFILE AND ABORT 00061 M00S00061.combucr +++| UCP # 00062 M00S00062.combucr +++| DEF SFTIMR #O"04"#; # OBTAIN ACCOUNTING DATA FOR SCP # 00063 M00S00063.combucr +++| DEF SFENDT #O"06"#; # INDICATE END OF TASK TO UCP # 00064 M00S00064.combucr +++| DEF SFREAD #O"10"#; # READ FROM UCP FIELD LENGTH # 00065 M00S00065.combucr +++| DEF SFWRIT #O"14"#; # WRITE TO UCP FIELD LENGTH # 00066 M00S00066.combucr +++| DEF SFSTAT #O"12"#; # REQUEST STATUS OF UCP FROM 00067 M00S00067.combucr +++| SYSTEM # 00068 M00S00068.combucr +++| DEF SFEXIT #O"16"#; # EXIT FROM SCP STATUS # 00069 M00S00069.combucr +++| DEF SFSWPO #O"24"#; # INDICATE UCP AS CANDIDATE FOR 00070 M00S00070.combucr +++| SWAP OUT # 00071 M00S00071.combucr +++| DEF SFSWPI #O"26"#; # REQUEST SWAP IN OF UCP # 00072 M00S00072.combucr +++| DEF SFSLTC #O"30"#; # SET THE LONG TERM CONNECTION 00073 M00S00073.combucr +++| INDICATOR # 00074 M00S00074.combucr +++| DEF SFCLTC #O"32"#; # CLEAR THE LONG TERM CONNECTION 00075 M00S00075.combucr +++| INDICATOR # 00076 M00S00076.combucr +++| DEF SFLIST #O"34"#; # PROCESS A LIST OF SFXXXX 00077 M00S00077.combucr +++| FUNCTIONS # 00078 M00S00078.combucr +++| 00079 M00S00079.combucr +++|# 00080 M00S00080.combucr +++|* SFCALL ERRORS RETURNED TO THE SCP. 00081 M00S00081.combucr +++|# 00082 M00S00082.combucr +++| 00083 M00S00083.combucr +++| DEF SFRCLSTER #O"40"#; # AT LEAST ONE ERROR DETECTED IN 00084 M00S00084.combucr +++| LIST # 00085 M00S00085.combucr +++| DEF SFRCJOBINV #O"41"#; # JOB IDENTIFIER IS INVALID # 00086 M00S00086.combucr +++| DEF SFRCBDSCPA #O"42"#; # *SCPA* IS NOT WITHIN THE 00087 M00S00087.combucr +++| SUBSYSTEM FL # 00088 M00S00088.combucr +++| DEF SFRCBDUCPA #O"43"#; # *UCPA* IS NOT WITHIN THE UCP FL 00089 M00S00089.combucr +++| # 00090 M00S00090.combucr +++| DEF SFRCSWPOUT #O"44"#; # USER JOB IS SWAPPED OUT # 00091 M00S00091.combucr +++| DEF SFRCUCPGON #O"45"#; # USER JOB IS NOT IN THE SYSTEM # 00092 M00S00092.combucr +++| DEF SFRCMULTCN #O"57"#; # CONNECTION PREVIOUSLY 00093 M00S00093.combucr +++| ESTABLISHED # 00094 M00S00094.combucr +++| DEF SFRCCONREJ #O"60"#; # CONNECTION REJECTED # 00095 M00S00095.combucr +++| DEF SFRCNOCON #O"61"#; # CONNECTION NOT PREVIOUSLY 00096 M00S00096.combucr +++| ESTABLISHED # 00097 M00S00097.combucr +++| DEF SFRCXFERBD #O"62"#; # WORD TRANSFER TOO LONG # 00098 M00S00098.combucr +++| DEF SFRCUCPNET #O"63"#; # UCP NOT ESTABLISHED WITH 00099 M00S00099.combucr +++| SUBSYSTEM # 00100 M00S00100.combucr +++| DEF SFRCSSESTR #O"64"#; # SUBSYSTEM ESTABLISHED WITH 00101 M00S00101.combucr +++| RECEIVER # 00102 M00S00102.combucr +++| DEF SFRCILERFG #O"65"#; # ATTEMPT TO SET ILLEGAL ERROR 00103 M00S00103.combucr +++| FLAG # 00104 M00S00104.combucr +++| DEF SFRCILDFFG #O"66"#; # ILLEGAL DAYFILE PROCESSING FLAG 00105 M00S00105.combucr +++| # 00106 M00S00106.combucr +++| 00107 M00S00107.combucr +++| COMMON BUCRCOM; 00108 M00S00108.combucr +++| 00109 M00S00109.combucr +++| BEGIN # BUCRCOM # 00110 M00S00110.combucr +++| #$$# 00111 M00S00111.combucr +++| ITEM $$BUCR$$ C(20) = "****** COMBUCR *****"; 00112 M00S00112.combucr +++| #$$# 00113 M00S00113.combucr +++| 00114 M00S00114.combucr +++|# 00115 M00S00115.combucr +++|* *UCPR* DEFINES THE SYSTEM HEADER WHICH IS ATTACHED TO THE 00116 M00S00116.combucr +++|* FRONT OF THE DATA WHICH IS PASSED FROM THE UCP VIA THE 00117 M00S00117.combucr +++|* CALLSS REQUEST. 00118 M00S00118.combucr +++|# 00119 M00S00119.combucr +++| 00120 M00S00120.combucr +++| BASED 00121 M00S00121.combucr +++| ARRAY UCPR [0:0] P(2); 00122 M00S00122.combucr +++| BEGIN 00123 M00S00123.combucr +++| ITEM UCP$WORD0 U(00,00,60); # WORD 0 # 00124 M00S00124.combucr +++| ITEM UCP$USUSD1 U(00,00,12); # RESERVED FOR INSTALLATION # 00125 M00S00125.combucr +++| ITEM UCP$UNUSD2 U(00,12,24); # CDC RESERVED # 00126 M00S00126.combucr +++| ITEM UCP$STAT U(00,36,06); # UCP REQ STATUS # 00127 M00S00127.combucr +++| ITEM UCP$ADDR U(00,42,18); # ADDRESS FROM CALLSS MACRO # 00128 M00S00128.combucr +++| ITEM UCP$WORD1 U(01,00,60); # FULL WORD DEFINITION # 00129 M00S00129.combucr +++| ITEM UCP$JBSN C(01,00,04); # JOB SEQUENCE NUMBER # 00130 M00S00130.combucr +++| ITEM UCP$FSTA U(01,48,12); # *FST* ADDRESS # 00131 M00S00131.combucr +++| END 00132 M00S00132.combucr +++| 00133 M00S00133.combucr +++| 00134 M00S00134.combucr +++|# 00135 M00S00135.combucr +++|* SIZE OF *PRAMUCP* DEPENDS ON *CPRLEN* WHICH IS DEFINED IN THE 00136 M00S00136.combucr +++|* COMMON DECK *COMACPR*. 00137 M00S00137.combucr +++|# 00138 M00S00138.combucr +++| 00139 M00S00139.combucr +++| ARRAY PRAMUCP [0:1] S(12); 00140 M00S00140.combucr +++| BEGIN 00141 M00S00141.combucr +++| ITEM UCPPARM U(00,00,60); # REFERENCE WORD # 00142 M00S00142.combucr +++| END 00143 M00S00143.combucr +++| 00144 M00S00144.combucr +++|# 00145 M00S00145.combucr +++|* *UCPPARMSW* IS THE MEANS BY WHICH THE ALTERNATE UCP PARAMETER 00146 M00S00146.combucr +++|* RECEIVING AREA IS DETERMINED. THE VALUE OF THIS ITEM WILL 00147 M00S00147.combucr +++|* EITHER BE 0 OR 1 DEPENDING ON WHICH AREA IS BEING USED. 00148 M00S00148.combucr +++|# 00149 M00S00149.combucr +++| 00150 M00S00150.combucr +++| ITEM UCPPARMSW U = 0; # CONTROLS UCP PARAMETER AREA # 00151 M00S00151.combucr +++| 00152 M00S00152.combucr +++| 00153 M00S00153.combucr +++|# 00154 M00S00154.combucr +++|* *CONIND* IS AN ARRAY WHICH IS USED TO INDICATE WETHER A REQUEST 00155 M00S00155.combucr +++|* IDENTIFIER IS CURRENTLY CONNECTED TO SSEXEC. THIS TABLE IS THUS 00156 M00S00156.combucr +++|* USED TO PREVENT MULTIPLE REQUESTS FROM THE SAME REQUEST ID. 00157 M00S00157.combucr +++|# 00158 M00S00158.combucr +++| 00159 M00S00159.combucr +++| ARRAY NAMECON [1:REQNAME"RQITEST"] S(1); 00160 M00S00160.combucr +++| BEGIN 00161 M00S00161.combucr +++| ITEM CONIND B(00,00,01); # TRUE IS REQUEST ID CONNECTED 00162 M00S00162.combucr +++| # 00163 M00S00163.combucr +++| END 00164 M00S00164.combucr +++| 00165 M00S00165.combucr +++|# 00166 M00S00166.combucr +++|* *SFPARMBLK* IS THE TWO WORD PARAMETER BLOCK WHICH IS USED TO 00167 M00S00167.combucr +++|* COMMUNICATE WITH THE UCP VIA THE SFCALL CAPABILITY. 00168 M00S00168.combucr +++|# 00169 M00S00169.combucr +++| 00170 M00S00170.combucr +++| ITEM SFBLKPTR U; # POINTER TO THE SFCALL PARAMETER 00171 M00S00171.combucr +++| BLOCK # 00172 M00S00172.combucr +++| 00173 M00S00173.combucr +++| ARRAY SFPARMBLK [0:0] S(2); 00174 M00S00174.combucr +++| BEGIN 00175 M00S00175.combucr +++| ITEM SFRC U(00,00,06); # REPLY CODE # 00176 M00S00176.combucr +++| ITEM SFFP U(00,06,12); # FUNCTION PARAMETER # 00177 M00S00177.combucr +++| ITEM SFFPPP B(00,12,01); # PRIVILEGED PROGRAM INDICATOR 00178 M00S00178.combucr +++| # 00179 M00S00179.combucr +++| ITEM SFFPPU B(00,13,01); # PRIVILEGED USER INDICATOR # 00180 M00S00180.combucr +++| ITEM SFFPL B(00,14,01); # LONG TERM CONNECTION SET # 00181 M00S00181.combucr +++| ITEM SFFRRC U(00,15,03); # REQUEST COUNT # 00182 M00S00182.combucr +++| ITEM SFUCPA U(00,18,18); # RELATIVE ADDR IN UCP # 00183 M00S00183.combucr +++| ITEM SFSCPA U(00,36,18); # RELATIVE ADDR IN SCP # 00184 M00S00184.combucr +++| ITEM SFFC U(00,54,06); # FUNCTION CODE # 00185 M00S00185.combucr +++| ITEM SFFCC B(00,59,01); # COMPLETE BIT # 00186 M00S00186.combucr +++| ITEM SFJBSN U(01,00,24); # JOB SEQUENCE NUMBER # 00187 M00S00187.combucr +++| ITEM SFFSTA U(01,48,12); # *FST* ADDRESS # 00188 M00S00188.combucr +++| END 00189 M00S00189.combucr +++| 00190 M00S00190.combucr +++| END # BUCRCOM # 00191 M00S00191.combucr +++| 00192 M00S00192.combucr +++| END # COMBUCR # 00193 M00S00193.combucr +++| 00194 M00S00194.combucr +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/combucr.txt · Last modified: (external edit)