cdc:nos2.source:opl.opl871:common:comxmsc
Common COMXMSC
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comxmsc +++| 00002 M00S00002.comxmsc +++|# COMXMSC - MISCELLANEOUS DEFS, FLAGS, AND COUNTERS. # 00003 M00S00003.comxmsc +++| CONTROL NOLIST; 00004 M00S00004.comxmsc +++| CONTROL IFEQ LISTCON,1; 00005 M00S00005.comxmsc +++| CONTROL LIST; 00006 M00S00006.comxmsc +++| CONTROL FI; 00007 M00S00007.comxmsc +++| BEGIN # COMXMSC # 00008 M00S00008.comxmsc +++| 00009 M00S00009.comxmsc +++|# 00010 M00S00010.comxmsc +++|*** COMXMSC - MISCELLANEOUS DEFS, FLAGS, AND COUNTERS. 00011 M00S00011.comxmsc +++|* 00012 M00S00012.comxmsc +++|* COMXMSC CONTAINS MISCELLANEOUS DEFS, FLAGS, AND COUNTERS 00013 M00S00013.comxmsc +++|* WHICH ARE REQUIRED BY VARIOUS *SSEXEC* ROUTINES. 00014 M00S00014.comxmsc +++|# 00015 M00S00015.comxmsc +++| 00016 M00S00016.comxmsc +++| 00017 M00S00017.comxmsc +++| 00018 M00S00018.comxmsc +++| DEF FM #1#; # FORCE FAMILY OPTION # 00019 M00S00019.comxmsc +++| DEF HLRQIND #TRUE#; # *HLRQ* ENTRY INDICATOR # 00020 M00S00020.comxmsc +++| DEF LLRQIND #FALSE#; # *LLRQ* ENTRY INDICATOR # 00021 M00S00021.comxmsc +++| DEF LNV #O"13"#; # ACCESS LEVEL INVALID FOR FILE # 00022 M00S00022.comxmsc +++| DEF MAXTIME #O"7777777"#; # MAXIMUM POSSIBLE DELAY # 00023 M00S00023.comxmsc +++| DEF MRFTLEN #2#; # *MRFT* ENTRY LENGTH # 00024 M00S00024.comxmsc +++| DEF NOCART #0#; # NO CARTRIDGE # 00025 M00S00025.comxmsc +++| DEF NUMAU #1932#; # NUMBER OF AU PLUS ONE # 00026 M00S00026.comxmsc +++| DEF RESTART #2#; # CONTROL VALUE IF RESTART NEEDED 00027 M00S00027.comxmsc +++| # 00028 M00S00028.comxmsc +++| DEF SLAVEMODE #1#; # CONTROL VALUE IF IN SLAVE MODE # 00029 M00S00029.comxmsc +++| DEF TSFMCAT #"TSFMCAT"#; # TEMPORARY CATALOG FILE NAME # 00030 M00S00030.comxmsc +++| DEF WEQ #O"10"#; # EQUIPMENT NOT AVAILABLE # 00031 M00S00031.comxmsc +++| 00032 M00S00032.comxmsc +++| STATUS ERRST # DESTAGE/STAGE ERROR STATES # 00033 M00S00033.comxmsc +++| NOERR, # NO ERROR # 00034 M00S00034.comxmsc +++| WAIT, # WAIT CONDITION # 00035 M00S00035.comxmsc +++| RETRY, # RETRY DESTAGE ON DIFF CARTRIDGE 00036 M00S00036.comxmsc +++| # 00037 M00S00037.comxmsc +++| FATAL, # FATAL ERROR # 00038 M00S00038.comxmsc +++| RESTART, # RESTART CONDITION # 00039 M00S00039.comxmsc +++| ABANDON, # ABANDON CONDITION # 00040 M00S00040.comxmsc +++| SPECIAL, # SPECIAL CONDITION # 00041 M00S00041.comxmsc +++| NXTSUBF, # NEXT SUBFAMILY # 00042 M00S00042.comxmsc +++| TEMP, # TEMPORARY DUE TO HW DELAY # 00043 M00S00043.comxmsc +++| RSFULL, # NO RESOURES #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | common1 |
Seq # *Modification Id* Act ----------------------------+ 00044 M01S00001.common1 +++| SMDSTAGEOFF, # DRD-S OFF TO DESTAGE # 00045 M00S00044.comxmsc +++| PERM; # PERMANENT ERROR # 00046 M00S00045.comxmsc +++| 00047 M00S00046.comxmsc +++| STATUS HLRPN # *HLRQ* PROCESS NAMES # 00048 M00S00047.comxmsc +++| STAGE, # STAGER # 00049 M00S00048.comxmsc +++| DESTAGE, # DESTAGER # 00050 M00S00049.comxmsc +++| ENDPN; # END OF *HLRQ* PROCESS NAMES # 00051 M00S00050.comxmsc +++| 00052 M00S00051.comxmsc +++| STATUS PROCST # PROCESS STATE # 00053 M00S00052.comxmsc +++| INITIAL, # INITIAL STATE # 00054 M00S00053.comxmsc +++| CONT1, # CONTINUATION 1 # 00055 M00S00054.comxmsc +++| CONT2, # CONTINUATION 2 # 00056 M00S00055.comxmsc +++| CONT3, # CONTINUATION 3 # 00057 M00S00056.comxmsc +++| CONT4, # CONTINUATION 4 # 00058 M00S00057.comxmsc +++| CONT5, # CONTINUATION 5 # 00059 M00S00058.comxmsc +++| CONT6, # CONTINUATION 6 # 00060 M00S00059.comxmsc +++| CONT7, # CONTINUATION 7 # 00061 M00S00060.comxmsc +++| CONT8, # CONTINUATION 8 # 00062 M00S00061.comxmsc +++| CONT9, # CONTINUATION 9 # 00063 M00S00062.comxmsc +++| CONT10, # CONTINUATION 10 # 00064 M00S00063.comxmsc +++| CONT11, # CONTINUATION 11 # 00065 M00S00064.comxmsc +++| CONT12, # CONTINUATION 12 # 00066 M00S00065.comxmsc +++| CONT13, # CONTINUATION 13 # 00067 M00S00066.comxmsc +++| CONT14, # CONTINUATION 14 # 00068 M00S00067.comxmsc +++| CONT15, # CONTINUATION 15 # 00069 M00S00068.comxmsc +++| CONT16, # CONTINUATION 16 # 00070 M00S00069.comxmsc +++| CONT17, # CONTINUATION 17 # 00071 M00S00070.comxmsc +++| CONT18, # CONTINUATION 18 # 00072 M00S00071.comxmsc +++| CONT19, # CONTINUATION 19 # 00073 M00S00072.comxmsc +++| CONT20, # CONTINUATION 20 # 00074 M00S00073.comxmsc +++| CONT21, # CONTINUATION 21 # 00075 M00S00074.comxmsc +++| CONT22, # CONTINUATION 22 # 00076 M00S00075.comxmsc +++| CONT23, # CONTINUATION 23 # 00077 M00S00076.comxmsc +++| CONT24, # CONTINUATION 24 # 00078 M00S00077.comxmsc +++| CONT25, # CONTINUATION 25 # 00079 M00S00078.comxmsc +++| CONT26, # CONTINUATION 26 # 00080 M00S00079.comxmsc +++| CONT27, # CONTINUATION 27 # 00081 M00S00080.comxmsc +++| CONT28, # CONTINUATION 28 # 00082 M00S00081.comxmsc +++| CONT29, # CONTINUATION 29 # 00083 M00S00082.comxmsc +++| CONT30, # CONTINUATION 30 # 00084 M00S00083.comxmsc +++| COMPLETE; # COMPLETE STATE # 00085 M00S00084.comxmsc +++| 00086 M00S00085.comxmsc +++| COMMON XMSCCOM; 00087 M00S00086.comxmsc +++| 00088 M00S00087.comxmsc +++| BEGIN # XMSCCOM # 00089 M00S00088.comxmsc +++| # $$ # 00090 M00S00089.comxmsc +++| ITEM $$XMSC$$ C(20) = "****** COMXMSC *****"; 00091 M00S00090.comxmsc +++| # $$ # 00092 M00S00091.comxmsc +++| 00093 M00S00092.comxmsc +++| ITEM STGCNT I; # NUMBER OF STAGE REQUESTS # 00094 M00S00093.comxmsc +++| 00095 M00S00094.comxmsc +++|# 00096 M00S00095.comxmsc +++|* THE FOLLOWING ITEM *STG$MSK* CONTROLS THE STAGING INITIATION 00097 M00S00096.comxmsc +++|* PROCESS AS FOLLOWS: 00098 M00S00097.comxmsc +++|* 00099 M00S00098.comxmsc +++|* IF *STG$MSK* = 0, THEN THE PROCEDURES *NEWWORK* AND *TDAM$RP* 00100 M00S00099.comxmsc +++|* MAY BE CALLED TO PROCESS A NON-STAGE *TDAM* 00101 M00S00100.comxmsc +++|* REQUEST DIRECTLY, OR TO INITIATE A STAGE 00102 M00S00101.comxmsc +++|* BY PLACING THE *TDAM* INTO AN *HLRQ* ENTRY. 00103 M00S00102.comxmsc +++|* 00104 M00S00103.comxmsc +++|* IF *STG$MSK* NQ 0, THEN THERE IS NO POINT IN CALLING *TDAM$RP*. 00105 M00S00104.comxmsc +++|* 00106 M00S00105.comxmsc +++|* *TDAM$RP* SETS *STG$MSK* TO A NON-ZERO VALUE WHEN IT HAS 00107 M00S00106.comxmsc +++|* COMPLETED EXECUTION. IF *STG$MSK* IS NON-ZERO, EACH BIT 00108 M00S00107.comxmsc +++|* (1-8) INDICATES WHETHER THE ASSOCIATED STORAGE MODULE (A-H) 00109 M00S00108.comxmsc +++|* HAS AN AVAILABLE *DRD* FOR THE CARTRIDGE NEEDED FOR THE REQUEST. 00110 M00S00109.comxmsc +++|* IF THE BIT IS SET, THE STORAGE MODULE IS BUSY, AND HENCE 00111 M00S00110.comxmsc +++|* *TDAM$RP* NEED NOT BE CALLED. 00112 M00S00111.comxmsc +++|* 00113 M00S00112.comxmsc +++|* THE FOLLOWING ROUTINES SET *STG$MSK* TO ZERO: 00114 M00S00113.comxmsc +++|* 00115 M00S00114.comxmsc +++|* - *HLRQMTR* WHEN A STAGE OR DESTAGE *HLRQ* IS COMPLETE. 00116 M00S00115.comxmsc +++|* 00117 M00S00116.comxmsc +++|* - *ENTDAM* WHEN A *TDAM* REQUEST IS RECEIVED WHICH CAN 00118 M00S00117.comxmsc +++|* BE PROCESSED. 00119 M00S00118.comxmsc +++|* 00120 M00S00119.comxmsc +++|# 00121 M00S00120.comxmsc +++| 00122 M00S00121.comxmsc +++| ITEM STG$MSK U=0; # CONTROLS STAGE PROCESSING # 00123 M00S00122.comxmsc +++| 00124 M00S00123.comxmsc +++|# 00125 M00S00124.comxmsc +++|* THE FOLLOWING ARRAY DETERMINES WHETHER ACCOUNT AND 00126 M00S00125.comxmsc +++|* DAYFILE MESSAGES WILL BE ISSUED FROM *MSGAFDF*. 00127 M00S00126.comxmsc +++|# 00128 M00S00127.comxmsc +++| 00129 M00S00128.comxmsc +++| ARRAY MSGCTL [0:0] S(5); 00130 M00S00129.comxmsc +++| BEGIN 00131 M00S00130.comxmsc +++| ITEM MSG$OPTXT C(00,00,10) =[" DEST STGE"]; 00132 M00S00131.comxmsc +++| ITEM MSG$DF$CTL U(01,00,60); # DAYFILE BIT MASKS # 00133 M00S00132.comxmsc +++| ITEM MSG$DF$DS U(01,00,30) = [O"7777777"]; 00134 M00S00133.comxmsc +++| ITEM MSG$DF$ST U(01,30,30) = [O"7777777"]; 00135 M00S00134.comxmsc +++| ITEM MSG$ACT U(02,00,60); # 1 BIT PER MESSAGE USED # 00136 M00S00135.comxmsc +++| ITEM MSG$AF C(03,00,10) = [" ACCOUNT "]; 00137 M00S00136.comxmsc +++| ITEM MSG$AF$CTL U(04,00,60) = [O"7777"]; 00138 M00S00137.comxmsc +++| END 00139 M00S00138.comxmsc +++| 00140 M00S00139.comxmsc +++| 00141 M00S00140.comxmsc +++|# 00142 M00S00141.comxmsc +++|* THE FOLLOWING ITEMS CONTAIN FIELD LENGTH INFORMATION. THE 00143 M00S00142.comxmsc +++|* PROCEDURE *MNGMEM* IS USED TO MANAGE MEMORY REQUESTS. AFTER THE 00144 M00S00143.comxmsc +++|* ITEMS *CUR$FL*, *MAX$FL*, *NEXTADR*, AND *UNU$FL* ARE INITIALIZED 00145 M00S00144.comxmsc +++|* BY *INITAB*, THESE FIELDS ALONG WITH *NFLCHNG* ARE TO BE CHANGED 00146 M00S00145.comxmsc +++|* ONLY BY *MNGMEM*. 00147 M00S00146.comxmsc +++|# 00148 M00S00147.comxmsc +++| 00149 M00S00148.comxmsc +++| ITEM CUR$FL I; # CURRENT FIELD LENGTH # 00150 M00S00149.comxmsc +++| ITEM MAX$FL I; # MAXIMUM FIELD LENGTH REACHED # 00151 M00S00150.comxmsc +++| ITEM NEXTADR U; # LOCATION OF NEXT AVAILABLE BLOCK 00152 M00S00151.comxmsc +++| OF ALLOCATED MEMORY # 00153 M00S00152.comxmsc +++| ITEM NFLCHNG I; # NUMBER OF FIELD LENGTH CHANGES # 00154 M00S00153.comxmsc +++| ITEM UNU$FL I; # UNUSED FIELD LENGTH # 00155 M00S00154.comxmsc +++| ITEM DSTCNT I; # NUMBER OF FILES DESTAGED # 00156 M00S00155.comxmsc +++| 00157 M00S00156.comxmsc +++| 00158 M00S00157.comxmsc +++|# 00159 M00S00158.comxmsc +++|* THE FOLLOWING ITEMS CONTROL THE HIGH LEVEL DESTAGE PROCESS. 00160 M00S00159.comxmsc +++|* 00161 M00S00160.comxmsc +++|* *INIT* =X, DESTAGING IS TO BE INITIATED. *MAINLP* IS TO CALL 00162 M00S00161.comxmsc +++|* *NEWWORK* IF AN *HLRQ* ENTRY IS FREE. *NEWWORK* 00163 M00S00162.comxmsc +++|* WILL CALL *DSNTDAM* TO GET THE FIRST DESTAGE 00164 M00S00163.comxmsc +++|* REQUEST IN THE *HLRQ* ENTRY. 00165 M00S00164.comxmsc +++|* 00166 M00S00165.comxmsc +++|* *FAM* =0, NO DESTAGING OF FILES IS OCCURRING. *SSMOVE* 00167 M00S00166.comxmsc +++|* MAY RUN AND CONNECT TO *EXEC* TO SUBMIT 00168 M00S00167.comxmsc +++|* FILES TO BE DESTAGED. 00169 M00S00168.comxmsc +++|* 00170 M00S00169.comxmsc +++|* *FAM* =F, FILES FROM FAMILY ( F ) ARE BEING DESTAGED. 00171 M00S00170.comxmsc +++|* FIELD *LTCT* INDICATES WHETHER *SSMOVE* 00172 M00S00171.comxmsc +++|* IS WAITING FOR A REPLY WHEN THE DESTAGING 00173 M00S00172.comxmsc +++|* IS COMPLETE. 00174 M00S00173.comxmsc +++|* FIELD *LKMSK* INDICATES WHETHER SUBFAMILY CATALOG 00175 M00S00174.comxmsc +++|* INTERLOCKS ARE TO BE RELEASED. 00176 M00S00175.comxmsc +++|* FIELD *LKTYP* INDICATED THE TYPE OF INTERLOCK 00177 M00S00176.comxmsc +++|* RELEASE IS REQUESTED IF *LKMSK* NQ 0. 00178 M00S00177.comxmsc +++|* 00179 M00S00178.comxmsc +++|* *LTCT* =0, *SSMOVE* IS NOT WAITING FOR A REPLY. 00180 M00S00179.comxmsc +++|* *LTCT* =X, ( X ) IS THE LONG TERM CONNECT TABLE ORDINAL 00181 M00S00180.comxmsc +++|* FOR THE WAITING *SSMOVE*. 00182 M00S00181.comxmsc +++|* 00183 M00S00182.comxmsc +++|* *LKMSK* =0, NO SUBFAMILY CATALOG INTERLOCKS NEED TO BE RELEASED. 00184 M00S00183.comxmsc +++|* =Y, ONE BIT PER SUBFAMILY OF ( Y ) IDENTIFIES WHICH 00185 M00S00184.comxmsc +++|* SUBFAMILY CATALOG FILES ARE TO BE RELEASED. 00186 M00S00185.comxmsc +++|* NOTE THAT THIS RELEASE CAN NOT OCCUR WHILE 00187 M00S00186.comxmsc +++|* A FILE IS BEING DESTAGED BECAUSE THE PARTIAL 00188 M00S00187.comxmsc +++|* CHAIN OF ALLOCATED VOLUMES FOR THIS FILE MAY 00189 M00S00188.comxmsc +++|* APPEAR TO *SSVAL* TO BE AN ORPHAN AND BE RELEASED. 00190 M00S00189.comxmsc +++|* PROCEDURE *NXTDEST* CALLS THE APPROPRIATE ROUTINE 00191 M00S00190.comxmsc +++|* TO RELEASE INTERLOCKS WHEN A FILE DESTAGE IS COMPLETE. 00192 M00S00191.comxmsc +++|* 00193 M00S00192.comxmsc +++|* *LKTYP* =0, RELEASE SUBFAMILY CATALOG ENTIRELY. 00194 M00S00193.comxmsc +++|* =1, ATTACH SUBFAMILY CATALOG IN UPDATE MODE (NOS 2.1). 00195 M00S00194.comxmsc +++|# 00196 M00S00195.comxmsc +++| 00197 M00S00196.comxmsc +++| ITEM DSC$INIT U=0; # CONTROLS INITIATION OF DESTAGING 00198 M00S00197.comxmsc +++| #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | common1 |
Seq # *Modification Id* Act ----------------------------+ 00199 M01S00002.common1 +++| ITEM DSC$WRESRS U=0; # DESTAGE WAITTING RESOURSE # 00200 M00S00198.comxmsc +++| ITEM DSC$FAM U=0; # FAMILY BEING DESTAGED # 00201 M00S00199.comxmsc +++| ITEM DSC$LTCT U; # LONG TERM CONNECT TABLE ORDINAL 00202 M00S00200.comxmsc +++| # 00203 M00S00201.comxmsc +++| ITEM DSC$LKMSK U; # MASK OF INTERLOCKS TO BE 00204 M00S00202.comxmsc +++| RELEASED # 00205 M00S00203.comxmsc +++| ITEM DSC$LKTYP U; # TYPE OF INTERLOCK TO RELEASE # 00206 M00S00204.comxmsc +++| 00207 M00S00205.comxmsc +++| ARRAY CHARS [0:0] S(1); 00208 M00S00206.comxmsc +++| BEGIN 00209 M00S00207.comxmsc +++| ITEM CH$10 C(00,00,10); # ALL 10 CHARACTERS # 00210 M00S00208.comxmsc +++| ITEM CH$07 C(00,18,07); # RIGHTMOST 7 CHARS # 00211 M00S00209.comxmsc +++| ITEM CH$06 C(00,24,06); # RIGHTMOST 6 CHARS #
| Line S00210 Modification History | |
|---|---|
M01 (Removed by) | common1 |
Seq # *Modification Id* Act ----------------------------+ 00212 M01S00210.common1 ---| ITEM CH$04 C(00,42,04); # RIGHTMOST 4 CHARS #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | common1 |
Seq # *Modification Id* Act ----------------------------+ 00213 M01S00003.common1 +++| ITEM CH$04 C(00,36,04); # RIGHTMOST 4 CHARS # 00214 M00S00211.comxmsc +++| ITEM CH$02 C(00,48,02); # RIGHTMOST 2 CHARS # 00215 M00S00212.comxmsc +++| END 00216 M00S00213.comxmsc +++| 00217 M00S00214.comxmsc +++| ARRAY MSG2 [0:0] S(4); 00218 M00S00215.comxmsc +++| BEGIN 00219 M00S00216.comxmsc +++| ITEM MSG2$TXT C(00,00,38) = ## 00220 M00S00217.comxmsc +++| [" PFN=PPPPPPP, UI=NNNNNN, FM=FFFFFFF."]; 00221 M00S00218.comxmsc +++| ITEM MSG2$PFN C(00,30,07); # PPPPPPP # 00222 M00S00219.comxmsc +++| ITEM MSG2$UI C(01,42,06); # NNNNNN # 00223 M00S00220.comxmsc +++| ITEM MSG2$FM C(02,48,07); # FFFFFFF # 00224 M00S00221.comxmsc +++| ITEM MSG2$ZERO U(03,48,12) = [0]; 00225 M00S00222.comxmsc +++| END 00226 M00S00223.comxmsc +++| 00227 M00S00224.comxmsc +++| 00228 M00S00225.comxmsc +++| ARRAY FEMSG [0:0] P(3); # EXEC FATAL ERROR MESSAGE # 00229 M00S00226.comxmsc +++| BEGIN 00230 M00S00227.comxmsc +++| ITEM FE$MSG C(00,00,16) = [" EXEC ABNORMAL, "]; 00231 M00S00228.comxmsc +++| ITEM FE$RTN C(01,36,10); # ROUTINE NAME # 00232 M00S00229.comxmsc +++| ITEM FE$ZBYTE U(02,36,12) = [0]; # ZERO-BYTE TERMINATOR # 00233 M00S00230.comxmsc +++| END 00234 M00S00231.comxmsc +++| 00235 M00S00232.comxmsc +++| ARRAY JCI [0:0] S(2); # JOB CONTROL INFORMATION # 00236 M00S00233.comxmsc +++| BEGIN 00237 M00S00234.comxmsc +++| ITEM JCI$EFG U(00,00,06); # GLOBAL ERROR FLAG # 00238 M00S00235.comxmsc +++| ITEM JCI$REG U(00,06,18); # GLOBAL REGISTER # 00239 M00S00236.comxmsc +++| ITEM JCI$CCL U(00,24,12); # RESERVED FOR *CCL* USE # 00240 M00S00237.comxmsc +++| ITEM JCI$EM U(00,36,12); # EXIT MODE # 00241 M00S00238.comxmsc +++| ITEM JCI$SSW U(00,48,06); # SENSE SWITCHES # 00242 M00S00239.comxmsc +++| ITEM JCI$EF U(01,00,06); # LAST ERROR FLAG ENCOUNTERED # 00243 M00S00240.comxmsc +++| ITEM JCI$R3 U(01,06,18); # JOB CONTROL REGISTER 3 # 00244 M00S00241.comxmsc +++| ITEM JCI$R2 U(01,24,18); # JOB CONTROL REGISTER 2 # 00245 M00S00242.comxmsc +++| ITEM JCI$R1 U(01,42,18); # JOB CONTROL REGISTER 1 # 00246 M00S00243.comxmsc +++| END 00247 M00S00244.comxmsc +++| 00248 M00S00245.comxmsc +++| BASED 00249 M00S00246.comxmsc +++| ARRAY MRFT [0:0] P(MRFTLEN); # MOVE REQUEST FILE TABLE # 00250 M00S00247.comxmsc +++| BEGIN 00251 M00S00248.comxmsc +++| ITEM MRFTFAM C(00,18,07); # FAMILY NAME # 00252 M00S00249.comxmsc +++| END 00253 M00S00250.comxmsc +++| 00254 M00S00251.comxmsc +++| END # XMSCCOM # 00255 M00S00252.comxmsc +++| 00256 M00S00253.comxmsc +++| END # COMXMSC # 00257 M00S00254.comxmsc +++| 00258 M00S00255.comxmsc +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comxmsc.txt · Last modified: (external edit)