Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comtvlf +++|
00002 M00S00002.comtvlf +++|# COMTVLF - EXTRACT, FIXIT, PROBLEM AND REPORT FILE DESCRIPTIONS. #
00003 M00S00003.comtvlf +++| CONTROL NOLIST;
00004 M00S00004.comtvlf +++| CONTROL IFEQ LISTCON,1;
00005 M00S00005.comtvlf +++| CONTROL LIST;
00006 M00S00006.comtvlf +++| CONTROL FI;
00007 M00S00007.comtvlf +++| BEGIN # COMTVLF #
00008 M00S00008.comtvlf +++|
00009 M00S00009.comtvlf +++|#
00010 M00S00010.comtvlf +++|*** COMTVLF - EXTRACT, FIXIT, PROBLEM AND REPORT FILES.
00011 M00S00011.comtvlf +++|*
00012 M00S00012.comtvlf +++|* COMTVLF DEFINES THE SYMBOLS, *FET-S*, AND *I/O* BUFFERS
00013 M00S00013.comtvlf +++|* FOR THE SCRATCH FILES USED IN THE *SSVAL* ROUTINES. THE
00014 M00S00014.comtvlf +++|* FILES ARE -
00015 M00S00015.comtvlf +++|* - THE EXTRACT FILE WHOSE DESCRIPTIONS ARE USED TO READ AND
00016 M00S00016.comtvlf +++|* PROCESS THE *PFC* EXTRACT FILES CREATED DURING THE PRESET
00017 M00S00017.comtvlf +++|* PHASE OF SSVAL.
00018 M00S00018.comtvlf +++|* - THE FIXIT FILE WHOSE DESCRIPTIONS ARE USED TO FIRST WRITE
00019 M00S00019.comtvlf +++|* AND THEN READ AND PROCESS RECORDS WHOSE DATA IDENTIFIES
00020 M00S00020.comtvlf +++|* THE TYPE OF CATALOG FIXING TO BE DONE.
00021 M00S00021.comtvlf +++|* - THE PROBLEM FILE WHOSE DESCRIPTIONS ARE USED TO WRITE AND
00022 M00S00022.comtvlf +++|* READ RECORDS WHOSE DATA IDENTIFIES ERRORS THAT WERE DETECTED
00023 M00S00023.comtvlf +++|* DURING VALIDATION.
00024 M00S00024.comtvlf +++|* - THE REPORT FILE WHICH CONTAINS ALL LINES ISSUED TO THE
00025 M00S00025.comtvlf +++|* REPORT FORMATTER ROUTINES ( ONLY THE *FET* IS DESCRIBED
00026 M00S00026.comtvlf +++|* HERE, THE BUFFER AND RECORD AREAS ARE OWNED BY THE REPORT
00027 M00S00027.comtvlf +++|* FORMATTER).
00028 M00S00028.comtvlf +++|*
00029 M00S00029.comtvlf +++|*
00030 M00S00030.comtvlf +++|#
00031 M00S00031.comtvlf +++|
00032 M00S00032.comtvlf +++|
00033 M00S00033.comtvlf +++|#
00034 M00S00034.comtvlf +++|* RECORD TYPES FOR THE PROBLEM AND FIXIT FILES.
00035 M00S00035.comtvlf +++|#
00036 M00S00036.comtvlf +++|
00037 M00S00037.comtvlf +++| STATUS REC # RECORD TYPES #
00038 M00S00038.comtvlf +++| TFORPH, # TROUBLE FREE ORPHAN #
00039 M00S00039.comtvlf +++| FCT, # *FCT* PTS TO WRONG *SM* #
00040 M00S00040.comtvlf +++| SM, # *SM* PTS TO WRONG *FCT* #
00041 M00S00041.comtvlf +++| ASA, # ASA OUT OF RANGE #
00042 M00S00042.comtvlf +++| OTHR, # OTHER *PFC* ERROR #
00043 M00S00043.comtvlf +++| BADORPH, # CHAIN WITH PROBLEMS #
00044 M00S00044.comtvlf +++| FRAG, # FRAGMENT #
00045 M00S00045.comtvlf +++| BADHOLE, # PROBLEM ON UNALLOCATED #
00046 M00S00046.comtvlf +++| FCF, # REMOVE FILE FROM CARTRIDGE #
00047 M00S00047.comtvlf +++| REND; # END OF RECORD TYPES #
00048 M00S00048.comtvlf +++|
00049 M00S00049.comtvlf +++|#
00050 M00S00050.comtvlf +++|* RECORD LENGTHS.
00051 M00S00051.comtvlf +++|#
00052 M00S00052.comtvlf +++|
00053 M00S00053.comtvlf +++| DEF RLEXTR #6#; # EXTRACT RECORD #
00054 M00S00054.comtvlf +++| DEF RLPROB #9#; # PROBLEM RECORD #
00055 M00S00055.comtvlf +++| DEF RLFIX #9#; # FIXIT RECORD #
| Line S00001 Modification History |
M01 (Added by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00056 M01S00001.common1 +++| DEF RELLFN #"RELCOM"#; # NAME OF RELEASE FILE #
00057 M01S00002.common1 +++|
00058 M00S00056.comtvlf +++|
00059 M00S00057.comtvlf +++|
00060 M00S00058.comtvlf +++|
00061 M00S00059.comtvlf +++| COMMON TVLFCOM;
00062 M00S00060.comtvlf +++|
00063 M00S00061.comtvlf +++| BEGIN # TVLFCOM COMMON BLOCK #
00064 M00S00062.comtvlf +++| # $$ #
00065 M00S00063.comtvlf +++| ITEM $$TVLF$$ C(20) = "****** COMTVLF *****";
00066 M00S00064.comtvlf +++| # $$ #
00067 M00S00065.comtvlf +++|
00068 M00S00066.comtvlf +++|#
00069 M00S00067.comtvlf +++|* *PFC* EXTRACT FILES - CONTAIN EXTRACTS FROM THE LIVE
00070 M00S00068.comtvlf +++|* *PFC* OR FROM THE RDF FILE. THERE IS A SEPARATE
00071 M00S00069.comtvlf +++|* FILE FOR EACH SUBFAMILY. THE 7TH CHARACTER OF THE
00072 M00S00070.comtvlf +++|* *LFN* IS THE DISPLAY CODE NUMBER FOR THE SUBFAMILY.
00073 M00S00071.comtvlf +++|#
00074 M00S00072.comtvlf +++|
00075 M00S00073.comtvlf +++| ITEM EXTFADR U; # EXTRACT FILE *FET* ADDRESS #
00076 M00S00074.comtvlf +++| ITEM EXTBADR U; # EXTRACT FILE BUFFER ADDRESS #
00077 M00S00075.comtvlf +++|
00078 M00S00076.comtvlf +++| ARRAY EXTRACTFIL [0:0] S(SFETL); # *PFC* EXTRACT FILE *FET* #
00079 M00S00077.comtvlf +++| BEGIN
00080 M00S00078.comtvlf +++| ITEM EXTR$FET U(00,00,60);
00081 M00S00079.comtvlf +++| END
00082 M00S00080.comtvlf +++|
00083 M00S00081.comtvlf +++| ARRAY EXTRACBUF [0:0] S(LEXTBUF); # *PFC* EXTRACT BUFFER #
00084 M00S00082.comtvlf +++| BEGIN
00085 M00S00083.comtvlf +++| ITEM EXTR$BUF U(00,00,60);
00086 M00S00084.comtvlf +++| END
00087 M00S00085.comtvlf +++|
00088 M00S00086.comtvlf +++|#
00089 M00S00087.comtvlf +++|* THE EXTRACT RECORD DESCRIPTION IS ALSO USED FOR THE
00090 M00S00088.comtvlf +++|* PROBLEM FILE AND FIXIT FILE RECORD DESCRIPTIONS.
00091 M00S00089.comtvlf +++|#
00092 M00S00090.comtvlf +++|
00093 M00S00091.comtvlf +++| ARRAY EXTRECORD [0:0] S(9); # EXTRACT RECORD DESCRIPTION #
00094 M00S00092.comtvlf +++| BEGIN
00095 M00S00093.comtvlf +++| ITEM EXTR$FCT U(00,06,12); # *FCT* ORDINAL #
00096 M00S00094.comtvlf +++| ITEM EXTR$PFID U(00,27,33); # ADDRESS OF *PFC* ENTRY #
00097 M00S00095.comtvlf +++| ITEM EXTR$PEO U(00,27,03); # *PFC* ORDINAL IN SECTOR #
00098 M00S00096.comtvlf +++| ITEM EXTR$DN U(00,30,06); # DEVICE NUMBER #
00099 M00S00097.comtvlf +++| ITEM EXTR$TRK U(00,36,12); # *PFC* TRACK #
00100 M00S00098.comtvlf +++| ITEM EXTR$SEC U(00,48,12); # *PFC* SECTOR #
00101 M00S00099.comtvlf +++| ITEM EXTR$DA B(00,18,01); # DIRECT ACCESS BIT #
00102 M00S00100.comtvlf +++| ITEM EXTR$FLG U(01,00,12); # ASC FLAGS #
00103 M00S00101.comtvlf +++| ITEM EXTR$FF B(01,05,01); # *PFC* AFFRE FLAG #
00104 M00S00102.comtvlf +++| ITEM EXTR$DERR B(01,09,01); # DATA ERROR #
00105 M00S00103.comtvlf +++| ITEM EXTR$SYS B(01,10,01); # SYSTEM ERROR #
00106 M00S00104.comtvlf +++| ITEM EXTR$D U(01,12,03); # DISK IMAGE FLAG #
00107 M00S00105.comtvlf +++| ITEM EXTR$ATASA U(01,18,42); # ALTERNATE TYPE AND ADDRESS #
00108 M00S00106.comtvlf +++| ITEM EXTR$ASA U(01,24,36); # ALTERNATE STORAGE ADDRESS #
00109 M00S00107.comtvlf +++| ITEM EXTR$AT U(01,18,06); # ALTERNATE STORAGE TYPE #
00110 M00S00108.comtvlf +++| ITEM EXTR$SM U(01,24,06); # STORAGE MODULE #
00111 M00S00109.comtvlf +++| ITEM EXTR$GP U(01,30,08); # GROUP #
00112 M00S00110.comtvlf +++| ITEM EXTR$GPT U(01,38,04); # GROUP ORDINAL #
00113 M00S00111.comtvlf +++| ITEM EXTR$AU U(01,42,12); # ALLOCATION UNIT #
00114 M00S00112.comtvlf +++| ITEM EXTR$FM U(01,54,06); # FUTURE USE #
00115 M00S00113.comtvlf +++| ITEM EXTR$PFN U(02,00,42); # PERMANENT FILE NAME #
00116 M00S00114.comtvlf +++| ITEM EXTR$PFNC C(02,00,07); # CHARACTER *PFN* #
00117 M00S00115.comtvlf +++| ITEM EXTR$UI U(02,42,18); # USER INDEX #
00118 M00S00116.comtvlf +++| ITEM EXTR$SB U(02,57,03); # SUBFAMILY #
00119 M00S00117.comtvlf +++| ITEM EXTR$CREA U(04,24,36); # CREATION DATE #
00120 M00S00118.comtvlf +++| ITEM EXTR$BKDT U(05,24,36); # BACKUP DATE-TIME #
00121 M00S00119.comtvlf +++| ITEM EXTR$BKDA U(05,24,18); # BACKUP DATE #
00122 M00S00120.comtvlf +++| ITEM EXTR$BKTI U(05,42,18); # BACKUP TIME #
00123 M00S00121.comtvlf +++|
00124 M00S00122.comtvlf +++|
00125 M00S00123.comtvlf +++|#
00126 M00S00124.comtvlf +++|* FIELDS ADDED FOR PROBLEM FILE RECORD.
00127 M00S00125.comtvlf +++|#
00128 M00S00126.comtvlf +++|
00129 M00S00127.comtvlf +++| ITEM PROB$RT U(00,00,06); # RECORD TYPE #
00130 M00S00128.comtvlf +++| ITEM PROB$Y U(05,00,06); # *SM* Y COORDINATE #
00131 M00S00129.comtvlf +++| ITEM PROB$Z U(05,06,06); # *SM* Z COORDINATE #
00132 M00S00130.comtvlf +++| ITEM PROB$CSN U(05,12,48); # CARTIDGE SERIAL NUMBER #
00133 M00S00131.comtvlf +++| ITEM PROB$MAPEN C(06,00,30); # 3 WORD MAP ENTRY #
00134 M00S00132.comtvlf +++| ITEM PROB$SM0 U(06,00,60); # SMMAP ENTRY WD 1 #
00135 M00S00133.comtvlf +++| ITEM PROB$SM1 U(07,00,60); # SMMAP ENTRY WD 2 #
00136 M00S00134.comtvlf +++| ITEM PROB$SM2 U(08,00,60); # SMMAP ENTRY WD 3 #
00137 M00S00135.comtvlf +++| ITEM PROB$CM C(08,00,02); # CARTRIDGE MANUFACTURER #
00138 M00S00136.comtvlf +++|
00139 M00S00137.comtvlf +++|#
00140 M00S00138.comtvlf +++|* FIELDS ADDED FOR FIXIT FILE RECORD.
00141 M00S00139.comtvlf +++|#
00142 M00S00140.comtvlf +++|
00143 M00S00141.comtvlf +++| ITEM FIX$RT U(00,00,06); # RECORD TYPE #
00144 M00S00142.comtvlf +++| ITEM FIX$VT U(03,00,60); # *VT* ENTRY #
00145 M00S00143.comtvlf +++|
00146 M00S00144.comtvlf +++| END
00147 M00S00145.comtvlf +++|
00148 M00S00146.comtvlf +++|
00149 M00S00147.comtvlf +++|#
00150 M00S00148.comtvlf +++|* FIXIT FILE - AN ENTRY IS ADDED TO THIS FILE
00151 M00S00149.comtvlf +++|* IDENTIFYING ALL CATALOG REPAIRS AND M860 SPACE
00152 M00S00150.comtvlf +++|* TO RELEASE. RECORD TYPES ARE ANY OF THOSE IN THE STATUS LIST
00153 M00S00151.comtvlf +++|* "REC".
00154 M00S00152.comtvlf +++|* THE FIXIT FILE RECORD IS READ AND WRITTEN FROM THE
00155 M00S00153.comtvlf +++|* ARRAY *EXTRECORD*.
00156 M00S00154.comtvlf +++|#
00157 M00S00155.comtvlf +++|
00158 M00S00156.comtvlf +++| ITEM FIXFADR U; # FIXIT FILE *FET* ADDRESS #
00159 M00S00157.comtvlf +++| ITEM FIXBADR U; # FIXIT FILE BUFFER ADDRESS #
00160 M00S00158.comtvlf +++|
00161 M00S00159.comtvlf +++| ARRAY FIXITFILE [0:0] S(SFETL); # FIXIT FILE *FET* #
00162 M00S00160.comtvlf +++| BEGIN
00163 M00S00161.comtvlf +++| ITEM FIXI$FET U(00,00,60);
00164 M00S00162.comtvlf +++| END
00165 M00S00163.comtvlf +++|
00166 M00S00164.comtvlf +++| ARRAY FIXITBUF [0:0] S(LFIXBUF); # FIXIT *CIO* BUFFER #
00167 M00S00165.comtvlf +++| BEGIN
00168 M00S00166.comtvlf +++| ITEM FIXI$BUF U(00,00,60);
00169 M00S00167.comtvlf +++| END
00170 M00S00168.comtvlf +++|
00171 M00S00169.comtvlf +++|
00172 M00S00170.comtvlf +++|
00173 M00S00171.comtvlf +++|#
00174 M00S00172.comtvlf +++|* PROBLEM FILE - AN ENTRY IS ADDED TO THIS FILE FOR
00175 M00S00173.comtvlf +++|* EVERY PROBLEM DETECTED DURING THE SUBFAMILY VALIDATION.
00176 M00S00174.comtvlf +++|* RECORD TYPES WRITTEN TO THIS FILE ARE REC'FCT' THROUGH
00177 M00S00175.comtvlf +++|* REC'OTHR' (FROM STATUS LIST *REC*).
00178 M00S00176.comtvlf +++|* THE PROBLEM FILE RECORD IS READ AND WRITTEN FROM THE
00179 M00S00177.comtvlf +++|* ARRAY *EXTRECORD*.
00180 M00S00178.comtvlf +++|#
00181 M00S00179.comtvlf +++|
00182 M00S00180.comtvlf +++| ITEM PROBFADR U; # PROBLEM FILE *FET* ADDRESS #
00183 M00S00181.comtvlf +++| ITEM PROBBADR U; # PROBLEM FILE BUFFER ADDRESS #
00184 M00S00182.comtvlf +++|
00185 M00S00183.comtvlf +++| ARRAY PROBFILE [0:0] S(SFETL); # PROBLEM FILE *FET* #
00186 M00S00184.comtvlf +++| BEGIN
00187 M00S00185.comtvlf +++| ITEM PROB$FET U(00,00,60);
00188 M00S00186.comtvlf +++| END
00189 M00S00187.comtvlf +++|
00190 M00S00188.comtvlf +++| ARRAY PROBBUF [0:0] S(LPROBBUF); # PROBLEM *CIO* BUFFER #
00191 M00S00189.comtvlf +++| BEGIN
00192 M00S00190.comtvlf +++| ITEM PROB$BUF U(00,00,60);
00193 M00S00191.comtvlf +++| END
00194 M00S00192.comtvlf +++|
00195 M00S00193.comtvlf +++|
| Line S00003 Modification History |
M01 (Added by) | common1 |
Seq # *Modification Id* Act
----------------------------+
00196 M01S00003.common1 +++|
00197 M01S00004.common1 +++| ITEM RELFADR U; # COMMUNICATION *FET* ADDRESS #
00198 M01S00005.common1 +++| ITEM RELBADR U; # COMMUNCIATION BUFFER ADDRESS #
00199 M01S00006.common1 +++| ITEM RELNAME C(7); # COMMUNICATION FILE NAME #
00200 M01S00007.common1 +++|
00201 M01S00008.common1 +++|#
00202 M01S00009.common1 +++|* RELCOM - COMMUNICATION FILE BETWEEN *SSVAL* AND *EXEC* WHICH
00203 M01S00010.common1 +++|* SPECIFIES FILES WHOSE *SFMCAT* SPACE IS TO BE RELEASED.
00204 M01S00011.common1 +++|#
00205 M01S00012.common1 +++|
00206 M01S00013.common1 +++| ARRAY RELCFILE[0:0] S(SFETL); # RELCOM FILE *FET* #
00207 M01S00014.common1 +++| BEGIN
00208 M01S00015.common1 +++| ITEM RELC$FET U(00,00,60);
00209 M01S00016.common1 +++| END
00210 M01S00017.common1 +++|
00211 M01S00018.common1 +++| ARRAY RELCBUF [0:0] S(LFIXBUF); # RELCOM *CIO* BUFFER #
00212 M01S00019.common1 +++| BEGIN
00213 M01S00020.common1 +++| ITEM RELC$BUF U(00,00,60);
00214 M01S00021.common1 +++| END
00215 M01S00022.common1 +++|
00216 M00S00194.comtvlf +++|
00217 M00S00195.comtvlf +++|
00218 M00S00196.comtvlf +++|
00219 M00S00197.comtvlf +++|#
00220 M00S00198.comtvlf +++|* REPORT FILE - THE REPORT FILE IS WRITTEN VIA THE REPORT
00221 M00S00199.comtvlf +++|* FORMATTER ROUTINES.
00222 M00S00200.comtvlf +++|#
00223 M00S00201.comtvlf +++|
00224 M00S00202.comtvlf +++| ITEM RPTFADR I; # REPORT FILE *FET* ADDRESS #
00225 M00S00203.comtvlf +++|
00226 M00S00204.comtvlf +++| ARRAY RPTFILE [0:0] S(SFETL); # REPORT FILE *FET* #
00227 M00S00205.comtvlf +++| BEGIN
00228 M00S00206.comtvlf +++| ITEM RPTF$FET U(00,00,60);
00229 M00S00207.comtvlf +++| END
00230 M00S00208.comtvlf +++|
00231 M00S00209.comtvlf +++| END # TVLFCOM COMMON BLOCK #
00232 M00S00210.comtvlf +++|
00233 M00S00211.comtvlf +++| END # COMTVLF #
00234 M00S00212.comtvlf +++|
00235 M00S00213.comtvlf +++| CONTROL LIST;