cdc:nos2.source:opl.opl871:common:comxmsc
Common COMXMSC
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comxmsc +++| 00002 M01S00002.comxmsc +++|# COMXMSC - MISCELLANEOUS DEFS, FLAGS, AND COUNTERS. # 00003 M01S00003.comxmsc +++| CONTROL NOLIST; 00004 M01S00004.comxmsc +++| CONTROL IFEQ LISTCON,1; 00005 M01S00005.comxmsc +++| CONTROL LIST; 00006 M01S00006.comxmsc +++| CONTROL FI; 00007 M01S00007.comxmsc +++| BEGIN # COMXMSC # 00008 M01S00008.comxmsc +++| 00009 M01S00009.comxmsc +++|# 00010 M01S00010.comxmsc +++|*** COMXMSC - MISCELLANEOUS DEFS, FLAGS, AND COUNTERS. 00011 M01S00011.comxmsc +++|* 00012 M01S00012.comxmsc +++|* COMXMSC CONTAINS MISCELLANEOUS DEFS, FLAGS, AND COUNTERS 00013 M01S00013.comxmsc +++|* WHICH ARE REQUIRED BY VARIOUS *SSEXEC* ROUTINES. 00014 M01S00014.comxmsc +++|# 00015 M01S00015.comxmsc +++| 00016 M01S00016.comxmsc +++| 00017 M01S00017.comxmsc +++| 00018 M01S00018.comxmsc +++| DEF FM #1#; # FORCE FAMILY OPTION # 00019 M01S00019.comxmsc +++| DEF HLRQIND #TRUE#; # *HLRQ* ENTRY INDICATOR # 00020 M01S00020.comxmsc +++| DEF LLRQIND #FALSE#; # *LLRQ* ENTRY INDICATOR # 00021 M01S00021.comxmsc +++| DEF LNV #O"13"#; # ACCESS LEVEL INVALID FOR FILE # 00022 M01S00022.comxmsc +++| DEF MAXTIME #O"7777777"#; # MAXIMUM POSSIBLE DELAY # 00023 M01S00023.comxmsc +++| DEF MRFTLEN #2#; # *MRFT* ENTRY LENGTH # 00024 M01S00024.comxmsc +++| DEF NOCART #0#; # NO CARTRIDGE # 00025 M01S00025.comxmsc +++| DEF NUMAU #1932#; # NUMBER OF AU PLUS ONE # 00026 M01S00026.comxmsc +++| DEF RESTART #2#; # CONTROL VALUE IF RESTART NEEDED 00027 M01S00027.comxmsc +++| # 00028 M01S00028.comxmsc +++| DEF SLAVEMODE #1#; # CONTROL VALUE IF IN SLAVE MODE # 00029 M01S00029.comxmsc +++| DEF TSFMCAT #"TSFMCAT"#; # TEMPORARY CATALOG FILE NAME # 00030 M01S00030.comxmsc +++| DEF WEQ #O"10"#; # EQUIPMENT NOT AVAILABLE # 00031 M01S00031.comxmsc +++| 00032 M01S00032.comxmsc +++| STATUS ERRST # DESTAGE/STAGE ERROR STATES # 00033 M01S00033.comxmsc +++| NOERR, # NO ERROR # 00034 M01S00034.comxmsc +++| WAIT, # WAIT CONDITION # 00035 M01S00035.comxmsc +++| RETRY, # RETRY DESTAGE ON DIFF CARTRIDGE 00036 M01S00036.comxmsc +++| # 00037 M01S00037.comxmsc +++| FATAL, # FATAL ERROR # 00038 M01S00038.comxmsc +++| RESTART, # RESTART CONDITION # 00039 M01S00039.comxmsc +++| ABANDON, # ABANDON CONDITION # 00040 M01S00040.comxmsc +++| SPECIAL, # SPECIAL CONDITION # 00041 M01S00041.comxmsc +++| NXTSUBF, # NEXT SUBFAMILY # 00042 M01S00042.comxmsc +++| TEMP, # TEMPORARY DUE TO HW DELAY # 00043 M01S00043.comxmsc +++| RSFULL, # NO RESOURES # 00044 M01S00001.common1 +++| SMDSTAGEOFF, # DRD-S OFF TO DESTAGE # 00045 M01S00044.comxmsc +++| PERM; # PERMANENT ERROR # 00046 M01S00045.comxmsc +++| 00047 M01S00046.comxmsc +++| STATUS HLRPN # *HLRQ* PROCESS NAMES # 00048 M01S00047.comxmsc +++| STAGE, # STAGER # 00049 M01S00048.comxmsc +++| DESTAGE, # DESTAGER # 00050 M01S00049.comxmsc +++| ENDPN; # END OF *HLRQ* PROCESS NAMES # 00051 M01S00050.comxmsc +++| 00052 M01S00051.comxmsc +++| STATUS PROCST # PROCESS STATE # 00053 M01S00052.comxmsc +++| INITIAL, # INITIAL STATE # 00054 M01S00053.comxmsc +++| CONT1, # CONTINUATION 1 # 00055 M01S00054.comxmsc +++| CONT2, # CONTINUATION 2 # 00056 M01S00055.comxmsc +++| CONT3, # CONTINUATION 3 # 00057 M01S00056.comxmsc +++| CONT4, # CONTINUATION 4 # 00058 M01S00057.comxmsc +++| CONT5, # CONTINUATION 5 # 00059 M01S00058.comxmsc +++| CONT6, # CONTINUATION 6 # 00060 M01S00059.comxmsc +++| CONT7, # CONTINUATION 7 # 00061 M01S00060.comxmsc +++| CONT8, # CONTINUATION 8 # 00062 M01S00061.comxmsc +++| CONT9, # CONTINUATION 9 # 00063 M01S00062.comxmsc +++| CONT10, # CONTINUATION 10 # 00064 M01S00063.comxmsc +++| CONT11, # CONTINUATION 11 # 00065 M01S00064.comxmsc +++| CONT12, # CONTINUATION 12 # 00066 M01S00065.comxmsc +++| CONT13, # CONTINUATION 13 # 00067 M01S00066.comxmsc +++| CONT14, # CONTINUATION 14 # 00068 M01S00067.comxmsc +++| CONT15, # CONTINUATION 15 # 00069 M01S00068.comxmsc +++| CONT16, # CONTINUATION 16 # 00070 M01S00069.comxmsc +++| CONT17, # CONTINUATION 17 # 00071 M01S00070.comxmsc +++| CONT18, # CONTINUATION 18 # 00072 M01S00071.comxmsc +++| CONT19, # CONTINUATION 19 # 00073 M01S00072.comxmsc +++| CONT20, # CONTINUATION 20 # 00074 M01S00073.comxmsc +++| CONT21, # CONTINUATION 21 # 00075 M01S00074.comxmsc +++| CONT22, # CONTINUATION 22 # 00076 M01S00075.comxmsc +++| CONT23, # CONTINUATION 23 # 00077 M01S00076.comxmsc +++| CONT24, # CONTINUATION 24 # 00078 M01S00077.comxmsc +++| CONT25, # CONTINUATION 25 # 00079 M01S00078.comxmsc +++| CONT26, # CONTINUATION 26 # 00080 M01S00079.comxmsc +++| CONT27, # CONTINUATION 27 # 00081 M01S00080.comxmsc +++| CONT28, # CONTINUATION 28 # 00082 M01S00081.comxmsc +++| CONT29, # CONTINUATION 29 # 00083 M01S00082.comxmsc +++| CONT30, # CONTINUATION 30 # 00084 M01S00083.comxmsc +++| COMPLETE; # COMPLETE STATE # 00085 M01S00084.comxmsc +++| 00086 M01S00085.comxmsc +++| COMMON XMSCCOM; 00087 M01S00086.comxmsc +++| 00088 M01S00087.comxmsc +++| BEGIN # XMSCCOM # 00089 M01S00088.comxmsc +++| # $$ # 00090 M01S00089.comxmsc +++| ITEM $$XMSC$$ C(20) = "****** COMXMSC *****"; 00091 M01S00090.comxmsc +++| # $$ # 00092 M01S00091.comxmsc +++| 00093 M01S00092.comxmsc +++| ITEM STGCNT I; # NUMBER OF STAGE REQUESTS # 00094 M01S00093.comxmsc +++| 00095 M01S00094.comxmsc +++|# 00096 M01S00095.comxmsc +++|* THE FOLLOWING ITEM *STG$MSK* CONTROLS THE STAGING INITIATION 00097 M01S00096.comxmsc +++|* PROCESS AS FOLLOWS: 00098 M01S00097.comxmsc +++|* 00099 M01S00098.comxmsc +++|* IF *STG$MSK* = 0, THEN THE PROCEDURES *NEWWORK* AND *TDAM$RP* 00100 M01S00099.comxmsc +++|* MAY BE CALLED TO PROCESS A NON-STAGE *TDAM* 00101 M01S00100.comxmsc +++|* REQUEST DIRECTLY, OR TO INITIATE A STAGE 00102 M01S00101.comxmsc +++|* BY PLACING THE *TDAM* INTO AN *HLRQ* ENTRY. 00103 M01S00102.comxmsc +++|* 00104 M01S00103.comxmsc +++|* IF *STG$MSK* NQ 0, THEN THERE IS NO POINT IN CALLING *TDAM$RP*. 00105 M01S00104.comxmsc +++|* 00106 M01S00105.comxmsc +++|* *TDAM$RP* SETS *STG$MSK* TO A NON-ZERO VALUE WHEN IT HAS 00107 M01S00106.comxmsc +++|* COMPLETED EXECUTION. IF *STG$MSK* IS NON-ZERO, EACH BIT 00108 M01S00107.comxmsc +++|* (1-8) INDICATES WHETHER THE ASSOCIATED STORAGE MODULE (A-H) 00109 M01S00108.comxmsc +++|* HAS AN AVAILABLE *DRD* FOR THE CARTRIDGE NEEDED FOR THE REQUEST. 00110 M01S00109.comxmsc +++|* IF THE BIT IS SET, THE STORAGE MODULE IS BUSY, AND HENCE 00111 M01S00110.comxmsc +++|* *TDAM$RP* NEED NOT BE CALLED. 00112 M01S00111.comxmsc +++|* 00113 M01S00112.comxmsc +++|* THE FOLLOWING ROUTINES SET *STG$MSK* TO ZERO: 00114 M01S00113.comxmsc +++|* 00115 M01S00114.comxmsc +++|* - *HLRQMTR* WHEN A STAGE OR DESTAGE *HLRQ* IS COMPLETE. 00116 M01S00115.comxmsc +++|* 00117 M01S00116.comxmsc +++|* - *ENTDAM* WHEN A *TDAM* REQUEST IS RECEIVED WHICH CAN 00118 M01S00117.comxmsc +++|* BE PROCESSED. 00119 M01S00118.comxmsc +++|* 00120 M01S00119.comxmsc +++|# 00121 M01S00120.comxmsc +++| 00122 M01S00121.comxmsc +++| ITEM STG$MSK U=0; # CONTROLS STAGE PROCESSING # 00123 M01S00122.comxmsc +++| 00124 M01S00123.comxmsc +++|# 00125 M01S00124.comxmsc +++|* THE FOLLOWING ARRAY DETERMINES WHETHER ACCOUNT AND 00126 M01S00125.comxmsc +++|* DAYFILE MESSAGES WILL BE ISSUED FROM *MSGAFDF*. 00127 M01S00126.comxmsc +++|# 00128 M01S00127.comxmsc +++| 00129 M01S00128.comxmsc +++| ARRAY MSGCTL [0:0] S(5); 00130 M01S00129.comxmsc +++| BEGIN 00131 M01S00130.comxmsc +++| ITEM MSG$OPTXT C(00,00,10) =[" DEST STGE"]; 00132 M01S00131.comxmsc +++| ITEM MSG$DF$CTL U(01,00,60); # DAYFILE BIT MASKS # 00133 M01S00132.comxmsc +++| ITEM MSG$DF$DS U(01,00,30) = [O"7777777"]; 00134 M01S00133.comxmsc +++| ITEM MSG$DF$ST U(01,30,30) = [O"7777777"]; 00135 M01S00134.comxmsc +++| ITEM MSG$ACT U(02,00,60); # 1 BIT PER MESSAGE USED # 00136 M01S00135.comxmsc +++| ITEM MSG$AF C(03,00,10) = [" ACCOUNT "]; 00137 M01S00136.comxmsc +++| ITEM MSG$AF$CTL U(04,00,60) = [O"7777"]; 00138 M01S00137.comxmsc +++| END 00139 M01S00138.comxmsc +++| 00140 M01S00139.comxmsc +++| 00141 M01S00140.comxmsc +++|# 00142 M01S00141.comxmsc +++|* THE FOLLOWING ITEMS CONTAIN FIELD LENGTH INFORMATION. THE 00143 M01S00142.comxmsc +++|* PROCEDURE *MNGMEM* IS USED TO MANAGE MEMORY REQUESTS. AFTER THE 00144 M01S00143.comxmsc +++|* ITEMS *CUR$FL*, *MAX$FL*, *NEXTADR*, AND *UNU$FL* ARE INITIALIZED 00145 M01S00144.comxmsc +++|* BY *INITAB*, THESE FIELDS ALONG WITH *NFLCHNG* ARE TO BE CHANGED 00146 M01S00145.comxmsc +++|* ONLY BY *MNGMEM*. 00147 M01S00146.comxmsc +++|# 00148 M01S00147.comxmsc +++| 00149 M01S00148.comxmsc +++| ITEM CUR$FL I; # CURRENT FIELD LENGTH # 00150 M01S00149.comxmsc +++| ITEM MAX$FL I; # MAXIMUM FIELD LENGTH REACHED # 00151 M01S00150.comxmsc +++| ITEM NEXTADR U; # LOCATION OF NEXT AVAILABLE BLOCK 00152 M01S00151.comxmsc +++| OF ALLOCATED MEMORY # 00153 M01S00152.comxmsc +++| ITEM NFLCHNG I; # NUMBER OF FIELD LENGTH CHANGES # 00154 M01S00153.comxmsc +++| ITEM UNU$FL I; # UNUSED FIELD LENGTH # 00155 M01S00154.comxmsc +++| ITEM DSTCNT I; # NUMBER OF FILES DESTAGED # 00156 M01S00155.comxmsc +++| 00157 M01S00156.comxmsc +++| 00158 M01S00157.comxmsc +++|# 00159 M01S00158.comxmsc +++|* THE FOLLOWING ITEMS CONTROL THE HIGH LEVEL DESTAGE PROCESS. 00160 M01S00159.comxmsc +++|* 00161 M01S00160.comxmsc +++|* *INIT* =X, DESTAGING IS TO BE INITIATED. *MAINLP* IS TO CALL 00162 M01S00161.comxmsc +++|* *NEWWORK* IF AN *HLRQ* ENTRY IS FREE. *NEWWORK* 00163 M01S00162.comxmsc +++|* WILL CALL *DSNTDAM* TO GET THE FIRST DESTAGE 00164 M01S00163.comxmsc +++|* REQUEST IN THE *HLRQ* ENTRY. 00165 M01S00164.comxmsc +++|* 00166 M01S00165.comxmsc +++|* *FAM* =0, NO DESTAGING OF FILES IS OCCURRING. *SSMOVE* 00167 M01S00166.comxmsc +++|* MAY RUN AND CONNECT TO *EXEC* TO SUBMIT 00168 M01S00167.comxmsc +++|* FILES TO BE DESTAGED. 00169 M01S00168.comxmsc +++|* 00170 M01S00169.comxmsc +++|* *FAM* =F, FILES FROM FAMILY ( F ) ARE BEING DESTAGED. 00171 M01S00170.comxmsc +++|* FIELD *LTCT* INDICATES WHETHER *SSMOVE* 00172 M01S00171.comxmsc +++|* IS WAITING FOR A REPLY WHEN THE DESTAGING 00173 M01S00172.comxmsc +++|* IS COMPLETE. 00174 M01S00173.comxmsc +++|* FIELD *LKMSK* INDICATES WHETHER SUBFAMILY CATALOG 00175 M01S00174.comxmsc +++|* INTERLOCKS ARE TO BE RELEASED. 00176 M01S00175.comxmsc +++|* FIELD *LKTYP* INDICATED THE TYPE OF INTERLOCK 00177 M01S00176.comxmsc +++|* RELEASE IS REQUESTED IF *LKMSK* NQ 0. 00178 M01S00177.comxmsc +++|* 00179 M01S00178.comxmsc +++|* *LTCT* =0, *SSMOVE* IS NOT WAITING FOR A REPLY. 00180 M01S00179.comxmsc +++|* *LTCT* =X, ( X ) IS THE LONG TERM CONNECT TABLE ORDINAL 00181 M01S00180.comxmsc +++|* FOR THE WAITING *SSMOVE*. 00182 M01S00181.comxmsc +++|* 00183 M01S00182.comxmsc +++|* *LKMSK* =0, NO SUBFAMILY CATALOG INTERLOCKS NEED TO BE RELEASED. 00184 M01S00183.comxmsc +++|* =Y, ONE BIT PER SUBFAMILY OF ( Y ) IDENTIFIES WHICH 00185 M01S00184.comxmsc +++|* SUBFAMILY CATALOG FILES ARE TO BE RELEASED. 00186 M01S00185.comxmsc +++|* NOTE THAT THIS RELEASE CAN NOT OCCUR WHILE 00187 M01S00186.comxmsc +++|* A FILE IS BEING DESTAGED BECAUSE THE PARTIAL 00188 M01S00187.comxmsc +++|* CHAIN OF ALLOCATED VOLUMES FOR THIS FILE MAY 00189 M01S00188.comxmsc +++|* APPEAR TO *SSVAL* TO BE AN ORPHAN AND BE RELEASED. 00190 M01S00189.comxmsc +++|* PROCEDURE *NXTDEST* CALLS THE APPROPRIATE ROUTINE 00191 M01S00190.comxmsc +++|* TO RELEASE INTERLOCKS WHEN A FILE DESTAGE IS COMPLETE. 00192 M01S00191.comxmsc +++|* 00193 M01S00192.comxmsc +++|* *LKTYP* =0, RELEASE SUBFAMILY CATALOG ENTIRELY. 00194 M01S00193.comxmsc +++|* =1, ATTACH SUBFAMILY CATALOG IN UPDATE MODE (NOS 2.1). 00195 M01S00194.comxmsc +++|# 00196 M01S00195.comxmsc +++| 00197 M01S00196.comxmsc +++| ITEM DSC$INIT U=0; # CONTROLS INITIATION OF DESTAGING 00198 M01S00197.comxmsc +++| # 00199 M01S00002.common1 +++| ITEM DSC$WRESRS U=0; # DESTAGE WAITTING RESOURSE # 00200 M01S00198.comxmsc +++| ITEM DSC$FAM U=0; # FAMILY BEING DESTAGED # 00201 M01S00199.comxmsc +++| ITEM DSC$LTCT U; # LONG TERM CONNECT TABLE ORDINAL 00202 M01S00200.comxmsc +++| # 00203 M01S00201.comxmsc +++| ITEM DSC$LKMSK U; # MASK OF INTERLOCKS TO BE 00204 M01S00202.comxmsc +++| RELEASED # 00205 M01S00203.comxmsc +++| ITEM DSC$LKTYP U; # TYPE OF INTERLOCK TO RELEASE # 00206 M01S00204.comxmsc +++| 00207 M01S00205.comxmsc +++| ARRAY CHARS [0:0] S(1); 00208 M01S00206.comxmsc +++| BEGIN 00209 M01S00207.comxmsc +++| ITEM CH$10 C(00,00,10); # ALL 10 CHARACTERS # 00210 M01S00208.comxmsc +++| ITEM CH$07 C(00,18,07); # RIGHTMOST 7 CHARS # 00211 M01S00209.comxmsc +++| ITEM CH$06 C(00,24,06); # RIGHTMOST 6 CHARS #
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | comxmsc |
M02 (Updated by) | common1 |
Seq # *Modification Id* Act ----------------------------+ 00212 M02S00210.common1 ---| ITEM CH$04 C(00,42,04); # RIGHTMOST 4 CHARS # 00213 M01S00003.common1 +++| ITEM CH$04 C(00,36,04); # RIGHTMOST 4 CHARS # 00214 M01S00211.comxmsc +++| ITEM CH$02 C(00,48,02); # RIGHTMOST 2 CHARS # 00215 M01S00212.comxmsc +++| END 00216 M01S00213.comxmsc +++| 00217 M01S00214.comxmsc +++| ARRAY MSG2 [0:0] S(4); 00218 M01S00215.comxmsc +++| BEGIN 00219 M01S00216.comxmsc +++| ITEM MSG2$TXT C(00,00,38) = ## 00220 M01S00217.comxmsc +++| [" PFN=PPPPPPP, UI=NNNNNN, FM=FFFFFFF."]; 00221 M01S00218.comxmsc +++| ITEM MSG2$PFN C(00,30,07); # PPPPPPP # 00222 M01S00219.comxmsc +++| ITEM MSG2$UI C(01,42,06); # NNNNNN # 00223 M01S00220.comxmsc +++| ITEM MSG2$FM C(02,48,07); # FFFFFFF # 00224 M01S00221.comxmsc +++| ITEM MSG2$ZERO U(03,48,12) = [0]; 00225 M01S00222.comxmsc +++| END 00226 M01S00223.comxmsc +++| 00227 M01S00224.comxmsc +++| 00228 M01S00225.comxmsc +++| ARRAY FEMSG [0:0] P(3); # EXEC FATAL ERROR MESSAGE # 00229 M01S00226.comxmsc +++| BEGIN 00230 M01S00227.comxmsc +++| ITEM FE$MSG C(00,00,16) = [" EXEC ABNORMAL, "]; 00231 M01S00228.comxmsc +++| ITEM FE$RTN C(01,36,10); # ROUTINE NAME # 00232 M01S00229.comxmsc +++| ITEM FE$ZBYTE U(02,36,12) = [0]; # ZERO-BYTE TERMINATOR # 00233 M01S00230.comxmsc +++| END 00234 M01S00231.comxmsc +++| 00235 M01S00232.comxmsc +++| ARRAY JCI [0:0] S(2); # JOB CONTROL INFORMATION # 00236 M01S00233.comxmsc +++| BEGIN 00237 M01S00234.comxmsc +++| ITEM JCI$EFG U(00,00,06); # GLOBAL ERROR FLAG # 00238 M01S00235.comxmsc +++| ITEM JCI$REG U(00,06,18); # GLOBAL REGISTER # 00239 M01S00236.comxmsc +++| ITEM JCI$CCL U(00,24,12); # RESERVED FOR *CCL* USE # 00240 M01S00237.comxmsc +++| ITEM JCI$EM U(00,36,12); # EXIT MODE # 00241 M01S00238.comxmsc +++| ITEM JCI$SSW U(00,48,06); # SENSE SWITCHES # 00242 M01S00239.comxmsc +++| ITEM JCI$EF U(01,00,06); # LAST ERROR FLAG ENCOUNTERED # 00243 M01S00240.comxmsc +++| ITEM JCI$R3 U(01,06,18); # JOB CONTROL REGISTER 3 # 00244 M01S00241.comxmsc +++| ITEM JCI$R2 U(01,24,18); # JOB CONTROL REGISTER 2 # 00245 M01S00242.comxmsc +++| ITEM JCI$R1 U(01,42,18); # JOB CONTROL REGISTER 1 # 00246 M01S00243.comxmsc +++| END 00247 M01S00244.comxmsc +++| 00248 M01S00245.comxmsc +++| BASED 00249 M01S00246.comxmsc +++| ARRAY MRFT [0:0] P(MRFTLEN); # MOVE REQUEST FILE TABLE # 00250 M01S00247.comxmsc +++| BEGIN 00251 M01S00248.comxmsc +++| ITEM MRFTFAM C(00,18,07); # FAMILY NAME # 00252 M01S00249.comxmsc +++| END 00253 M01S00250.comxmsc +++| 00254 M01S00251.comxmsc +++| END # XMSCCOM # 00255 M01S00252.comxmsc +++| 00256 M01S00253.comxmsc +++| END # COMXMSC # 00257 M01S00254.comxmsc +++| 00258 M01S00255.comxmsc +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comxmsc.txt · Last modified: by 127.0.0.1