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;