cdc:nos2.source:opl.opl871:common:comxmmf
Common COMXMMF
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comxmmf +++| 00002 M00S00002.comxmmf +++|# COMXMMF - MULTIMAINFRAME COMMUNICATIONS FILE DESCRIPTION. # 00003 M00S00003.comxmmf +++| CONTROL NOLIST; 00004 M00S00004.comxmmf +++| CONTROL IFEQ LISTCON,1; 00005 M00S00005.comxmmf +++| CONTROL LIST; 00006 M00S00006.comxmmf +++| CONTROL FI; 00007 M00S00007.comxmmf +++| 00008 M00S00008.comxmmf +++| 00009 M00S00009.comxmmf +++|# 00010 M00S00010.comxmmf +++|*** COMXMMF - MULTIMAINFRAME COMMUNICATIONS FILE DESCRIPTION. 00011 M00S00011.comxmmf +++|* 00012 M00S00012.comxmmf +++|* *COMXMMF* DESCRIBES THE PARAMETERS OF THE *MTOS* AND *STOM* 00013 M00S00013.comxmmf +++|* FILES WHICH ARE USED TO COMMUNICATE BETWEEN THE *SSEXEC* 00014 M00S00014.comxmmf +++|* AND THE *SSLVEXEC*. 00015 M00S00015.comxmmf +++|* 00016 M00S00016.comxmmf +++|* NOTE - COMMON DECK *COMXIPR* MUST BE CALLED PRIOR TO *COMXMMF*. 00017 M00S00017.comxmmf +++|# 00018 M00S00018.comxmmf +++| 00019 M00S00019.comxmmf +++| BEGIN # COMXMMF # 00020 M00S00020.comxmmf +++|
| Line S00021 Modification History | |
|---|---|
M01 (Removed by) | msea017 |
Seq # *Modification Id* Act ----------------------------+ 00021 M01S00021.msea017 ---| DEF MAXSECS #O"7777777"#; # MAXIMUM TIME SINCE DEADSTART #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | msea017 |
Seq # *Modification Id* Act ----------------------------+ 00022 M01S00001.msea017 +++| DEF MAXSECS #O"77777777"#; # MAXIMUM TIME SINCE DEADSTART # 00023 M00S00022.comxmmf +++| 00024 M00S00023.comxmmf +++|# 00025 M00S00024.comxmmf +++|* PFN AND PASSWORDS FOR THE *MTOS* AND *STOM* FILES. 00026 M00S00025.comxmmf +++|# 00027 M00S00026.comxmmf +++| 00028 M00S00027.comxmmf +++| DEF MTBSPFN #"MTBSPFN"#; # PFN OF THE *MTOS* FILE # 00029 M00S00028.comxmmf +++| DEF MTOSPW #"MTOSPW"#; # PASSWORD FOR THE *MTOS* FILE # 00030 M00S00029.comxmmf +++| DEF STOMPFN #"STBMNO0"#; # PFN OF THE *STOM* FILE(S) # 00031 M00S00030.comxmmf +++| DEF STOMPW #"STOMPW"#; # PASSWORD FOR THE *STOM* FILE # 00032 M00S00031.comxmmf +++| 00033 M00S00032.comxmmf +++|# 00034 M00S00033.comxmmf +++|* LOCAL FILE NAMES USED FOR THE *MTOS* AND *STOM* FILES. 00035 M00S00034.comxmmf +++|# 00036 M00S00035.comxmmf +++| 00037 M00S00036.comxmmf +++| DEF MTOSMLFN #"MTOSMST"#; 00038 M00S00037.comxmmf +++| DEF MTOSSLFN #"MTOSSLV"#; 00039 M00S00038.comxmmf +++| DEF STOMMLFN #"STBMNO0"#; 00040 M00S00039.comxmmf +++| DEF STOMSLFN #"STOMSO0"#; 00041 M00S00040.comxmmf +++| 00042 M00S00041.comxmmf +++| 00043 M00S00042.comxmmf +++|# 00044 M00S00043.comxmmf +++|*** *TDAM* REQUESTS FROM A SLAVE SSEXEC ARE COMMUNICATED TO THE 00045 M00S00044.comxmmf +++|* MASTER SSEXEC BY WRITING THE REQUESTS TO ONE OF SEVERAL 00046 M00S00045.comxmmf +++|* REQUEST BLOCKS ON THE *STOM* FILE. THIS FILE IS PERIODICALLY 00047 M00S00046.comxmmf +++|* READ BY MASTER SSEXEC TO LOOK FOR *TDAM* REQUESTS. AFTER 00048 M00S00047.comxmmf +++|* PROCESSING A *TDAM* REQUEST FOR A SLAVE MAINFRAME, THE MASTER 00049 M00S00048.comxmmf +++|* SSEXEC UPDATES THE *MTOS* FILE TO COMMUNICATE THE STATUS OF THE 00050 M00S00049.comxmmf +++|* REQUEST TO THE SLAVE MAINFRAME. THIS STATUS IS LOCATED IN THE 00051 M00S00050.comxmmf +++|* REPLY BLOCK WHICH CORRESPONDS TO THE REQUEST BLOCK. 00052 M00S00051.comxmmf +++|* 00053 M00S00052.comxmmf +++|* THE COMPOSITE STATUS OF A REQUEST BLOCK IS DETERMINED BY A SLAVE 00054 M00S00053.comxmmf +++|* REQUEST CODE (SRC) IN THE *STOM* FILE ENTRY AND MASTER REPLY CODE 00055 M00S00054.comxmmf +++|* (MRC) IN THE *MTOS* FILE ENTRY. THE POSSIBLE COMBINATIONS AND 00056 M00S00055.comxmmf +++|* SEQUENCE OF TRANSFORMATIONS OF THESE FIELDS FOR AN INDIVIDUAL 00057 M00S00056.comxmmf +++|* REQUEST/REPLY BLOCK ARE DESCRIBED BELOW. 00058 M00S00057.comxmmf +++|* 00059 M00S00058.comxmmf +++|* 00060 M00S00059.comxmmf +++|* **** NORMAL FLOW FOR A STAGE REQUEST. 00061 M00S00060.comxmmf +++|* 00062 M00S00061.comxmmf +++|* SRC MRC MEANING 00063 M00S00062.comxmmf +++|* 00064 M00S00063.comxmmf +++|* AVAIL AVAIL REQUEST BLOCK IS AVAILABLE FOR A *TDAM* 00065 M00S00064.comxmmf +++|* REQUEST. 00066 M00S00065.comxmmf +++|* 00067 M00S00066.comxmmf +++|* SUBMITTED AVAIL A *TDAM* REQUEST IS PRESENT IN THE REQUEST 00068 M00S00067.comxmmf +++|* BLOCK. 00069 M00S00068.comxmmf +++|* 00070 M00S00069.comxmmf +++|* SUBMITTED ACCEPTED THE *SSEXEC* HAS RECOGNIZED AND IS 00071 M00S00070.comxmmf +++|* PROCESSING THE STAGING REQUEST. 00072 M00S00071.comxmmf +++|* 00073 M00S00072.comxmmf +++|* SUBMITTED FINISHED THE *SSEXEC* HAS FINISHED PROCESSING THE 00074 M00S00073.comxmmf +++|* REQUEST. THE STATUS OF THE COMPLETED 00075 M00S00074.comxmmf +++|* REQUEST IS IN THE REPLY FIELD OF THE REPLY 00076 M00S00075.comxmmf +++|* BLOCK. 00077 M00S00076.comxmmf +++|* 00078 M00S00077.comxmmf +++|* AVAIL FINISHED THE *SSLVEXEC* HAS RECOGNIZED THE FINISHED 00079 M00S00078.comxmmf +++|* STATUS AND HAS PROCESSED THE REPLY CODE. 00080 M00S00079.comxmmf +++|* 00081 M00S00080.comxmmf +++|* AVAIL AVAIL THE REQUEST BLOCK CAN BE REUSED FOR 00082 M00S00081.comxmmf +++|* ANOTHER *TDAM* REQUEST. 00083 M00S00082.comxmmf +++|* 00084 M00S00083.comxmmf +++|* 00085 M00S00084.comxmmf +++|* **** INITIALIZATION OF THE *SSLVEXEC* CAUSES REQUEST BLOCKS WITH 00086 M00S00085.comxmmf +++|* AN *SRC* = *SUBMITTED* TO BE PROCESSED AS FOLLOWS. 00087 M00S00086.comxmmf +++|* 00088 M00S00087.comxmmf +++|* SRC MRC MEANING 00089 M00S00088.comxmmf +++|* 00090 M00S00089.comxmmf +++|* SUBMITTED X REQUEST BLOCK STATUS PRIOR TO 00091 M00S00090.comxmmf +++|* INITIALIZATION OF THE *SSLVEXEC*. 00092 M00S00091.comxmmf +++|* 00093 M00S00092.comxmmf +++|* CANCEL X THE *SSLVEXEC* REQUESTS THAT THE *SSEXEC* 00094 M00S00093.comxmmf +++|* CANCEL A PREVIOUSLY SUBMITTED REQUEST. 00095 M00S00094.comxmmf +++|* 00096 M00S00095.comxmmf +++|* CANCEL FINISHED THE *SSEXEC* REPLIES THAT THE REQUEST HAS 00097 M00S00096.comxmmf +++|* BEEN CANCELLED. 00098 M00S00097.comxmmf +++|* 00099 M00S00098.comxmmf +++|* AVAIL FINISHED THE *SSLVEXEC* HAS RECOGNIZED THE FINISHED 00100 M00S00099.comxmmf +++|* STATUS AND WILL BE READY TO USE THIS 00101 M00S00100.comxmmf +++|* REQUEST BLOCK AS SOON AS THE *MRC* VALUE 00102 M00S00101.comxmmf +++|* BECOMES *AVAIL*. 00103 M00S00102.comxmmf +++|* 00104 M00S00103.comxmmf +++|* AVAIL AVAIL THE REQUEST BLOCK IS AVAILABLE FOR REUSE. 00105 M00S00104.comxmmf +++|* 00106 M00S00105.comxmmf +++|* 00107 M00S00106.comxmmf +++|* **** INITIALIZATION OF THE *SSEXEC* CAUSES REQUEST BLOCKS WITH 00108 M00S00107.comxmmf +++|* AN *MRC* = *ACCEPTED* TO BE PROCESSED AS FOLLOWS. 00109 M00S00108.comxmmf +++|* 00110 M00S00109.comxmmf +++|* SRC MRC MEANING 00111 M00S00110.comxmmf +++|* 00112 M00S00111.comxmmf +++|* X ACCEPTED REQUEST BLOCK STATUS PRIOR TO 00113 M00S00112.comxmmf +++|* INITIALIZATION. 00114 M00S00113.comxmmf +++|* 00115 M00S00114.comxmmf +++|* X FINISHED THE REQUEST HAS BEEN FINISHED, AND THE 00116 M00S00115.comxmmf +++|* REPLY FIELD INDICATES THAT IT WAS 00117 M00S00116.comxmmf +++|* ABANDONED. 00118 M00S00117.comxmmf +++|* 00119 M00S00118.comxmmf +++|* AVAIL FINISHED THE *SSLVEXEC* HAS RECOGNIZED THE FINISHED 00120 M00S00119.comxmmf +++|* STATUS. 00121 M00S00120.comxmmf +++|* AVAIL AVAIL THE REQUEST BLOCK CAN BE REUSED. 00122 M00S00121.comxmmf +++|# 00123 M00S00122.comxmmf +++| 00124 M00S00123.comxmmf +++| 00125 M00S00124.comxmmf +++|# 00126 M00S00125.comxmmf +++|* SLAVE REQUEST CODE STATUS VALUES. 00127 M00S00126.comxmmf +++|# 00128 M00S00127.comxmmf +++| 00129 M00S00128.comxmmf +++| STATUS SRC # SLAVE REQUEST CODE # 00130 M00S00129.comxmmf +++| AVAIL, # REQUEST BLOCK AVAILABLE # 00131 M00S00130.comxmmf +++| SUBMITTED, # REQUEST SUBMITTED # 00132 M00S00131.comxmmf +++| CANCEL, # CANCEL PREVIOUS REQUEST # 00133 M00S00132.comxmmf +++| SRCEND; # END OF STATUS LIST # 00134 M00S00133.comxmmf +++| 00135 M00S00134.comxmmf +++|# 00136 M00S00135.comxmmf +++|* MASTER REPLY CODE STATUS VALUES. 00137 M00S00136.comxmmf +++|# 00138 M00S00137.comxmmf +++| 00139 M00S00138.comxmmf +++| STATUS MRC # MASTER REPLY CODE # 00140 M00S00139.comxmmf +++| AVAIL, # REQUEST BLOCK AVAILABLE # 00141 M00S00140.comxmmf +++| ACCEPTED, # REQUEST ACCEPTED # 00142 M00S00141.comxmmf +++| FINISHED, # REQUEST FINISHED # 00143 M00S00142.comxmmf +++| MRCEND; # END OF STATUS LIST # 00144 M00S00143.comxmmf +++| 00145 M00S00144.comxmmf +++|# 00146 M00S00145.comxmmf +++|* REPLY ACTION STATUS LIST. 00147 M00S00146.comxmmf +++|# 00148 M00S00147.comxmmf +++| 00149 M00S00148.comxmmf +++| STATUS REPLY # STATUS OF FINISHED REQUESTS # 00150 M00S00149.comxmmf +++| OK, # COMPLETED NORMALLY # 00151 M00S00150.comxmmf +++| ABANDONED, # ABANDONED - HW DELAY # 00152 M00S00151.comxmmf +++| CANCELLED, # CANCELLED PER SLAVE REQUEST # 00153 M00S00152.comxmmf +++| REPLYEND; # END OF STATUS LIST # 00154 M00S00153.comxmmf +++| 00155 M00S00154.comxmmf +++|# 00156 M00S00155.comxmmf +++|* STATUS VALUES FOR MASTER AND SLAVE EXECS. 00157 M00S00156.comxmmf +++|# 00158 M00S00157.comxmmf +++| 00159 M00S00158.comxmmf +++| STATUS EXECSTAT # MASTER/SLAVE EXEC STATUS # 00160 M00S00159.comxmmf +++| ACTIVE, # ACTIVE # 00161 M00S00160.comxmmf +++| IDLE, # IDLED DOWN # 00162 M00S00161.comxmmf +++| DEAD, # TIMED OUT # 00163 M00S00162.comxmmf +++| READERR, # READ ERROR ON STOM/MTOS FILE # 00164 M00S00163.comxmmf +++| OMIT, # SLAVE NOT DEFINED # 00165 M00S00164.comxmmf +++| SMF, # MASTER IS IN SINGLE MF MODE # 00166 M00S00165.comxmmf +++| INITPROB, # *MTOS* FILE PROBLEMS DURING 00167 M00S00166.comxmmf +++| INITIALIZATION # 00168 M00S00167.comxmmf +++| EXECEND; # END OF STATUS LIST # 00169 M00S00168.comxmmf +++| 00170 M00S00169.comxmmf +++| CONTROL EJECT; 00171 M00S00170.comxmmf +++| 00172 M00S00171.comxmmf +++| 00173 M00S00172.comxmmf +++| 00174 M00S00173.comxmmf +++|# 00175 M00S00174.comxmmf +++|* DEFINE *STOM* BUFFER IN COMMON. 00176 M00S00175.comxmmf +++|* STOM$BFL = ((NUMRB+1) * RBSIZE + PRULEN-1) / PRULEN * PRULEN+1. 00177 M00S00176.comxmmf +++|# 00178 M00S00177.comxmmf +++| 00179 M00S00178.comxmmf +++| DEF STOM$BFL #144#; # *STOM* BUFFER SIZE # 00180 M00S00179.comxmmf +++| 00181 M00S00180.comxmmf +++| COMMON XMMFCOM; 00182 M00S00181.comxmmf +++| 00183 M00S00182.comxmmf +++| BEGIN # XMMFCOM # 00184 M00S00183.comxmmf +++| # $$ # 00185 M00S00184.comxmmf +++| ITEM $$XMMF$$ C(20) = "****** COMXMMF *****"; 00186 M00S00185.comxmmf +++| # $$ # 00187 M00S00186.comxmmf +++| 00188 M00S00187.comxmmf +++| ITEM CHAR1 C(1); # TEMPORARY # 00189 M00S00188.comxmmf +++| ITEM CHAR10 C(10); # TEMPORARY # 00190 M00S00189.comxmmf +++| ITEM L$MTOS U; # LENGTH OF THE *MTOS* HEADER AND 00191 M00S00190.comxmmf +++| REPLY BLOCKS # 00192 M00S00191.comxmmf +++| ITEM L$MTOSH U; # LENGTH OF THE *MTOS* HEADER # 00193 M00S00192.comxmmf +++| ITEM L$STOM U; # LENGTH OF THE *STOM* FILE # 00194 M00S00193.comxmmf +++| 00195 M00S00194.comxmmf +++| 00196 M00S00195.comxmmf +++|# 00197 M00S00196.comxmmf +++|* RESERVE SPACE IN LABEL COMMON FOR SLAVE COMMUNICATION FILE. 00198 M00S00197.comxmmf +++|# 00199 M00S00198.comxmmf +++| 00200 M00S00199.comxmmf +++| 00201 M00S00200.comxmmf +++| 00202 M00S00201.comxmmf +++| 00203 M00S00202.comxmmf +++| ARRAY MTOB$FET [0:0] S(RFETL);; # FET LENGTH # 00204 M00S00203.comxmmf +++| 00205 M00S00204.comxmmf +++|# MTOS$BUF = (MAXSLV+1) * 3 + NUMRB * NUMSLV. # 00206 M00S00205.comxmmf +++| ARRAY MTOS$BUF [0:3] S(MAXSLV);; # MTOS BUFFER # 00207 M00S00206.comxmmf +++| 00208 M00S00207.comxmmf +++| ARRAY MTOS$BUF1 [1:NUMRB] S(NUMSLV);; 00209 M00S00208.comxmmf +++| 00210 M00S00209.comxmmf +++| 00211 M00S00210.comxmmf +++| ARRAY STOMM[0:0] S(SFETL);; # *FET* FOR THE STOM FILE # 00212 M00S00211.comxmmf +++| 00213 M00S00212.comxmmf +++| ARRAY STOM$BUF [0:0] S(STOM$BFL);; # STOM BUFFER # 00214 M00S00213.comxmmf +++| 00215 M00S00214.comxmmf +++|# 00216 M00S00215.comxmmf +++|* *FET*S AND BUFFERS. 00217 M00S00216.comxmmf +++|# 00218 M00S00217.comxmmf +++| 00219 M00S00218.comxmmf +++| BASED 00220 M00S00219.comxmmf +++| ARRAY MTOSM [0:0] S(RFETL);; # *FET* FOR THE *MTOS* FILE # 00221 M00S00220.comxmmf +++| 00222 M00S00221.comxmmf +++| BASED 00223 M00S00222.comxmmf +++| ARRAY STOMMBUF [0:0] S(1);; # BUFFER FOR THE *STOM* FILE # 00224 M00S00223.comxmmf +++| 00225 M00S00224.comxmmf +++|# 00226 M00S00225.comxmmf +++|* MESSAGES. 00227 M00S00226.comxmmf +++|# 00228 M00S00227.comxmmf +++| 00229 M00S00228.comxmmf +++| ARRAY SLVNSTAT [0:0] S(3); # STATUS OF SLAVE EXEC-S # 00230 M00S00229.comxmmf +++| BEGIN 00231 M00S00230.comxmmf +++| ITEM SLVN$TEXT C(00,00,28) # EXEC - SLAVE N STATUS # 00232 M00S00231.comxmmf +++| =[" EXEC - SLAVE N STATUS "]; 00233 M00S00232.comxmmf +++| ITEM SLVN$INDX C(01,24,01); # N FROM *SLAVE N* # 00234 M00S00233.comxmmf +++| ITEM SLVN$STAT C(01,36,10); # IDLE/ACTIVE/OMITTED # 00235 M00S00234.comxmmf +++| ITEM SLVN$END U(02,48,12) # END OF LINE # 00236 M00S00235.comxmmf +++| =[0]; 00237 M00S00236.comxmmf +++| END 00238 M00S00237.comxmmf +++| 00239 M00S00238.comxmmf +++| ARRAY MMFDETAIL [0:0] S(3); # REASON FOR OMITTING A SLAVE # 00240 M00S00239.comxmmf +++| BEGIN 00241 M00S00240.comxmmf +++| ITEM MMFD$TEXT C(00,00,28) # REASON FOR OMISSION # 00242 M00S00241.comxmmf +++| =[" - TEXT FOR REASON"]; 00243 M00S00242.comxmmf +++| ITEM MMFD$PROB C(00,30,23); # SPECIFIC PROBLEM # 00244 M00S00243.comxmmf +++| ITEM MMFD$END U(02,48,12) # END OF LINE # 00245 M00S00244.comxmmf +++| =[0]; 00246 M00S00245.comxmmf +++| END 00247 M00S00246.comxmmf +++| 00248 M00S00247.comxmmf +++| ITEM NXTRB U; # IDENTIFIES THE NEXT REQUEST 00249 M00S00248.comxmmf +++| BLOCK FROM WHICH A STAGE REQUEST 00250 M00S00249.comxmmf +++| WILL BE ACCEPTED # 00251 M00S00250.comxmmf +++| ITEM RELOOP B; # CONTROLS PASS 2 OF THE *STOM* 00252 M00S00251.comxmmf +++| SCAN # 00253 M00S00252.comxmmf +++| ITEM SINDX U; # INDEX TO THE CURRENT SLAVE # 00254 M00S00253.comxmmf +++| ITEM SLAVECTR U; # NUMBER OF DEFINED SLAVE EXECS # 00255 M00S00254.comxmmf +++| ITEM STOMBUFL U; # LENGTH OF THE *STOM* BUFFER # 00256 M00S00255.comxmmf +++| 00257 M00S00256.comxmmf +++|# 00258 M00S00257.comxmmf +++|*** THE *STOM* ARRAY IS USED TO SEND REQUESTS FROM 00259 M00S00258.comxmmf +++|* THE SLAVE EXEC TO THE MASTER EXEC. 00260 M00S00259.comxmmf +++|# 00261 M00S00260.comxmmf +++| 00262 M00S00261.comxmmf +++| BASED 00263 M00S00262.comxmmf +++| ARRAY STOMFILE [0:NUMRB] S(RBSIZE); 00264 M00S00263.comxmmf +++| BEGIN 00265 M00S00264.comxmmf +++| 00266 M00S00265.comxmmf +++|# 00267 M00S00266.comxmmf +++|* ENTRY 0 CONTAINS SLAVE STATUS INFORMATION. 00268 M00S00267.comxmmf +++|# 00269 M00S00268.comxmmf +++| 00270 M00S00269.comxmmf +++| ITEM SM$SSW U(00,00,60); # SLAVE STATUS WORD # 00271 M00S00270.comxmmf +++| ITEM SM$IDLE B(00,00,01); # SLAVE IDLE, IF TRUE # 00272 M00S00271.comxmmf +++| ITEM SM$SWC U(00,06,18); # SLAVE WRITE COUNTER (SWC) # 00273 M00S00272.comxmmf +++| ITEM SM$PDATE U(00,24,36); # PDATE WHEN *SWC* UPDATED # 00274 M00S00273.comxmmf +++| 00275 M00S00274.comxmmf +++| ITEM SM$MIDS C(01,06,02); # ID OF SLAVE MAINFRAME # 00276 M00S00275.comxmmf +++| ITEM SM$DELAY U(01,24,12); # DELAY (SECONDS) FOR POLLING 00277 M00S00276.comxmmf +++| THIS *STOM* # 00278 M00S00277.comxmmf +++| ITEM SM$TIMOUT U(01,36,24); # MASTER TIME OUT VALUE # 00279 M00S00278.comxmmf +++| 00280 M00S00279.comxmmf +++| ITEM SM$MSW U(02,00,60); # MASTER STATUS WORD # 00281 M00S00280.comxmmf +++| ITEM SM$STATM S:EXECSTAT(02,02,04); # MASTER STATUS, PER 00282 M00S00281.comxmmf +++| SLAVE # 00283 M00S00282.comxmmf +++| ITEM SM$MWC U(02,06,18); # MASTER EXEC WRITE COUNTER # 00284 M00S00283.comxmmf +++| ITEM SM$REQCTL U(02,42,18); # REQUEST CONTROL # 00285 M00S00284.comxmmf +++| 00286 M00S00285.comxmmf +++| ITEM SM$CDC1 C(03,00,30); # RESERVED FOR CDC # 00287 M00S00286.comxmmf +++| ITEM SM$SITE1 C(06,00,20); # RESERVED FOR SITE # 00288 M00S00287.comxmmf +++| 00289 M00S00288.comxmmf +++|# 00290 M00S00289.comxmmf +++|* ENTRIES 1 TO *NUMRB* CONTAIN REQUEST AND CONTROL INFORMATION. 00291 M00S00290.comxmmf +++|# 00292 M00S00291.comxmmf +++| 00293 M00S00292.comxmmf +++| ITEM SM$SRC S:SRC(00,00,03); # SLAVE REQUEST CODE # 00294 M00S00293.comxmmf +++| ITEM SM$CDC2 U(00,03,21); # RESERVED FOR CDC # 00295 M00S00294.comxmmf +++| ITEM SM$PDATERB U(00,24,36); # PDATE WHEN REQUEST ENTERED # 00296 M00S00295.comxmmf +++| 00297 M00S00296.comxmmf +++| ITEM SM$SITE2 U(01,00,60); # RESERVED FOR SITE # 00298 M00S00297.comxmmf +++| 00299 M00S00298.comxmmf +++| ITEM SM$TDAM C(02,00,60); # TDAM REQUEST # 00300 M00S00299.comxmmf +++| END 00301 M00S00300.comxmmf +++| 00302 M00S00301.comxmmf +++| CONTROL EJECT; 00303 M00S00302.comxmmf +++| 00304 M00S00303.comxmmf +++|# 00305 M00S00304.comxmmf +++|*** THE *MTOS* FILE IS USED TO SEND REPLIES FROM THE 00306 M00S00305.comxmmf +++|* MASTER EXEC TO EACH SLAVE EXEC. IT IS ORGANIZED 00307 M00S00306.comxmmf +++|* INTO 2 PARTS - THE HEADER WHICH CONTAINS MASTER 00308 M00S00307.comxmmf +++|* AND SLAVE EXEC STATUS INFORMATION, AND THE 00309 M00S00308.comxmmf +++|* REPLY BLOCKS WHICH CONTAIN STATUS ABOUT EACH 00310 M00S00309.comxmmf +++|* REQUEST BLOCK. 00311 M00S00310.comxmmf +++|# 00312 M00S00311.comxmmf +++| 00313 M00S00312.comxmmf +++| 00314 M00S00313.comxmmf +++|# 00315 M00S00314.comxmmf +++|* HEADER PORTION OF THE *MTOS* FILE. 00316 M00S00315.comxmmf +++|# 00317 M00S00316.comxmmf +++| 00318 M00S00317.comxmmf +++| BASED 00319 M00S00318.comxmmf +++| ARRAY MTOSHEAD [0:MAXSLV] S(3); 00320 M00S00319.comxmmf +++| BEGIN 00321 M00S00320.comxmmf +++| 00322 M00S00321.comxmmf +++|# 00323 M00S00322.comxmmf +++|* ENTRY 0 OF THIS ARRAY CONTAINS MASTER EXEC STATUS. 00324 M00S00323.comxmmf +++|# 00325 M00S00324.comxmmf +++| 00326 M00S00325.comxmmf +++| ITEM MSH$MSW U(00,00,60); # MASTER STATUS WORD # 00327 M00S00326.comxmmf +++| ITEM MSH$IDLE B(00,00,01); # MASTER IDLE, IF TRUE # 00328 M00S00327.comxmmf +++| ITEM MSH$MWC U(00,06,18); # MASTER WRITE COUNTER (MWC) # 00329 M00S00328.comxmmf +++| ITEM MSH$PDATE U(00,24,36); # PDATE WHEN *MWC* UPDATED # 00330 M00S00329.comxmmf +++| 00331 M00S00330.comxmmf +++| ITEM MSH$PFNM C(01,00,07); # PFN/LFN OF *MTOS* FILE # 00332 M00S00331.comxmmf +++| ITEM MSH$MIDX U(01,42,06); # INDEX OF MASTER MAINFRAME # 00333 M00S00332.comxmmf +++| ITEM MSH$MIDM C(01,48,02); # ID OF THE MASTER MAINFRAME # 00334 M00S00333.comxmmf +++| 00335 M00S00334.comxmmf +++| ITEM MSH$NUMSLV U(02,42,06); # NUMBER OF SLAVE MAINFRAMES # 00336 M00S00335.comxmmf +++| ITEM MSH$NUMRB U(02,48,12); # NUMBER OF REQUEST BLOCKS # 00337 M00S00336.comxmmf +++| 00338 M00S00337.comxmmf +++|# 00339 M00S00338.comxmmf +++|* ENTRIES 1, 2, AND 3 CONTAIN INFORMATION 00340 M00S00339.comxmmf +++|* ABOUT THE POSSIBLE SLAVE EXECS. 00341 M00S00340.comxmmf +++|# 00342 M00S00341.comxmmf +++| 00343 M00S00342.comxmmf +++| ITEM MSH$SSW U(00,00,60); # SLAVE STATUS WORD # 00344 M00S00343.comxmmf +++| ITEM MSH$STATS S:EXECSTAT(00,02,04); # SLAVE STATUS, PER 00345 M00S00344.comxmmf +++| MASTER # 00346 M00S00345.comxmmf +++| ITEM MSH$SWC U(00,06,18); # SLAVE WRITE COUNTER # 00347 M00S00346.comxmmf +++| ITEM MSH$REQCTL U(00,42,18); # REQUEST CONTROL # 00348 M00S00347.comxmmf +++| 00349 M00S00348.comxmmf +++| ITEM MSH$PFNS C(01,00,07); # PFN/LFN OF *STOM* FILE # 00350 M00S00349.comxmmf +++| ITEM MSH$MIDS C(01,48,02); # ID OF SLAVE MAINFRAME # 00351 M00S00350.comxmmf +++| 00352 M00S00351.comxmmf +++| ITEM MSH$DEFD B(02,00,01); # SLAVE DEFINED, IF TRUE # 00353 M00S00352.comxmmf +++| ITEM MSH$TIMOUT U(02,24,36); # SLAVE TIME OUT VALUE # 00354 M00S00353.comxmmf +++| END 00355 M00S00354.comxmmf +++| 00356 M00S00355.comxmmf +++|# 00357 M00S00356.comxmmf +++|* REPLY BLOCK PORTION OF THE *MTOS* FILE. 00358 M00S00357.comxmmf +++|# 00359 M00S00358.comxmmf +++| 00360 M00S00359.comxmmf +++| BASED 00361 M00S00360.comxmmf +++| ARRAY MTOSREPBLK [1:NUMRB] P(1); # *MTOS* REPLY BLOCK # 00362 M00S00361.comxmmf +++| BEGIN 00363 M00S00362.comxmmf +++| ITEM MSR$MRC S:MRC(00,00,03); # MASTER REPLY CODE # 00364 M00S00363.comxmmf +++| ITEM MSR$REPLY S:REPLY(00,03,03); # STATUS OF FINISHED 00365 M00S00364.comxmmf +++| REQUESTS # 00366 M00S00365.comxmmf +++| ITEM MSR$SSN U(00,06,18); # STAGING SEQUENCE NUMBER # 00367 M00S00366.comxmmf +++| ITEM MSR$PDATE U(00,24,36); # PDATE WHEN REQUEST COMPLETE # 00368 M00S00367.comxmmf +++| END 00369 M00S00368.comxmmf +++| 00370 M00S00369.comxmmf +++| END # XMMFCOM # 00371 M00S00370.comxmmf +++| 00372 M00S00371.comxmmf +++| END # COMXMMF # 00373 M00S00372.comxmmf +++| 00374 M00S00373.comxmmf +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comxmmf.txt · Last modified: by 127.0.0.1