cdc:nos2.source:opl.opl871:deck:probe
Deck PROBE
11 Modifications
Listing Sections
- Deck PROBE Start
- Deck PROBE Part 1 (Line 1592)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.probe +++|PRGM PROBE; 00002 M01S00002.probe +++|# TITLE PROBE - MEASUREMENT REPORT TOOL. # 00003 M01S00003.probe +++| 00004 M01S00004.probe +++| BEGIN # PROBE # 00005 M01S00005.probe +++| 00006 M01S00006.probe +++|# 00007 M01S00007.probe +++|*** PROBE - INTERNAL MEASUREMENT TOOL. 00008 M01S00008.probe +++|* 00009 M01S00009.probe +++|* *PROBE* IS AN INTERNAL TOOL THAT MEASURES THE FOLLOWING DATA: 00010 M01S00010.probe +++|* 1. THE NUMBER OF TIMES A PPU ROUTINE WAS LOADED.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00011 M02S00011.v23l617 ---|* 2. THE NUMBER OF *CIO* RA+1 REQUESTS BY FUNCTION NUMBER. 00012 M01S00001.v23l617 +++|* 2. THE NUMBER OF *CIO* SYSTEM REQUESTS BY FUNCTION NUMBER. 00013 M01S00012.probe +++|* 3. THE NUMBER OF PPU REQUESTS TO *CPUMTR* BY FUNCTION 00014 M01S00013.probe +++|* NUMBER. 00015 M01S00014.probe +++|* 4. THE NUMBER OF MTR REQUESTS TO *CPUMTR* BY FUNCTION 00016 M01S00015.probe +++|* NUMBER. 00017 M01S00001.251l664 +++|* 5. A SET OF I/O STATISTICS FOR BUFFERED I/O DEVICES. 00018 M01S00016.probe +++|* 00019 M01S00017.probe +++|* 00020 M01S00018.probe +++|* *PROBE* IS A SEGMENT TO *CPUMTR* THAT IS SELECTABLE AT DEADSTART 00021 M01S00019.probe +++|* TIME BY AN IPRDECK ENTRY. WHEN THE *PROBE* SEGMENT IS DISABLED 00022 M01S00020.probe +++|* AT DEADSTART TIME, *CPUMTR* WILL REQUIRE NO ADDITIONAL TIME OR 00023 M01S00021.probe +++|* SPACE OVER THAT REQUIRED BEFORE THE SEGMENT WAS INSTALLED. 00024 M01S00022.probe +++|* 00025 M01S00023.probe +++|* 00026 M01S00024.probe +++|* *PROBE* WILL GENERATE A REPORT FROM THE DATA COLLECTED BY THE 00027 M01S00025.probe +++|* *PROBE* FACILITY OF *CPUMTR*. *PROBE* WILL GET INPUT TO ANALYZE 00028 M01S00026.probe +++|* FROM EITHER THE SYSTEM TABLES OR FROM A FILE CONTAINING DATA 00029 M01S00027.probe +++|* FROM A PREVIOUS *PROBE* RUN. *PROBE* IS ACTIVATED BY THE 00030 M01S00028.probe +++|* FOLLOWING. 00031 M01S00029.probe +++|* 00032 M01S00030.probe +++|* PROBE(P1,P2,...,PN) 00033 M01S00031.probe +++|* 00034 M01S00032.probe +++|* PRGM PROBE. 00035 M01S00033.probe +++|* 00036 M01S00034.probe +++|* ENTRY. INPUTS TO PROBE ARE: 00037 M01S00035.probe +++|* 00038 M01S00036.probe +++|* PROBE(P1,P2,...,PN) 00039 M01S00037.probe +++|* 00040 M01S00038.probe +++|* WHERE PN MAY BE ONE OF THE FOLLOWING: 00041 M01S00039.probe +++|* 00042 M01S00040.probe +++|* P = LFN1 BINARY FILE TO WRITE. DEFAULT IS *STATS*. 00043 M01S00041.probe +++|* 00044 M01S00042.probe +++|* P = 0 NO BINARY FILE IS TO BE WRITTEN. 00045 M01S00043.probe +++|* 00046 M01S00044.probe +++|* L = LFN2 REPORT FILE. DEFAULT IS *OUTPUT*. 00047 M01S00045.probe +++|* 00048 M01S00046.probe +++|* L = 0 NO REPORT GENERATED. 00049 M01S00047.probe +++|* 00050 M01S00048.probe +++|* B = LFN3 BINARY FILE TO READ. DEFAULT IS *STATS*. 00051 M01S00049.probe +++|* 00052 M01S00050.probe +++|* REWIND BINARY FILES, LFN1 AND LFN3, BEFORE AND 00053 M01S00051.probe +++|* AFTER THE OPERATION. DEFAULT IS NO REWIND. 00054 M01S00052.probe +++|* 00055 M01S00053.probe +++|* OP = P PROCESSING OPTIONS WHERE P MAY BE: 00056 M01S00054.probe +++|* R READ DATA FROM SYSTEM TABLES AND WRITE TO 00057 M01S00055.probe +++|* BINARY FILE SPECIFIED BY THE *P* PARAMETER 00058 M01S00056.probe +++|* AND REPORT FILE AS SPECIFIED. 00059 M01S00057.probe +++|* 00060 M01S00058.probe +++|* C SAME AS *R* OPTION EXCEPT THE SYSTEM TABLES 00061 M01S00059.probe +++|* WILL BE CLEARED AFTER THEY ARE READ. 00062 M01S00060.probe +++|* 00063 M01S00061.probe +++|* P GENERATE REPORT FROM DATA ON BINARY 00064 M01S00062.probe +++|* FILE SPECIFIED BY THE *B* PARAMETER. 00065 M01S00063.probe +++|* 00066 M01S00064.probe +++|* 00067 M01S00065.probe +++|* LO = X SORT OPTION FOR PPU PROGRAM LOAD INFORMATIOM. 00068 M01S00066.probe +++|* 00069 M01S00067.probe +++|* F DATA IS SORTED BY FREQUENCY OF LOADS 00070 M01S00068.probe +++|* (DEFAULT SORT OPTION IF *LO* IS OMITTED). 00071 M01S00069.probe +++|* 00072 M01S00070.probe +++|* R DATA IS SORTED BY FREQUENCY OF LOADS AND 00073 M01S00071.probe +++|* PROGRAM RESIDENCE, IN THAT ORDER. 00074 M01S00072.probe +++|* 00075 M01S00073.probe +++|* A DATA IS SORTED ALPHABETICALLY BY PPU 00076 M01S00074.probe +++|* PROGRAM NAME. 00077 M01S00075.probe +++|* 00078 M01S00076.probe +++|* 00079 M01S00077.probe +++|* 00080 M01S00078.probe +++|* EXIT. REPORT IS COMPLETE OR ERROR CONDITION ENCOUNTERED. 00081 M01S00079.probe +++|* 00082 M01S00080.probe +++|* 00083 M01S00081.probe +++|* MESSAGES. 00084 M01S00082.probe +++|* 00085 M01S00083.probe +++|* NO REPORT GENERATED.
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00086 M02S00084.v23l617 ---|* THE *L* OPTION ON THE CONTROL CARD WAS SET 00087 M01S00002.v23l617 +++|* THE *L* OPTION ON THE COMMAND WAS SET 00088 M01S00085.probe +++|* TO ZERO. 00089 M01S00086.probe +++|* 00090 M01S00087.probe +++|* *PROBE* REPORT COMPLETE. 00091 M01S00088.probe +++|* *PROBE* PRINTED A COMPLETE REPORT. 00092 M01S00089.probe +++|*
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00093 M02S00090.v23l617 ---|* *PROBE* CONTROL STATEMENT ERROR.
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00094 M02S00091.v23l617 ---|* AN ERROR HAS BEEN DETECTED WITHIN THE CONTROL
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00095 M02S00092.v23l617 ---|* STATEMENT. CORRECT THE CONTROL STATEMENT AND
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00096 M02S00093.v23l617 ---|* RETRY. 00097 M01S00003.v23l617 +++|* *PROBE* COMMAND ERROR. 00098 M01S00004.v23l617 +++|* AN ERROR HAS BEEN DETECTED WITHIN THE COMMAND. 00099 M01S00005.v23l617 +++|* CORRECT THE COMMAND AND RETRY. 00100 M01S00094.probe +++|* 00101 M01S00095.probe +++|* ERROR IN *OP* SPECIFICATIONS.
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00102 M02S00096.v23l617 ---|* THE *OP* PARAMETER HAS AN ILLEGAL OPTION 00103 M01S00006.v23l617 +++|* THE *OP* PARAMETER HAS AN INCORRECT OPTION 00104 M01S00097.probe +++|* SPECIFIED. CORRECT AND RETRY. 00105 M01S00098.probe +++|* 00106 M01S00099.probe +++|* ERROR IN *LO* SPECIFICATION.
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00107 M02S00100.v23l617 ---|* THE LIST OPTION PARAMETER HAS AN ILLEGAL 00108 M01S00007.v23l617 +++|* THE LIST OPTION PARAMETER HAS AN INCORRECT 00109 M01S00101.probe +++|* OPTION SPECIFIED. CORRECT AND RETRY. 00110 M01S00102.probe +++|* 00111 M01S00103.probe +++|* DUPLICATE FILE NAME ERROR. 00112 M01S00104.probe +++|* THE FILES FOR INPUT AND OUTPUT HAVE THE 00113 M01S00105.probe +++|* SAME NAME. CHANGE AND RETRY. 00114 M01S00106.probe +++|*
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00115 M02S00107.v23l617 ---|* CONTROL CARD OPTION MISMATCH. 00116 M01S00008.v23l617 +++|* COMMAND OPTION MISMATCH. 00117 M01S00108.probe +++|* THE *OP* PARAMETERS, *R* OR *C*, ARE SPECIFIED 00118 M01S00109.probe +++|* WITHOUT A *P* PARAMETER BEING SPECIFIED. 00119 M01S00110.probe +++|* CORRECT AND RETRY. 00120 M01S00111.probe +++|* 00121 M01S00112.probe +++|* NO VERSION DATA ON FILE. 00122 M01S00113.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00123 M02S00114.v23l617 ---|* CONTROL CARD HAS NO VERSION DATA. CHECK 00124 M01S00009.v23l617 +++|* COMMAND HAS NO VERSION DATA. CHECK 00125 M01S00115.probe +++|* FILE FOR CORRECTNESS. 00126 M01S00116.probe +++|*
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00127 M02S00117.v23l617 ---|* NO *SDAL* DATA ON FILE. 00128 M01S00010.v23l617 +++|* NO STATISTICAL AREA DATA ON FILE. 00129 M01S00118.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00130 M02S00119.v23l617 ---|* CONTROL CARD HAS NO *SDAL* DATA. CHECK FILE
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00131 M02S00120.v23l617 ---|* FOR CORRECTNESS. 00132 M01S00011.v23l617 +++|* COMMAND HAS NO STATISTICAL DATA AREA DATA. 00133 M01S00012.v23l617 +++|* CHECK FILE FOR CORRECTNESS. 00134 M01S00121.probe +++|* 00135 M01S00122.probe +++|* NO *PROBE* DATA ON FILE. 00136 M01S00123.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00137 M02S00124.v23l617 ---|* CONTROL CARD HAS NO *PROBE* DATA. CHECK 00138 M01S00013.v23l617 +++|* COMMAND HAS NO *PROBE* DATA. CHECK 00139 M01S00125.probe +++|* FILE FOR CORRECTNESS. 00140 M01S00126.probe +++|* 00141 M01S00127.probe +++|* NO *PROBE* DATA AVAILABLE. 00142 M01S00128.probe +++|* THE SYSTEM FAILED TO RETURN ANY DATA. NO REPORT 00143 M01S00129.probe +++|* WILL BE GENERATED NOR WILL A FILE BE CREATED. 00144 M01S00130.probe +++|* 00145 M01S00131.probe +++|* PROBE VERSION MISMATCH. 00146 M01S00132.probe +++|* THE VERSION UNDER WHICH THE DATA WAS BUILT 00147 M01S00133.probe +++|* IS NOT THE CURRENT PROBE VERSION. 00148 M01S00134.probe +++|* 00149 M01S00135.probe +++|* NOTES. 00150 M01S00136.probe +++|* 1. THE FILE NAMES MUST BE UNIQUE. 00151 M01S00137.probe +++|* 00152 M01S00138.probe +++|* 2. IF THE *OP* PARAMETER IS EQUAL TO *R* OR *C* 00153 M01S00139.probe +++|* THEN THE *P* PARAMETER CAN NOT BE EQUAL TO ZERO. 00154 M01S00140.probe +++|*
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00155 M02S00141.v23l617 ---|* 3. THE FOLLOWING SET OF CONTROL STATEMENTS IS AN EXAMPLE
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00156 M02S00014.251l664 ---|* 3. THE FOLLOWING SET OF COMMANDS IS AN EXAMPLE 00157 M01S00002.251l664 +++|* 3. IF THE *OP* PARAMETER IS EQUAL TO *P* THEN NO 00158 M01S00003.251l664 +++|* BINARY FILE IS WRITTEN, EVEN IF SPECIFIED ON 00159 M01S00004.251l664 +++|* THE *P* PARAMETER. 00160 M01S00005.251l664 +++|* 00161 M01S00006.251l664 +++|* 4. THE FOLLOWING SET OF COMMANDS IS AN EXAMPLE 00162 M01S00142.probe +++|* OF THE METHOD TO INSTALL *PROBE*. THE FOLLOWING IS 00163 M01S00143.probe +++|* ASSUMED- 00164 M01S00144.probe +++|* 00165 M01S00145.probe +++|* 1. THE SYSTEM *OPL* IS ASSIGNED TO THE CONTROL POINT. 00166 M01S00146.probe +++|* 00167 M01S00147.probe +++|* 2. THE FOLLOWING LIBRARY IS AVAILABLE EITHER ON THE 00168 M01S00148.probe +++|* SYSTEM OR ON A LOCAL FILE- 00169 M01S00149.probe +++|* 00170 M01S00150.probe +++|* SRVLIB - LIBRARY CONTAINING *SYMPL*/*COMPASS* 00171 M01S00151.probe +++|* SERVICE ROUTINES. 00172 M01S00152.probe +++|* 00173 M01S00153.probe +++|* 3. THE RESULTANT BINARY WILL BE ON FILE *LGO*. 00174 M01S00154.probe +++|* 00175 M01S00155.probe +++|* 4. LISTING WILL BE ON FILE *OUTPUT*. 00176 M01S00156.probe +++|* 00177 M01S00157.probe +++|* MODIFY(LO=E,Z)/*EDIT PROBE 00178 M01S00158.probe +++|* SYMPL(I,LXR=OUTPUT,B=FILEA) 00179 M01S00159.probe +++|* COMPASS(I,L=OUTPUT,B=FILEA,S=NOSTEXT) 00180 M01S00160.probe +++|* LDSET(LIB=SRVLIB,PRESET=ZERO) 00181 M01S00161.probe +++|* LOAD(FILEA) 00182 M01S00162.probe +++|* NOGO(LGO,PROBE) 00183 M01S00163.probe +++|* 00184 M01S00164.probe +++|* IF ERRORS OCCUR CONSULT THE SITE ANALYST. 00185 M01S00165.probe +++|*
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00186 M02S00166.281l803 ---|* COPYRIGHT CONTROL DATA CORP., 1980. 00187 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00188 M01S00167.probe +++|# 00189 M01S00168.probe +++| 00190 M01S00169.probe +++| CONTROL EJECT; 00191 M01S00170.probe +++| 00192 M01S00171.probe +++|# 00193 M01S00172.probe +++|**** PRGM PROBE - XREF LIST BEGIN. 00194 M01S00173.probe +++|# 00195 M01S00174.probe +++| 00196 M01S00175.probe +++| XREF 00197 M01S00176.probe +++| BEGIN 00198 M01S00177.probe +++| PROC ABORT; # ABNORMAL TERMINATION #
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00199 M02S00178.v23l617 ---| PROC CSARG; # CRACK CONTROL CARD # 00200 M01S00015.v23l617 +++| PROC CSARG; # CRACK COMMAND # 00201 M01S00179.probe +++| PROC INPUT; # INPUT DATA # 00202 M01S00180.probe +++| PROC MESSAGE; # OUTPUT DAYFILE MESSAGE # 00203 M01S00181.probe +++| PROC RPCLOSE; # CLOSE FILE # 00204 M01S00182.probe +++| PROC RPEJECT; # PAGE EJECT # 00205 M01S00183.probe +++| PROC RPTCIO; # *CIO* REQUEST REPORT # 00206 M01S00007.251l664 +++| PROC RPTIOS; # I/O STATISTICS REPORT # 00207 M01S00184.probe +++| PROC RPTMON; # MONITOR MODE REQUESTS # 00208 M01S00185.probe +++| PROC RPTMPP; # *MTR* PERFORMANCE REPORT # 00209 M01S00186.probe +++| PROC RPTMTR; # MONITOR REQUEST REPORT # 00210 M01S00187.probe +++| PROC RPTPLD; # *PLD* REPORT # 00211 M01S00188.probe +++| PROC RPTPMD; # PROGRAM MODE REQUESTS # 00212 M01S00189.probe +++| PROC RPTPST; # *PROBE* STATISTICS REPORT # 00213 M01S00190.probe +++| END 00214 M01S00191.probe +++| 00215 M01S00192.probe +++|# 00216 M01S00193.probe +++|**** PRGM PROBE - XREF LIST END. 00217 M01S00194.probe +++|# 00218 M01S00195.probe +++| 00219 M01S00196.probe +++| DEF LISTCON #0#; # COMDECK LIST CONTROL # 00220 M01S00197.probe +++|*CALL COMAMSS 00221 M01S00198.probe +++|*CALL COMSPDT 00222 M01S00199.probe +++|*CALL COMUPRB 00223 M01S00200.probe +++| 00224 M01S00201.probe +++| ARRAY MSG [0:1] S(3); 00225 M01S00202.probe +++| BEGIN 00226 M01S00203.probe +++| ITEM MSG$TEXT C(00,00,28) = [ ## 00227 M01S00204.probe +++| " NO REPORT GENERATED.", # NO REPORT GENERATED # 00228 M01S00205.probe +++| " *PROBE* REPORT COMPLETE."]; # *PROBE* REPORT COMPLETE # 00229 M01S00206.probe +++| ITEM MSG$TERM I(02,48,12) = [2(0)]; # MESSAGE TERMINATOR # 00230 M01S00207.probe +++| END 00231 M01S00208.probe +++| 00232 M01S00209.probe +++| CONTROL EJECT; 00233 M01S00210.probe +++|
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00234 M02S00211.v23l617 ---| CSARG; # CRACK CONTROL CARD # 00235 M01S00016.v23l617 +++| CSARG; # CRACK COMMAND # 00236 M01S00212.probe +++| INPUT; # INPUT DATA # 00237 M01S00213.probe +++| 00238 M01S00214.probe +++| IF ARG$L[0] EQ 0 00239 M01S00215.probe +++| THEN 00240 M01S00216.probe +++| BEGIN # GENERATE NO REPORT # 00241 M01S00217.probe +++| MESSAGE(MSG$TEXT[0],SYSUDF1); 00242 M01S00218.probe +++| STOP; 00243 M01S00219.probe +++| END # GENERATE NO REPORT # 00244 M01S00220.probe +++| 00245 M01S00221.probe +++| RPTPST; # INTERVAL OF REPORT # 00246 M01S00222.probe +++| RPTMTR; # MONITOR REQUESTS # 00247 M01S00223.probe +++| 00248 M01S00224.probe +++| RPEJECT(LOC(OUTFET)); 00249 M01S00225.probe +++| 00250 M01S00226.probe +++| RPTMON; # MONITOR MODE REQUESTS # 00251 M01S00227.probe +++| RPTPMD; # PROGRAM MODE REQUESTS # 00252 M01S00228.probe +++| RPTMPP; # *MTR* PERFORMANCE REQUESTS # 00253 M01S00229.probe +++| 00254 M01S00230.probe +++| RPEJECT(LOC(OUTFET)); 00255 M01S00231.probe +++| 00256 M01S00232.probe +++| RPTCIO; # *CIO* REPORT GENERATOR # 00257 M01S00233.probe +++| 00258 M01S00234.probe +++| RPEJECT(LOC(OUTFET)); 00259 M01S00235.probe +++| 00260 M01S00236.probe +++| RPTPLD; # *PLD* REPORT # 00261 M01S00237.probe +++| 00262 M01S00008.251l664 +++| RPEJECT(LOC(OUTFET)); 00263 M01S00009.251l664 +++| 00264 M01S00010.251l664 +++| RPTIOS; # I/O STATISTICS REPORT # 00265 M01S00011.251l664 +++| 00266 M01S00238.probe +++| RPCLOSE(LOC(OUTFET)); # CLOSE OUTPUT FILE # 00267 M01S00239.probe +++| 00268 M01S00240.probe +++| MESSAGE(MSG$TEXT[1],SYSUDF1); 00269 M01S00241.probe +++| 00270 M01S00242.probe +++| END # PROBE # 00271 M01S00243.probe +++| 00272 M01S00244.probe +++| TERM 00273 M01S00245.probe +++|PROC CSARG;
| Line S00246 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00274 M02S00246.v23l617 ---|# TITLE CSARG - CONTROL STATEMENT PROCESSOR. #
| Line S00247 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00275 M02S00247.v23l617 ---| BEGIN # CONTROL STATEMENT PROCESSOR # 00276 M01S00017.v23l617 +++|# TITLE CSARG - COMMAND PROCESSOR. # 00277 M01S00018.v23l617 +++| BEGIN # COMMAND PROCESSOR # 00278 M01S00248.probe +++| 00279 M01S00249.probe +++|#
| Line S00250 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00280 M02S00250.v23l617 ---|** CSARG - CONTROL STATEMENT ARGUMENT PROCESSOR. 00281 M01S00019.v23l617 +++|** CSARG - COMMAND ARGUMENT PROCESSOR. 00282 M01S00251.probe +++|* 00283 M01S00252.probe +++|* CHECKS FOR CORRECT PROBE PARAMETERS THROUGH A 00284 M01S00253.probe +++|* *SYMPL* CALL TO ASARG. 00285 M01S00254.probe +++|* 00286 M01S00255.probe +++|* PROC CSARG 00287 M01S00256.probe +++|*
| Line S00257 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00288 M02S00257.v23l617 ---|* EXIT CONTROL STATEMENT ARGUMENTS SET IN *ARGLIST*. 00289 M01S00020.v23l617 +++|* EXIT COMMAND ARGUMENTS SET IN *ARGLIST*. 00290 M01S00258.probe +++|* 00291 M01S00259.probe +++|* MESSAGES 00292 M01S00260.probe +++|*
| Line S00261 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00293 M02S00261.v23l617 ---|* *PROBE* CONTROL STATEMENT ERROR.
| Line S00262 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00294 M02S00262.v23l617 ---|* AN ERROR HAS BEEN DETECTED WITHIN THE CONTROL
| Line S00263 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00295 M02S00263.v23l617 ---|* STATEMENT. CORRECT THE CONTROL STATEMENT AND
| Line S00264 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00296 M02S00264.v23l617 ---|* RETRY. 00297 M01S00021.v23l617 +++|* *PROBE* COMMAND ERROR. 00298 M01S00022.v23l617 +++|* AN ERROR HAS BEEN DETECTED WITHIN THE COMMAND. 00299 M01S00023.v23l617 +++|* CORRECT THE COMMAND AND RETRY. 00300 M01S00265.probe +++|* 00301 M01S00266.probe +++|* ERROR IN *OP* SPECIFICATIONS.
| Line S00267 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00302 M02S00267.v23l617 ---|* THE *OP* PARAMETER HAS AN ILLEGAL OPTION 00303 M01S00024.v23l617 +++|* THE *OP* PARAMETER HAS AN INCORRECT OPTION 00304 M01S00268.probe +++|* SPECIFIED. CORRECT AND RETRY. 00305 M01S00269.probe +++|* 00306 M01S00270.probe +++|* ERROR IN *LO* SPECIFICATION.
| Line S00271 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00307 M02S00271.v23l617 ---|* THE LIST OPTION PARAMETER HAS AN ILLEGAL 00308 M01S00025.v23l617 +++|* THE LIST OPTION PARAMETER HAS AN INCORRECT 00309 M01S00272.probe +++|* OPTION SPECIFIED. CORRECT AND RETRY. 00310 M01S00273.probe +++|* 00311 M01S00274.probe +++|* DUPLICATE FILE NAME ERROR. 00312 M01S00275.probe +++|* THE FILES FOR INPUT AND OUTPUT HAVE THE 00313 M01S00276.probe +++|* SAME NAME. CHANGE AND RETRY. 00314 M01S00277.probe +++|*
| Line S00278 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00315 M02S00278.v23l617 ---|* CONTROL CARD OPTION MISMATCH. 00316 M01S00026.v23l617 +++|* COMMAND OPTION MISMATCH. 00317 M01S00279.probe +++|* THE *OP* PARAMETERS, *R* OR *C*, ARE SPECIFIED 00318 M01S00280.probe +++|* WITHOUT A *P* PARAMETER BEING SPECIFIED. 00319 M01S00281.probe +++|* CORRECT AND RETRY. 00320 M01S00282.probe +++|* 00321 M01S00283.probe +++|* NOTES 00322 M01S00284.probe +++|* 00323 M01S00285.probe +++|* THERE IS A CALL TO THE PRESET ROUTINE TO 00324 M01S00286.probe +++|* PRESET ALL THE COMMON BLOCKS. 00325 M01S00287.probe +++|# 00326 M01S00288.probe +++| 00327 M01S00289.probe +++| 00328 M01S00290.probe +++|# 00329 M01S00291.probe +++|**** PROC CSARG - XREF LIST BEGIN. 00330 M01S00292.probe +++|# 00331 M01S00293.probe +++| 00332 M01S00294.probe +++| XREF 00333 M01S00295.probe +++| BEGIN 00334 M01S00296.probe +++| PROC ABORT; # ABNORMAL TERMINATION # 00335 M01S00297.probe +++| PROC MESSAGE; # OUTPUT DAYFILE MESSAGE # 00336 M01S00298.probe +++| PROC PRESET; # PRESET CONSTANTS # 00337 M01S00299.probe +++| PROC RPHEAD; # OUTPUT PAGE HEADER # 00338 M01S00300.probe +++| PROC RPOPEN; # OPEN FILE #
| Line S00301 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00339 M02S00301.v23l617 ---| PROC XARG; # CRACK CONTROL STATEMENT # 00340 M01S00027.v23l617 +++| PROC XARG; # CRACK COMMAND # 00341 M01S00302.probe +++| END 00342 M01S00303.probe +++| 00343 M01S00304.probe +++|# 00344 M01S00305.probe +++|**** PROC CSARG - XREF LIST END. 00345 M01S00306.probe +++|# 00346 M01S00307.probe +++| 00347 M01S00308.probe +++| DEF OPTION #0#; # *ASARG* OPTION # 00348 M01S00309.probe +++| 00349 M01S00310.probe +++| DEF LISTCON #0#; # COMMON DECK LIST OPTION # 00350 M01S00311.probe +++|*CALL COMAMSS 00351 M01S00312.probe +++|*CALL COMSPDT 00352 M01S00313.probe +++|*CALL COMUOUT 00353 M01S00314.probe +++|*CALL COMUPRB 00354 M01S00315.probe +++| 00355 M01S00316.probe +++| 00356 M01S00317.probe +++| ITEM ARGLIST U; # ARGUMENT TABLE ADDRESS # 00357 M01S00318.probe +++| ITEM FLAG U; # ERROR FLAG FROM *ASARG* # 00358 M01S00319.probe +++| 00359 M01S00320.probe +++|# 00360 M01S00321.probe +++|* ERROR MESSAGES. 00361 M01S00322.probe +++|# 00362 M01S00323.probe +++| 00363 M01S00324.probe +++| ARRAY MSG [0:5] S(4); 00364 M01S00325.probe +++| BEGIN 00365 M01S00326.probe +++| ITEM MSG$TEXT C(00,00,38) = [ ##
| Line S00327 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00366 M02S00327.v23l617 ---| " *PROBE* CONTROL STATEMENT ERROR.", ## 00367 M01S00028.v23l617 +++| " *PROBE* COMMAND ERROR.", ## 00368 M01S00328.probe +++| " ERROR IN *OP* SPECIFICATION.", ## 00369 M01S00329.probe +++| " ERROR IN *LO* SPECIFICATION.", ## 00370 M01S00330.probe +++| " DUPLICATE FILE NAME ERROR.", ## 00371 M01S00331.probe +++| "PROBE VERSION 1.0.", ##
| Line S00332 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00372 M02S00332.v23l617 ---| " CONTROL CARD OPTION MISMATCH."]; # # 00373 M01S00029.v23l617 +++| " COMMAND OPTION MISMATCH."]; # # 00374 M01S00333.probe +++| ITEM MSG$TERM U(03,48,12) = [6(0)]; # MESSAGE TERMINATOR # 00375 M01S00334.probe +++| END 00376 M01S00335.probe +++| 00377 M01S00336.probe +++| CONTROL EJECT; 00378 M01S00337.probe +++|#
| Line S00338 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00379 M02S00338.v23l617 ---|* CRACK CONTROL CARD AND VALIDATE OPTIONS. 00380 M01S00030.v23l617 +++|* CRACK COMMAND AND VALIDATE OPTIONS. 00381 M01S00339.probe +++|# 00382 M01S00340.probe +++| 00383 M01S00341.probe +++| PRESET(ARGLIST); # PRESET ARGUMENTS AND COMMON 00384 M01S00342.probe +++| BLOCKS #
| Line S00343 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00385 M02S00343.v23l617 ---| XARG(ARGLIST,OPTION,FLAG); # CRACK CONTROL STATEMENT # 00386 M01S00031.v23l617 +++| XARG(ARGLIST,OPTION,FLAG); # CRACK COMMAND # 00387 M01S00344.probe +++| 00388 M01S00345.probe +++| IF FLAG NQ 0
| Line S00346 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00389 M02S00346.v23l617 ---| THEN # CONTROL CARD ERROR # 00390 M01S00032.v23l617 +++| THEN # COMMAND ERROR # 00391 M01S00347.probe +++| BEGIN 00392 M01S00348.probe +++| MESSAGE(MSG[0],SYSUDF1); 00393 M01S00349.probe +++| ABORT; 00394 M01S00350.probe +++| END 00395 M01S00351.probe +++| 00396 M01S00352.probe +++| IF ARG$L[0] NQ 0 00397 M01S00353.probe +++| THEN 00398 M01S00354.probe +++| BEGIN 00399 M01S00355.probe +++| RPOPEN(ARG$L,LOC(OUTFET),DEFLT$HDR); # OPEN FILE # 00400 M01S00356.probe +++| RPHEAD(LOC(OUTFET),MSG$TEXT[4],5,19); # PAGE HEADER # 00401 M01S00357.probe +++| END 00402 M01S00358.probe +++| 00403 M01S00359.probe +++|# 00404 M01S00360.probe +++|* CHECK PROCESSING OPTION. 00405 M01S00361.probe +++|# 00406 M01S00362.probe +++| 00407 M01S00363.probe +++| 00408 M01S00364.probe +++| IF ARG$OP[0] NQ "P" ## 00409 M01S00365.probe +++| AND ARG$OP[0] NQ "R" ## 00410 M01S00366.probe +++| AND ARG$OP[0] NQ "C" ## 00411 M01S00367.probe +++| THEN 00412 M01S00368.probe +++| BEGIN 00413 M01S00369.probe +++| MESSAGE(MSG[1],SYSUDF1); # ERROR IN *OP* SPECIFICATIONS # 00414 M01S00370.probe +++| ABORT; 00415 M01S00371.probe +++| END 00416 M01S00372.probe +++| 00417 M01S00373.probe +++|# 00418 M01S00374.probe +++|* CHECK SORT OPTION. 00419 M01S00375.probe +++|# 00420 M01S00376.probe +++| 00421 M01S00377.probe +++| IF ARG$LO[0] NQ "F" ## 00422 M01S00378.probe +++| AND ARG$LO[0] NQ "R" ## 00423 M01S00379.probe +++| AND ARG$LO[0] NQ "A" ## 00424 M01S00380.probe +++| THEN 00425 M01S00381.probe +++| BEGIN 00426 M01S00382.probe +++| MESSAGE(MSG[2],SYSUDF1); # ERROR IN *LO* SPECIFICATION # 00427 M01S00383.probe +++| ABORT; 00428 M01S00384.probe +++| END 00429 M01S00385.probe +++| 00430 M01S00386.probe +++|# 00431 M01S00387.probe +++|* CHECK FOR FILE UNIQUENESS. 00432 M01S00388.probe +++|# 00433 M01S00389.probe +++| 00434 M01S00390.probe +++| IF (ARG$OP[0] EQ "P" AND ARG$L[0] EQ ARG$B[0]) ## 00435 M01S00391.probe +++| OR ((ARG$OP EQ "R" OR ARG$OP[0] EQ "C") ## 00436 M01S00392.probe +++| AND (ARG$P[0] EQ ARG$L[0])) ## 00437 M01S00393.probe +++| THEN 00438 M01S00394.probe +++| BEGIN 00439 M01S00395.probe +++| MESSAGE(MSG[3],SYSUDF1); # DUPLICATE FILE NAME ERROR # 00440 M01S00396.probe +++| ABORT; 00441 M01S00397.probe +++| END 00442 M01S00398.probe +++| 00443 M01S00399.probe +++|# 00444 M01S00400.probe +++|* CHECK FILE FOR OPTION MISMATCH. 00445 M01S00401.probe +++|# 00446 M01S00402.probe +++| 00447 M01S00403.probe +++| IF((ARG$OP[0] EQ "R" OR ARG$OP[0] EQ "C") ## 00448 M01S00404.probe +++| AND ARG$P[0] EQ 0) ## 00449 M01S00405.probe +++| THEN 00450 M01S00406.probe +++| BEGIN
| Line S00407 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00451 M02S00407.v23l617 ---| MESSAGE(MSG[5],SYSUDF1); # CONTROL CARD OPTION MISMATCH # 00452 M01S00033.v23l617 +++| MESSAGE(MSG[5],SYSUDF1); # COMMAND OPTION MISMATCH # 00453 M01S00408.probe +++| ABORT; 00454 M01S00409.probe +++| END 00455 M01S00410.probe +++| 00456 M01S00411.probe +++| RETURN; 00457 M01S00412.probe +++| END # CSARG # 00458 M01S00413.probe +++| 00459 M01S00414.probe +++| TERM 00460 M01S00415.probe +++|PROC INPUT; 00461 M01S00416.probe +++|# TITLE INPUT - INPUT OF RAW DATA. # 00462 M01S00417.probe +++| BEGIN # INPUT # 00463 M01S00418.probe +++| 00464 M01S00419.probe +++|# 00465 M01S00420.probe +++|** INPUT - RAW DATA INPUT. 00466 M01S00421.probe +++|* 00467 M01S00422.probe +++|* *INPUT* IS USED TO INPUT RAW DATA FILES TO *PROBE* EITHER 00468 M01S00423.probe +++|* GENERATED BY *SFM* FROM THE SYSTEM TABLES (THIS MAKES 00469 M01S00424.probe +++|* THE DATA CURRENT) OR READ FROM A FILE CREATED BY A 00470 M01S00425.probe +++|* PREVIOUS *PROBE* RUN. 00471 M01S00426.probe +++|* 00472 M01S00427.probe +++|* THE INDIVIDUAL METHODS INVOLVE: 00473 M01S00428.probe +++|* 00474 M01S00429.probe +++|* 1. *SFM* CALL. 00475 M01S00430.probe +++|* 00476 M01S00431.probe +++|* A. THE CREATION OF AN RA + 1 REQUEST. 00477 M01S00432.probe +++|* 00478 M01S00433.probe +++|* B. THE ISSUING OF THE REQUEST. 00479 M01S00434.probe +++|* 00480 M01S00435.probe +++|* C. THE TRANSFER OF THE CONTENTS OF THE *SFM* 00481 M01S00436.probe +++|* BUFFER TO THE WORKING BUFFERS. 00482 M01S00437.probe +++|* 00483 M01S00438.probe +++|* 2. PREVIOUSLY CREATED FILE. 00484 M01S00439.probe +++|* 00485 M01S00440.probe +++|* A. DETERMINES WHICH FILE IS TO BE READ. 00486 M01S00441.probe +++|* 00487 M01S00442.probe +++|* B. READS IN THE FILE. 00488 M01S00443.probe +++|* 00489 M01S00444.probe +++|* C. TRANSFERS THE FILE TO THE WORKING BUFFER 00490 M01S00445.probe +++|* AND SETS THE *FET* POINTERS. 00491 M01S00446.probe +++|* 00492 M01S00447.probe +++|* PROC INPUT 00493 M01S00448.probe +++|* 00494 M01S00449.probe +++|* EXIT DATA READ IN. 00495 M01S00450.probe +++|* 00496 M01S00451.probe +++|* MESSAGES 00497 M01S00452.probe +++|* 00498 M01S00453.probe +++|* NO VERSION DATA ON FILE. 00499 M01S00454.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00455 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00500 M02S00455.v23l617 ---|* CONTROL CARD HAS NO VERSION DATA. CHECK 00501 M01S00034.v23l617 +++|* COMMAND HAS NO VERSION DATA. CHECK 00502 M01S00456.probe +++|* FILE FOR CORRECTNESS. 00503 M01S00457.probe +++|*
| Line S00458 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00504 M02S00458.v23l617 ---|* NO *SDAL* DATA ON FILE. 00505 M01S00035.v23l617 +++|* NO STATISTICAL AREA DATA ON FILE. 00506 M01S00459.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00460 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00507 M02S00460.v23l617 ---|* CONTROL CARD HAS NO *SDAL* DATA. CHECK FILE
| Line S00461 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00508 M02S00461.v23l617 ---|* FOR CORRECTNESS. 00509 M01S00036.v23l617 +++|* COMMAND HAS NO STATISTICAL DATA AREA DATA. 00510 M01S00037.v23l617 +++|* CHECK FILE FOR CORRECTNESS. 00511 M01S00462.probe +++|* 00512 M01S00463.probe +++|* NO *PROBE* DATA ON FILE. 00513 M01S00464.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00465 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00514 M02S00465.v23l617 ---|* CONTROL CARD HAS NO *PROBE* DATA. CHECK 00515 M01S00038.v23l617 +++|* COMMAND HAS NO *PROBE* DATA. CHECK 00516 M01S00466.probe +++|* FILE FOR CORRECTNESS. 00517 M01S00467.probe +++|* 00518 M01S00468.probe +++|* NO *PROBE* DATA AVAILABLE. 00519 M01S00469.probe +++|* THE SYSTEM FAILED TO RETURN ANY DATA. NO REPORT 00520 M01S00470.probe +++|* WILL BE GENERATED NOR WILL A FILE BE CREATED. 00521 M01S00471.probe +++|* 00522 M01S00472.probe +++|* *PROBE* VERSION MISMATCH. 00523 M01S00473.probe +++|* THE VERSION UNDER WHICH THE DATA WAS BUILT 00524 M01S00474.probe +++|* IS NOT THE CURRENT *PROBE* VERSION. 00525 M01S00475.probe +++|# 00526 M01S00476.probe +++| 00527 M01S00477.probe +++|# 00528 M01S00478.probe +++|**** PROC INPUT - XREF LIST BEGIN. 00529 M01S00479.probe +++|# 00530 M01S00480.probe +++| 00531 M01S00481.probe +++| XREF 00532 M01S00482.probe +++| BEGIN 00533 M01S00483.probe +++| PROC ABORT; # ABNORMAL TERMINATION # 00534 M01S00484.probe +++| PROC DATE; # GET CURRENT DATE # 00535 M01S00485.probe +++| PROC MESSAGE; # OUTPUT DAYFILE MESSAGE # 00536 M01S00486.probe +++| PROC READ; # READ IN FILE # 00537 M01S00487.probe +++| PROC READW; # READ TO WORKING BUFFER # 00538 M01S00488.probe +++| PROC REWIND; # REWIND FILE # 00539 M01S00489.probe +++| PROC SYSTEM; # CALL TO SYSTEM # 00540 M01S00490.probe +++| PROC TIME; # GET CURRENT TIME # 00541 M01S00491.probe +++| PROC WRITER; # WRITE TO FILE # 00542 M01S00492.probe +++| PROC WRITEW; # FLUSH WORKING BUFFER # 00543 M01S00493.probe +++| PROC ZSETFET; # SET UP FET # 00544 M01S00494.probe +++| END 00545 M01S00495.probe +++| 00546 M01S00496.probe +++|# 00547 M01S00497.probe +++|**** PROC INPUT - XREF LIST END. 00548 M01S00498.probe +++|# 00549 M01S00499.probe +++|
| Line S00500 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00550 M02S00500.251l664 ---|#
| Line S00501 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00551 M02S00501.251l664 ---|* *SFM* FUNCTION AND SUBFUNCTION DEFINITIONS.
| Line S00502 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00552 M02S00502.251l664 ---|#
| Line S00503 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00553 M02S00503.251l664 ---|
| Line S00504 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00554 M02S00504.251l664 ---| DEF RDDF #1#; # DAYFILE DATA #
| Line S00505 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00555 M02S00505.251l664 ---| DEF SDIF #2#; # STATISTICAL DATA INFORMATION #
| Line S00506 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00556 M02S00506.251l664 ---| DEF PDAF #3#; # *PROBE* DATA TABLES #
| Line S00507 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00557 M02S00507.251l664 ---| DEF PDLF #4#; # *PROBE* DATA TABLE LENGTH #
| Line S00508 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00558 M02S00508.251l664 ---| DEF MXSF #5#; # END OF *SFM* FUNCTIONS #
| Line S00509 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00559 M02S00509.251l664 ---|
| Line S00510 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00560 M02S00510.251l664 ---| DEF RSDF #O"22"#; # *SFM* FUNCTION CODE # 00561 M01S00511.probe +++| 00562 M01S00512.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL # 00563 M01S00513.probe +++|*CALL COMAMSS 00564 M01S00514.probe +++|*CALL COMAFET 00565 M01S00515.probe +++|*CALL COMSPDT 00566 M01S00516.probe +++|*CALL COMUPRB 00567 M01S00517.probe +++| 00568 M01S00518.probe +++| ITEM STAT I; # READ STATUS # 00569 M01S00519.probe +++| ITEM TEMP1 I; # TEMPORARY CELL # 00570 M01S00520.probe +++| 00571 M01S00521.probe +++| 00572 M01S00522.probe +++|# 00573 M01S00523.probe +++|* ERROR MESSAGES. 00574 M01S00524.probe +++|# 00575 M01S00525.probe +++| 00576 M01S00526.probe +++| ARRAY MSA [0:4] S(3); 00577 M01S00527.probe +++| BEGIN 00578 M01S00528.probe +++| ITEM MSA$TEXT C(00,00,28) = [ ## 00579 M01S00529.probe +++| " NO VERSION DATA ON FILE.", # NO VERSION DATA ON FILE #
| Line S00530 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00580 M02S00530.v23l617 ---| " NO *SDAL* DATA ON FILE.", # NO *SDAL* DATA ON FILE # 00581 M01S00039.v23l617 +++| " NO STATISTICAL AREA DATA ON FILE.", # NO STATISTICAL DATA # 00582 M01S00531.probe +++| " NO *PROBE* DATA ON FILE.", # NO *PROBE* DATA ON FILE # 00583 M01S00532.probe +++| " NO *PROBE* DATA AVAILABLE.", # NO *PROBE* DATA AVAILABLE # 00584 M01S00533.probe +++| " *PROBE* VERSION MISMATCH."]; # *PROBE* VERSION MISMATCH # 00585 M01S00534.probe +++| ITEM MSA$TERM U(02,48,12) = [5(0)]; # MESSAGE TERMINATOR # 00586 M01S00535.probe +++| END 00587 M01S00536.probe +++|
| Line S00537 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00588 M02S00537.251l664 ---|#
| Line S00538 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
M03 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00589 M03S00538.251l664 ---|* *SFM* RA+1 CALL BUILD BUFFER.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00590 M02S00040.251l664 ---|* *SFM* SYSTEM REQUEST CALL BUILD BUFFER.
| Line S00539 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00591 M02S00539.251l664 ---|#
| Line S00540 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00592 M02S00540.251l664 ---|
| Line S00541 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
M03 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00593 M03S00541.251l664 ---| ARRAY SFMCALL [0:0] S(1); # SFM RA+1 CALL #
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00594 M02S00041.251l664 ---| ARRAY SFMCALL [0:0] S(1); # SFM SYSTEM REQUEST CALL #
| Line S00542 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00595 M02S00542.251l664 ---| BEGIN
| Line S00543 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00596 M02S00543.251l664 ---| ITEM SFM$NAME C(00,00,04) = ["SFMP"]; # PROGRAM NAME #
| Line S00544 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00597 M02S00544.251l664 ---| ITEM SFM$FUNC U(00,24,12) = [RSDF]; # FUNCTION CODE #
| Line S00545 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00598 M02S00545.251l664 ---| ITEM SFM$ADDR U(00,42,18); # ADDRESS OF *FET* #
| Line S00546 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00599 M02S00546.251l664 ---| END 00600 M01S00012.251l664 +++|# 00601 M01S00013.251l664 +++|* *SFM* FUNCTION AND SUBFUNCTION DEFINITIONS. 00602 M01S00014.251l664 +++|# 00603 M01S00015.251l664 +++| 00604 M01S00016.251l664 +++| DEF IOSF #O"11"#; # *IOSF* SUBFUNCTION CODE # 00605 M01S00017.251l664 +++| DEF PDAF #O"03"#; # *PROBE* SUBFUNCTION CODE # 00606 M01S00018.251l664 +++| DEF RSDF #O"22"#; # *SFM* FUNCTION CODE # 00607 M01S00019.251l664 +++| DEF SDIF #O"02"#; # *SDA* SUBFUNCTION CODE # 00608 M01S00020.251l664 +++| 00609 M01S00021.251l664 +++|# 00610 M01S00022.251l664 +++|* *SFM* SYSTEM REQUEST PARAMETER BLOCK. 00611 M01S00023.251l664 +++|# 00612 M01S00024.251l664 +++| 00613 M01S00025.251l664 +++| ARRAY SFMCALL [0:0] S(1); # SFM SYSTEM REQUEST BLOCK # 00614 M01S00026.251l664 +++| BEGIN 00615 M01S00027.251l664 +++| ITEM SFMPRGNAME C(00,00,03) = ["SFM"]; 00616 M01S00028.251l664 +++| ITEM SFMRCALLBT U(00,18,06) = [O"20"]; 00617 M01S00029.251l664 +++| ITEM SFMFNCTION U(00,24,12) = [RSDF]; 00618 M01S00030.251l664 +++| ITEM SFMFETADDR U(00,42,18); 00619 M01S00031.251l664 +++| END 00620 M01S00547.probe +++| 00621 M01S00548.probe +++| CONTROL EJECT; 00622 M01S00549.probe +++| 00623 M01S00550.probe +++|# 00624 M01S00551.probe +++|* READ A PREVIOUSLY BUILT DATA FILE INTO 00625 M01S00552.probe +++|* THE TABLES SPECIFIED BY THE *B* PARAMETER. 00626 M01S00553.probe +++|# 00627 M01S00554.probe +++| 00628 M01S00555.probe +++| IF ARG$OP[0] EQ "P" 00629 M01S00556.probe +++| THEN # CHECK FOR PREVIOUSLY CREATED 00630 M01S00557.probe +++| FILE OPTION # 00631 M01S00558.probe +++| BEGIN # READ RAW DATA # 00632 M01S00559.probe +++| 00633 M01S00560.probe +++|# 00634 M01S00561.probe +++|* READ IN VERSION DATA. 00635 M01S00562.probe +++|# 00636 M01S00563.probe +++| 00637 M01S00564.probe +++| ZSETFET(LOC(BFET[0]),ARG$B[0],LOC(CBUF[0]),CBUFL,RFETL); 00638 M01S00565.probe +++| 00639 M01S00566.probe +++| IF ARG$R[0] NQ 0 ## 00640 M01S00567.probe +++| THEN # REWIND FILE # 00641 M01S00568.probe +++| BEGIN 00642 M01S00569.probe +++| REWIND(BFET[0],RCL); 00643 M01S00570.probe +++| END 00644 M01S00571.probe +++| 00645 M01S00572.probe +++| READ(BFET[0],RCL); 00646 M01S00573.probe +++| 00647 M01S00574.probe +++| SFM$LEN[VRSN] = FET$IN[0] - FET$OUT[0]; # SET BUFFER LENGTH # 00648 M01S00575.probe +++| 00649 M01S00576.probe +++| READW(BFET[0],VBUF[0],VBUFL,STAT); 00650 M01S00577.probe +++| IF STAT LS 0 00651 M01S00578.probe +++| THEN # CHECK FOR EMPTY FILE # 00652 M01S00579.probe +++| BEGIN 00653 M01S00580.probe +++| MESSAGE(MSA[0],SYSUDF1); # NO VERSION DATA ON FILE # 00654 M01S00581.probe +++| ABORT; 00655 M01S00582.probe +++| END 00656 M01S00583.probe +++| 00657 M01S00584.probe +++| SFM$BUFF[VRSN] = LOC(VBUF); # SET BUFFER ADDRESS # 00658 M01S00585.probe +++| 00659 M01S00586.probe +++| IF VBUF$VRSN[0] NQ VERS$PVER 00660 M01S00587.probe +++| THEN # CHECK FOR MATCHING VERSIONS # 00661 M01S00588.probe +++| BEGIN 00662 M01S00589.probe +++| MESSAGE(MSA[4],SYSUDF1); # *PROBE* VERSION MISMATCH # 00663 M01S00590.probe +++| ABORT; 00664 M01S00591.probe +++| END 00665 M01S00592.probe +++| 00666 M01S00593.probe +++|# 00667 M01S00594.probe +++|* READ IN STATISTICAL DATA. 00668 M01S00595.probe +++|# 00669 M01S00596.probe +++| 00670 M01S00597.probe +++| FET$IN[0] = FET$FRST[0]; # RESET FET POINTERS # 00671 M01S00598.probe +++| FET$OUT[0] = FET$IN[0]; 00672 M01S00599.probe +++| READ(BFET[0],RCL); 00673 M01S00600.probe +++|
| Line S00601 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00674 M02S00601.v23l617 ---| SFM$LEN[SDAL] = FET$IN[0] - FET$OUT[0]; # SET BUFFER LENGTH # 00675 M01S00042.v23l617 +++| SFM$LEN[SDA] = FET$IN[0] - FET$OUT[0]; # SET BUFFER LENGTH # 00676 M01S00602.probe +++| 00677 M01S00603.probe +++| READW(BFET[0],SBUF[0],SBUFL,STAT); 00678 M01S00604.probe +++| 00679 M01S00605.probe +++| IF STAT LS 0 00680 M01S00606.probe +++| THEN # CHECK FOR EMPTY FILE # 00681 M01S00607.probe +++| BEGIN
| Line S00608 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00682 M02S00608.v23l617 ---| MESSAGE(MSA[1],SYSUDF1); # NO *SDAL* DATA ON FILE # 00683 M01S00043.v23l617 +++| MESSAGE(MSA[1],SYSUDF1); # NO STATISTICAL AREA DATA 00684 M01S00044.v23l617 +++| ON FILE # 00685 M01S00609.probe +++| ABORT; 00686 M01S00610.probe +++| END 00687 M01S00611.probe +++|
| Line S00612 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00688 M02S00612.v23l617 ---| SFM$BUFF[SDAL] = LOC(SBUF); # SET BUFFER ADDRESS # 00689 M01S00045.v23l617 +++| SFM$BUFF[SDA] = LOC(SBUF); # SET BUFFER ADDRESS # 00690 M01S00613.probe +++| 00691 M01S00614.probe +++|# 00692 M01S00615.probe +++|* READ IN *PROBE* DATA. 00693 M01S00616.probe +++|# 00694 M01S00617.probe +++| 00695 M01S00618.probe +++| FET$IN[0] = FET$FRST[0]; # RESET FET POINTERS # 00696 M01S00619.probe +++| FET$OUT[0] = FET$IN[0]; 00697 M01S00620.probe +++| 00698 M01S00621.probe +++| READ(BFET[0],RCL); 00699 M01S00622.probe +++| 00700 M01S00623.probe +++| SFM$LEN[PROBE] = FET$IN[0] - FET$OUT[0]; # SET BUFFER LENGTH # 00701 M01S00624.probe +++| 00702 M01S00625.probe +++| READW(BFET[0],PBUF[0],PBUFL,STAT); 00703 M01S00626.probe +++| IF STAT LS 0 00704 M01S00627.probe +++| THEN # CHECK FOR EMPTY FILE # 00705 M01S00628.probe +++| BEGIN 00706 M01S00629.probe +++| MESSAGE(MSA[2],SYSUDF1); # NO *PROBE* DATA ON FILE # 00707 M01S00630.probe +++| ABORT; 00708 M01S00631.probe +++| END 00709 M01S00632.probe +++| 00710 M01S00633.probe +++| SFM$BUFF[PROBE] = LOC(PBUF); 00711 M01S00634.probe +++| 00712 M01S00032.251l664 +++|# 00713 M01S00033.251l664 +++|* READ IN INPUT/OUTPUT STATISTICS. 00714 M01S00034.251l664 +++|# 00715 M01S00035.251l664 +++| 00716 M01S00036.251l664 +++| FET$IN[0] = FET$FRST[0]; # RESET FET POINTERS, READ DATA # 00717 M01S00037.251l664 +++| FET$OUT[0] = FET$IN[0]; 00718 M01S00038.251l664 +++| 00719 M01S00039.251l664 +++| READ(BFET[0],RCL); 00720 M01S00040.251l664 +++| 00721 M01S00041.251l664 +++| SFM$LEN[IOS] = FET$IN[0] - FET$OUT[0]; 00722 M01S00042.251l664 +++| 00723 M01S00043.251l664 +++| READW(BFET[0],IBUF[0],IBUFL,STAT); 00724 M01S00044.251l664 +++| IF STAT LS 0 THEN 00725 M01S00045.251l664 +++| BEGIN # IF NO INPUT/OUTPUT DATA # 00726 M01S00046.251l664 +++| SFM$AVBL[IOS] = TRUE; 00727 M01S00047.251l664 +++| END 00728 M01S00048.251l664 +++| ELSE 00729 M01S00049.251l664 +++| BEGIN # INPUT/OUTPUT DATA # 00730 M01S00050.251l664 +++| SFM$AVBL[IOS] = FALSE; 00731 M01S00051.251l664 +++| END 00732 M01S00052.251l664 +++| 00733 M01S00053.251l664 +++| SFM$BUFF[IOS] = LOC(IBUF); 00734 M01S00054.251l664 +++| 00735 M01S00635.probe +++| IF ARG$R[0] NQ 0 ## 00736 M01S00636.probe +++| THEN # REWIND FILE # 00737 M01S00637.probe +++| BEGIN 00738 M01S00638.probe +++| REWIND(BFET[0],RCL); 00739 M01S00639.probe +++| END 00740 M01S00640.probe +++| 00741 M01S00641.probe +++| RETURN ; 00742 M01S00642.probe +++| END # READ RAW DATA # 00743 M01S00643.probe +++| 00744 M01S00644.probe +++|# 00745 M01S00645.probe +++|* BUILD VERSION TABLE. 00746 M01S00646.probe +++|#
| Line S00647 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00747 M02S00647.251l664 ---|
| Line S00648 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
M03 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00748 M03S00648.251l664 ---| SFM$SFNC[SDAL] = SDIF; # SET *SFM* SUBFUNCTION CODES #
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00749 M02S00046.251l664 ---| SFM$SFNC[SDA] = SDIF; # SET *SFM* SUBFUNCTION CODES #
| Line S00649 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00750 M02S00649.251l664 ---| SFM$SFNC[PROBE] = PDAF; 00751 M01S00650.probe +++| TIME(VBUF$CLOCK); # CURRENT TIME # 00752 M01S00651.probe +++| DATE(VBUF$DATE); # CURRENT DATE # 00753 M01S00652.probe +++| VBUF$VRSN[0] = VERS$PVER; # CURRENT *PROBE* VERSION # 00754 M01S00653.probe +++| 00755 M01S00654.probe +++|# 00756 M01S00655.probe +++|* BUILD STATISTICAL DATA AND *PROBE* DATA TABLES. 00757 M01S00656.probe +++|# 00758 M01S00657.probe +++|
| Line S00658 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00759 M02S00658.251l664 ---| SFM$LEN[VRSN] = 5; # SET LENGTH OF VERSION BUFFER #
| Line S00659 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00760 M02S00659.251l664 ---| SFM$BUFF[VRSN] = LOC(VBUF); # SET FWA OF VERSION BUFFER # 00761 M01S00660.probe +++| IF ARG$OP[0] EQ "R" 00762 M01S00661.probe +++| THEN # CHECK FOR READ OPTION # 00763 M01S00662.probe +++| BEGIN 00764 M01S00663.probe +++| TEMP1 = 1; # READ *PROBE* DATA TABLES # 00765 M01S00664.probe +++| END 00766 M01S00665.probe +++| 00767 M01S00666.probe +++| IF ARG$OP[0] EQ "C" 00768 M01S00667.probe +++| THEN # CHECK FOR READ/CLEAR OPTION # 00769 M01S00668.probe +++| BEGIN 00770 M01S00669.probe +++| TEMP1 = 3; # READ AND CLEAR *PROBE* DATA 00771 M01S00670.probe +++| TABLES # 00772 M01S00671.probe +++| END 00773 M01S00672.probe +++|
| Line S00673 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00774 M02S00673.v23l617 ---| SFM$RDWR[SDAL] = TEMP1; # SET OPTION TO RETURN/CLEAR
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00775 M02S00047.251l664 ---| SFM$RDWR[SDA] = TEMP1; # SET OPTION TO RETURN/CLEAR
| Line S00674 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00776 M02S00674.251l664 ---| TABLES #
| Line S00675 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00777 M02S00675.251l664 ---| SFM$RDWR[PROBE] = TEMP1;
| Line S00676 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
M03 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00778 M03S00676.251l664 ---| SFM$LEN[SDAL] = SBUFL; # SET LENGTH OF SDAL BUFFER #
| Line S00677 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
M03 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00779 M03S00677.251l664 ---| SFM$BUFF[SDAL] = LOC(SBUF); # SET FWA OF BUFFERS #
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00780 M02S00048.251l664 ---| SFM$LEN[SDA] = SBUFL; # SET LENGTH OF STATISTICAL DATA
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00781 M02S00049.251l664 ---| AREA BUFFER #
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00782 M02S00050.251l664 ---| SFM$BUFF[SDA] = LOC(SBUF); # SET FWA OF BUFFERS #
| Line S00678 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00783 M02S00678.251l664 ---| SFM$LEN[PROBE] = PBUFL; # SET LENGTH OF PROBE BUFFER #
| Line S00679 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00784 M02S00679.251l664 ---| SFM$BUFF[PROBE] = LOC(PBUF);
| Line S00680 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00785 M02S00680.251l664 ---|
| Line S00681 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
M03 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00786 M03S00681.251l664 ---| SFM$ADDR[0] = LOC(SFMBLOCK[SDAL]); # SET ADDRESS IN RA+1 CALL #
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00787 M02S00051.251l664 ---| SFM$ADDR[0] = LOC(SFMBLOCK[SDA]); # SET ADDRESS IN RA+1 CALL #
| Line S00682 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00788 M02S00682.251l664 ---| SYSTEM(SFMCALL,RCL); # CALL *SFM* TO RETURN SYSTEM DATA
| Line S00683 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00789 M02S00683.251l664 ---| # 00790 M01S00055.251l664 +++| SFM$RDWR[SDA] = TEMP1; # SET TO RETURN OR CLEAR TABLES # 00791 M01S00056.251l664 +++| SFM$RDWR[PROBE] = TEMP1; 00792 M01S00057.251l664 +++| 00793 M01S00058.251l664 +++| SFM$SFNC[IOS] = IOSF; # SET *SFM* SUBFUNCTION CODES # 00794 M01S00059.251l664 +++| SFM$SFNC[SDA] = SDIF; 00795 M01S00060.251l664 +++| SFM$SFNC[PROBE] = PDAF; 00796 M01S00061.251l664 +++| 00797 M01S00062.251l664 +++| SFM$LEN[VRSN] = 5; # SET BUFFER LENGTHS # 00798 M01S00063.251l664 +++| SFM$LEN[IOS] = IBUFL; 00799 M01S00064.251l664 +++| SFM$LEN[SDA] = SBUFL; 00800 M01S00065.251l664 +++| SFM$LEN[PROBE] = PBUFL; 00801 M01S00066.251l664 +++| 00802 M01S00067.251l664 +++| SFM$BUFF[VRSN] = LOC(VBUF); # SET FWA-S # 00803 M01S00068.251l664 +++| SFM$BUFF[IOS] = LOC(IBUF); 00804 M01S00069.251l664 +++| SFM$BUFF[SDA] = LOC(SBUF); 00805 M01S00070.251l664 +++| SFM$BUFF[PROBE] = LOC(PBUF); 00806 M01S00071.251l664 +++| 00807 M01S00072.251l664 +++| SFMFETADDR[0] = LOC(SFMBLOCK[VRSN+1]); 00808 M01S00073.251l664 +++| SYSTEM(SFMCALL,RCL); # CALL *SFM*, RETURN SYSTEM DATA # 00809 M01S00074.251l664 +++| 00810 M01S00684.probe +++| 00811 M01S00685.probe +++| IF ARG$P[0] EQ 0 00812 M01S00686.probe +++| THEN 00813 M01S00687.probe +++| BEGIN # CHECK FOR ARCHIVE FILE # 00814 M01S00688.probe +++| RETURN; 00815 M01S00689.probe +++| END # CHECK FOR ARCHIVE FILE # 00816 M01S00690.probe +++| 00817 M01S00691.probe +++| IF SFM$AVBL[PROBE] 00818 M01S00692.probe +++| THEN 00819 M01S00693.probe +++| BEGIN # NO *PROBE* DATA AVAILABLE # 00820 M01S00694.probe +++| MESSAGE(MSA[3],SYSUDF1); 00821 M01S00695.probe +++| ABORT; 00822 M01S00696.probe +++| END # NO *PROBE* DATA AVAILABLE # 00823 M01S00697.probe +++| 00824 M01S00698.probe +++|# 00825 M01S00699.probe +++|* WRITE TABLES TO FILE SPECIFIED BY *P* PARAMETER. 00826 M01S00700.probe +++|# 00827 M01S00701.probe +++| 00828 M01S00702.probe +++| IF ARG$P[0] NQ 0 00829 M01S00703.probe +++| THEN 00830 M01S00704.probe +++| BEGIN # WRITE ARCHIVE FILE # 00831 M01S00705.probe +++| ZSETFET(LOC(BFET[0]),ARG$P[0],LOC(CBUF[0]),CBUFL,RFETL); 00832 M01S00706.probe +++| 00833 M01S00707.probe +++| IF ARG$R[0] NQ 0 00834 M01S00708.probe +++| THEN # REWIND FILE # 00835 M01S00709.probe +++| BEGIN 00836 M01S00710.probe +++| REWIND(BFET[0],RCL); 00837 M01S00711.probe +++| END 00838 M01S00712.probe +++| 00839 M01S00713.probe +++| WRITEW(BFET[0],VBUF[0],SFM$LEN[VRSN],STAT); 00840 M01S00714.probe +++| WRITER(BFET[0],RCL);
| Line S00715 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00841 M02S00715.v23l617 ---| IF NOT SFM$AVBL[SDAL] 00842 M01S00052.v23l617 +++| IF NOT SFM$AVBL[SDA] 00843 M01S00716.probe +++| THEN # NO DATA PRESENT # 00844 M01S00717.probe +++| BEGIN
| Line S00718 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00845 M02S00718.v23l617 ---| WRITEW(BFET[0],SBUF[0],SFM$LEN[SDAL],STAT); 00846 M01S00053.v23l617 +++| WRITEW(BFET[0],SBUF[0],SFM$LEN[SDA],STAT); 00847 M01S00719.probe +++| END 00848 M01S00720.probe +++| 00849 M01S00721.probe +++| WRITER(BFET[0],RCL); 00850 M01S00722.probe +++| 00851 M01S00723.probe +++| IF NOT SFM$AVBL[PROBE] 00852 M01S00724.probe +++| THEN # NO DATA PRESENT # 00853 M01S00725.probe +++| BEGIN 00854 M01S00726.probe +++| WRITEW(BFET[0],PBUF[0],SFM$LEN[PROBE],STAT); 00855 M01S00727.probe +++| END 00856 M01S00728.probe +++| 00857 M01S00729.probe +++| WRITER(BFET[0],RCL); 00858 M01S00730.probe +++| 00859 M01S00075.251l664 +++| IF NOT SFM$AVBL[IOS] THEN 00860 M01S00076.251l664 +++| BEGIN # IF *IOS* DATA PRESENT # 00861 M01S00077.251l664 +++| WRITEW(BFET[0],IBUF[0],SFM$LEN[IOS],STAT); 00862 M01S00078.251l664 +++| END 00863 M01S00079.251l664 +++| 00864 M01S00080.251l664 +++| WRITER(BFET[0],RCL); 00865 M01S00081.251l664 +++| 00866 M01S00731.probe +++| IF ARG$R[0] NQ 0 00867 M01S00732.probe +++| THEN # REWIND FILE # 00868 M01S00733.probe +++| BEGIN 00869 M01S00734.probe +++| REWIND(BFET[0],RCL); 00870 M01S00735.probe +++| END 00871 M01S00736.probe +++| 00872 M01S00737.probe +++| END # WRITE ARCHIVE FILE # 00873 M01S00738.probe +++| 00874 M01S00739.probe +++| RETURN; 00875 M01S00740.probe +++| END # INPUT # 00876 M01S00741.probe +++| 00877 M01S00742.probe +++| TERM 00878 M01S00743.probe +++|PROC RPTCIO; 00879 M01S00744.probe +++|# TITLE RPTCIO - GENERATE *CIO* REQUESTS REPORT. # 00880 M01S00745.probe +++| 00881 M01S00746.probe +++| BEGIN # RPTCIO # 00882 M01S00747.probe +++| 00883 M01S00748.probe +++|# 00884 M01S00749.probe +++|** RPTCIO - GENERATE *CIO* REQUESTS REPORT. 00885 M01S00750.probe +++|* 00886 M01S00751.probe +++|* THIS PROCEDURE WILL TAKE THE RAW DATA AND FORMAT IT 00887 M01S00752.probe +++|* INTO THE *CIO* REQUEST REPORT. IT WILL DELETE ALL 00888 M01S00753.probe +++|* OF THE FUNCTION CODES WHICH HAVE NO CALLS. 00889 M01S00754.probe +++|* 00890 M01S00755.probe +++|* PROC RPTCIO 00891 M01S00756.probe +++|* 00892 M01S00757.probe +++|* EXIT REPORT PRINTED. 00893 M01S00758.probe +++|* 00894 M01S00759.probe +++|* NOTES 00895 M01S00760.probe +++|* THE *TTCIO* TABLE IS FILLED OUT WITH THE NON EXISTENT 00896 M01S00761.probe +++|* FUNCTION CODES. 00897 M01S00762.probe +++|# 00898 M01S00763.probe +++| 00899 M01S00764.probe +++|# 00900 M01S00765.probe +++|**** PROC RPTCIO - XREF LIST BEGIN. 00901 M01S00766.probe +++|# 00902 M01S00767.probe +++| 00903 M01S00768.probe +++| XREF 00904 M01S00769.probe +++| BEGIN 00905 M01S00770.probe +++| PROC RPLINE; # OUTPUT LINE # 00906 M01S00771.probe +++| PROC RPSPACE; # OUTPUT BLANK LINE # 00907 M01S00772.probe +++| FUNC XCDD C(10); # CONVERT TO DISPLAY # 00908 M01S00773.probe +++| END 00909 M01S00774.probe +++| 00910 M01S00775.probe +++|# 00911 M01S00776.probe +++|**** PROC RPTCIO - XREF LIST END. 00912 M01S00777.probe +++|# 00913 M01S00778.probe +++| 00914 M01S00779.probe +++| DEF HDRMAIN #"CIO REQUESTS"#; # MAIN HEADER # 00915 M01S00780.probe +++| DEF HDRCOLUMN #"FUNCTION CALLS"#; # HEADERS # 00916 M01S00781.probe +++| DEF HDRTOTAL #"TOTAL CIO FUNCTIONS PROCESSED"#; # LABEL FOR 00917 M01S00782.probe +++| TOTAL # 00918 M01S00783.probe +++| DEF TTCIL #O"200"#; # INDEX FOR *CIO* LABELS # 00919 M01S00784.probe +++| 00920 M01S00785.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL #
| Line S00786 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | ns2403 |
Seq # *Modification Id* Act ----------------------------+ 00921 M02S00786.ns2403 ---|*CALL COMAMSS;
| Line S00787 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | ns2403 |
Seq # *Modification Id* Act ----------------------------+ 00922 M02S00787.ns2403 ---|*CALL COMSPDT;
| Line S00788 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | ns2403 |
Seq # *Modification Id* Act ----------------------------+ 00923 M02S00788.ns2403 ---|*CALL COMUFMT;
| Line S00789 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | ns2403 |
Seq # *Modification Id* Act ----------------------------+ 00924 M02S00789.ns2403 ---|*CALL COMUOUT;
| Line S00790 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | ns2403 |
Seq # *Modification Id* Act ----------------------------+ 00925 M02S00790.ns2403 ---|*CALL COMUPRB; 00926 M01S00001.ns2403 +++|*CALL COMAMSS 00927 M01S00002.ns2403 +++|*CALL COMSPDT 00928 M01S00003.ns2403 +++|*CALL COMUFMT 00929 M01S00004.ns2403 +++|*CALL COMUOUT 00930 M01S00005.ns2403 +++|*CALL COMUPRB 00931 M01S00791.probe +++| 00932 M01S00792.probe +++| ITEM COUNT I; # TOTAL *CIO* CALL COUNTS # 00933 M01S00793.probe +++| ITEM I I; # LOOP CONTROL COUNTER # 00934 M01S00794.probe +++| ITEM PLINE B; # OUTPUT LINE CONTROL # 00935 M01S00795.probe +++| ITEM TEMP C(10); # WORKING STORAGE # 00936 M01S00796.probe +++| 00937 M01S00797.probe +++| BASED 00938 M01S00798.probe +++| ARRAY CIO [0:0] S(1); 00939 M01S00799.probe +++| BEGIN 00940 M01S00800.probe +++| ITEM CIO$CNT U(00,00,60); # NUMBER OF *CIO* CALLS # 00941 M01S00801.probe +++| ITEM CIO$CNT1 U(00,00,30); 00942 M01S00802.probe +++| ITEM CIO$CNT2 U(00,30,30); 00943 M01S00803.probe +++| END 00944 M01S00804.probe +++| 00945 M01S00805.probe +++| ARRAY HEAD [0:0] S(6); 00946 M01S00806.probe +++| BEGIN 00947 M01S00807.probe +++| ITEM HEAD$TEXT C(00,00,60); # TOTAL LINE # 00948 M01S00808.probe +++| ITEM HEAD$TEX0 C(00,00,30); # LEFT COLUMN # 00949 M01S00809.probe +++| ITEM HEAD$TEX1 C(03,00,30); # RIGHT COLUMN # 00950 M01S00810.probe +++| END 00951 M01S00811.probe +++| 00952 M01S00812.probe +++| ARRAY LINE [0:0] S(3); 00953 M01S00813.probe +++| BEGIN 00954 M01S00814.probe +++| ITEM LINE$NAME C(00,00,20); # *CIO* FUNCTION NAME # 00955 M01S00815.probe +++| ITEM LINE$CNT C(02,00,08) ; # *CIO* FUNCTION COUNT # 00956 M01S00816.probe +++| ITEM LINE$FILL C(02,48,02) = [" "]; # FILLER # 00957 M01S00817.probe +++| END 00958 M01S00818.probe +++| 00959 M01S00819.probe +++| ARRAY TTCIO [0:TTCIL] S(2); 00960 M01S00820.probe +++| BEGIN 00961 M01S00821.probe +++| ITEM TTCIO$NAME C(00,00,20) = [ ## 00962 M01S00822.probe +++| "RPHR(000)", # READ PHYSICAL RECORD # 00963 M01S00823.probe +++| "WPHR(004)", # WRITE PHYSICAL RECORD # 00964 M01S00824.probe +++| "READ(010)", # BUFFER READ # 00965 M01S00825.probe +++| "WRITE(014)", # BUFFER WRITE # 00966 M01S00826.probe +++| "READSKP(020)", # READS SKIP # 00967 M01S00827.probe +++| "WRITER(024)", # WRITE END OF RECORD # 00968 M01S00828.probe +++| "****(30) ", # FILLER # 00969 M01S00829.probe +++| "WRITEF(034)", # WRITE END OF FILE # 00970 M01S00830.probe +++| "BKSP(040)", # BACKSPACE FILE # 00971 M01S00831.probe +++| "BKSPRU(044)", # BACKSPACE ONE RECORD # 00972 M01S00832.probe +++| "REWIND(050)", # REWIND FILE # 00973 M01S00833.probe +++| "****(54) ", # FILLER # 00974 M01S00834.probe +++| "UNLOAD(060)", # REWIND AND UNLOAD FILE # 00975 M01S00835.probe +++| "****(64) ", # FILLER # 00976 M01S00836.probe +++| "RETURN(070)", # RELEASE FILE # 00977 M01S00837.probe +++| "****(74) ", # FILLER # 00978 M01S00838.probe +++| "OPEN(100)", # READ, NO REWIND # 00979 M01S00839.probe +++| "OPEN(104)", # WRITE, NO REWIND # 00980 M01S00840.probe +++| "POSMF(110)", # POSITION MULTIFILE TAPE # 00981 M01S00841.probe +++| "EVICT(114)", # RELEASE FILE SPACE # 00982 M01S00842.probe +++| "OPEN(120)", # NO REWIND # 00983 M01S00843.probe +++| "****(124) ", # FILLER # 00984 M01S00844.probe +++| "CLOSE(130)", # NO REWIND # 00985 M01S00845.probe +++| "****(134) ", # FILLER # 00986 M01S00846.probe +++| "OPEN(140)", # READ AND REWIND # 00987 M01S00847.probe +++| "OPEN(144)", # WRITE AND REWIND # 00988 M01S00848.probe +++| "CLOSE(150)", # REWIND # 00989 M01S00849.probe +++| "****(154) ", # FILLER # 00990 M01S00850.probe +++| "OPEN(160)", # ALTER AND REWIND # 00991 M01S00851.probe +++| "****(164) ", # FILLER # 00992 M01S00852.probe +++| "CLOSE(170)", # REWIND AND UNLOAD # 00993 M01S00853.probe +++| "CLOSE(174)", # REWIND # 00994 M01S00854.probe +++| "READCW(200)", # CONTROL WORD READ # 00995 M01S00855.probe +++| "WRITECW(204)", # CONTROL WORD WRITE # 00996 M01S00856.probe +++| "READLS(210)", # READ NONSTOP WITH LIST # 00997 M01S00857.probe +++| "REWRITE(214)", # BUFFER REWRITE IN PLACE # 00998 M01S00858.probe +++| "****(220) ", # FILLER # 00999 M01S00859.probe +++| "REWRITER(224)", # END OF RECORD REWRITE IN PLACE # 01000 M01S00860.probe +++| "RPHRLS(230)", # READ PRUS WITH LIST # 01001 M01S00861.probe +++| "REWRITEF(234)", # END OF FILE REWRITE IN PLACE # 01002 M01S00862.probe +++| "SKIPF(240)", # SKIP FORWARD #
| Line S00863 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01003 M02S00863.ns22000 ---| "****(244) ", # FILLER # 01004 M01S00001.ns22000 +++| "OVWRITE(244)", # OVERWRITE # 01005 M01S00864.probe +++| "READNS(250)", # READ NONSTOP #
| Line S00865 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01006 M02S00865.ns22000 ---| "****(254) ", # FILLER # 01007 M01S00002.ns22000 +++| "OVWRITE(254)", # OVERWRITE RETURN # 01008 M01S00866.probe +++| "READN(260)", # READ FORMATTED TAPE # 01009 M01S00867.probe +++| "WRITEN(264)", # WRITE FORMATTED TAPE # 01010 M01S00868.probe +++| "****(270) ", # FILLER # 01011 M01S00869.probe +++| "****(274) ", # FILLER # 01012 M01S00870.probe +++| "OPEN(300)", # READ REAL, NO REWIND # 01013 M01S00871.probe +++| "****(304) ", # FILLER # 01014 M01S00872.probe +++| "****(310) ", # FILLER # 01015 M01S00873.probe +++| "****(314) ", # FILLER # 01016 M01S00874.probe +++| "****(320) ", # FILLER # 01017 M01S00875.probe +++| "****(324) ", # FILLER # 01018 M01S00876.probe +++| "CLOSE(330)", # NO REWIND # 01019 M01S00877.probe +++| "****(334) ", # FILLER # 01020 M01S00878.probe +++| "OPEN(340)", # READ REEL AND REWIND # 01021 M01S00879.probe +++| "****(344) ", # FILLER # 01022 M01S00880.probe +++| "CLOSE(350)", # REWIND # 01023 M01S00881.probe +++| "****(354) ", # FILLER # 01024 M01S00882.probe +++| "****(360) ", # FILLER # 01025 M01S00883.probe +++| "****(364) ", # FILLER # 01026 M01S00884.probe +++| "CLOSE(370)", # REWIND AND UNLOAD # 01027 M01S00885.probe +++| "****(374) ", # FILLER # 01028 M01S00886.probe +++| "****(400) ", # FILLER # 01029 M01S00887.probe +++| "****(404) ", # FILLER # 01030 M01S00888.probe +++| "****(410) ", # FILLER # 01031 M01S00889.probe +++| "****(414) ", # FILLER # 01032 M01S00890.probe +++| "****(420) ", # FILLER # 01033 M01S00891.probe +++| "****(424) ", # FILLER # 01034 M01S00892.probe +++| "****(430) ", # FILLER # 01035 M01S00893.probe +++| "****(434) ", # FILLER # 01036 M01S00894.probe +++| "****(440) ", # FILLER # 01037 M01S00895.probe +++| "****(444) ", # FILLER # 01038 M01S00896.probe +++| "****(450) ", # FILLER # 01039 M01S00897.probe +++| "****(454) ", # FILLER # 01040 M01S00898.probe +++| "****(460) ", # FILLER # 01041 M01S00899.probe +++| "****(464) ", # FILLER # 01042 M01S00900.probe +++| "****(470) ", # FILLER # 01043 M01S00901.probe +++| "****(474) ", # FILLER # 01044 M01S00902.probe +++| "****(500) ", # FILLER # 01045 M01S00903.probe +++| "****(504) ", # FILLER # 01046 M01S00904.probe +++| "****(510) ", # FILLER # 01047 M01S00905.probe +++| "****(514) ", # FILLER # 01048 M01S00906.probe +++| "****(520) ", # FILLER # 01049 M01S00907.probe +++| "****(524) ", # FILLER # 01050 M01S00908.probe +++| "****(530) ", # FILLER # 01051 M01S00909.probe +++| "****(534) ", # FILLER # 01052 M01S00910.probe +++| "****(540) ", # FILLER # 01053 M01S00911.probe +++| "****(544) ", # FILLER # 01054 M01S00912.probe +++| "****(550) ", # FILLER # 01055 M01S00913.probe +++| "****(554) ", # FILLER # 01056 M01S00914.probe +++| "****(560) ", # FILLER # 01057 M01S00915.probe +++| "****(564) ", # FILLER # 01058 M01S00916.probe +++| "****(570) ", # FILLER # 01059 M01S00917.probe +++| "****(574) ", # FILLER # 01060 M01S00918.probe +++| "READEI(600)", # READ TO EOI # 01061 M01S00919.probe +++| "****(604) ", # FILLER # 01062 M01S00920.probe +++| "****(610) ", # FILLER # 01063 M01S00921.probe +++| "****(614) ", # FILLER # 01064 M01S00922.probe +++| "****(620) ", # FILLER # 01065 M01S00923.probe +++| "****(624) ", # FILLER # 01066 M01S00924.probe +++| "****(630) ", # FILLER # 01067 M01S00925.probe +++| "****(634) ", # FILLER # 01068 M01S00926.probe +++| "SKIPB(640)", # SKIP BACKWARD # 01069 M01S00927.probe +++| ]; 01070 M01S00928.probe +++| END 01071 M01S00929.probe +++| 01072 M01S00930.probe +++| CONTROL EJECT; 01073 M01S00931.probe +++| 01074 M01S00932.probe +++| 01075 M01S00933.probe +++|# 01076 M01S00934.probe +++|* PRINT REPORT HEADER. 01077 M01S00935.probe +++|# 01078 M01S00936.probe +++| 01079 M01S00937.probe +++| P<CIO> = SFM$BUFF[PROBE]+TCIO; # SET FWA OF *CIO* ARRAY # 01080 M01S00938.probe +++| 01081 M01S00939.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01082 M01S00940.probe +++| 01083 M01S00941.probe +++| RPLINE(LOC(OUTFET),HDRMAIN,10,12,END$LN); 01084 M01S00942.probe +++| 01085 M01S00943.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01086 M01S00944.probe +++| 01087 M01S00945.probe +++| HEAD$TEX0[0] = HDRCOLUMN; # COLUMN HEADERS # 01088 M01S00946.probe +++| HEAD$TEX1[0] = HDRCOLUMN; 01089 M01S00947.probe +++| 01090 M01S00948.probe +++| RPLINE(LOC(OUTFET),HEAD,10,60,END$LN); 01091 M01S00949.probe +++| 01092 M01S00950.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01093 M01S00951.probe +++| 01094 M01S00952.probe +++| PLINE = TRUE; # SET THE CONTINUE OUTPUT FLAG # 01095 M01S00953.probe +++| 01096 M01S00954.probe +++| SLOWFOR I = 0 STEP 1 UNTIL (TCIOL - 1) 01097 M01S00955.probe +++| DO 01098 M01S00956.probe +++| BEGIN # COLLECTION OF *CIO* DATA # 01099 M01S00957.probe +++| IF CIO$CNT2[I] NQ 0 01100 M01S00958.probe +++| THEN # CHECK FOR NO DATA # 01101 M01S00959.probe +++| BEGIN # OUTPUT DATA # 01102 M01S00960.probe +++| LINE$NAME[0] = TTCIO$NAME[2*I+0]; # *CIO* FUNCTION NAME # 01103 M01S00961.probe +++| COUNT = COUNT + CIO$CNT2[I]; 01104 M01S00962.probe +++| TEMP = XCDD(CIO$CNT2[I]); # *CIO* FUNCTION COUNT # 01105 M01S00963.probe +++| LINE$CNT[0] = C<2,8>TEMP; 01106 M01S00964.probe +++| 01107 M01S00965.probe +++| IF PLINE 01108 M01S00966.probe +++| THEN # CONTINUE LINE FORMAT # 01109 M01S00967.probe +++| BEGIN 01110 M01S00968.probe +++| RPLINE(LOC(OUTFET),LINE,10,30,CONT$LN); # OUTPUT CURRENT 01111 M01S00969.probe +++| LINE # 01112 M01S00970.probe +++| PLINE = FALSE; 01113 M01S00971.probe +++| END 01114 M01S00972.probe +++| 01115 M01S00973.probe +++| ELSE # END LINE FORMAT # 01116 M01S00974.probe +++| BEGIN 01117 M01S00975.probe +++| RPLINE(LOC(OUTFET),LINE,40,30,END$LN); 01118 M01S00976.probe +++| PLINE = TRUE; 01119 M01S00977.probe +++| END 01120 M01S00978.probe +++| 01121 M01S00979.probe +++| END # OUTPUT DATA # 01122 M01S00980.probe +++| 01123 M01S00981.probe +++| IF CIO$CNT1[I] NQ 0 01124 M01S00982.probe +++| THEN # CHECK FOR NO DATA # 01125 M01S00983.probe +++| BEGIN # OUTPUT DATA # 01126 M01S00984.probe +++| LINE$NAME[0] = TTCIO$NAME[2*I+1]; # *CIO* FUNCTION NAME # 01127 M01S00985.probe +++| 01128 M01S00986.probe +++| COUNT = COUNT + CIO$CNT1[I]; 01129 M01S00987.probe +++| 01130 M01S00988.probe +++| TEMP = XCDD(CIO$CNT1[I]); # *CIO* FUNCTION COUNT # 01131 M01S00989.probe +++| LINE$CNT[0] = C<2,8>TEMP; 01132 M01S00990.probe +++| IF NOT PLINE 01133 M01S00991.probe +++| THEN # END LINE FORMAT # 01134 M01S00992.probe +++| BEGIN 01135 M01S00993.probe +++| RPLINE(LOC(OUTFET),LINE,40,30,END$LN); 01136 M01S00994.probe +++| PLINE = TRUE; 01137 M01S00995.probe +++| END 01138 M01S00996.probe +++| 01139 M01S00997.probe +++| ELSE 01140 M01S00998.probe +++| BEGIN # CONTINUE LINE FORMAT # 01141 M01S00999.probe +++| RPLINE(LOC(OUTFET),LINE,10,30,CONT$LN); 01142 M01S01000.probe +++| PLINE = FALSE; 01143 M01S01001.probe +++| END 01144 M01S01002.probe +++| 01145 M01S01003.probe +++| END # OUTPUT DATA # 01146 M01S01004.probe +++| 01147 M01S01005.probe +++| END # COLLECTION OF *CIO* DATA # 01148 M01S01006.probe +++| 01149 M01S01007.probe +++|# 01150 M01S01008.probe +++|* OUTPUT TOTAL NUMBER OF *CIO* FUNCTIONS PROCESSED. 01151 M01S01009.probe +++|# 01152 M01S01010.probe +++| 01153 M01S01011.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01154 M01S01012.probe +++| 01155 M01S01013.probe +++| HEAD$TEX0[0] = HDRTOTAL; 01156 M01S01014.probe +++| TEMP = XCDD(COUNT); # CONVERT *CIO* FUNCTIONS COUNT # 01157 M01S01015.probe +++| HEAD$TEX1[0] = TEMP; # SET OUTPUT # 01158 M01S01016.probe +++| 01159 M01S01017.probe +++| RPLINE(LOC(OUTFET),HEAD,10,60,END$LN); 01160 M01S01018.probe +++| 01161 M01S01019.probe +++| END # RPTCIO # 01162 M01S01020.probe +++| 01163 M01S01021.probe +++| TERM 01164 M01S00082.251l664 +++|PROC RPTIOS; 01165 M01S00083.251l664 +++|# TITLE RPTIOS - GENERATE I/O STATISTICS REPORT. # 01166 M01S00084.251l664 +++| BEGIN # RPTIOS # 01167 M01S00085.251l664 +++| 01168 M01S00086.251l664 +++|# 01169 M01S00087.251l664 +++|** RPTIOS - GENERATE I/O STATISTICS REPORT. 01170 M01S00088.251l664 +++|* 01171 M01S00089.251l664 +++|* ROUTINE *RPTIOS* FORMATS THE DATA RETURNED FROM *SFM* 01172 M01S00090.251l664 +++|* FUNCTION *RSDF*, SUBFUNCTION *IOSF*, IF ANY, INTO A SET 01173 M01S00091.251l664 +++|* OF STATISTICS. 01174 M01S00092.251l664 +++|* 01175 M01S00093.251l664 +++|* PROC RPTIOS 01176 M01S00094.251l664 +++|* 01177 M01S00095.251l664 +++|* EXIT I/O STATISTICS, IF PRESENT ADDED TO OUTPUT FILE. 01178 M01S00096.251l664 +++|* 01179 M01S00097.251l664 +++|* MESSAGES 01180 M01S00098.251l664 +++|* 01181 M01S00099.251l664 +++|* NO I/O STATISTICS. 01182 M01S00100.251l664 +++|* THE CALL TO *SFM* RETURNED NO I/O STATISTICS. 01183 M01S00101.251l664 +++|# 01184 M01S00102.251l664 +++| 01185 M01S00103.251l664 +++|# 01186 M01S00104.251l664 +++|**** PROC RPTIOS - XREF LIST BEGIN. 01187 M01S00105.251l664 +++|# 01188 M01S00106.251l664 +++| 01189 M01S00107.251l664 +++| XREF 01190 M01S00108.251l664 +++| BEGIN 01191 M01S00109.251l664 +++| PROC RPLINE; # OUTPUT LINE # 01192 M01S00110.251l664 +++| PROC RPSPACE; # OUTPUT BLANK LINE # 01193 M01S00111.251l664 +++| FUNC XCDD C(10); # CONVERT TO DISPLAY # 01194 M01S00112.251l664 +++| END 01195 M01S00113.251l664 +++| 01196 M01S00114.251l664 +++|# 01197 M01S00115.251l664 +++|**** PROC RPTIOS - XREF LIST END. 01198 M01S00116.251l664 +++|# 01199 M01S00117.251l664 +++| 01200 M01S00118.251l664 +++| DEF HDRMAIN 01201 M01S00119.251l664 +++| #"I/O STATISTICS FOR "#; 01202 M01S00120.251l664 +++| DEF HDRTOTL 01203 M01S00121.251l664 +++| #" TOTALS "#; 01204 M01S00122.251l664 +++| DEF HDRCOLUMN1
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
M02 (Updated by) | probe2 |
Seq # *Modification Id* Act
----------------------------+
01205 M02S00123.probe2 ---| #" SECTORS CBT-S "#;
01206 M01S00001.probe2 +++| #" CBT-S SECTORS "#;
01207 M01S00124.251l664 +++| DEF HDRCOLUMN2
01208 M01S00125.251l664 +++| #" TRANSFERRED TRANSFERRED READS WRITES"#;
01209 M01S00126.251l664 +++|
01210 M01S00127.251l664 +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL #
01211 M01S00128.251l664 +++| DEF IOSBLEN #9#; # IOS BLOCK LENGTH #
01212 M01S00129.251l664 +++|
01213 M01S00130.251l664 +++|*CALL COMAMSS;
01214 M01S00131.251l664 +++|*CALL COMSPDT;
01215 M01S00132.251l664 +++|*CALL COMUFMT;
01216 M01S00133.251l664 +++|*CALL COMUOUT;
01217 M01S00134.251l664 +++|*CALL COMUPRB;
01218 M01S00135.251l664 +++|
01219 M01S00136.251l664 +++| ITEM I I; # LOOP CONTROL COUNTER #
01220 M01S00137.251l664 +++| ITEM J I; # LOOP CONTROL COUNTER #
01221 M01S00138.251l664 +++| ITEM K I; # END OF LOOP COUNTER #
01222 M01S00139.251l664 +++| ITEM TEMP C(10); # WORKING STORAGE #
01223 M01S00140.251l664 +++| ITEM TOTREAD I; # TOTAL READS #
01224 M01S00141.251l664 +++| ITEM TOTWRIT I; # TOTAL READS #
01225 M01S00142.251l664 +++|
01226 M01S00143.251l664 +++| BASED ARRAY IOSTATBUFF [0:0] S(1);
01227 M01S00144.251l664 +++| BEGIN
01228 M01S00145.251l664 +++| ITEM DEVICETYPE U(00,00,12); # DEVICE TYPE #
01229 M01S00146.251l664 +++| ITEM ESTORDINAL C(00,12,03); # EST ORDINAL IN DISPLAY CODE #
01230 M01S00147.251l664 +++| ITEM IOSRCNT U(00,00,30); # READ COUNT #
01231 M01S00148.251l664 +++| ITEM IOSWCNT U(00,30,30); # WRITE COUNT #
01232 M01S00149.251l664 +++| END
01233 M01S00150.251l664 +++|
01234 M01S00151.251l664 +++| ARRAY HEAD [0:0] S(6);
01235 M01S00152.251l664 +++| BEGIN
01236 M01S00153.251l664 +++| ITEM HEAD$TEXT C(00,00,60); # TOTAL LINE #
01237 M01S00154.251l664 +++| END
01238 M01S00155.251l664 +++|
01239 M01S00156.251l664 +++| ARRAY IOSLINE [0:0] S(5);
01240 M01S00157.251l664 +++| BEGIN
01241 M01S00158.251l664 +++| ITEM TRANSFER C(00,00,30); # SECTIONS TRANSFERRED #
01242 M01S00159.251l664 +++| ITEM FILLERONE C(03,00,04)= [" "];
01243 M01S00160.251l664 +++| ITEM NUM$READS C(03,24,06); # NUMBER OF READS #
01244 M01S00161.251l664 +++| ITEM FILLERTWO C(04,00,03)= [" "];
01245 M01S00162.251l664 +++| ITEM NUM$WRITE C(04,18,06); # NUMBER OF WRITES #
01246 M01S00163.251l664 +++| ITEM FILLERTRE C(04,54,01)= [" "];
01247 M01S00164.251l664 +++| END
01248 M01S00165.251l664 +++|
01249 M01S00166.251l664 +++| ARRAY TRANSFERED [1:IOSBLEN] P(4);
01250 M01S00167.251l664 +++| BEGIN
01251 M01S00168.251l664 +++| ITEM TRAWORDS C(00,00,40) = [
01252 M01S00169.251l664 +++| " 1 1-40B ",
01253 M01S00170.251l664 +++| " 2-3 41B-140B ",
01254 M01S00171.251l664 +++| " 4-7 141B-340B ",
01255 M01S00172.251l664 +++| " 10B-17B 341B-740B ",
01256 M01S00173.251l664 +++| " 20B-37B 741B-1740B ",
01257 M01S00174.251l664 +++| " 40B-77B 1741B-3740B ",
01258 M01S00175.251l664 +++| " 100B-177B 3741B-7740B ",
01259 M01S00176.251l664 +++| " 200B-MORE 7741B-MORE ",
01260 M01S00177.251l664 +++| ];
01261 M01S00178.251l664 +++| END
01262 M01S00179.251l664 +++|
01263 M01S00180.251l664 +++|#
01264 M01S00181.251l664 +++|* MAIN CODE STARTS HERE WITH CHECK FOR DATA RETURNED.
01265 M01S00182.251l664 +++|#
01266 M01S00183.251l664 +++| IF SFM$AVBL[IOS] THEN
01267 M01S00184.251l664 +++| BEGIN # IF NO STATISTICS AVAILABLE #
01268 M01S00185.251l664 +++| RPLINE(LOC(OUTFET)," NO I/O STATISTICS. ",10,20,END$LN);
01269 M01S00186.251l664 +++| RETURN; # RETURN #
01270 M01S00187.251l664 +++| END
01271 M01S00188.251l664 +++|#
01272 M01S00189.251l664 +++|* FORMAT OUTPUT TABLE FOR EACH BLOCK RETURNED.
01273 M01S00190.251l664 +++|#
01274 M01S00191.251l664 +++| K = SFM$LEN[IOS] / IOSBLEN; # CALCULATE LOOP COUNT #
01275 M01S00192.251l664 +++| FOR I = 1 STEP 1 UNTIL K DO
01276 M01S00193.251l664 +++| BEGIN # UNTIL END OF DATA #
01277 M01S00194.251l664 +++|#
01278 M01S00195.251l664 +++|* POSITION BASED ARRAY TO FIRST WORD ADDRESS.
01279 M01S00196.251l664 +++|#
01280 M01S00197.251l664 +++| P<IOSTATBUFF> = SFM$BUFF[IOS];
01281 M01S00198.251l664 +++|#
01282 M01S00199.251l664 +++|* FORMAT HEADER ENTRY WITH DEVICE TYPE AND EST ORDINAL.
01283 M01S00200.251l664 +++|#
01284 M01S00201.251l664 +++| RPSPACE(LOC(OUTFET),SP"SPACE",1);
01285 M01S00202.251l664 +++| C<0,19>HEAD$TEXT[0] = HDRMAIN;
01286 M01S00203.251l664 +++| C<19,02>HEAD$TEXT[0] = " ";
01287 M01S00204.251l664 +++| C<21,02>HEAD$TEXT[0] = C<0,2>DEVICETYPE[0];
01288 M01S00205.251l664 +++| C<23,03>HEAD$TEXT[0] = ESTORDINAL[0];
01289 M01S00206.251l664 +++| C<26,02>HEAD$TEXT[0] = ": ";
01290 M01S00207.251l664 +++| RPLINE(LOC(OUTFET),HEAD,10,28,END$LN);
01291 M01S00208.251l664 +++| RPSPACE(LOC(OUTFET),SP"SPACE",1);
01292 M01S00209.251l664 +++| HEAD$TEXT[0] = HDRCOLUMN1;
01293 M01S00210.251l664 +++| RPLINE(LOC(OUTFET),HEAD,10,60,END$LN);
01294 M01S00211.251l664 +++| HEAD$TEXT[0] = HDRCOLUMN2;
01295 M01S00212.251l664 +++| RPLINE(LOC(OUTFET),HEAD,10,60,END$LN);
01296 M01S00213.251l664 +++|#
01297 M01S00214.251l664 +++|* FORMAT READ AND WRITE COUNTS FOR EACH DEVICE.
01298 M01S00215.251l664 +++|#
01299 M01S00216.251l664 +++| TOTREAD = 0; # FIRST CLEAR TOTALS #
01300 M01S00217.251l664 +++| TOTWRIT = 0;
01301 M01S00218.251l664 +++| FOR J = 1 STEP 1 UNTIL IOSBLEN - 1 DO
01302 M01S00219.251l664 +++| BEGIN # UNTIL DONE FOR DEVICE #
01303 M01S00220.251l664 +++| TRANSFER = TRAWORDS[J];
01304 M01S00221.251l664 +++| TOTREAD = TOTREAD + IOSRCNT[J];
01305 M01S00222.251l664 +++| TEMP = XCDD(IOSRCNT[J]); # CONVERT READ COUNT #
01306 M01S00223.251l664 +++| NUM$READS = C<4,6>TEMP;
01307 M01S00224.251l664 +++| TOTWRIT = TOTWRIT + IOSWCNT[J];
01308 M01S00225.251l664 +++| TEMP = XCDD(IOSWCNT[J]); # CONVERT WRITE COUNT #
01309 M01S00226.251l664 +++| NUM$WRITE = C<4,6>TEMP;
01310 M01S00227.251l664 +++| RPLINE(LOC(OUTFET),IOSLINE,10,50,END$LN);
01311 M01S00228.251l664 +++| END
01312 M01S00229.251l664 +++|#
01313 M01S00230.251l664 +++|* FORMAT TRAILER WITH TOTALS.
01314 M01S00231.251l664 +++|#
01315 M01S00232.251l664 +++| RPSPACE(LOC(OUTFET),SP"SPACE",1);
01316 M01S00233.251l664 +++| C<0,31>HEAD$TEXT[0] = HDRTOTL;
01317 M01S00234.251l664 +++| TEMP = XCDD(TOTREAD); # CONVERT READ TOTAL #
01318 M01S00235.251l664 +++| C<32,08>HEAD$TEXT[0] = C<2,8>TEMP;
01319 M01S00236.251l664 +++| C<40,01>HEAD$TEXT[0] = " ";
01320 M01S00237.251l664 +++| TEMP = XCDD(TOTWRIT); # CONVERT WRITE TOTAL #
01321 M01S00238.251l664 +++| C<41,08>HEAD$TEXT[0] = C<2,8>TEMP;
01322 M01S00239.251l664 +++| RPLINE(LOC(OUTFET),HEAD,10,51,END$LN);
01323 M01S00240.251l664 +++| RPSPACE(LOC(OUTFET),SP"SPACE",1);
01324 M01S00241.251l664 +++|#
01325 M01S00242.251l664 +++|* REPOSITION FIRST WORD ADDRESS.
01326 M01S00243.251l664 +++|#
01327 M01S00244.251l664 +++| SFM$BUFF[IOS] = SFM$BUFF[IOS] + IOSBLEN;
01328 M01S00245.251l664 +++| END
01329 M01S00246.251l664 +++| END # RPTCIO #
01330 M01S00247.251l664 +++| TERM
01331 M01S01022.probe +++|PROC RPTMON;
01332 M01S01023.probe +++|# TITLE RPTMON - GENERATE *MTR* REQUEST REPORT #
01333 M01S01024.probe +++|
01334 M01S01025.probe +++| BEGIN # RPTMON #
01335 M01S01026.probe +++|
01336 M01S01027.probe +++|#
01337 M01S01028.probe +++|** RPTMON - GENERATE *MTR* REQUEST REPORT.
01338 M01S01029.probe +++|*
01339 M01S01030.probe +++|* THE REPORT IS GENERATED FROM THE RAW DATA AND
01340 M01S01031.probe +++|* MATCHED WITH THE APPROPRIATE FUNCTION.
01341 M01S01032.probe +++|*
01342 M01S01033.probe +++|* PROC RPTMON
01343 M01S01034.probe +++|*
01344 M01S01035.probe +++|* EXIT REPORT PRINTED.
01345 M01S01036.probe +++|#
01346 M01S01037.probe +++|
01347 M01S01038.probe +++|#
01348 M01S01039.probe +++|**** PROC RPTMON - XREF LIST BEGIN.
01349 M01S01040.probe +++|#
01350 M01S01041.probe +++|
01351 M01S01042.probe +++| XREF
01352 M01S01043.probe +++| BEGIN
01353 M01S01044.probe +++| PROC RPLINE; # OUTPUT LINE #
01354 M01S01045.probe +++| PROC RPSPACE; # OUTPUT BLANK LINE #
01355 M01S01046.probe +++| FUNC XCDD C(10); # CONVERT TO DISPLAY #
01356 M01S01047.probe +++| FUNC XCOD C(10); # CONVERT TO OCTAL DISPLAY #
01357 M01S01048.probe +++| END
01358 M01S01049.probe +++|
01359 M01S01050.probe +++|#
01360 M01S01051.probe +++|**** PROC RPTMON - XREF LIST END.
01361 M01S01052.probe +++|#
01362 M01S01053.probe +++|
01363 M01S01054.probe +++| DEF HDRCOLUMN #"CPU0 CPU1"#; # COLUMN HEADERS #
01364 M01S01055.probe +++| DEF HDRMTR #"MTR REQUESTS"#; # REPORT TYPE #
01365 M01S01056.probe +++| DEF HDRSUBTOT #"SUBTOTAL"#; # COLUMN TOTAL #
01366 M01S01057.probe +++| DEF HDRTOTAL #"TOTAL"#; # TOTAL OF COLUMNS #
01367 M01S01058.probe +++|
01368 M01S01059.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL #
01369 M01S01060.probe +++|
01370 M01S01061.probe +++|*CALL COMAMSS
01371 M01S01062.probe +++|*CALL COMSPDT
01372 M01S01063.probe +++|*CALL COMUFMT
01373 M01S01064.probe +++|*CALL COMUOUT
01374 M01S01065.probe +++|*CALL COMUPRB
01375 M01S01066.probe +++|
01376 M01S01067.probe +++|
01377 M01S01068.probe +++| ITEM COUNT0 I; # CPU 0 COUNTER #
01378 M01S01069.probe +++| ITEM COUNT1 I; # CPU 1 COUNTER #
01379 M01S01070.probe +++| ITEM I I; # LOOP CONTROL #
01380 M01S01071.probe +++| ITEM TEMP C(10); # WORKING STORAGE #
01381 M01S01072.probe +++|
01382 M01S01073.probe +++| ARRAY HEAD [0:0] S(3);
01383 M01S01074.probe +++| BEGIN
01384 M01S01075.probe +++| ITEM HEAD$TEX0 C(00,00,30); # TOTAL LINE #
01385 M01S01076.probe +++| ITEM HEAD$TEX1 C(00,00,20); # TOTAL HEADERS #
01386 M01S01077.probe +++| ITEM HEAD$TEX2 C(01,12,08); # SUBTOTAL COUNT #
01387 M01S01078.probe +++| ITEM HEAD$TEX3 C(01,30,04); # CPU 0 HEADER #
01388 M01S01079.probe +++| ITEM HEAD$TEX4 C(02,12,08); # TOTAL COUNT #
01389 M01S01080.probe +++| ITEM HEAD$TEX5 C(02,30,04); # CPU 1 HEADER #
01390 M01S01081.probe +++| END
01391 M01S01082.probe +++|
01392 M01S01083.probe +++| ARRAY LINE [0:0] S(3); # OUTPUT LINE FORMAT #
01393 M01S01084.probe +++| BEGIN
01394 M01S01085.probe +++| ITEM LINE$BLANK C(00,00,30) = [" "]; # BLANK FILL #
01395 M01S01086.probe +++| ITEM LINE$NAME C(00,12,04); # FUNCTION NAME #
01396 M01S01087.probe +++| ITEM LINE$LPAR C(00,36,01) = ["("]; # LEFT PARENTHESIS #
01397 M01S01088.probe +++| ITEM LINE$NUM C(00,42,02); # FUNCTION CODE #
01398 M01S01089.probe +++| ITEM LINE$RPAR C(00,54,01) = [")"]; # RIGHT PARENTHESIS #
01399 M01S01090.probe +++| ITEM LINE$MCPU0 C(01,12,08); # MONITOR MODE - CPU 0 COUNT #
01400 M01S01091.probe +++| ITEM LINE$MCPU1 C(02,12,08); # MONITOR MODE - CPU 1 COUNT #
01401 M01S01092.probe +++| END
01402 M01S01093.probe +++|
01403 M01S01094.probe +++| ARRAY MMTR [1:MXP1] S(1); # FUNCTION NAMES #
01404 M01S01095.probe +++| BEGIN
01405 M01S01096.probe +++| ITEM MMTR$TEXT C(00,00,04) = [ ##
01406 M01S00001.271l750 +++| "CSWF", # SWITCH CPU #
01407 M01S01097.probe +++| "ARTF", # UPDATE RUNNING TIME #
| Line S01098 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01408 M02S01098.271l716 ---| "IARF", # INITIATE AUTO RECALL # 01409 M01S01099.probe +++| "CSLF", # CHECK SUBCP TIME LIMIT # 01410 M01S00001.271l716 +++| "EPRF", # ENTER PROGRAM MODE REQUEST # 01411 M01S01100.probe +++| "RCLF", # RECALL CPU # 01412 M01S01101.probe +++| "MFLF", # MODIFY FL #
| Line S01102 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01413 M02S01102.271l716 ---| "SCSF", # RESET CPU *I* STATUS # 01414 M01S00002.271l716 +++| "MRAF", # MODIFY RA #
| Line S01103 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 01415 M02S01103.ns2726 ---| "SMSF", # SET MONITOR STEP #
| Line S01104 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 01416 M02S01104.ns2726 ---| "CMSF", # CLEAR MONITOR STEP # 01417 M01S00001.ns2726 +++| "MSCF", # MONITOR STEP CONTROL # 01418 M01S01105.probe +++| "PRQF", # PROCESS RECALL REQUEST QUEUE #
| Line S01106 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01419 M02S01106.271l750 ---| "ACSF", # ADVANCE CPU SWITCH # 01420 M01S00002.271l750 +++| "TCSF", # SWITCH CPU ON TIME SLICE # 01421 M01S01107.probe +++| "PCXF", # PROCESS ALTERNATE CPU SWITCH # 01422 M01S01108.probe +++| "ARMF", # ADVANCE RUNNING TIME - MMF 01423 M01S01109.probe +++| MODE #
| Line S01110 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01424 M02S01110.271l716 ---| "----", # RESERVED #
| Line S01111 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
M03 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01425 M03S01111.271l716 ---| "MFEF"]; # MODIFY ECS FL #
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01426 M02S00054.271l716 ---| "MFEF"]; # MODIFY EXTENDED MEMORY FL # 01427 M01S00003.271l716 +++| "UCCF", # UPDATE CTI CLOCK # 01428 M01S00004.271l716 +++| "CRAF", # CHANGE RA #
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Updated by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 01429 M02S00005.ns2726 ---| "ADTF"]; # ADVANCE DATE AND TIME # 01430 M01S00002.ns2726 +++| "ADTF", # ADVANCE DATE AND TIME # 01431 M01S00003.ns2726 +++| "SKCF"]; # SET K DISPLAY COMPLETE BIT # 01432 M01S01112.probe +++| END 01433 M01S01113.probe +++| 01434 M01S01114.probe +++|# 01435 M01S01115.probe +++|* THE SECTION OF THE *PROBE* DATA BUFFER WHICH CONTAINS 01436 M01S01116.probe +++|* THE NUMBER OF *MTR* REQUESTS. 01437 M01S01117.probe +++|# 01438 M01S01118.probe +++| 01439 M01S01119.probe +++| BASED 01440 M01S01120.probe +++| ARRAY MTR [1:1] S(1); 01441 M01S01121.probe +++| BEGIN 01442 M01S01122.probe +++| ITEM MTR$CNT1 U(00,00,30); # MONITOR MODE - CPU 1 COUNT # 01443 M01S01123.probe +++| ITEM MTR$CNT0 U(00,30,30); # MONITOR MODE - CPU 0 COUNT # 01444 M01S01124.probe +++| END 01445 M01S01125.probe +++| 01446 M01S01126.probe +++| CONTROL EJECT; 01447 M01S01127.probe +++| 01448 M01S01128.probe +++| 01449 M01S01129.probe +++|# 01450 M01S01130.probe +++|* GENERATE *MTR* REQUEST REPORT. 01451 M01S01131.probe +++|# 01452 M01S01132.probe +++| 01453 M01S01133.probe +++| P<MTR> = SFM$BUFF[PROBE]+TMTR; ## 01454 M01S01134.probe +++| 01455 M01S01135.probe +++|# 01456 M01S01136.probe +++|* OUTPUT REPORT HEADER. 01457 M01S01137.probe +++|# 01458 M01S01138.probe +++| 01459 M01S01139.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01460 M01S01140.probe +++| 01461 M01S01141.probe +++| RPLINE(LOC(OUTFET),HDRMTR,10,12,END$LN); 01462 M01S01142.probe +++| 01463 M01S01143.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01464 M01S01144.probe +++| 01465 M01S01145.probe +++| HEAD$TEX0[0] = " "; # CLEAR LINE # 01466 M01S01146.probe +++| 01467 M01S01147.probe +++| RPLINE(LOC(OUTFET),HDRCOLUMN,25,14,END$LN); 01468 M01S01148.probe +++| 01469 M01S01149.probe +++| FASTFOR I = 1 STEP 1 UNTIL MXP1 01470 M01S01150.probe +++| DO 01471 M01S01151.probe +++| BEGIN 01472 M01S01152.probe +++| LINE$NAME[0] = MMTR$TEXT[I]; # SET FUNCTION NAME # 01473 M01S01153.probe +++| TEMP = XCOD(I); # SET FUNCTION CODE # 01474 M01S01154.probe +++| LINE$NUM[0] = C<8,2>TEMP; 01475 M01S01155.probe +++| COUNT0 = COUNT0 + MTR$CNT0[I]; # CPU 0 COUNT # 01476 M01S01156.probe +++| TEMP = XCDD(MTR$CNT0[I]); # SET MONITOR MODE - CPU 0 COUNT # 01477 M01S01157.probe +++| LINE$MCPU0[0] = C<2,8>TEMP; 01478 M01S01158.probe +++| COUNT1 = COUNT1 + MTR$CNT1[I]; # CPU 1 COUNT # 01479 M01S01159.probe +++| TEMP = XCDD(MTR$CNT1[I]); # SET MONITOR MODE - CPU 1 COUNT # 01480 M01S01160.probe +++| LINE$MCPU1[0] = C<2,8>TEMP; 01481 M01S01161.probe +++| 01482 M01S01162.probe +++| RPLINE(LOC(OUTFET),LINE,10,30,END$LN); 01483 M01S01163.probe +++| END 01484 M01S01164.probe +++| 01485 M01S01165.probe +++|# 01486 M01S01166.probe +++|* OUTPUT CUMULATIVE TOTALS. 01487 M01S01167.probe +++|# 01488 M01S01168.probe +++| 01489 M01S01169.probe +++| HEAD$TEX0[0] = " "; # CLEAR LINE # 01490 M01S01170.probe +++| HEAD$TEX1[0] = HDRSUBTOT; # SUBTOTAL # 01491 M01S01171.probe +++| TEMP = XCDD(COUNT0); 01492 M01S01172.probe +++| HEAD$TEX2[0] = C<2,8>TEMP; # SET CPU 0 COUNT # 01493 M01S01173.probe +++| TEMP = XCDD(COUNT1); 01494 M01S01174.probe +++| HEAD$TEX4[0] = C<2,8>TEMP; # SET CPU 1 COUNT # 01495 M01S01175.probe +++| 01496 M01S01176.probe +++| RPLINE(LOC(OUTFET),HEAD,10,30,END$LN); 01497 M01S01177.probe +++| 01498 M01S01178.probe +++| HEAD$TEX0[0] = " "; # CLEAR LINE # 01499 M01S01179.probe +++| HEAD$TEX1[0] = HDRTOTAL; # TOTAL # 01500 M01S01180.probe +++| TEMP = XCDD(COUNT0 + COUNT1); # CPU 0 + CPU 1 = TOTAL # 01501 M01S01181.probe +++| HEAD$TEX2[0] = C<2,8>TEMP; # SET COUNT # 01502 M01S01182.probe +++| 01503 M01S01183.probe +++| RPLINE(LOC(OUTFET),HEAD,10,30,END$LN); 01504 M01S01184.probe +++| 01505 M01S01185.probe +++| END # RPTMON # 01506 M01S01186.probe +++| 01507 M01S01187.probe +++| TERM 01508 M01S01188.probe +++|PROC RPTMPP; 01509 M01S01189.probe +++|# TITLE RPTMPP - PERFORMANCE REPORT GENERATOR. # 01510 M01S01190.probe +++| 01511 M01S01191.probe +++| BEGIN # RPTMPP # 01512 M01S01192.probe +++| 01513 M01S01193.probe +++|# 01514 M01S01194.probe +++|** RPTMPP - PERFORMANCE REPORT GENERATOR. 01515 M01S01195.probe +++|* 01516 M01S01196.probe +++|* THIS CODE WILL PRODUCE THE PROBE *MTR* PERFORMANCE 01517 M01S01197.probe +++|* PARAMETERS. THESE ARE FOUND IN LOW CORE. 01518 M01S01198.probe +++|* 01519 M01S01199.probe +++|* PROC RPTMPP 01520 M01S01200.probe +++|* 01521 M01S01201.probe +++|* EXIT REPORT PRINTED. 01522 M01S01202.probe +++|# 01523 M01S01203.probe +++| 01524 M01S01204.probe +++|# 01525 M01S01205.probe +++|**** PROC RPTMPP - XREF LIST BEGIN. 01526 M01S01206.probe +++|# 01527 M01S01207.probe +++| 01528 M01S01208.probe +++| XREF 01529 M01S01209.probe +++| BEGIN 01530 M01S01210.probe +++| PROC RPLINE; # OUTPUT LINE # 01531 M01S01211.probe +++| PROC RPSPACE; # OUTPUT BLANK LINE # 01532 M01S01212.probe +++| FUNC XCDD C(10); # CONVERT TO DISPLAY # 01533 M01S01213.probe +++| END 01534 M01S01214.probe +++| 01535 M01S01215.probe +++|# 01536 M01S01216.probe +++|**** PROC RPTMPP - XREF LIST END. 01537 M01S01217.probe +++|# 01538 M01S01218.probe +++| 01539 M01S01219.probe +++| DEF MPPL0 #"MTR PERFORMANCE PARAMETERS"#; 01540 M01S01220.probe +++| DEF MPPL1 #"WORST CASE *MXN* TIME ="#; 01541 M01S01221.probe +++| DEF MPPL2 #"WORST CASE CYCLE TIME ="#; 01542 M01S01222.probe +++| DEF MPPL3 #"CPUMTR PERFORMANCE PARAMETERS"#;
| Line S01223 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01543 M02S01223.v23l617 ---| DEF MPPL4 #"NUMBER OF ECS STORAGE MOVES ="#;
| Line S01224 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01544 M02S01224.v23l617 ---| DEF MPPL5 #"NUMBER OF CM STORAGE MOVES ="#; 01545 M01S00055.v23l617 +++| DEF MPPL4 #"EM STORAGE MOVES ="#; 01546 M01S00056.v23l617 +++| DEF MPPL5 #"CM STORAGE MOVES ="#; 01547 M01S01225.probe +++| DEF MPPL6 #"PP PRIORITY EXCHANGE REQUESTS ="#; 01548 M01S01226.probe +++| DEF MPPL7 #"1RO PERFORMANCE PARAMETERS"#; 01549 M01S01227.probe +++| DEF MPPL8 #"NUMBER OF ROLLOUTS ="#; 01550 M01S01228.probe +++| DEF MPPL9 #"NUMBER OF SECTORS ROLLED ="#; 01551 M01S01229.probe +++| DEF MPPL10 #"1SJ PERFORMANCE PARAMETERS"#;
| Line S01230 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01552 M02S01230.v23l617 ---| DEF MPPL11 #"COUNT OF ROLLOUTS FOR USER LIMITS ="#;
| Line S01231 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01553 M02S01231.v23l617 ---| DEF MPPL12 #"COUNT OF TIME SLICES ="#; 01554 M01S00057.v23l617 +++| DEF MPPL11 #"ROLLOUTS FOR RESOURCE LIMITS ="#; 01555 M01S00058.v23l617 +++| DEF MPPL12 #"TIME SLICES ="#; 01556 M01S01232.probe +++| DEF MPPL13 #"COMMUNICATIONS BUFFER NOT AVAILABLE ="#;
| Line S01233 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01557 M02S01233.v23l617 ---| DEF MPPL14 #"COUNT OF TIMES RECALL STACK FULL ="#;
| Line S01234 Modification History | |
|---|---|
M01 (Added by) | probe |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01558 M02S01234.v23l617 ---| DEF MPPL15 #"COUNT OF FL INCREASES FOR NEGATIVE FL ="#; 01559 M01S00059.v23l617 +++| DEF MPPL14 #"MISSED CLOCK UPDATES ="#; 01560 M01S00060.v23l617 +++| DEF MPPL15 #"ROLLOUTS TO SECONDARY DEVICES ="#; 01561 M01S00061.v23l617 +++| DEF MPPL16 #"SECTORS ROLLED TO SECONDARY DEVICES ="#; 01562 M01S00062.v23l617 +++| DEF MPPL17 #"EJT SCANS ="#; 01563 M01S00063.v23l617 +++| DEF MPPL18 #"SCHEDULABLE JOBS="#; 01564 M01S00064.v23l617 +++| DEF MPPL19 #"JOBS PREEMPTED ="#; 01565 M01S00065.v23l617 +++| DEF MPPL20 #"JOBS SCHEDULED ="#; 01566 M01S00066.v23l617 +++| DEF MPPL21 #"JOBS SCHEDULED NO CONSTRAINTS ="#; 01567 M01S00067.v23l617 +++| DEF MPPL22 #"EJT SCANS WITH INSUFFICIENT CM ="#; 01568 M01S00068.v23l617 +++| DEF MPPL23 #"EJT SCANS WITH INSUFFICIENT EM ="#; 01569 M01S00069.v23l617 +++| DEF MPPL24 #"EJT SCANS WITH NO CONTROL POINT ="#; 01570 M01S00006.271l716 +++| DEF MPPL25 #"PSEUDO-ROLLOUTS = "#; 01571 M01S00007.271l716 +++| DEF MPPL26 #"PSEUDO-CONTROL POINT ROLLOUTS = "#; 01572 M01S00008.271l716 +++| DEF MPPL27 #"DIRECT MOVES = "#; 01573 M01S00009.271l716 +++| DEF MPPL28 #"PSEUDO-CONTROL POINT NOT AVAILABLE ="#; 01574 M01S00001.283l840 +++| DEF MPPL29 #"MMF I/O PERFORMANCE PARAMETERS"#; 01575 M01S00002.283l840 +++| DEF MPPL30 #"BRT ENTRIES ACTIVE ="#; 01576 M01S00003.283l840 +++| DEF MPPL31 #"WORST CASE BRT ENTRIES ACTIVE ="#; 01577 M01S00004.283l840 +++| DEF MPPL32 #"BRT ENTRIES REJECTED ="#; 01578 M01S00005.283l840 +++| DEF MPPL33 #"TOTAL BRT ENTRIES CREATED ="#; 01579 M01S00006.283l840 +++| DEF MPPL34 #"CURRENT MTE CYCLE TIME ="#; 01580 M01S00007.283l840 +++| DEF MPPL35 #"WORST CASE MTE CYCLE TIME = "#; 01581 M01S00008.283l840 +++| DEF MPPL36 #"BATI INTERLOCK ATTEMPTS ABANDONED = "#; 01582 M01S00009.283l840 +++| DEF MPPL37 #"TOTAL BAT REQUESTS FROM CPUMTR = "#; 01583 M01S01235.probe +++| 01584 M01S01236.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL # 01585 M01S01237.probe +++| 01586 M01S01238.probe +++|*CALL COMAMSS 01587 M01S01239.probe +++|*CALL COMSPDT 01588 M01S01240.probe +++|*CALL COMUFMT 01589 M01S01241.probe +++|*CALL COMUOUT 01590 M01S01242.probe +++|*CALL COMUPRB 01591 M01S01243.probe +++|
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/probe.txt · Last modified: by 127.0.0.1