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);