cdc:nos2.source:opl.opl871:deck:probe
Deck PROBE
Library Member Format: MODIFY
Listing Sections
- Deck PROBE Start
- Deck PROBE Part 1 (Line 1613)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.probe +++|PRGM PROBE; 00002 M00S00002.probe +++|# TITLE PROBE - MEASUREMENT REPORT TOOL. # 00003 M00S00003.probe +++| 00004 M00S00004.probe +++| BEGIN # PROBE # 00005 M00S00005.probe +++| 00006 M00S00006.probe +++|# 00007 M00S00007.probe +++|*** PROBE - INTERNAL MEASUREMENT TOOL. 00008 M00S00008.probe +++|* 00009 M00S00009.probe +++|* *PROBE* IS AN INTERNAL TOOL THAT MEASURES THE FOLLOWING DATA: 00010 M00S00010.probe +++|* 1. THE NUMBER OF TIMES A PPU ROUTINE WAS LOADED.
| Line S00011 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00011.v23l617 ---|* 2. THE NUMBER OF *CIO* RA+1 REQUESTS BY FUNCTION NUMBER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00001.v23l617 +++|* 2. THE NUMBER OF *CIO* SYSTEM REQUESTS BY FUNCTION NUMBER. 00013 M00S00012.probe +++|* 3. THE NUMBER OF PPU REQUESTS TO *CPUMTR* BY FUNCTION 00014 M00S00013.probe +++|* NUMBER. 00015 M00S00014.probe +++|* 4. THE NUMBER OF MTR REQUESTS TO *CPUMTR* BY FUNCTION 00016 M00S00015.probe +++|* NUMBER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00017 M01S00001.251l664 +++|* 5. A SET OF I/O STATISTICS FOR BUFFERED I/O DEVICES. 00018 M00S00016.probe +++|* 00019 M00S00017.probe +++|* 00020 M00S00018.probe +++|* *PROBE* IS A SEGMENT TO *CPUMTR* THAT IS SELECTABLE AT DEADSTART 00021 M00S00019.probe +++|* TIME BY AN IPRDECK ENTRY. WHEN THE *PROBE* SEGMENT IS DISABLED 00022 M00S00020.probe +++|* AT DEADSTART TIME, *CPUMTR* WILL REQUIRE NO ADDITIONAL TIME OR 00023 M00S00021.probe +++|* SPACE OVER THAT REQUIRED BEFORE THE SEGMENT WAS INSTALLED. 00024 M00S00022.probe +++|* 00025 M00S00023.probe +++|* 00026 M00S00024.probe +++|* *PROBE* WILL GENERATE A REPORT FROM THE DATA COLLECTED BY THE 00027 M00S00025.probe +++|* *PROBE* FACILITY OF *CPUMTR*. *PROBE* WILL GET INPUT TO ANALYZE 00028 M00S00026.probe +++|* FROM EITHER THE SYSTEM TABLES OR FROM A FILE CONTAINING DATA 00029 M00S00027.probe +++|* FROM A PREVIOUS *PROBE* RUN. *PROBE* IS ACTIVATED BY THE 00030 M00S00028.probe +++|* FOLLOWING. 00031 M00S00029.probe +++|* 00032 M00S00030.probe +++|* PROBE(P1,P2,...,PN) 00033 M00S00031.probe +++|* 00034 M00S00032.probe +++|* PRGM PROBE. 00035 M00S00033.probe +++|* 00036 M00S00034.probe +++|* ENTRY. INPUTS TO PROBE ARE: 00037 M00S00035.probe +++|* 00038 M00S00036.probe +++|* PROBE(P1,P2,...,PN) 00039 M00S00037.probe +++|* 00040 M00S00038.probe +++|* WHERE PN MAY BE ONE OF THE FOLLOWING: 00041 M00S00039.probe +++|* 00042 M00S00040.probe +++|* P = LFN1 BINARY FILE TO WRITE. DEFAULT IS *STATS*. 00043 M00S00041.probe +++|* 00044 M00S00042.probe +++|* P = 0 NO BINARY FILE IS TO BE WRITTEN. 00045 M00S00043.probe +++|* 00046 M00S00044.probe +++|* L = LFN2 REPORT FILE. DEFAULT IS *OUTPUT*. 00047 M00S00045.probe +++|* 00048 M00S00046.probe +++|* L = 0 NO REPORT GENERATED. 00049 M00S00047.probe +++|* 00050 M00S00048.probe +++|* B = LFN3 BINARY FILE TO READ. DEFAULT IS *STATS*. 00051 M00S00049.probe +++|* 00052 M00S00050.probe +++|* REWIND BINARY FILES, LFN1 AND LFN3, BEFORE AND 00053 M00S00051.probe +++|* AFTER THE OPERATION. DEFAULT IS NO REWIND. 00054 M00S00052.probe +++|* 00055 M00S00053.probe +++|* OP = P PROCESSING OPTIONS WHERE P MAY BE: 00056 M00S00054.probe +++|* R READ DATA FROM SYSTEM TABLES AND WRITE TO 00057 M00S00055.probe +++|* BINARY FILE SPECIFIED BY THE *P* PARAMETER 00058 M00S00056.probe +++|* AND REPORT FILE AS SPECIFIED. 00059 M00S00057.probe +++|* 00060 M00S00058.probe +++|* C SAME AS *R* OPTION EXCEPT THE SYSTEM TABLES 00061 M00S00059.probe +++|* WILL BE CLEARED AFTER THEY ARE READ. 00062 M00S00060.probe +++|* 00063 M00S00061.probe +++|* P GENERATE REPORT FROM DATA ON BINARY 00064 M00S00062.probe +++|* FILE SPECIFIED BY THE *B* PARAMETER. 00065 M00S00063.probe +++|* 00066 M00S00064.probe +++|* 00067 M00S00065.probe +++|* LO = X SORT OPTION FOR PPU PROGRAM LOAD INFORMATIOM. 00068 M00S00066.probe +++|* 00069 M00S00067.probe +++|* F DATA IS SORTED BY FREQUENCY OF LOADS 00070 M00S00068.probe +++|* (DEFAULT SORT OPTION IF *LO* IS OMITTED). 00071 M00S00069.probe +++|* 00072 M00S00070.probe +++|* R DATA IS SORTED BY FREQUENCY OF LOADS AND 00073 M00S00071.probe +++|* PROGRAM RESIDENCE, IN THAT ORDER. 00074 M00S00072.probe +++|* 00075 M00S00073.probe +++|* A DATA IS SORTED ALPHABETICALLY BY PPU 00076 M00S00074.probe +++|* PROGRAM NAME. 00077 M00S00075.probe +++|* 00078 M00S00076.probe +++|* 00079 M00S00077.probe +++|* 00080 M00S00078.probe +++|* EXIT. REPORT IS COMPLETE OR ERROR CONDITION ENCOUNTERED. 00081 M00S00079.probe +++|* 00082 M00S00080.probe +++|* 00083 M00S00081.probe +++|* MESSAGES. 00084 M00S00082.probe +++|* 00085 M00S00083.probe +++|* NO REPORT GENERATED.
| Line S00084 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00086 M01S00084.v23l617 ---|* THE *L* OPTION ON THE CONTROL CARD WAS SET
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00087 M01S00002.v23l617 +++|* THE *L* OPTION ON THE COMMAND WAS SET 00088 M00S00085.probe +++|* TO ZERO. 00089 M00S00086.probe +++|* 00090 M00S00087.probe +++|* *PROBE* REPORT COMPLETE. 00091 M00S00088.probe +++|* *PROBE* PRINTED A COMPLETE REPORT. 00092 M00S00089.probe +++|*
| Line S00090 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00093 M01S00090.v23l617 ---|* *PROBE* CONTROL STATEMENT ERROR. 00094 M01S00091.v23l617 ---|* AN ERROR HAS BEEN DETECTED WITHIN THE CONTROL 00095 M01S00092.v23l617 ---|* STATEMENT. CORRECT THE CONTROL STATEMENT AND 00096 M01S00093.v23l617 ---|* RETRY.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00094.probe +++|* 00101 M00S00095.probe +++|* ERROR IN *OP* SPECIFICATIONS.
| Line S00096 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00102 M01S00096.v23l617 ---|* THE *OP* PARAMETER HAS AN ILLEGAL OPTION
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00103 M01S00006.v23l617 +++|* THE *OP* PARAMETER HAS AN INCORRECT OPTION 00104 M00S00097.probe +++|* SPECIFIED. CORRECT AND RETRY. 00105 M00S00098.probe +++|* 00106 M00S00099.probe +++|* ERROR IN *LO* SPECIFICATION.
| Line S00100 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00107 M01S00100.v23l617 ---|* THE LIST OPTION PARAMETER HAS AN ILLEGAL
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00108 M01S00007.v23l617 +++|* THE LIST OPTION PARAMETER HAS AN INCORRECT 00109 M00S00101.probe +++|* OPTION SPECIFIED. CORRECT AND RETRY. 00110 M00S00102.probe +++|* 00111 M00S00103.probe +++|* DUPLICATE FILE NAME ERROR. 00112 M00S00104.probe +++|* THE FILES FOR INPUT AND OUTPUT HAVE THE 00113 M00S00105.probe +++|* SAME NAME. CHANGE AND RETRY. 00114 M00S00106.probe +++|*
| Line S00107 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00115 M01S00107.v23l617 ---|* CONTROL CARD OPTION MISMATCH.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00116 M01S00008.v23l617 +++|* COMMAND OPTION MISMATCH. 00117 M00S00108.probe +++|* THE *OP* PARAMETERS, *R* OR *C*, ARE SPECIFIED 00118 M00S00109.probe +++|* WITHOUT A *P* PARAMETER BEING SPECIFIED. 00119 M00S00110.probe +++|* CORRECT AND RETRY. 00120 M00S00111.probe +++|* 00121 M00S00112.probe +++|* NO VERSION DATA ON FILE. 00122 M00S00113.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00114 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00123 M01S00114.v23l617 ---|* CONTROL CARD HAS NO VERSION DATA. CHECK
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00124 M01S00009.v23l617 +++|* COMMAND HAS NO VERSION DATA. CHECK 00125 M00S00115.probe +++|* FILE FOR CORRECTNESS. 00126 M00S00116.probe +++|*
| Line S00117 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00127 M01S00117.v23l617 ---|* NO *SDAL* DATA ON FILE.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00128 M01S00010.v23l617 +++|* NO STATISTICAL AREA DATA ON FILE. 00129 M00S00118.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00119 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00130 M01S00119.v23l617 ---|* CONTROL CARD HAS NO *SDAL* DATA. CHECK FILE 00131 M01S00120.v23l617 ---|* FOR CORRECTNESS.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00132 M01S00011.v23l617 +++|* COMMAND HAS NO STATISTICAL DATA AREA DATA. 00133 M01S00012.v23l617 +++|* CHECK FILE FOR CORRECTNESS. 00134 M00S00121.probe +++|* 00135 M00S00122.probe +++|* NO *PROBE* DATA ON FILE. 00136 M00S00123.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00124 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00137 M01S00124.v23l617 ---|* CONTROL CARD HAS NO *PROBE* DATA. CHECK
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00138 M01S00013.v23l617 +++|* COMMAND HAS NO *PROBE* DATA. CHECK 00139 M00S00125.probe +++|* FILE FOR CORRECTNESS. 00140 M00S00126.probe +++|* 00141 M00S00127.probe +++|* NO *PROBE* DATA AVAILABLE. 00142 M00S00128.probe +++|* THE SYSTEM FAILED TO RETURN ANY DATA. NO REPORT 00143 M00S00129.probe +++|* WILL BE GENERATED NOR WILL A FILE BE CREATED. 00144 M00S00130.probe +++|* 00145 M00S00131.probe +++|* PROBE VERSION MISMATCH. 00146 M00S00132.probe +++|* THE VERSION UNDER WHICH THE DATA WAS BUILT 00147 M00S00133.probe +++|* IS NOT THE CURRENT PROBE VERSION. 00148 M00S00134.probe +++|* 00149 M00S00135.probe +++|* NOTES. 00150 M00S00136.probe +++|* 1. THE FILE NAMES MUST BE UNIQUE. 00151 M00S00137.probe +++|* 00152 M00S00138.probe +++|* 2. IF THE *OP* PARAMETER IS EQUAL TO *R* OR *C* 00153 M00S00139.probe +++|* THEN THE *P* PARAMETER CAN NOT BE EQUAL TO ZERO. 00154 M00S00140.probe +++|*
| Line S00141 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00155 M01S00141.v23l617 ---|* 3. THE FOLLOWING SET OF CONTROL STATEMENTS IS AN EXAMPLE
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00156 M02S00014.251l664 ---|* 3. THE FOLLOWING SET OF COMMANDS IS AN EXAMPLE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00142.probe +++|* OF THE METHOD TO INSTALL *PROBE*. THE FOLLOWING IS 00163 M00S00143.probe +++|* ASSUMED- 00164 M00S00144.probe +++|* 00165 M00S00145.probe +++|* 1. THE SYSTEM *OPL* IS ASSIGNED TO THE CONTROL POINT. 00166 M00S00146.probe +++|* 00167 M00S00147.probe +++|* 2. THE FOLLOWING LIBRARY IS AVAILABLE EITHER ON THE 00168 M00S00148.probe +++|* SYSTEM OR ON A LOCAL FILE- 00169 M00S00149.probe +++|* 00170 M00S00150.probe +++|* SRVLIB - LIBRARY CONTAINING *SYMPL*/*COMPASS* 00171 M00S00151.probe +++|* SERVICE ROUTINES. 00172 M00S00152.probe +++|* 00173 M00S00153.probe +++|* 3. THE RESULTANT BINARY WILL BE ON FILE *LGO*. 00174 M00S00154.probe +++|* 00175 M00S00155.probe +++|* 4. LISTING WILL BE ON FILE *OUTPUT*. 00176 M00S00156.probe +++|* 00177 M00S00157.probe +++|* MODIFY(LO=E,Z)/*EDIT PROBE 00178 M00S00158.probe +++|* SYMPL(I,LXR=OUTPUT,B=FILEA) 00179 M00S00159.probe +++|* COMPASS(I,L=OUTPUT,B=FILEA,S=NOSTEXT) 00180 M00S00160.probe +++|* LDSET(LIB=SRVLIB,PRESET=ZERO) 00181 M00S00161.probe +++|* LOAD(FILEA) 00182 M00S00162.probe +++|* NOGO(LGO,PROBE) 00183 M00S00163.probe +++|* 00184 M00S00164.probe +++|* IF ERRORS OCCUR CONSULT THE SITE ANALYST. 00185 M00S00165.probe +++|*
| Line S00166 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00186 M01S00166.281l803 ---|* COPYRIGHT CONTROL DATA CORP., 1980.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00187 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00188 M00S00167.probe +++|# 00189 M00S00168.probe +++| 00190 M00S00169.probe +++| CONTROL EJECT; 00191 M00S00170.probe +++| 00192 M00S00171.probe +++|# 00193 M00S00172.probe +++|**** PRGM PROBE - XREF LIST BEGIN. 00194 M00S00173.probe +++|# 00195 M00S00174.probe +++| 00196 M00S00175.probe +++| XREF 00197 M00S00176.probe +++| BEGIN 00198 M00S00177.probe +++| PROC ABORT; # ABNORMAL TERMINATION #
| Line S00178 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00199 M01S00178.v23l617 ---| PROC CSARG; # CRACK CONTROL CARD #
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00200 M01S00015.v23l617 +++| PROC CSARG; # CRACK COMMAND # 00201 M00S00179.probe +++| PROC INPUT; # INPUT DATA # 00202 M00S00180.probe +++| PROC MESSAGE; # OUTPUT DAYFILE MESSAGE # 00203 M00S00181.probe +++| PROC RPCLOSE; # CLOSE FILE # 00204 M00S00182.probe +++| PROC RPEJECT; # PAGE EJECT # 00205 M00S00183.probe +++| PROC RPTCIO; # *CIO* REQUEST REPORT #
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00206 M01S00007.251l664 +++| PROC RPTIOS; # I/O STATISTICS REPORT # 00207 M00S00184.probe +++| PROC RPTMON; # MONITOR MODE REQUESTS # 00208 M00S00185.probe +++| PROC RPTMPP; # *MTR* PERFORMANCE REPORT # 00209 M00S00186.probe +++| PROC RPTMTR; # MONITOR REQUEST REPORT # 00210 M00S00187.probe +++| PROC RPTPLD; # *PLD* REPORT # 00211 M00S00188.probe +++| PROC RPTPMD; # PROGRAM MODE REQUESTS # 00212 M00S00189.probe +++| PROC RPTPST; # *PROBE* STATISTICS REPORT # 00213 M00S00190.probe +++| END 00214 M00S00191.probe +++| 00215 M00S00192.probe +++|# 00216 M00S00193.probe +++|**** PRGM PROBE - XREF LIST END. 00217 M00S00194.probe +++|# 00218 M00S00195.probe +++| 00219 M00S00196.probe +++| DEF LISTCON #0#; # COMDECK LIST CONTROL # 00220 M00S00197.probe +++|*CALL COMAMSS 00221 M00S00198.probe +++|*CALL COMSPDT 00222 M00S00199.probe +++|*CALL COMUPRB 00223 M00S00200.probe +++| 00224 M00S00201.probe +++| ARRAY MSG [0:1] S(3); 00225 M00S00202.probe +++| BEGIN 00226 M00S00203.probe +++| ITEM MSG$TEXT C(00,00,28) = [ ## 00227 M00S00204.probe +++| " NO REPORT GENERATED.", # NO REPORT GENERATED # 00228 M00S00205.probe +++| " *PROBE* REPORT COMPLETE."]; # *PROBE* REPORT COMPLETE # 00229 M00S00206.probe +++| ITEM MSG$TERM I(02,48,12) = [2(0)]; # MESSAGE TERMINATOR # 00230 M00S00207.probe +++| END 00231 M00S00208.probe +++| 00232 M00S00209.probe +++| CONTROL EJECT; 00233 M00S00210.probe +++|
| Line S00211 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00234 M01S00211.v23l617 ---| CSARG; # CRACK CONTROL CARD #
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00235 M01S00016.v23l617 +++| CSARG; # CRACK COMMAND # 00236 M00S00212.probe +++| INPUT; # INPUT DATA # 00237 M00S00213.probe +++| 00238 M00S00214.probe +++| IF ARG$L[0] EQ 0 00239 M00S00215.probe +++| THEN 00240 M00S00216.probe +++| BEGIN # GENERATE NO REPORT # 00241 M00S00217.probe +++| MESSAGE(MSG$TEXT[0],SYSUDF1); 00242 M00S00218.probe +++| STOP; 00243 M00S00219.probe +++| END # GENERATE NO REPORT # 00244 M00S00220.probe +++| 00245 M00S00221.probe +++| RPTPST; # INTERVAL OF REPORT # 00246 M00S00222.probe +++| RPTMTR; # MONITOR REQUESTS # 00247 M00S00223.probe +++| 00248 M00S00224.probe +++| RPEJECT(LOC(OUTFET)); 00249 M00S00225.probe +++| 00250 M00S00226.probe +++| RPTMON; # MONITOR MODE REQUESTS # 00251 M00S00227.probe +++| RPTPMD; # PROGRAM MODE REQUESTS # 00252 M00S00228.probe +++| RPTMPP; # *MTR* PERFORMANCE REQUESTS # 00253 M00S00229.probe +++| 00254 M00S00230.probe +++| RPEJECT(LOC(OUTFET)); 00255 M00S00231.probe +++| 00256 M00S00232.probe +++| RPTCIO; # *CIO* REPORT GENERATOR # 00257 M00S00233.probe +++| 00258 M00S00234.probe +++| RPEJECT(LOC(OUTFET)); 00259 M00S00235.probe +++| 00260 M00S00236.probe +++| RPTPLD; # *PLD* REPORT # 00261 M00S00237.probe +++|
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00262 M01S00008.251l664 +++| RPEJECT(LOC(OUTFET)); 00263 M01S00009.251l664 +++| 00264 M01S00010.251l664 +++| RPTIOS; # I/O STATISTICS REPORT # 00265 M01S00011.251l664 +++| 00266 M00S00238.probe +++| RPCLOSE(LOC(OUTFET)); # CLOSE OUTPUT FILE # 00267 M00S00239.probe +++| 00268 M00S00240.probe +++| MESSAGE(MSG$TEXT[1],SYSUDF1); 00269 M00S00241.probe +++| 00270 M00S00242.probe +++| END # PROBE # 00271 M00S00243.probe +++| 00272 M00S00244.probe +++| TERM 00273 M00S00245.probe +++|PROC CSARG;
| Line S00246 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00274 M01S00246.v23l617 ---|# TITLE CSARG - CONTROL STATEMENT PROCESSOR. # 00275 M01S00247.v23l617 ---| BEGIN # CONTROL STATEMENT PROCESSOR #
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00276 M01S00017.v23l617 +++|# TITLE CSARG - COMMAND PROCESSOR. # 00277 M01S00018.v23l617 +++| BEGIN # COMMAND PROCESSOR # 00278 M00S00248.probe +++| 00279 M00S00249.probe +++|#
| Line S00250 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00280 M01S00250.v23l617 ---|** CSARG - CONTROL STATEMENT ARGUMENT PROCESSOR.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00281 M01S00019.v23l617 +++|** CSARG - COMMAND ARGUMENT PROCESSOR. 00282 M00S00251.probe +++|* 00283 M00S00252.probe +++|* CHECKS FOR CORRECT PROBE PARAMETERS THROUGH A 00284 M00S00253.probe +++|* *SYMPL* CALL TO ASARG. 00285 M00S00254.probe +++|* 00286 M00S00255.probe +++|* PROC CSARG 00287 M00S00256.probe +++|*
| Line S00257 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00288 M01S00257.v23l617 ---|* EXIT CONTROL STATEMENT ARGUMENTS SET IN *ARGLIST*.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00289 M01S00020.v23l617 +++|* EXIT COMMAND ARGUMENTS SET IN *ARGLIST*. 00290 M00S00258.probe +++|* 00291 M00S00259.probe +++|* MESSAGES 00292 M00S00260.probe +++|*
| Line S00261 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00293 M01S00261.v23l617 ---|* *PROBE* CONTROL STATEMENT ERROR. 00294 M01S00262.v23l617 ---|* AN ERROR HAS BEEN DETECTED WITHIN THE CONTROL 00295 M01S00263.v23l617 ---|* STATEMENT. CORRECT THE CONTROL STATEMENT AND 00296 M01S00264.v23l617 ---|* RETRY.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00265.probe +++|* 00301 M00S00266.probe +++|* ERROR IN *OP* SPECIFICATIONS.
| Line S00267 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00302 M01S00267.v23l617 ---|* THE *OP* PARAMETER HAS AN ILLEGAL OPTION
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00303 M01S00024.v23l617 +++|* THE *OP* PARAMETER HAS AN INCORRECT OPTION 00304 M00S00268.probe +++|* SPECIFIED. CORRECT AND RETRY. 00305 M00S00269.probe +++|* 00306 M00S00270.probe +++|* ERROR IN *LO* SPECIFICATION.
| Line S00271 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00307 M01S00271.v23l617 ---|* THE LIST OPTION PARAMETER HAS AN ILLEGAL
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00308 M01S00025.v23l617 +++|* THE LIST OPTION PARAMETER HAS AN INCORRECT 00309 M00S00272.probe +++|* OPTION SPECIFIED. CORRECT AND RETRY. 00310 M00S00273.probe +++|* 00311 M00S00274.probe +++|* DUPLICATE FILE NAME ERROR. 00312 M00S00275.probe +++|* THE FILES FOR INPUT AND OUTPUT HAVE THE 00313 M00S00276.probe +++|* SAME NAME. CHANGE AND RETRY. 00314 M00S00277.probe +++|*
| Line S00278 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00315 M01S00278.v23l617 ---|* CONTROL CARD OPTION MISMATCH.
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00316 M01S00026.v23l617 +++|* COMMAND OPTION MISMATCH. 00317 M00S00279.probe +++|* THE *OP* PARAMETERS, *R* OR *C*, ARE SPECIFIED 00318 M00S00280.probe +++|* WITHOUT A *P* PARAMETER BEING SPECIFIED. 00319 M00S00281.probe +++|* CORRECT AND RETRY. 00320 M00S00282.probe +++|* 00321 M00S00283.probe +++|* NOTES 00322 M00S00284.probe +++|* 00323 M00S00285.probe +++|* THERE IS A CALL TO THE PRESET ROUTINE TO 00324 M00S00286.probe +++|* PRESET ALL THE COMMON BLOCKS. 00325 M00S00287.probe +++|# 00326 M00S00288.probe +++| 00327 M00S00289.probe +++| 00328 M00S00290.probe +++|# 00329 M00S00291.probe +++|**** PROC CSARG - XREF LIST BEGIN. 00330 M00S00292.probe +++|# 00331 M00S00293.probe +++| 00332 M00S00294.probe +++| XREF 00333 M00S00295.probe +++| BEGIN 00334 M00S00296.probe +++| PROC ABORT; # ABNORMAL TERMINATION # 00335 M00S00297.probe +++| PROC MESSAGE; # OUTPUT DAYFILE MESSAGE # 00336 M00S00298.probe +++| PROC PRESET; # PRESET CONSTANTS # 00337 M00S00299.probe +++| PROC RPHEAD; # OUTPUT PAGE HEADER # 00338 M00S00300.probe +++| PROC RPOPEN; # OPEN FILE #
| Line S00301 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00339 M01S00301.v23l617 ---| PROC XARG; # CRACK CONTROL STATEMENT #
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00340 M01S00027.v23l617 +++| PROC XARG; # CRACK COMMAND # 00341 M00S00302.probe +++| END 00342 M00S00303.probe +++| 00343 M00S00304.probe +++|# 00344 M00S00305.probe +++|**** PROC CSARG - XREF LIST END. 00345 M00S00306.probe +++|# 00346 M00S00307.probe +++| 00347 M00S00308.probe +++| DEF OPTION #0#; # *ASARG* OPTION # 00348 M00S00309.probe +++| 00349 M00S00310.probe +++| DEF LISTCON #0#; # COMMON DECK LIST OPTION # 00350 M00S00311.probe +++|*CALL COMAMSS 00351 M00S00312.probe +++|*CALL COMSPDT 00352 M00S00313.probe +++|*CALL COMUOUT 00353 M00S00314.probe +++|*CALL COMUPRB 00354 M00S00315.probe +++| 00355 M00S00316.probe +++| 00356 M00S00317.probe +++| ITEM ARGLIST U; # ARGUMENT TABLE ADDRESS # 00357 M00S00318.probe +++| ITEM FLAG U; # ERROR FLAG FROM *ASARG* # 00358 M00S00319.probe +++| 00359 M00S00320.probe +++|# 00360 M00S00321.probe +++|* ERROR MESSAGES. 00361 M00S00322.probe +++|# 00362 M00S00323.probe +++| 00363 M00S00324.probe +++| ARRAY MSG [0:5] S(4); 00364 M00S00325.probe +++| BEGIN 00365 M00S00326.probe +++| ITEM MSG$TEXT C(00,00,38) = [ ##
| Line S00327 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00366 M01S00327.v23l617 ---| " *PROBE* CONTROL STATEMENT ERROR.", ##
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00367 M01S00028.v23l617 +++| " *PROBE* COMMAND ERROR.", ## 00368 M00S00328.probe +++| " ERROR IN *OP* SPECIFICATION.", ## 00369 M00S00329.probe +++| " ERROR IN *LO* SPECIFICATION.", ## 00370 M00S00330.probe +++| " DUPLICATE FILE NAME ERROR.", ## 00371 M00S00331.probe +++| "PROBE VERSION 1.0.", ##
| Line S00332 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00372 M01S00332.v23l617 ---| " CONTROL CARD OPTION MISMATCH."]; # #
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00373 M01S00029.v23l617 +++| " COMMAND OPTION MISMATCH."]; # # 00374 M00S00333.probe +++| ITEM MSG$TERM U(03,48,12) = [6(0)]; # MESSAGE TERMINATOR # 00375 M00S00334.probe +++| END 00376 M00S00335.probe +++| 00377 M00S00336.probe +++| CONTROL EJECT; 00378 M00S00337.probe +++|#
| Line S00338 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00379 M01S00338.v23l617 ---|* CRACK CONTROL CARD AND VALIDATE OPTIONS.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00380 M01S00030.v23l617 +++|* CRACK COMMAND AND VALIDATE OPTIONS. 00381 M00S00339.probe +++|# 00382 M00S00340.probe +++| 00383 M00S00341.probe +++| PRESET(ARGLIST); # PRESET ARGUMENTS AND COMMON 00384 M00S00342.probe +++| BLOCKS #
| Line S00343 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00385 M01S00343.v23l617 ---| XARG(ARGLIST,OPTION,FLAG); # CRACK CONTROL STATEMENT #
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00386 M01S00031.v23l617 +++| XARG(ARGLIST,OPTION,FLAG); # CRACK COMMAND # 00387 M00S00344.probe +++| 00388 M00S00345.probe +++| IF FLAG NQ 0
| Line S00346 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00389 M01S00346.v23l617 ---| THEN # CONTROL CARD ERROR #
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00390 M01S00032.v23l617 +++| THEN # COMMAND ERROR # 00391 M00S00347.probe +++| BEGIN 00392 M00S00348.probe +++| MESSAGE(MSG[0],SYSUDF1); 00393 M00S00349.probe +++| ABORT; 00394 M00S00350.probe +++| END 00395 M00S00351.probe +++| 00396 M00S00352.probe +++| IF ARG$L[0] NQ 0 00397 M00S00353.probe +++| THEN 00398 M00S00354.probe +++| BEGIN 00399 M00S00355.probe +++| RPOPEN(ARG$L,LOC(OUTFET),DEFLT$HDR); # OPEN FILE # 00400 M00S00356.probe +++| RPHEAD(LOC(OUTFET),MSG$TEXT[4],5,19); # PAGE HEADER # 00401 M00S00357.probe +++| END 00402 M00S00358.probe +++| 00403 M00S00359.probe +++|# 00404 M00S00360.probe +++|* CHECK PROCESSING OPTION. 00405 M00S00361.probe +++|# 00406 M00S00362.probe +++| 00407 M00S00363.probe +++| 00408 M00S00364.probe +++| IF ARG$OP[0] NQ "P" ## 00409 M00S00365.probe +++| AND ARG$OP[0] NQ "R" ## 00410 M00S00366.probe +++| AND ARG$OP[0] NQ "C" ## 00411 M00S00367.probe +++| THEN 00412 M00S00368.probe +++| BEGIN 00413 M00S00369.probe +++| MESSAGE(MSG[1],SYSUDF1); # ERROR IN *OP* SPECIFICATIONS # 00414 M00S00370.probe +++| ABORT; 00415 M00S00371.probe +++| END 00416 M00S00372.probe +++| 00417 M00S00373.probe +++|# 00418 M00S00374.probe +++|* CHECK SORT OPTION. 00419 M00S00375.probe +++|# 00420 M00S00376.probe +++| 00421 M00S00377.probe +++| IF ARG$LO[0] NQ "F" ## 00422 M00S00378.probe +++| AND ARG$LO[0] NQ "R" ## 00423 M00S00379.probe +++| AND ARG$LO[0] NQ "A" ## 00424 M00S00380.probe +++| THEN 00425 M00S00381.probe +++| BEGIN 00426 M00S00382.probe +++| MESSAGE(MSG[2],SYSUDF1); # ERROR IN *LO* SPECIFICATION # 00427 M00S00383.probe +++| ABORT; 00428 M00S00384.probe +++| END 00429 M00S00385.probe +++| 00430 M00S00386.probe +++|# 00431 M00S00387.probe +++|* CHECK FOR FILE UNIQUENESS. 00432 M00S00388.probe +++|# 00433 M00S00389.probe +++| 00434 M00S00390.probe +++| IF (ARG$OP[0] EQ "P" AND ARG$L[0] EQ ARG$B[0]) ## 00435 M00S00391.probe +++| OR ((ARG$OP EQ "R" OR ARG$OP[0] EQ "C") ## 00436 M00S00392.probe +++| AND (ARG$P[0] EQ ARG$L[0])) ## 00437 M00S00393.probe +++| THEN 00438 M00S00394.probe +++| BEGIN 00439 M00S00395.probe +++| MESSAGE(MSG[3],SYSUDF1); # DUPLICATE FILE NAME ERROR # 00440 M00S00396.probe +++| ABORT; 00441 M00S00397.probe +++| END 00442 M00S00398.probe +++| 00443 M00S00399.probe +++|# 00444 M00S00400.probe +++|* CHECK FILE FOR OPTION MISMATCH. 00445 M00S00401.probe +++|# 00446 M00S00402.probe +++| 00447 M00S00403.probe +++| IF((ARG$OP[0] EQ "R" OR ARG$OP[0] EQ "C") ## 00448 M00S00404.probe +++| AND ARG$P[0] EQ 0) ## 00449 M00S00405.probe +++| THEN 00450 M00S00406.probe +++| BEGIN
| Line S00407 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00451 M01S00407.v23l617 ---| MESSAGE(MSG[5],SYSUDF1); # CONTROL CARD OPTION MISMATCH #
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00452 M01S00033.v23l617 +++| MESSAGE(MSG[5],SYSUDF1); # COMMAND OPTION MISMATCH # 00453 M00S00408.probe +++| ABORT; 00454 M00S00409.probe +++| END 00455 M00S00410.probe +++| 00456 M00S00411.probe +++| RETURN; 00457 M00S00412.probe +++| END # CSARG # 00458 M00S00413.probe +++| 00459 M00S00414.probe +++| TERM 00460 M00S00415.probe +++|PROC INPUT; 00461 M00S00416.probe +++|# TITLE INPUT - INPUT OF RAW DATA. # 00462 M00S00417.probe +++| BEGIN # INPUT # 00463 M00S00418.probe +++| 00464 M00S00419.probe +++|# 00465 M00S00420.probe +++|** INPUT - RAW DATA INPUT. 00466 M00S00421.probe +++|* 00467 M00S00422.probe +++|* *INPUT* IS USED TO INPUT RAW DATA FILES TO *PROBE* EITHER 00468 M00S00423.probe +++|* GENERATED BY *SFM* FROM THE SYSTEM TABLES (THIS MAKES 00469 M00S00424.probe +++|* THE DATA CURRENT) OR READ FROM A FILE CREATED BY A 00470 M00S00425.probe +++|* PREVIOUS *PROBE* RUN. 00471 M00S00426.probe +++|* 00472 M00S00427.probe +++|* THE INDIVIDUAL METHODS INVOLVE: 00473 M00S00428.probe +++|* 00474 M00S00429.probe +++|* 1. *SFM* CALL. 00475 M00S00430.probe +++|* 00476 M00S00431.probe +++|* A. THE CREATION OF AN RA + 1 REQUEST. 00477 M00S00432.probe +++|* 00478 M00S00433.probe +++|* B. THE ISSUING OF THE REQUEST. 00479 M00S00434.probe +++|* 00480 M00S00435.probe +++|* C. THE TRANSFER OF THE CONTENTS OF THE *SFM* 00481 M00S00436.probe +++|* BUFFER TO THE WORKING BUFFERS. 00482 M00S00437.probe +++|* 00483 M00S00438.probe +++|* 2. PREVIOUSLY CREATED FILE. 00484 M00S00439.probe +++|* 00485 M00S00440.probe +++|* A. DETERMINES WHICH FILE IS TO BE READ. 00486 M00S00441.probe +++|* 00487 M00S00442.probe +++|* B. READS IN THE FILE. 00488 M00S00443.probe +++|* 00489 M00S00444.probe +++|* C. TRANSFERS THE FILE TO THE WORKING BUFFER 00490 M00S00445.probe +++|* AND SETS THE *FET* POINTERS. 00491 M00S00446.probe +++|* 00492 M00S00447.probe +++|* PROC INPUT 00493 M00S00448.probe +++|* 00494 M00S00449.probe +++|* EXIT DATA READ IN. 00495 M00S00450.probe +++|* 00496 M00S00451.probe +++|* MESSAGES 00497 M00S00452.probe +++|* 00498 M00S00453.probe +++|* NO VERSION DATA ON FILE. 00499 M00S00454.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00455 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00500 M01S00455.v23l617 ---|* CONTROL CARD HAS NO VERSION DATA. CHECK
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00501 M01S00034.v23l617 +++|* COMMAND HAS NO VERSION DATA. CHECK 00502 M00S00456.probe +++|* FILE FOR CORRECTNESS. 00503 M00S00457.probe +++|*
| Line S00458 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00504 M01S00458.v23l617 ---|* NO *SDAL* DATA ON FILE.
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00505 M01S00035.v23l617 +++|* NO STATISTICAL AREA DATA ON FILE. 00506 M00S00459.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00460 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00507 M01S00460.v23l617 ---|* CONTROL CARD HAS NO *SDAL* DATA. CHECK FILE 00508 M01S00461.v23l617 ---|* FOR CORRECTNESS.
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00509 M01S00036.v23l617 +++|* COMMAND HAS NO STATISTICAL DATA AREA DATA. 00510 M01S00037.v23l617 +++|* CHECK FILE FOR CORRECTNESS. 00511 M00S00462.probe +++|* 00512 M00S00463.probe +++|* NO *PROBE* DATA ON FILE. 00513 M00S00464.probe +++|* THE FILE SPECIFIED BY THE *B* OPTION ON THE
| Line S00465 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00514 M01S00465.v23l617 ---|* CONTROL CARD HAS NO *PROBE* DATA. CHECK
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00515 M01S00038.v23l617 +++|* COMMAND HAS NO *PROBE* DATA. CHECK 00516 M00S00466.probe +++|* FILE FOR CORRECTNESS. 00517 M00S00467.probe +++|* 00518 M00S00468.probe +++|* NO *PROBE* DATA AVAILABLE. 00519 M00S00469.probe +++|* THE SYSTEM FAILED TO RETURN ANY DATA. NO REPORT 00520 M00S00470.probe +++|* WILL BE GENERATED NOR WILL A FILE BE CREATED. 00521 M00S00471.probe +++|* 00522 M00S00472.probe +++|* *PROBE* VERSION MISMATCH. 00523 M00S00473.probe +++|* THE VERSION UNDER WHICH THE DATA WAS BUILT 00524 M00S00474.probe +++|* IS NOT THE CURRENT *PROBE* VERSION. 00525 M00S00475.probe +++|# 00526 M00S00476.probe +++| 00527 M00S00477.probe +++|# 00528 M00S00478.probe +++|**** PROC INPUT - XREF LIST BEGIN. 00529 M00S00479.probe +++|# 00530 M00S00480.probe +++| 00531 M00S00481.probe +++| XREF 00532 M00S00482.probe +++| BEGIN 00533 M00S00483.probe +++| PROC ABORT; # ABNORMAL TERMINATION # 00534 M00S00484.probe +++| PROC DATE; # GET CURRENT DATE # 00535 M00S00485.probe +++| PROC MESSAGE; # OUTPUT DAYFILE MESSAGE # 00536 M00S00486.probe +++| PROC READ; # READ IN FILE # 00537 M00S00487.probe +++| PROC READW; # READ TO WORKING BUFFER # 00538 M00S00488.probe +++| PROC REWIND; # REWIND FILE # 00539 M00S00489.probe +++| PROC SYSTEM; # CALL TO SYSTEM # 00540 M00S00490.probe +++| PROC TIME; # GET CURRENT TIME # 00541 M00S00491.probe +++| PROC WRITER; # WRITE TO FILE # 00542 M00S00492.probe +++| PROC WRITEW; # FLUSH WORKING BUFFER # 00543 M00S00493.probe +++| PROC ZSETFET; # SET UP FET # 00544 M00S00494.probe +++| END 00545 M00S00495.probe +++| 00546 M00S00496.probe +++|# 00547 M00S00497.probe +++|**** PROC INPUT - XREF LIST END. 00548 M00S00498.probe +++|# 00549 M00S00499.probe +++|
| Line S00500 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00550 M01S00500.251l664 ---|# 00551 M01S00501.251l664 ---|* *SFM* FUNCTION AND SUBFUNCTION DEFINITIONS. 00552 M01S00502.251l664 ---|# 00553 M01S00503.251l664 ---| 00554 M01S00504.251l664 ---| DEF RDDF #1#; # DAYFILE DATA # 00555 M01S00505.251l664 ---| DEF SDIF #2#; # STATISTICAL DATA INFORMATION # 00556 M01S00506.251l664 ---| DEF PDAF #3#; # *PROBE* DATA TABLES # 00557 M01S00507.251l664 ---| DEF PDLF #4#; # *PROBE* DATA TABLE LENGTH # 00558 M01S00508.251l664 ---| DEF MXSF #5#; # END OF *SFM* FUNCTIONS # 00559 M01S00509.251l664 ---| 00560 M01S00510.251l664 ---| DEF RSDF #O"22"#; # *SFM* FUNCTION CODE # 00561 M00S00511.probe +++| 00562 M00S00512.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL # 00563 M00S00513.probe +++|*CALL COMAMSS 00564 M00S00514.probe +++|*CALL COMAFET 00565 M00S00515.probe +++|*CALL COMSPDT 00566 M00S00516.probe +++|*CALL COMUPRB 00567 M00S00517.probe +++| 00568 M00S00518.probe +++| ITEM STAT I; # READ STATUS # 00569 M00S00519.probe +++| ITEM TEMP1 I; # TEMPORARY CELL # 00570 M00S00520.probe +++| 00571 M00S00521.probe +++| 00572 M00S00522.probe +++|# 00573 M00S00523.probe +++|* ERROR MESSAGES. 00574 M00S00524.probe +++|# 00575 M00S00525.probe +++| 00576 M00S00526.probe +++| ARRAY MSA [0:4] S(3); 00577 M00S00527.probe +++| BEGIN 00578 M00S00528.probe +++| ITEM MSA$TEXT C(00,00,28) = [ ## 00579 M00S00529.probe +++| " NO VERSION DATA ON FILE.", # NO VERSION DATA ON FILE #
| Line S00530 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00580 M01S00530.v23l617 ---| " NO *SDAL* DATA ON FILE.", # NO *SDAL* DATA ON FILE #
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00581 M01S00039.v23l617 +++| " NO STATISTICAL AREA DATA ON FILE.", # NO STATISTICAL DATA # 00582 M00S00531.probe +++| " NO *PROBE* DATA ON FILE.", # NO *PROBE* DATA ON FILE # 00583 M00S00532.probe +++| " NO *PROBE* DATA AVAILABLE.", # NO *PROBE* DATA AVAILABLE # 00584 M00S00533.probe +++| " *PROBE* VERSION MISMATCH."]; # *PROBE* VERSION MISMATCH # 00585 M00S00534.probe +++| ITEM MSA$TERM U(02,48,12) = [5(0)]; # MESSAGE TERMINATOR # 00586 M00S00535.probe +++| END 00587 M00S00536.probe +++|
| Line S00537 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00588 M01S00537.251l664 ---|#
| Line S00538 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00589 M02S00538.251l664 ---|* *SFM* RA+1 CALL BUILD BUFFER.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00590 M02S00040.251l664 ---|* *SFM* SYSTEM REQUEST CALL BUILD BUFFER.
| Line S00539 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00591 M01S00539.251l664 ---|# 00592 M01S00540.251l664 ---|
| Line S00541 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00593 M02S00541.251l664 ---| ARRAY SFMCALL [0:0] S(1); # SFM RA+1 CALL #
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00594 M02S00041.251l664 ---| ARRAY SFMCALL [0:0] S(1); # SFM SYSTEM REQUEST CALL #
| Line S00542 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00595 M01S00542.251l664 ---| BEGIN 00596 M01S00543.251l664 ---| ITEM SFM$NAME C(00,00,04) = ["SFMP"]; # PROGRAM NAME # 00597 M01S00544.251l664 ---| ITEM SFM$FUNC U(00,24,12) = [RSDF]; # FUNCTION CODE # 00598 M01S00545.251l664 ---| ITEM SFM$ADDR U(00,42,18); # ADDRESS OF *FET* # 00599 M01S00546.251l664 ---| END
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00547.probe +++| 00621 M00S00548.probe +++| CONTROL EJECT; 00622 M00S00549.probe +++| 00623 M00S00550.probe +++|# 00624 M00S00551.probe +++|* READ A PREVIOUSLY BUILT DATA FILE INTO 00625 M00S00552.probe +++|* THE TABLES SPECIFIED BY THE *B* PARAMETER. 00626 M00S00553.probe +++|# 00627 M00S00554.probe +++| 00628 M00S00555.probe +++| IF ARG$OP[0] EQ "P" 00629 M00S00556.probe +++| THEN # CHECK FOR PREVIOUSLY CREATED 00630 M00S00557.probe +++| FILE OPTION # 00631 M00S00558.probe +++| BEGIN # READ RAW DATA # 00632 M00S00559.probe +++| 00633 M00S00560.probe +++|# 00634 M00S00561.probe +++|* READ IN VERSION DATA. 00635 M00S00562.probe +++|# 00636 M00S00563.probe +++| 00637 M00S00564.probe +++| ZSETFET(LOC(BFET[0]),ARG$B[0],LOC(CBUF[0]),CBUFL,RFETL); 00638 M00S00565.probe +++| 00639 M00S00566.probe +++| IF ARG$R[0] NQ 0 ## 00640 M00S00567.probe +++| THEN # REWIND FILE # 00641 M00S00568.probe +++| BEGIN 00642 M00S00569.probe +++| REWIND(BFET[0],RCL); 00643 M00S00570.probe +++| END 00644 M00S00571.probe +++| 00645 M00S00572.probe +++| READ(BFET[0],RCL); 00646 M00S00573.probe +++| 00647 M00S00574.probe +++| SFM$LEN[VRSN] = FET$IN[0] - FET$OUT[0]; # SET BUFFER LENGTH # 00648 M00S00575.probe +++| 00649 M00S00576.probe +++| READW(BFET[0],VBUF[0],VBUFL,STAT); 00650 M00S00577.probe +++| IF STAT LS 0 00651 M00S00578.probe +++| THEN # CHECK FOR EMPTY FILE # 00652 M00S00579.probe +++| BEGIN 00653 M00S00580.probe +++| MESSAGE(MSA[0],SYSUDF1); # NO VERSION DATA ON FILE # 00654 M00S00581.probe +++| ABORT; 00655 M00S00582.probe +++| END 00656 M00S00583.probe +++| 00657 M00S00584.probe +++| SFM$BUFF[VRSN] = LOC(VBUF); # SET BUFFER ADDRESS # 00658 M00S00585.probe +++| 00659 M00S00586.probe +++| IF VBUF$VRSN[0] NQ VERS$PVER 00660 M00S00587.probe +++| THEN # CHECK FOR MATCHING VERSIONS # 00661 M00S00588.probe +++| BEGIN 00662 M00S00589.probe +++| MESSAGE(MSA[4],SYSUDF1); # *PROBE* VERSION MISMATCH # 00663 M00S00590.probe +++| ABORT; 00664 M00S00591.probe +++| END 00665 M00S00592.probe +++| 00666 M00S00593.probe +++|# 00667 M00S00594.probe +++|* READ IN STATISTICAL DATA. 00668 M00S00595.probe +++|# 00669 M00S00596.probe +++| 00670 M00S00597.probe +++| FET$IN[0] = FET$FRST[0]; # RESET FET POINTERS # 00671 M00S00598.probe +++| FET$OUT[0] = FET$IN[0]; 00672 M00S00599.probe +++| READ(BFET[0],RCL); 00673 M00S00600.probe +++|
| Line S00601 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00674 M01S00601.v23l617 ---| SFM$LEN[SDAL] = FET$IN[0] - FET$OUT[0]; # SET BUFFER LENGTH #
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00675 M01S00042.v23l617 +++| SFM$LEN[SDA] = FET$IN[0] - FET$OUT[0]; # SET BUFFER LENGTH # 00676 M00S00602.probe +++| 00677 M00S00603.probe +++| READW(BFET[0],SBUF[0],SBUFL,STAT); 00678 M00S00604.probe +++| 00679 M00S00605.probe +++| IF STAT LS 0 00680 M00S00606.probe +++| THEN # CHECK FOR EMPTY FILE # 00681 M00S00607.probe +++| BEGIN
| Line S00608 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00682 M01S00608.v23l617 ---| MESSAGE(MSA[1],SYSUDF1); # NO *SDAL* DATA ON FILE #
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00683 M01S00043.v23l617 +++| MESSAGE(MSA[1],SYSUDF1); # NO STATISTICAL AREA DATA 00684 M01S00044.v23l617 +++| ON FILE # 00685 M00S00609.probe +++| ABORT; 00686 M00S00610.probe +++| END 00687 M00S00611.probe +++|
| Line S00612 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00688 M01S00612.v23l617 ---| SFM$BUFF[SDAL] = LOC(SBUF); # SET BUFFER ADDRESS #
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00689 M01S00045.v23l617 +++| SFM$BUFF[SDA] = LOC(SBUF); # SET BUFFER ADDRESS # 00690 M00S00613.probe +++| 00691 M00S00614.probe +++|# 00692 M00S00615.probe +++|* READ IN *PROBE* DATA. 00693 M00S00616.probe +++|# 00694 M00S00617.probe +++| 00695 M00S00618.probe +++| FET$IN[0] = FET$FRST[0]; # RESET FET POINTERS # 00696 M00S00619.probe +++| FET$OUT[0] = FET$IN[0]; 00697 M00S00620.probe +++| 00698 M00S00621.probe +++| READ(BFET[0],RCL); 00699 M00S00622.probe +++| 00700 M00S00623.probe +++| SFM$LEN[PROBE] = FET$IN[0] - FET$OUT[0]; # SET BUFFER LENGTH # 00701 M00S00624.probe +++| 00702 M00S00625.probe +++| READW(BFET[0],PBUF[0],PBUFL,STAT); 00703 M00S00626.probe +++| IF STAT LS 0 00704 M00S00627.probe +++| THEN # CHECK FOR EMPTY FILE # 00705 M00S00628.probe +++| BEGIN 00706 M00S00629.probe +++| MESSAGE(MSA[2],SYSUDF1); # NO *PROBE* DATA ON FILE # 00707 M00S00630.probe +++| ABORT; 00708 M00S00631.probe +++| END 00709 M00S00632.probe +++| 00710 M00S00633.probe +++| SFM$BUFF[PROBE] = LOC(PBUF); 00711 M00S00634.probe +++|
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00635.probe +++| IF ARG$R[0] NQ 0 ## 00736 M00S00636.probe +++| THEN # REWIND FILE # 00737 M00S00637.probe +++| BEGIN 00738 M00S00638.probe +++| REWIND(BFET[0],RCL); 00739 M00S00639.probe +++| END 00740 M00S00640.probe +++| 00741 M00S00641.probe +++| RETURN ; 00742 M00S00642.probe +++| END # READ RAW DATA # 00743 M00S00643.probe +++| 00744 M00S00644.probe +++|# 00745 M00S00645.probe +++|* BUILD VERSION TABLE. 00746 M00S00646.probe +++|#
| Line S00647 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00747 M01S00647.251l664 ---|
| Line S00648 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00748 M02S00648.251l664 ---| SFM$SFNC[SDAL] = SDIF; # SET *SFM* SUBFUNCTION CODES #
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00749 M02S00046.251l664 ---| SFM$SFNC[SDA] = SDIF; # SET *SFM* SUBFUNCTION CODES #
| Line S00649 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00750 M01S00649.251l664 ---| SFM$SFNC[PROBE] = PDAF; 00751 M00S00650.probe +++| TIME(VBUF$CLOCK); # CURRENT TIME # 00752 M00S00651.probe +++| DATE(VBUF$DATE); # CURRENT DATE # 00753 M00S00652.probe +++| VBUF$VRSN[0] = VERS$PVER; # CURRENT *PROBE* VERSION # 00754 M00S00653.probe +++| 00755 M00S00654.probe +++|# 00756 M00S00655.probe +++|* BUILD STATISTICAL DATA AND *PROBE* DATA TABLES. 00757 M00S00656.probe +++|# 00758 M00S00657.probe +++|
| Line S00658 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00759 M01S00658.251l664 ---| SFM$LEN[VRSN] = 5; # SET LENGTH OF VERSION BUFFER # 00760 M01S00659.251l664 ---| SFM$BUFF[VRSN] = LOC(VBUF); # SET FWA OF VERSION BUFFER # 00761 M00S00660.probe +++| IF ARG$OP[0] EQ "R" 00762 M00S00661.probe +++| THEN # CHECK FOR READ OPTION # 00763 M00S00662.probe +++| BEGIN 00764 M00S00663.probe +++| TEMP1 = 1; # READ *PROBE* DATA TABLES # 00765 M00S00664.probe +++| END 00766 M00S00665.probe +++| 00767 M00S00666.probe +++| IF ARG$OP[0] EQ "C" 00768 M00S00667.probe +++| THEN # CHECK FOR READ/CLEAR OPTION # 00769 M00S00668.probe +++| BEGIN 00770 M00S00669.probe +++| TEMP1 = 3; # READ AND CLEAR *PROBE* DATA 00771 M00S00670.probe +++| TABLES # 00772 M00S00671.probe +++| END 00773 M00S00672.probe +++|
| Line S00673 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00774 M01S00673.v23l617 ---| SFM$RDWR[SDAL] = TEMP1; # SET OPTION TO RETURN/CLEAR
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00775 M02S00047.251l664 ---| SFM$RDWR[SDA] = TEMP1; # SET OPTION TO RETURN/CLEAR
| Line S00674 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00776 M01S00674.251l664 ---| TABLES # 00777 M01S00675.251l664 ---| SFM$RDWR[PROBE] = TEMP1;
| Line S00676 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00778 M02S00676.251l664 ---| SFM$LEN[SDAL] = SBUFL; # SET LENGTH OF SDAL BUFFER # 00779 M02S00677.251l664 ---| SFM$BUFF[SDAL] = LOC(SBUF); # SET FWA OF BUFFERS #
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00780 M02S00048.251l664 ---| SFM$LEN[SDA] = SBUFL; # SET LENGTH OF STATISTICAL DATA 00781 M02S00049.251l664 ---| AREA BUFFER # 00782 M02S00050.251l664 ---| SFM$BUFF[SDA] = LOC(SBUF); # SET FWA OF BUFFERS #
| Line S00678 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00783 M01S00678.251l664 ---| SFM$LEN[PROBE] = PBUFL; # SET LENGTH OF PROBE BUFFER # 00784 M01S00679.251l664 ---| SFM$BUFF[PROBE] = LOC(PBUF); 00785 M01S00680.251l664 ---|
| Line S00681 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00786 M02S00681.251l664 ---| SFM$ADDR[0] = LOC(SFMBLOCK[SDAL]); # SET ADDRESS IN RA+1 CALL #
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed 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 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00788 M01S00682.251l664 ---| SYSTEM(SFMCALL,RCL); # CALL *SFM* TO RETURN SYSTEM DATA 00789 M01S00683.251l664 ---| #
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00684.probe +++| 00811 M00S00685.probe +++| IF ARG$P[0] EQ 0 00812 M00S00686.probe +++| THEN 00813 M00S00687.probe +++| BEGIN # CHECK FOR ARCHIVE FILE # 00814 M00S00688.probe +++| RETURN; 00815 M00S00689.probe +++| END # CHECK FOR ARCHIVE FILE # 00816 M00S00690.probe +++| 00817 M00S00691.probe +++| IF SFM$AVBL[PROBE] 00818 M00S00692.probe +++| THEN 00819 M00S00693.probe +++| BEGIN # NO *PROBE* DATA AVAILABLE # 00820 M00S00694.probe +++| MESSAGE(MSA[3],SYSUDF1); 00821 M00S00695.probe +++| ABORT; 00822 M00S00696.probe +++| END # NO *PROBE* DATA AVAILABLE # 00823 M00S00697.probe +++| 00824 M00S00698.probe +++|# 00825 M00S00699.probe +++|* WRITE TABLES TO FILE SPECIFIED BY *P* PARAMETER. 00826 M00S00700.probe +++|# 00827 M00S00701.probe +++| 00828 M00S00702.probe +++| IF ARG$P[0] NQ 0 00829 M00S00703.probe +++| THEN 00830 M00S00704.probe +++| BEGIN # WRITE ARCHIVE FILE # 00831 M00S00705.probe +++| ZSETFET(LOC(BFET[0]),ARG$P[0],LOC(CBUF[0]),CBUFL,RFETL); 00832 M00S00706.probe +++| 00833 M00S00707.probe +++| IF ARG$R[0] NQ 0 00834 M00S00708.probe +++| THEN # REWIND FILE # 00835 M00S00709.probe +++| BEGIN 00836 M00S00710.probe +++| REWIND(BFET[0],RCL); 00837 M00S00711.probe +++| END 00838 M00S00712.probe +++| 00839 M00S00713.probe +++| WRITEW(BFET[0],VBUF[0],SFM$LEN[VRSN],STAT); 00840 M00S00714.probe +++| WRITER(BFET[0],RCL);
| Line S00715 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00841 M01S00715.v23l617 ---| IF NOT SFM$AVBL[SDAL]
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00842 M01S00052.v23l617 +++| IF NOT SFM$AVBL[SDA] 00843 M00S00716.probe +++| THEN # NO DATA PRESENT # 00844 M00S00717.probe +++| BEGIN
| Line S00718 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00845 M01S00718.v23l617 ---| WRITEW(BFET[0],SBUF[0],SFM$LEN[SDAL],STAT);
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00846 M01S00053.v23l617 +++| WRITEW(BFET[0],SBUF[0],SFM$LEN[SDA],STAT); 00847 M00S00719.probe +++| END 00848 M00S00720.probe +++| 00849 M00S00721.probe +++| WRITER(BFET[0],RCL); 00850 M00S00722.probe +++| 00851 M00S00723.probe +++| IF NOT SFM$AVBL[PROBE] 00852 M00S00724.probe +++| THEN # NO DATA PRESENT # 00853 M00S00725.probe +++| BEGIN 00854 M00S00726.probe +++| WRITEW(BFET[0],PBUF[0],SFM$LEN[PROBE],STAT); 00855 M00S00727.probe +++| END 00856 M00S00728.probe +++| 00857 M00S00729.probe +++| WRITER(BFET[0],RCL); 00858 M00S00730.probe +++|
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00731.probe +++| IF ARG$R[0] NQ 0 00867 M00S00732.probe +++| THEN # REWIND FILE # 00868 M00S00733.probe +++| BEGIN 00869 M00S00734.probe +++| REWIND(BFET[0],RCL); 00870 M00S00735.probe +++| END 00871 M00S00736.probe +++| 00872 M00S00737.probe +++| END # WRITE ARCHIVE FILE # 00873 M00S00738.probe +++| 00874 M00S00739.probe +++| RETURN; 00875 M00S00740.probe +++| END # INPUT # 00876 M00S00741.probe +++| 00877 M00S00742.probe +++| TERM 00878 M00S00743.probe +++|PROC RPTCIO; 00879 M00S00744.probe +++|# TITLE RPTCIO - GENERATE *CIO* REQUESTS REPORT. # 00880 M00S00745.probe +++| 00881 M00S00746.probe +++| BEGIN # RPTCIO # 00882 M00S00747.probe +++| 00883 M00S00748.probe +++|# 00884 M00S00749.probe +++|** RPTCIO - GENERATE *CIO* REQUESTS REPORT. 00885 M00S00750.probe +++|* 00886 M00S00751.probe +++|* THIS PROCEDURE WILL TAKE THE RAW DATA AND FORMAT IT 00887 M00S00752.probe +++|* INTO THE *CIO* REQUEST REPORT. IT WILL DELETE ALL 00888 M00S00753.probe +++|* OF THE FUNCTION CODES WHICH HAVE NO CALLS. 00889 M00S00754.probe +++|* 00890 M00S00755.probe +++|* PROC RPTCIO 00891 M00S00756.probe +++|* 00892 M00S00757.probe +++|* EXIT REPORT PRINTED. 00893 M00S00758.probe +++|* 00894 M00S00759.probe +++|* NOTES 00895 M00S00760.probe +++|* THE *TTCIO* TABLE IS FILLED OUT WITH THE NON EXISTENT 00896 M00S00761.probe +++|* FUNCTION CODES. 00897 M00S00762.probe +++|# 00898 M00S00763.probe +++| 00899 M00S00764.probe +++|# 00900 M00S00765.probe +++|**** PROC RPTCIO - XREF LIST BEGIN. 00901 M00S00766.probe +++|# 00902 M00S00767.probe +++| 00903 M00S00768.probe +++| XREF 00904 M00S00769.probe +++| BEGIN 00905 M00S00770.probe +++| PROC RPLINE; # OUTPUT LINE # 00906 M00S00771.probe +++| PROC RPSPACE; # OUTPUT BLANK LINE # 00907 M00S00772.probe +++| FUNC XCDD C(10); # CONVERT TO DISPLAY # 00908 M00S00773.probe +++| END 00909 M00S00774.probe +++| 00910 M00S00775.probe +++|# 00911 M00S00776.probe +++|**** PROC RPTCIO - XREF LIST END. 00912 M00S00777.probe +++|# 00913 M00S00778.probe +++| 00914 M00S00779.probe +++| DEF HDRMAIN #"CIO REQUESTS"#; # MAIN HEADER # 00915 M00S00780.probe +++| DEF HDRCOLUMN #"FUNCTION CALLS"#; # HEADERS # 00916 M00S00781.probe +++| DEF HDRTOTAL #"TOTAL CIO FUNCTIONS PROCESSED"#; # LABEL FOR 00917 M00S00782.probe +++| TOTAL # 00918 M00S00783.probe +++| DEF TTCIL #O"200"#; # INDEX FOR *CIO* LABELS # 00919 M00S00784.probe +++| 00920 M00S00785.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL #
| Line S00786 Modification History | |
|---|---|
M01 (Removed by) | ns2403 |
Seq # *Modification Id* Act ----------------------------+ 00921 M01S00786.ns2403 ---|*CALL COMAMSS; 00922 M01S00787.ns2403 ---|*CALL COMSPDT; 00923 M01S00788.ns2403 ---|*CALL COMUFMT; 00924 M01S00789.ns2403 ---|*CALL COMUOUT; 00925 M01S00790.ns2403 ---|*CALL COMUPRB;
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2403 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00791.probe +++| 00932 M00S00792.probe +++| ITEM COUNT I; # TOTAL *CIO* CALL COUNTS # 00933 M00S00793.probe +++| ITEM I I; # LOOP CONTROL COUNTER # 00934 M00S00794.probe +++| ITEM PLINE B; # OUTPUT LINE CONTROL # 00935 M00S00795.probe +++| ITEM TEMP C(10); # WORKING STORAGE # 00936 M00S00796.probe +++| 00937 M00S00797.probe +++| BASED 00938 M00S00798.probe +++| ARRAY CIO [0:0] S(1); 00939 M00S00799.probe +++| BEGIN 00940 M00S00800.probe +++| ITEM CIO$CNT U(00,00,60); # NUMBER OF *CIO* CALLS # 00941 M00S00801.probe +++| ITEM CIO$CNT1 U(00,00,30); 00942 M00S00802.probe +++| ITEM CIO$CNT2 U(00,30,30); 00943 M00S00803.probe +++| END 00944 M00S00804.probe +++| 00945 M00S00805.probe +++| ARRAY HEAD [0:0] S(6); 00946 M00S00806.probe +++| BEGIN 00947 M00S00807.probe +++| ITEM HEAD$TEXT C(00,00,60); # TOTAL LINE # 00948 M00S00808.probe +++| ITEM HEAD$TEX0 C(00,00,30); # LEFT COLUMN # 00949 M00S00809.probe +++| ITEM HEAD$TEX1 C(03,00,30); # RIGHT COLUMN # 00950 M00S00810.probe +++| END 00951 M00S00811.probe +++| 00952 M00S00812.probe +++| ARRAY LINE [0:0] S(3); 00953 M00S00813.probe +++| BEGIN 00954 M00S00814.probe +++| ITEM LINE$NAME C(00,00,20); # *CIO* FUNCTION NAME # 00955 M00S00815.probe +++| ITEM LINE$CNT C(02,00,08) ; # *CIO* FUNCTION COUNT # 00956 M00S00816.probe +++| ITEM LINE$FILL C(02,48,02) = [" "]; # FILLER # 00957 M00S00817.probe +++| END 00958 M00S00818.probe +++| 00959 M00S00819.probe +++| ARRAY TTCIO [0:TTCIL] S(2); 00960 M00S00820.probe +++| BEGIN 00961 M00S00821.probe +++| ITEM TTCIO$NAME C(00,00,20) = [ ## 00962 M00S00822.probe +++| "RPHR(000)", # READ PHYSICAL RECORD # 00963 M00S00823.probe +++| "WPHR(004)", # WRITE PHYSICAL RECORD # 00964 M00S00824.probe +++| "READ(010)", # BUFFER READ # 00965 M00S00825.probe +++| "WRITE(014)", # BUFFER WRITE # 00966 M00S00826.probe +++| "READSKP(020)", # READS SKIP # 00967 M00S00827.probe +++| "WRITER(024)", # WRITE END OF RECORD # 00968 M00S00828.probe +++| "****(30) ", # FILLER # 00969 M00S00829.probe +++| "WRITEF(034)", # WRITE END OF FILE # 00970 M00S00830.probe +++| "BKSP(040)", # BACKSPACE FILE # 00971 M00S00831.probe +++| "BKSPRU(044)", # BACKSPACE ONE RECORD # 00972 M00S00832.probe +++| "REWIND(050)", # REWIND FILE # 00973 M00S00833.probe +++| "****(54) ", # FILLER # 00974 M00S00834.probe +++| "UNLOAD(060)", # REWIND AND UNLOAD FILE # 00975 M00S00835.probe +++| "****(64) ", # FILLER # 00976 M00S00836.probe +++| "RETURN(070)", # RELEASE FILE # 00977 M00S00837.probe +++| "****(74) ", # FILLER # 00978 M00S00838.probe +++| "OPEN(100)", # READ, NO REWIND # 00979 M00S00839.probe +++| "OPEN(104)", # WRITE, NO REWIND # 00980 M00S00840.probe +++| "POSMF(110)", # POSITION MULTIFILE TAPE # 00981 M00S00841.probe +++| "EVICT(114)", # RELEASE FILE SPACE # 00982 M00S00842.probe +++| "OPEN(120)", # NO REWIND # 00983 M00S00843.probe +++| "****(124) ", # FILLER # 00984 M00S00844.probe +++| "CLOSE(130)", # NO REWIND # 00985 M00S00845.probe +++| "****(134) ", # FILLER # 00986 M00S00846.probe +++| "OPEN(140)", # READ AND REWIND # 00987 M00S00847.probe +++| "OPEN(144)", # WRITE AND REWIND # 00988 M00S00848.probe +++| "CLOSE(150)", # REWIND # 00989 M00S00849.probe +++| "****(154) ", # FILLER # 00990 M00S00850.probe +++| "OPEN(160)", # ALTER AND REWIND # 00991 M00S00851.probe +++| "****(164) ", # FILLER # 00992 M00S00852.probe +++| "CLOSE(170)", # REWIND AND UNLOAD # 00993 M00S00853.probe +++| "CLOSE(174)", # REWIND # 00994 M00S00854.probe +++| "READCW(200)", # CONTROL WORD READ # 00995 M00S00855.probe +++| "WRITECW(204)", # CONTROL WORD WRITE # 00996 M00S00856.probe +++| "READLS(210)", # READ NONSTOP WITH LIST # 00997 M00S00857.probe +++| "REWRITE(214)", # BUFFER REWRITE IN PLACE # 00998 M00S00858.probe +++| "****(220) ", # FILLER # 00999 M00S00859.probe +++| "REWRITER(224)", # END OF RECORD REWRITE IN PLACE # 01000 M00S00860.probe +++| "RPHRLS(230)", # READ PRUS WITH LIST # 01001 M00S00861.probe +++| "REWRITEF(234)", # END OF FILE REWRITE IN PLACE # 01002 M00S00862.probe +++| "SKIPF(240)", # SKIP FORWARD #
| Line S00863 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01003 M01S00863.ns22000 ---| "****(244) ", # FILLER #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01004 M01S00001.ns22000 +++| "OVWRITE(244)", # OVERWRITE # 01005 M00S00864.probe +++| "READNS(250)", # READ NONSTOP #
| Line S00865 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01006 M01S00865.ns22000 ---| "****(254) ", # FILLER #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01007 M01S00002.ns22000 +++| "OVWRITE(254)", # OVERWRITE RETURN # 01008 M00S00866.probe +++| "READN(260)", # READ FORMATTED TAPE # 01009 M00S00867.probe +++| "WRITEN(264)", # WRITE FORMATTED TAPE # 01010 M00S00868.probe +++| "****(270) ", # FILLER # 01011 M00S00869.probe +++| "****(274) ", # FILLER # 01012 M00S00870.probe +++| "OPEN(300)", # READ REAL, NO REWIND # 01013 M00S00871.probe +++| "****(304) ", # FILLER # 01014 M00S00872.probe +++| "****(310) ", # FILLER # 01015 M00S00873.probe +++| "****(314) ", # FILLER # 01016 M00S00874.probe +++| "****(320) ", # FILLER # 01017 M00S00875.probe +++| "****(324) ", # FILLER # 01018 M00S00876.probe +++| "CLOSE(330)", # NO REWIND # 01019 M00S00877.probe +++| "****(334) ", # FILLER # 01020 M00S00878.probe +++| "OPEN(340)", # READ REEL AND REWIND # 01021 M00S00879.probe +++| "****(344) ", # FILLER # 01022 M00S00880.probe +++| "CLOSE(350)", # REWIND # 01023 M00S00881.probe +++| "****(354) ", # FILLER # 01024 M00S00882.probe +++| "****(360) ", # FILLER # 01025 M00S00883.probe +++| "****(364) ", # FILLER # 01026 M00S00884.probe +++| "CLOSE(370)", # REWIND AND UNLOAD # 01027 M00S00885.probe +++| "****(374) ", # FILLER # 01028 M00S00886.probe +++| "****(400) ", # FILLER # 01029 M00S00887.probe +++| "****(404) ", # FILLER # 01030 M00S00888.probe +++| "****(410) ", # FILLER # 01031 M00S00889.probe +++| "****(414) ", # FILLER # 01032 M00S00890.probe +++| "****(420) ", # FILLER # 01033 M00S00891.probe +++| "****(424) ", # FILLER # 01034 M00S00892.probe +++| "****(430) ", # FILLER # 01035 M00S00893.probe +++| "****(434) ", # FILLER # 01036 M00S00894.probe +++| "****(440) ", # FILLER # 01037 M00S00895.probe +++| "****(444) ", # FILLER # 01038 M00S00896.probe +++| "****(450) ", # FILLER # 01039 M00S00897.probe +++| "****(454) ", # FILLER # 01040 M00S00898.probe +++| "****(460) ", # FILLER # 01041 M00S00899.probe +++| "****(464) ", # FILLER # 01042 M00S00900.probe +++| "****(470) ", # FILLER # 01043 M00S00901.probe +++| "****(474) ", # FILLER # 01044 M00S00902.probe +++| "****(500) ", # FILLER # 01045 M00S00903.probe +++| "****(504) ", # FILLER # 01046 M00S00904.probe +++| "****(510) ", # FILLER # 01047 M00S00905.probe +++| "****(514) ", # FILLER # 01048 M00S00906.probe +++| "****(520) ", # FILLER # 01049 M00S00907.probe +++| "****(524) ", # FILLER # 01050 M00S00908.probe +++| "****(530) ", # FILLER # 01051 M00S00909.probe +++| "****(534) ", # FILLER # 01052 M00S00910.probe +++| "****(540) ", # FILLER # 01053 M00S00911.probe +++| "****(544) ", # FILLER # 01054 M00S00912.probe +++| "****(550) ", # FILLER # 01055 M00S00913.probe +++| "****(554) ", # FILLER # 01056 M00S00914.probe +++| "****(560) ", # FILLER # 01057 M00S00915.probe +++| "****(564) ", # FILLER # 01058 M00S00916.probe +++| "****(570) ", # FILLER # 01059 M00S00917.probe +++| "****(574) ", # FILLER # 01060 M00S00918.probe +++| "READEI(600)", # READ TO EOI # 01061 M00S00919.probe +++| "****(604) ", # FILLER # 01062 M00S00920.probe +++| "****(610) ", # FILLER # 01063 M00S00921.probe +++| "****(614) ", # FILLER # 01064 M00S00922.probe +++| "****(620) ", # FILLER # 01065 M00S00923.probe +++| "****(624) ", # FILLER # 01066 M00S00924.probe +++| "****(630) ", # FILLER # 01067 M00S00925.probe +++| "****(634) ", # FILLER # 01068 M00S00926.probe +++| "SKIPB(640)", # SKIP BACKWARD # 01069 M00S00927.probe +++| ]; 01070 M00S00928.probe +++| END 01071 M00S00929.probe +++| 01072 M00S00930.probe +++| CONTROL EJECT; 01073 M00S00931.probe +++| 01074 M00S00932.probe +++| 01075 M00S00933.probe +++|# 01076 M00S00934.probe +++|* PRINT REPORT HEADER. 01077 M00S00935.probe +++|# 01078 M00S00936.probe +++| 01079 M00S00937.probe +++| P<CIO> = SFM$BUFF[PROBE]+TCIO; # SET FWA OF *CIO* ARRAY # 01080 M00S00938.probe +++| 01081 M00S00939.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01082 M00S00940.probe +++| 01083 M00S00941.probe +++| RPLINE(LOC(OUTFET),HDRMAIN,10,12,END$LN); 01084 M00S00942.probe +++| 01085 M00S00943.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01086 M00S00944.probe +++| 01087 M00S00945.probe +++| HEAD$TEX0[0] = HDRCOLUMN; # COLUMN HEADERS # 01088 M00S00946.probe +++| HEAD$TEX1[0] = HDRCOLUMN; 01089 M00S00947.probe +++| 01090 M00S00948.probe +++| RPLINE(LOC(OUTFET),HEAD,10,60,END$LN); 01091 M00S00949.probe +++| 01092 M00S00950.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01093 M00S00951.probe +++| 01094 M00S00952.probe +++| PLINE = TRUE; # SET THE CONTINUE OUTPUT FLAG # 01095 M00S00953.probe +++| 01096 M00S00954.probe +++| SLOWFOR I = 0 STEP 1 UNTIL (TCIOL - 1) 01097 M00S00955.probe +++| DO 01098 M00S00956.probe +++| BEGIN # COLLECTION OF *CIO* DATA # 01099 M00S00957.probe +++| IF CIO$CNT2[I] NQ 0 01100 M00S00958.probe +++| THEN # CHECK FOR NO DATA # 01101 M00S00959.probe +++| BEGIN # OUTPUT DATA # 01102 M00S00960.probe +++| LINE$NAME[0] = TTCIO$NAME[2*I+0]; # *CIO* FUNCTION NAME # 01103 M00S00961.probe +++| COUNT = COUNT + CIO$CNT2[I]; 01104 M00S00962.probe +++| TEMP = XCDD(CIO$CNT2[I]); # *CIO* FUNCTION COUNT # 01105 M00S00963.probe +++| LINE$CNT[0] = C<2,8>TEMP; 01106 M00S00964.probe +++| 01107 M00S00965.probe +++| IF PLINE 01108 M00S00966.probe +++| THEN # CONTINUE LINE FORMAT # 01109 M00S00967.probe +++| BEGIN 01110 M00S00968.probe +++| RPLINE(LOC(OUTFET),LINE,10,30,CONT$LN); # OUTPUT CURRENT 01111 M00S00969.probe +++| LINE # 01112 M00S00970.probe +++| PLINE = FALSE; 01113 M00S00971.probe +++| END 01114 M00S00972.probe +++| 01115 M00S00973.probe +++| ELSE # END LINE FORMAT # 01116 M00S00974.probe +++| BEGIN 01117 M00S00975.probe +++| RPLINE(LOC(OUTFET),LINE,40,30,END$LN); 01118 M00S00976.probe +++| PLINE = TRUE; 01119 M00S00977.probe +++| END 01120 M00S00978.probe +++| 01121 M00S00979.probe +++| END # OUTPUT DATA # 01122 M00S00980.probe +++| 01123 M00S00981.probe +++| IF CIO$CNT1[I] NQ 0 01124 M00S00982.probe +++| THEN # CHECK FOR NO DATA # 01125 M00S00983.probe +++| BEGIN # OUTPUT DATA # 01126 M00S00984.probe +++| LINE$NAME[0] = TTCIO$NAME[2*I+1]; # *CIO* FUNCTION NAME # 01127 M00S00985.probe +++| 01128 M00S00986.probe +++| COUNT = COUNT + CIO$CNT1[I]; 01129 M00S00987.probe +++| 01130 M00S00988.probe +++| TEMP = XCDD(CIO$CNT1[I]); # *CIO* FUNCTION COUNT # 01131 M00S00989.probe +++| LINE$CNT[0] = C<2,8>TEMP; 01132 M00S00990.probe +++| IF NOT PLINE 01133 M00S00991.probe +++| THEN # END LINE FORMAT # 01134 M00S00992.probe +++| BEGIN 01135 M00S00993.probe +++| RPLINE(LOC(OUTFET),LINE,40,30,END$LN); 01136 M00S00994.probe +++| PLINE = TRUE; 01137 M00S00995.probe +++| END 01138 M00S00996.probe +++| 01139 M00S00997.probe +++| ELSE 01140 M00S00998.probe +++| BEGIN # CONTINUE LINE FORMAT # 01141 M00S00999.probe +++| RPLINE(LOC(OUTFET),LINE,10,30,CONT$LN); 01142 M00S01000.probe +++| PLINE = FALSE; 01143 M00S01001.probe +++| END 01144 M00S01002.probe +++| 01145 M00S01003.probe +++| END # OUTPUT DATA # 01146 M00S01004.probe +++| 01147 M00S01005.probe +++| END # COLLECTION OF *CIO* DATA # 01148 M00S01006.probe +++| 01149 M00S01007.probe +++|# 01150 M00S01008.probe +++|* OUTPUT TOTAL NUMBER OF *CIO* FUNCTIONS PROCESSED. 01151 M00S01009.probe +++|# 01152 M00S01010.probe +++| 01153 M00S01011.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01154 M00S01012.probe +++| 01155 M00S01013.probe +++| HEAD$TEX0[0] = HDRTOTAL; 01156 M00S01014.probe +++| TEMP = XCDD(COUNT); # CONVERT *CIO* FUNCTIONS COUNT # 01157 M00S01015.probe +++| HEAD$TEX1[0] = TEMP; # SET OUTPUT # 01158 M00S01016.probe +++| 01159 M00S01017.probe +++| RPLINE(LOC(OUTFET),HEAD,10,60,END$LN); 01160 M00S01018.probe +++| 01161 M00S01019.probe +++| END # RPTCIO # 01162 M00S01020.probe +++| 01163 M00S01021.probe +++| TERM
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | probe2 |
Seq # *Modification Id* Act ----------------------------+ 01205 M02S00123.probe2 ---| #" SECTORS CBT-S "#;
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | probe2 |
Seq # *Modification Id* Act ----------------------------+ 01206 M01S00001.probe2 +++| #" CBT-S SECTORS "#;
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
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 M00S01022.probe +++|PROC RPTMON;
01332 M00S01023.probe +++|# TITLE RPTMON - GENERATE *MTR* REQUEST REPORT #
01333 M00S01024.probe +++|
01334 M00S01025.probe +++| BEGIN # RPTMON #
01335 M00S01026.probe +++|
01336 M00S01027.probe +++|#
01337 M00S01028.probe +++|** RPTMON - GENERATE *MTR* REQUEST REPORT.
01338 M00S01029.probe +++|*
01339 M00S01030.probe +++|* THE REPORT IS GENERATED FROM THE RAW DATA AND
01340 M00S01031.probe +++|* MATCHED WITH THE APPROPRIATE FUNCTION.
01341 M00S01032.probe +++|*
01342 M00S01033.probe +++|* PROC RPTMON
01343 M00S01034.probe +++|*
01344 M00S01035.probe +++|* EXIT REPORT PRINTED.
01345 M00S01036.probe +++|#
01346 M00S01037.probe +++|
01347 M00S01038.probe +++|#
01348 M00S01039.probe +++|**** PROC RPTMON - XREF LIST BEGIN.
01349 M00S01040.probe +++|#
01350 M00S01041.probe +++|
01351 M00S01042.probe +++| XREF
01352 M00S01043.probe +++| BEGIN
01353 M00S01044.probe +++| PROC RPLINE; # OUTPUT LINE #
01354 M00S01045.probe +++| PROC RPSPACE; # OUTPUT BLANK LINE #
01355 M00S01046.probe +++| FUNC XCDD C(10); # CONVERT TO DISPLAY #
01356 M00S01047.probe +++| FUNC XCOD C(10); # CONVERT TO OCTAL DISPLAY #
01357 M00S01048.probe +++| END
01358 M00S01049.probe +++|
01359 M00S01050.probe +++|#
01360 M00S01051.probe +++|**** PROC RPTMON - XREF LIST END.
01361 M00S01052.probe +++|#
01362 M00S01053.probe +++|
01363 M00S01054.probe +++| DEF HDRCOLUMN #"CPU0 CPU1"#; # COLUMN HEADERS #
01364 M00S01055.probe +++| DEF HDRMTR #"MTR REQUESTS"#; # REPORT TYPE #
01365 M00S01056.probe +++| DEF HDRSUBTOT #"SUBTOTAL"#; # COLUMN TOTAL #
01366 M00S01057.probe +++| DEF HDRTOTAL #"TOTAL"#; # TOTAL OF COLUMNS #
01367 M00S01058.probe +++|
01368 M00S01059.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL #
01369 M00S01060.probe +++|
01370 M00S01061.probe +++|*CALL COMAMSS
01371 M00S01062.probe +++|*CALL COMSPDT
01372 M00S01063.probe +++|*CALL COMUFMT
01373 M00S01064.probe +++|*CALL COMUOUT
01374 M00S01065.probe +++|*CALL COMUPRB
01375 M00S01066.probe +++|
01376 M00S01067.probe +++|
01377 M00S01068.probe +++| ITEM COUNT0 I; # CPU 0 COUNTER #
01378 M00S01069.probe +++| ITEM COUNT1 I; # CPU 1 COUNTER #
01379 M00S01070.probe +++| ITEM I I; # LOOP CONTROL #
01380 M00S01071.probe +++| ITEM TEMP C(10); # WORKING STORAGE #
01381 M00S01072.probe +++|
01382 M00S01073.probe +++| ARRAY HEAD [0:0] S(3);
01383 M00S01074.probe +++| BEGIN
01384 M00S01075.probe +++| ITEM HEAD$TEX0 C(00,00,30); # TOTAL LINE #
01385 M00S01076.probe +++| ITEM HEAD$TEX1 C(00,00,20); # TOTAL HEADERS #
01386 M00S01077.probe +++| ITEM HEAD$TEX2 C(01,12,08); # SUBTOTAL COUNT #
01387 M00S01078.probe +++| ITEM HEAD$TEX3 C(01,30,04); # CPU 0 HEADER #
01388 M00S01079.probe +++| ITEM HEAD$TEX4 C(02,12,08); # TOTAL COUNT #
01389 M00S01080.probe +++| ITEM HEAD$TEX5 C(02,30,04); # CPU 1 HEADER #
01390 M00S01081.probe +++| END
01391 M00S01082.probe +++|
01392 M00S01083.probe +++| ARRAY LINE [0:0] S(3); # OUTPUT LINE FORMAT #
01393 M00S01084.probe +++| BEGIN
01394 M00S01085.probe +++| ITEM LINE$BLANK C(00,00,30) = [" "]; # BLANK FILL #
01395 M00S01086.probe +++| ITEM LINE$NAME C(00,12,04); # FUNCTION NAME #
01396 M00S01087.probe +++| ITEM LINE$LPAR C(00,36,01) = ["("]; # LEFT PARENTHESIS #
01397 M00S01088.probe +++| ITEM LINE$NUM C(00,42,02); # FUNCTION CODE #
01398 M00S01089.probe +++| ITEM LINE$RPAR C(00,54,01) = [")"]; # RIGHT PARENTHESIS #
01399 M00S01090.probe +++| ITEM LINE$MCPU0 C(01,12,08); # MONITOR MODE - CPU 0 COUNT #
01400 M00S01091.probe +++| ITEM LINE$MCPU1 C(02,12,08); # MONITOR MODE - CPU 1 COUNT #
01401 M00S01092.probe +++| END
01402 M00S01093.probe +++|
01403 M00S01094.probe +++| ARRAY MMTR [1:MXP1] S(1); # FUNCTION NAMES #
01404 M00S01095.probe +++| BEGIN
01405 M00S01096.probe +++| ITEM MMTR$TEXT C(00,00,04) = [ ##
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01406 M01S00001.271l750 +++| "CSWF", # SWITCH CPU # 01407 M00S01097.probe +++| "ARTF", # UPDATE RUNNING TIME #
| Line S01098 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01408 M01S01098.271l716 ---| "IARF", # INITIATE AUTO RECALL # 01409 M00S01099.probe +++| "CSLF", # CHECK SUBCP TIME LIMIT #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01410 M01S00001.271l716 +++| "EPRF", # ENTER PROGRAM MODE REQUEST # 01411 M00S01100.probe +++| "RCLF", # RECALL CPU # 01412 M00S01101.probe +++| "MFLF", # MODIFY FL #
| Line S01102 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01413 M01S01102.271l716 ---| "SCSF", # RESET CPU *I* STATUS #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01414 M01S00002.271l716 +++| "MRAF", # MODIFY RA #
| Line S01103 Modification History | |
|---|---|
M01 (Removed by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 01415 M01S01103.ns2726 ---| "SMSF", # SET MONITOR STEP # 01416 M01S01104.ns2726 ---| "CMSF", # CLEAR MONITOR STEP #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 01417 M01S00001.ns2726 +++| "MSCF", # MONITOR STEP CONTROL # 01418 M00S01105.probe +++| "PRQF", # PROCESS RECALL REQUEST QUEUE #
| Line S01106 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01419 M01S01106.271l750 ---| "ACSF", # ADVANCE CPU SWITCH #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01420 M01S00002.271l750 +++| "TCSF", # SWITCH CPU ON TIME SLICE # 01421 M00S01107.probe +++| "PCXF", # PROCESS ALTERNATE CPU SWITCH # 01422 M00S01108.probe +++| "ARMF", # ADVANCE RUNNING TIME - MMF 01423 M00S01109.probe +++| MODE #
| Line S01110 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01424 M01S01110.271l716 ---| "----", # RESERVED #
| Line S01111 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01425 M02S01111.271l716 ---| "MFEF"]; # MODIFY ECS FL #
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01426 M02S00054.271l716 ---| "MFEF"]; # MODIFY EXTENDED MEMORY FL #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01427 M01S00003.271l716 +++| "UCCF", # UPDATE CTI CLOCK # 01428 M01S00004.271l716 +++| "CRAF", # CHANGE RA #
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 01429 M02S00005.ns2726 ---| "ADTF"]; # ADVANCE DATE AND TIME #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2726 |
Seq # *Modification Id* Act ----------------------------+ 01430 M01S00002.ns2726 +++| "ADTF", # ADVANCE DATE AND TIME # 01431 M01S00003.ns2726 +++| "SKCF"]; # SET K DISPLAY COMPLETE BIT # 01432 M00S01112.probe +++| END 01433 M00S01113.probe +++| 01434 M00S01114.probe +++|# 01435 M00S01115.probe +++|* THE SECTION OF THE *PROBE* DATA BUFFER WHICH CONTAINS 01436 M00S01116.probe +++|* THE NUMBER OF *MTR* REQUESTS. 01437 M00S01117.probe +++|# 01438 M00S01118.probe +++| 01439 M00S01119.probe +++| BASED 01440 M00S01120.probe +++| ARRAY MTR [1:1] S(1); 01441 M00S01121.probe +++| BEGIN 01442 M00S01122.probe +++| ITEM MTR$CNT1 U(00,00,30); # MONITOR MODE - CPU 1 COUNT # 01443 M00S01123.probe +++| ITEM MTR$CNT0 U(00,30,30); # MONITOR MODE - CPU 0 COUNT # 01444 M00S01124.probe +++| END 01445 M00S01125.probe +++| 01446 M00S01126.probe +++| CONTROL EJECT; 01447 M00S01127.probe +++| 01448 M00S01128.probe +++| 01449 M00S01129.probe +++|# 01450 M00S01130.probe +++|* GENERATE *MTR* REQUEST REPORT. 01451 M00S01131.probe +++|# 01452 M00S01132.probe +++| 01453 M00S01133.probe +++| P<MTR> = SFM$BUFF[PROBE]+TMTR; ## 01454 M00S01134.probe +++| 01455 M00S01135.probe +++|# 01456 M00S01136.probe +++|* OUTPUT REPORT HEADER. 01457 M00S01137.probe +++|# 01458 M00S01138.probe +++| 01459 M00S01139.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01460 M00S01140.probe +++| 01461 M00S01141.probe +++| RPLINE(LOC(OUTFET),HDRMTR,10,12,END$LN); 01462 M00S01142.probe +++| 01463 M00S01143.probe +++| RPSPACE(LOC(OUTFET),SP"SPACE",1); # OUTPUT BLANK LINE # 01464 M00S01144.probe +++| 01465 M00S01145.probe +++| HEAD$TEX0[0] = " "; # CLEAR LINE # 01466 M00S01146.probe +++| 01467 M00S01147.probe +++| RPLINE(LOC(OUTFET),HDRCOLUMN,25,14,END$LN); 01468 M00S01148.probe +++| 01469 M00S01149.probe +++| FASTFOR I = 1 STEP 1 UNTIL MXP1 01470 M00S01150.probe +++| DO 01471 M00S01151.probe +++| BEGIN 01472 M00S01152.probe +++| LINE$NAME[0] = MMTR$TEXT[I]; # SET FUNCTION NAME # 01473 M00S01153.probe +++| TEMP = XCOD(I); # SET FUNCTION CODE # 01474 M00S01154.probe +++| LINE$NUM[0] = C<8,2>TEMP; 01475 M00S01155.probe +++| COUNT0 = COUNT0 + MTR$CNT0[I]; # CPU 0 COUNT # 01476 M00S01156.probe +++| TEMP = XCDD(MTR$CNT0[I]); # SET MONITOR MODE - CPU 0 COUNT # 01477 M00S01157.probe +++| LINE$MCPU0[0] = C<2,8>TEMP; 01478 M00S01158.probe +++| COUNT1 = COUNT1 + MTR$CNT1[I]; # CPU 1 COUNT # 01479 M00S01159.probe +++| TEMP = XCDD(MTR$CNT1[I]); # SET MONITOR MODE - CPU 1 COUNT # 01480 M00S01160.probe +++| LINE$MCPU1[0] = C<2,8>TEMP; 01481 M00S01161.probe +++| 01482 M00S01162.probe +++| RPLINE(LOC(OUTFET),LINE,10,30,END$LN); 01483 M00S01163.probe +++| END 01484 M00S01164.probe +++| 01485 M00S01165.probe +++|# 01486 M00S01166.probe +++|* OUTPUT CUMULATIVE TOTALS. 01487 M00S01167.probe +++|# 01488 M00S01168.probe +++| 01489 M00S01169.probe +++| HEAD$TEX0[0] = " "; # CLEAR LINE # 01490 M00S01170.probe +++| HEAD$TEX1[0] = HDRSUBTOT; # SUBTOTAL # 01491 M00S01171.probe +++| TEMP = XCDD(COUNT0); 01492 M00S01172.probe +++| HEAD$TEX2[0] = C<2,8>TEMP; # SET CPU 0 COUNT # 01493 M00S01173.probe +++| TEMP = XCDD(COUNT1); 01494 M00S01174.probe +++| HEAD$TEX4[0] = C<2,8>TEMP; # SET CPU 1 COUNT # 01495 M00S01175.probe +++| 01496 M00S01176.probe +++| RPLINE(LOC(OUTFET),HEAD,10,30,END$LN); 01497 M00S01177.probe +++| 01498 M00S01178.probe +++| HEAD$TEX0[0] = " "; # CLEAR LINE # 01499 M00S01179.probe +++| HEAD$TEX1[0] = HDRTOTAL; # TOTAL # 01500 M00S01180.probe +++| TEMP = XCDD(COUNT0 + COUNT1); # CPU 0 + CPU 1 = TOTAL # 01501 M00S01181.probe +++| HEAD$TEX2[0] = C<2,8>TEMP; # SET COUNT # 01502 M00S01182.probe +++| 01503 M00S01183.probe +++| RPLINE(LOC(OUTFET),HEAD,10,30,END$LN); 01504 M00S01184.probe +++| 01505 M00S01185.probe +++| END # RPTMON # 01506 M00S01186.probe +++| 01507 M00S01187.probe +++| TERM 01508 M00S01188.probe +++|PROC RPTMPP; 01509 M00S01189.probe +++|# TITLE RPTMPP - PERFORMANCE REPORT GENERATOR. # 01510 M00S01190.probe +++| 01511 M00S01191.probe +++| BEGIN # RPTMPP # 01512 M00S01192.probe +++| 01513 M00S01193.probe +++|# 01514 M00S01194.probe +++|** RPTMPP - PERFORMANCE REPORT GENERATOR. 01515 M00S01195.probe +++|* 01516 M00S01196.probe +++|* THIS CODE WILL PRODUCE THE PROBE *MTR* PERFORMANCE 01517 M00S01197.probe +++|* PARAMETERS. THESE ARE FOUND IN LOW CORE. 01518 M00S01198.probe +++|* 01519 M00S01199.probe +++|* PROC RPTMPP 01520 M00S01200.probe +++|* 01521 M00S01201.probe +++|* EXIT REPORT PRINTED. 01522 M00S01202.probe +++|# 01523 M00S01203.probe +++| 01524 M00S01204.probe +++|# 01525 M00S01205.probe +++|**** PROC RPTMPP - XREF LIST BEGIN. 01526 M00S01206.probe +++|# 01527 M00S01207.probe +++| 01528 M00S01208.probe +++| XREF 01529 M00S01209.probe +++| BEGIN 01530 M00S01210.probe +++| PROC RPLINE; # OUTPUT LINE # 01531 M00S01211.probe +++| PROC RPSPACE; # OUTPUT BLANK LINE # 01532 M00S01212.probe +++| FUNC XCDD C(10); # CONVERT TO DISPLAY # 01533 M00S01213.probe +++| END 01534 M00S01214.probe +++| 01535 M00S01215.probe +++|# 01536 M00S01216.probe +++|**** PROC RPTMPP - XREF LIST END. 01537 M00S01217.probe +++|# 01538 M00S01218.probe +++| 01539 M00S01219.probe +++| DEF MPPL0 #"MTR PERFORMANCE PARAMETERS"#; 01540 M00S01220.probe +++| DEF MPPL1 #"WORST CASE *MXN* TIME ="#; 01541 M00S01221.probe +++| DEF MPPL2 #"WORST CASE CYCLE TIME ="#; 01542 M00S01222.probe +++| DEF MPPL3 #"CPUMTR PERFORMANCE PARAMETERS"#;
| Line S01223 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01543 M01S01223.v23l617 ---| DEF MPPL4 #"NUMBER OF ECS STORAGE MOVES ="#; 01544 M01S01224.v23l617 ---| DEF MPPL5 #"NUMBER OF CM STORAGE MOVES ="#;
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01545 M01S00055.v23l617 +++| DEF MPPL4 #"EM STORAGE MOVES ="#; 01546 M01S00056.v23l617 +++| DEF MPPL5 #"CM STORAGE MOVES ="#; 01547 M00S01225.probe +++| DEF MPPL6 #"PP PRIORITY EXCHANGE REQUESTS ="#; 01548 M00S01226.probe +++| DEF MPPL7 #"1RO PERFORMANCE PARAMETERS"#; 01549 M00S01227.probe +++| DEF MPPL8 #"NUMBER OF ROLLOUTS ="#; 01550 M00S01228.probe +++| DEF MPPL9 #"NUMBER OF SECTORS ROLLED ="#; 01551 M00S01229.probe +++| DEF MPPL10 #"1SJ PERFORMANCE PARAMETERS"#;
| Line S01230 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01552 M01S01230.v23l617 ---| DEF MPPL11 #"COUNT OF ROLLOUTS FOR USER LIMITS ="#; 01553 M01S01231.v23l617 ---| DEF MPPL12 #"COUNT OF TIME SLICES ="#;
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01554 M01S00057.v23l617 +++| DEF MPPL11 #"ROLLOUTS FOR RESOURCE LIMITS ="#; 01555 M01S00058.v23l617 +++| DEF MPPL12 #"TIME SLICES ="#; 01556 M00S01232.probe +++| DEF MPPL13 #"COMMUNICATIONS BUFFER NOT AVAILABLE ="#;
| Line S01233 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01557 M01S01233.v23l617 ---| DEF MPPL14 #"COUNT OF TIMES RECALL STACK FULL ="#; 01558 M01S01234.v23l617 ---| DEF MPPL15 #"COUNT OF FL INCREASES FOR NEGATIVE FL ="#;
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 ="#;
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 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 ="#;
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01235.probe +++| 01584 M00S01236.probe +++| DEF LISTCON #0#; # COMMON DECK LIST CONTROL # 01585 M00S01237.probe +++| 01586 M00S01238.probe +++|*CALL COMAMSS 01587 M00S01239.probe +++|*CALL COMSPDT 01588 M00S01240.probe +++|*CALL COMUFMT 01589 M00S01241.probe +++|*CALL COMUOUT 01590 M00S01242.probe +++|*CALL COMUPRB 01591 M00S01243.probe +++| 01592 M00S01244.probe +++| ITEM TEMP C(10); # WORKING STORAGE # 01593 M00S01245.probe +++| 01594 M00S01246.probe +++| ARRAY LINE [0:0] S(6); # REPORT OUTPUT LINE # 01595 M00S01247.probe +++| BEGIN 01596 M00S01248.probe +++| ITEM LINE$BLL C(00,00,60) = [" "]; # BLANK FILL # 01597 M00S01249.probe +++| ITEM LINE$LABS C(00,00,43); # DATA LABELS #
| Line S01250 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01598 M01S01250.v23l617 ---| ITEM LINE$DATA1 C(03,48,10); # DATA OUTPUT # 01599 M01S01251.v23l617 ---| ITEM LINE$DATA C(04,18,10); # DATA OUTPUT #
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01600 M01S00070.v23l617 +++| ITEM LINE$DATA C(04,06,10); # DATA OUTPUT # 01601 M00S01252.probe +++| END 01602 M00S01253.probe +++| 01603 M00S01254.probe +++|#
| Line S01255 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01604 M01S01255.v23l617 ---|* SNAPSHOT OF PERFORMANCE AREA FROM LOW CORE.
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01605 M01S00071.v23l617 +++|* SNAPSHOT OF CMR STATISTICAL DATA AREA. 01606 M00S01256.probe +++|* THE SNAPSHOT IS TAKEN BY *SFM* AND PASSED 01607 M00S01257.probe +++|* WITH THE DATA. 01608 M00S01258.probe +++|# 01609 M00S01259.probe +++| 01610 M00S01260.probe +++| BASED
| Line S01261 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01611 M01S01261.v23l617 ---| ARRAY SDXL [0:0] S(7);
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01612 M02S00072.271l716 ---| ARRAY SDX [0:0] S(14);
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/probe.txt · Last modified: by 127.0.0.1