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;