cdc:nos2.source:opl.opl871:deck:taflog
Deck TAFLOG
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.taflog +++| IDENTIFICATION DIVISION. 00002 M01S00002.taflog +++| PROGRAM-ID. TAFLOG. 00003 M01S00003.taflog +++| AUTHOR. R L ERICKSON - DATA MANAGEMENT CONSULTING SERVICES. 00004 M01S00004.taflog +++| * T E SCHULL - 2/27/87.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | taflog |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M02S00005.281l803 ---| *COPYRIGHT. CONTROL DATA CORPORATION - 1987. 00006 M01S00001.281l803 +++| * 00007 M01S00002.281l803 +++| * COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00006.taflog +++| * 00009 M01S00007.taflog +++| * THIS PROGRAM PRODUCES A FORMATTED LISTING OF ALL THE 00010 M01S00008.taflog +++| * INFORMATION CONTAINED IN THE TAF SYSTEM JOURNAL FILE *JOUR0* 00011 M01S00009.taflog +++| * ON A FILE CALLED *JOURNAL*. TO EXECUTE THIS PROGRAM, *JOUR0* 00012 M01S00010.taflog +++| * MUST BE A LOCAL FILE. 00013 M01S00011.taflog +++| * 00014 M01S00012.taflog +++| * THE OUTPUT ON FILE *JOURNAL* IS FORMATTED ACCORDING TO THE 00015 M01S00013.taflog +++| * FOLLOWING HEADERS. 00016 M01S00014.taflog +++| * 00017 M01S00015.taflog +++| * SEQ - TRANSACTION SEQUENCE INDICATOR IN OCTAL. 00018 M01S00016.taflog +++| * 00019 M01S00017.taflog +++| * ORG - ORIGIN INDICATOR IN OCTAL. 00020 M01S00018.taflog +++| * 00021 M01S00019.taflog +++| * CNT - LENGTH OF JOURNAL MESSAGE IN CHARACTERS (ROUNDED UP TO 00022 M01S00020.taflog +++| * A WORD BOUNDARY). 00023 M01S00021.taflog +++| * 00024 M01S00022.taflog +++| * TASK - NAME OF TASK. 00025 M01S00023.taflog +++| * 00026 M01S00024.taflog +++| * TIME - HH.MM.SS IN DECIMAL. 00027 M01S00025.taflog +++| * 00028 M01S00026.taflog +++| * USER - USER NAME ASSOCIATED WITH THE TRANSACTION, IF TASK 00029 M01S00027.taflog +++| * ORIGIN. 00030 M01S00028.taflog +++| * 00031 M01S00029.taflog +++| * JOURNAL MESSAGE - MESSAGE JOURNALIZED BY TAF. 00032 M01S00030.taflog +++| * 00033 M01S00031.taflog +++| * DATE - YY/MM/DD (DATE WHEN TAF WAS BROUGHT UP) IN DECIMAL. 00034 M01S00032.taflog +++| * 00035 M01S00033.taflog +++| ENVIRONMENT DIVISION. 00036 M01S00034.taflog +++| CONFIGURATION SECTION. 00037 M01S00035.taflog +++| SOURCE-COMPUTER. CYBER-170. 00038 M01S00036.taflog +++| OBJECT-COMPUTER. CYBER-170. 00039 M01S00037.taflog +++| SPECIAL-NAMES. 00040 M01S00038.taflog +++| "TERMINAL" IS SCREEN 00041 M01S00039.taflog +++| . 00042 M01S00040.taflog +++| INPUT-OUTPUT SECTION. 00043 M01S00041.taflog +++| FILE-CONTROL. 00044 M01S00042.taflog +++| SELECT RPT-FILE 00045 M01S00043.taflog +++| ASSIGN TO JOURNAL 00046 M01S00044.taflog +++| USE "RT=Z" 00047 M01S00045.taflog +++| . 00048 M01S00046.taflog +++| DATA DIVISION. 00049 M01S00047.taflog +++| FILE SECTION. 00050 M01S00048.taflog +++| FD RPT-FILE 00051 M01S00049.taflog +++| LABEL RECORDS ARE OMITTED. 00052 M01S00050.taflog +++| 01 RPT-RECORD PIC X(136). 00053 M01S00051.taflog +++| * 00054 M01S00052.taflog +++| WORKING-STORAGE SECTION. 00055 M01S00053.taflog +++| 01 LOG-RECORD. 00056 M01S00054.taflog +++| * 00057 M01S00055.taflog +++| * THE LOG RECORD HEADER IS 30 CHARACTERS LONG. 00058 M01S00056.taflog +++| * 00059 M01S00057.taflog +++| 05 LOG-HEADER. 00060 M01S00058.taflog +++| 00061 M01S00059.taflog +++| 07 WORD-ONE. 00062 M01S00060.taflog +++| 00063 M01S00061.taflog +++| 10 FILLER PIC X(07). 00064 M01S00062.taflog +++| 10 LOG-TRAILER-CHARACTER-COUNT 00065 M01S00063.taflog +++| COMP-4 PIC 9(05). 00066 M01S00064.taflog +++| 00067 M01S00065.taflog +++| 07 WORD-TRANEX REDEFINES WORD-ONE. 00068 M01S00066.taflog +++| 10 TRANEX PIC X(07). 00069 M01S00067.taflog +++| 10 FILLER PIC X(03). 00070 M01S00068.taflog +++| 00071 M01S00069.taflog +++| 07 WORD-TWO. 00072 M01S00070.taflog +++| 10 TAF-TASK-NAME PIC X(07). 00073 M01S00071.taflog +++| 10 TAF-TIME. 00074 M01S00072.taflog +++| 15 TAF-HR PIC X(01). 00075 M01S00073.taflog +++| 15 TAF-MN PIC X(01). 00076 M01S00074.taflog +++| 15 TAF-SC PIC X(01). 00077 M01S00075.taflog +++| 00078 M01S00076.taflog +++| 07 WORD-DATE REDEFINES WORD-TWO. 00079 M01S00077.taflog +++| 10 FILLER PIC X(04). 00080 M01S00078.taflog +++| 10 TAF-YR PIC X(01). 00081 M01S00079.taflog +++| 10 TAF-MT PIC X(01). 00082 M01S00080.taflog +++| 10 TAF-DY PIC X(01). 00083 M01S00081.taflog +++| 10 FILLER PIC X(03). 00084 M01S00082.taflog +++| 00085 M01S00083.taflog +++| 07 WORD-THREE. 00086 M01S00084.taflog +++| 10 TAF-USERNAME PIC X(07). 00087 M01S00085.taflog +++| 10 FILLER PIC X(03). 00088 M01S00086.taflog +++| 00089 M01S00087.taflog +++| * 00090 M01S00088.taflog +++| * END OF LOG RECORD HEADER 00091 M01S00089.taflog +++| * 00092 M01S00090.taflog +++| 00093 M01S00091.taflog +++| * 00094 M01S00092.taflog +++| * LOG TRAILER DEFINITION FOLLOWS 00095 M01S00093.taflog +++| * 00096 M01S00094.taflog +++| 05 LOG-TRAILER PIC X(01) OCCURS 0 TO 65535 TIMES 00097 M01S00095.taflog +++| DEPENDING ON LOG-TRAILER-CHARACTER-COUNT. 00098 M01S00096.taflog +++| * 00099 M01S00097.taflog +++| 01 PRINT-A-LINE. 00100 M01S00098.taflog +++| 03 PRINT-HEADER. 00101 M01S00099.taflog +++| 05 FILLER PIC X(01) VALUE " ". 00102 M01S00100.taflog +++| 05 P-TAF-SEQ PIC X(08). 00103 M01S00101.taflog +++| 05 FILLER PIC X(01). 00104 M01S00102.taflog +++| 05 P-TAF-ORG PIC X(02). 00105 M01S00103.taflog +++| 05 FILLER PIC X(01). 00106 M01S00104.taflog +++| 05 P-CHAR-COUNT PIC ZZZZ9. 00107 M01S00105.taflog +++| 05 FILLER PIC X(01). 00108 M01S00106.taflog +++| 05 P-TASK-NAME PIC X(07). 00109 M01S00107.taflog +++| 05 FILLER PIC X(01). 00110 M01S00108.taflog +++| 05 P-TAF-HR PIC 9(02). 00111 M01S00109.taflog +++| 05 P-POINT-1 PIC X(01) VALUE ".". 00112 M01S00110.taflog +++| 05 P-TAF-MN PIC 9(02). 00113 M01S00111.taflog +++| 05 P-POINT-2 PIC X(01) VALUE ".". 00114 M01S00112.taflog +++| 05 P-TAF-SC PIC 9(02). 00115 M01S00113.taflog +++| 05 FILLER PIC X(01). 00116 M01S00114.taflog +++| 05 P-TAF-USERNAME PIC X(07). 00117 M01S00115.taflog +++| 05 FILLER PIC X(01). 00118 M01S00116.taflog +++| 03 P-LOG-TRAILER. 00119 M01S00117.taflog +++| 05 P-LOG PIC X(01) OCCURS 90. 00120 M01S00118.taflog +++| * 00121 M01S00119.taflog +++| 01 PRINT-DATE. 00122 M01S00120.taflog +++| 05 FILLER PIC X(15) VALUE " --------------". 00123 M01S00121.taflog +++| 05 FILLER PIC X(15) VALUE "---------------". 00124 M01S00122.taflog +++| 05 FILLER PIC X(14) VALUE "------------- ". 00125 M01S00123.taflog +++| 05 FILLER PIC X(07) VALUE "DATE - ". 00126 M01S00124.taflog +++| 05 P-TAF-YR PIC 9(02). 00127 M01S00125.taflog +++| 05 FILLER PIC X(01) VALUE "/". 00128 M01S00126.taflog +++| 05 P-TAF-MT PIC 9(02). 00129 M01S00127.taflog +++| 05 FILLER PIC X(01) VALUE "/". 00130 M01S00128.taflog +++| 05 P-TAF-DY PIC 9(02). 00131 M01S00129.taflog +++| 05 FILLER PIC X(15) VALUE " --------------". 00132 M01S00130.taflog +++| 05 FILLER PIC X(15) VALUE "---------------". 00133 M01S00131.taflog +++| 05 FILLER PIC X(15) VALUE "---------------". 00134 M01S00132.taflog +++| 05 FILLER PIC X(15) VALUE "---------------". 00135 M01S00133.taflog +++| 05 FILLER PIC X(12) VALUE "------------". 00136 M01S00134.taflog +++| * 00137 M01S00135.taflog +++| 01 RPT-HDG-1. 00138 M01S00136.taflog +++| 05 FILLER PIC X(09) VALUE "1 SEQ". 00139 M01S00137.taflog +++| 05 FILLER PIC X(06) VALUE "ORG". 00140 M01S00138.taflog +++| 05 FILLER PIC X(05) VALUE "CNT". 00141 M01S00139.taflog +++| 05 FILLER PIC X(08) VALUE "TASK". 00142 M01S00140.taflog +++| 05 FILLER PIC X(08) VALUE "TIME". 00143 M01S00141.taflog +++| 05 FILLER PIC X(08) VALUE "USER". 00144 M01S00142.taflog +++| 05 FILLER PIC X(15) VALUE "JOURNAL MESSAGE". 00145 M01S00143.taflog +++| 05 FILLER PIC X(29) VALUE " ". 00146 M01S00144.taflog +++| 05 FILLER PIC X(09) VALUE "(RECORDS". 00147 M01S00145.taflog +++| 05 REC-FROM PIC Z(05). 00148 M01S00146.taflog +++| 05 FILLER PIC X(02) VALUE " -". 00149 M01S00147.taflog +++| 05 REC-TO PIC Z(05). 00150 M01S00148.taflog +++| 05 FILLER PIC X(10) VALUE ") PAGE". 00151 M01S00149.taflog +++| 05 PAGE-CNT PIC Z(04). 00152 M01S00150.taflog +++| 01 RPT-HDG-2 PIC X(10) VALUE SPACES. 00153 M01S00151.taflog +++| 01 DET-COUNT COMP-1 PIC 9(10) VALUE 20. 00154 M01S00152.taflog +++| 01 REC-COUNT PIC 9(10) VALUE 0. 00155 M01S00153.taflog +++| 01 CNT-FROM PIC 9(06) VALUE 1. 00156 M01S00154.taflog +++| 01 CNT-TO PIC 9(06) VALUE 20. 00157 M01S00155.taflog +++| 01 CNT-PAGE PIC 9(05) VALUE 0. 00158 M01S00156.taflog +++| 01 SUB1 COMP-1 PIC 9(10). 00159 M01S00157.taflog +++| 01 PER-PAGE PIC 9(10) VALUE 58. 00160 M01S00158.taflog +++| 01 COMP-1-WORD COMP-1 PIC 9(10) VALUE 0. 00161 M01S00159.taflog +++| 01 COMP-1-WORD-R REDEFINES COMP-1-WORD. 00162 M01S00160.taflog +++| 05 FILLER PIC X(09). 00163 M01S00161.taflog +++| 05 ONE-CHARACTER PIC X(01). 00164 M01S00162.taflog +++| 01 LINE-LENGTH PIC 9(10) VALUE 90. 00165 M01S00163.taflog +++| 01 YEAR-OFFSET PIC 9(02) VALUE 70. 00166 M01S00164.taflog +++| 01 CHAR-COUNT PIC 9(10). 00167 M01S00165.taflog +++| 01 BLANK-LINE PIC X(132). 00168 M01S00166.taflog +++| 01 POINT PIC X(01) VALUE ".". 00169 M01S00167.taflog +++| 01 ZERO-COUNT PIC 9(10) VALUE 0. 00170 M01S00168.taflog +++| 01 NBR-WORDS COMP-1 PIC 9(10) VALUE 0. 00171 M01S00169.taflog +++| 01 W-TAF-SEQ. 00172 M01S00170.taflog +++| 05 FILLER PIC X(02). 00173 M01S00171.taflog +++| 05 TAF-SEQ PIC X(08). 00174 M01S00172.taflog +++| * 00175 M01S00173.taflog +++| * TAF-ORG CONTAINS ONE OF THE FOLLOWING: 00176 M01S00174.taflog +++| * 00177 M01S00175.taflog +++| * 0 TASK ORIGIN (JOURNAL REQUEST). 00178 M01S00176.taflog +++| * 1 TRANSACTION SUBSYSTEM ORIGIN (INPUT). 00179 M01S00177.taflog +++| * 2 DATA MANAGER ORIGIN. 00180 M01S00178.taflog +++| * 3 TRANSACTION SUBSYSTEM RECOVERY/STATISTICAL DATA. 00181 M01S00179.taflog +++| * 4 END OF TRANSACTION INDICATOR. 00182 M01S00180.taflog +++| * 5 INCOMPLETE BLOCK OF TERMINAL INPUT DATA. 00183 M01S00181.taflog +++| * 6 TERMINAL INPUT FOR AN INTERACTIVE TASK. 00184 M01S00182.taflog +++| * 7 ILLEGAL INTERCONTROL POINT TRANSFER. 00185 M01S00183.taflog +++| * 10 ON LINE LIBTASK UPDATE (TT OPTION). 00186 M01S00184.taflog +++| * 11 CDCS DETECTED ERROR (ERROR MESSAGE FOLLOWS HEADER). 00187 M01S00185.taflog +++| * 12 *MSG* REQUEST WITH ZERO FUNCTION CODE. NORMAL FORTRAN 00188 M01S00186.taflog +++| * MESSAGES ARE LOGGED WITH THIS FUNCTION CODE. 00189 M01S00187.taflog +++| * 00190 M01S00188.taflog +++| 01 W-TAF-ORG. 00191 M01S00189.taflog +++| 05 FILLER PIC X(08). 00192 M01S00190.taflog +++| 05 TAF-ORG PIC X(02). 00193 M01S00191.taflog +++| * 00194 M01S00192.taflog +++| * ERR-STATUS WILL CONTAIN ONE OF THE FOLLOWING: 00195 M01S00193.taflog +++| * 00196 M01S00194.taflog +++| * -3 CIO ERROR ENCOUNTERED 00197 M01S00195.taflog +++| * -2 EOI ENCOUNTERED 00198 M01S00196.taflog +++| * -1 EOF ENCOUNTERED 00199 M01S00197.taflog +++| * 0 NO ERROR ENCOUNTERED 00200 M01S00198.taflog +++| * 1 EOR ENCOUNTERED 00201 M01S00199.taflog +++| * 2 ZERO LENGTH RECORD ENCOUNTERED 00202 M01S00200.taflog +++| * 00203 M01S00201.taflog +++| 01 ERR-STATUS COMP-1 PIC S9(10) VALUE 0. 00204 M01S00202.taflog +++| * 00205 M01S00203.taflog +++| PROCEDURE DIVISION. 00206 M01S00204.taflog +++| 00207 M01S00205.taflog +++| 00208 M01S00206.taflog +++| *** MAIN PROGRAM. 00209 M01S00207.taflog +++| 00210 M01S00208.taflog +++| 00211 M01S00209.taflog +++| DO-IT. 00212 M01S00210.taflog +++| MOVE PER-PAGE TO DET-COUNT CNT-TO. 00213 M01S00211.taflog +++| OPEN OUTPUT RPT-FILE. 00214 M01S00212.taflog +++| * 00215 M01S00213.taflog +++| READ-FIRST. 00216 M01S00214.taflog +++| ENTER COMPASS "READFR" 00217 M01S00215.taflog +++| USING 00218 M01S00216.taflog +++| LOG-RECORD 00219 M01S00217.taflog +++| NBR-WORDS 00220 M01S00218.taflog +++| ERR-STATUS 00221 M01S00219.taflog +++| W-TAF-SEQ 00222 M01S00220.taflog +++| W-TAF-ORG 00223 M01S00221.taflog +++| . 00224 M01S00222.taflog +++| PERFORM ERROR-CHECKING. 00225 M01S00223.taflog +++| GO TO PROCESS-ONE. 00226 M01S00224.taflog +++| * 00227 M01S00225.taflog +++| READ-ONE. 00228 M01S00226.taflog +++| ENTER COMPASS "READNR" 00229 M01S00227.taflog +++| USING 00230 M01S00228.taflog +++| LOG-RECORD 00231 M01S00229.taflog +++| NBR-WORDS 00232 M01S00230.taflog +++| ERR-STATUS 00233 M01S00231.taflog +++| W-TAF-SEQ 00234 M01S00232.taflog +++| W-TAF-ORG 00235 M01S00233.taflog +++| . 00236 M01S00234.taflog +++| PERFORM ERROR-CHECKING. 00237 M01S00235.taflog +++| * 00238 M01S00236.taflog +++| PROCESS-ONE. 00239 M01S00237.taflog +++| ADD 1 TO REC-COUNT. 00240 M01S00238.taflog +++| COMPUTE LOG-TRAILER-CHARACTER-COUNT = 00241 M01S00239.taflog +++| (LOG-TRAILER-CHARACTER-COUNT * 10). 00242 M01S00240.taflog +++| SUBTRACT 30 FROM LOG-TRAILER-CHARACTER-COUNT. 00243 M01S00241.taflog +++| ADD 1 TO ZERO-COUNT. 00244 M01S00242.taflog +++| PERFORM PRINT-DETAIL. 00245 M01S00243.taflog +++| GO TO READ-ONE. 00246 M01S00244.taflog +++| * 00247 M01S00245.taflog +++| CIO-ERROR. 00248 M01S00246.taflog +++| DISPLAY "CIO ERROR DETECTED" UPON SCREEN. 00249 M01S00247.taflog +++| GO TO END-OF-JOB. 00250 M01S00248.taflog +++| * 00251 M01S00249.taflog +++| END-OF-JOB. 00252 M01S00250.taflog +++| CLOSE RPT-FILE. 00253 M01S00251.taflog +++| DISPLAY "RECORDS READ =" REC-COUNT UPON SCREEN. 00254 M01S00252.taflog +++| DISPLAY "AFTER IMAGES PROCESSED =" ZERO-COUNT UPON SCREEN. 00255 M01S00253.taflog +++| DISPLAY "OUTPUT ON FILE *JOURNAL*.". 00256 M01S00254.taflog +++| STOP RUN. 00257 M01S00255.taflog +++| 00258 M01S00256.taflog +++| 00259 M01S00257.taflog +++| *** SUBROUTINES. 00260 M01S00258.taflog +++| 00261 M01S00259.taflog +++| 00262 M01S00260.taflog +++| ERROR-CHECKING. 00263 M01S00261.taflog +++| IF (ERR-STATUS EQUAL -1) OR (ERR-STATUS EQUAL 1) 00264 M01S00262.taflog +++| OR (ERR-STATUS EQUAL 2) 00265 M01S00263.taflog +++| GO TO READ-ONE. 00266 M01S00264.taflog +++| IF ERR-STATUS EQUAL -2 00267 M01S00265.taflog +++| GO TO END-OF-JOB. 00268 M01S00266.taflog +++| IF ERR-STATUS EQUAL -3 00269 M01S00267.taflog +++| GO TO CIO-ERROR. 00270 M01S00268.taflog +++| * END OF PROCEDURE ERROR-CHECKING. 00271 M01S00269.taflog +++| 00272 M01S00270.taflog +++| 00273 M01S00271.taflog +++| INSPECT-LOG-TRAILER. 00274 M01S00272.taflog +++| INSPECT P-TASK-NAME REPLACING ALL ":" BY " ". 00275 M01S00273.taflog +++| INSPECT P-TAF-USERNAME REPLACING ALL ":" BY " ". 00276 M01S00274.taflog +++| INSPECT P-LOG-TRAILER REPLACING ALL ":" BY " ". 00277 M01S00275.taflog +++| * END OF PROCEDURE INSPECT-LOG-TRAILER. 00278 M01S00276.taflog +++| 00279 M01S00277.taflog +++| 00280 M01S00278.taflog +++| PRINT-DETAIL. 00281 M01S00279.taflog +++| ADD 1 TO DET-COUNT. 00282 M01S00280.taflog +++| IF DET-COUNT GREATER THAN PER-PAGE 00283 M01S00281.taflog +++| MOVE 1 TO DET-COUNT 00284 M01S00282.taflog +++| ADD 1 TO CNT-PAGE 00285 M01S00283.taflog +++| MOVE CNT-PAGE TO PAGE-CNT 00286 M01S00284.taflog +++| MOVE CNT-FROM TO REC-FROM 00287 M01S00285.taflog +++| MOVE CNT-TO TO REC-TO 00288 M01S00286.taflog +++| WRITE RPT-RECORD FROM RPT-HDG-1 00289 M01S00287.taflog +++| WRITE RPT-RECORD FROM RPT-HDG-2 00290 M01S00288.taflog +++| ADD PER-PAGE TO CNT-FROM 00291 M01S00289.taflog +++| ADD PER-PAGE TO CNT-TO 00292 M01S00290.taflog +++| WRITE RPT-RECORD FROM RPT-HDG-2 00293 M01S00291.taflog +++| . 00294 M01S00292.taflog +++| MOVE TAF-SEQ TO P-TAF-SEQ. 00295 M01S00293.taflog +++| MOVE TAF-ORG TO P-TAF-ORG. 00296 M01S00294.taflog +++| MOVE LOG-TRAILER-CHARACTER-COUNT 00297 M01S00295.taflog +++| TO P-CHAR-COUNT. 00298 M01S00296.taflog +++| MOVE TAF-TASK-NAME TO P-TASK-NAME. 00299 M01S00297.taflog +++| MOVE TAF-HR TO ONE-CHARACTER. 00300 M01S00298.taflog +++| MOVE COMP-1-WORD TO P-TAF-HR. 00301 M01S00299.taflog +++| MOVE TAF-MN TO ONE-CHARACTER. 00302 M01S00300.taflog +++| MOVE COMP-1-WORD TO P-TAF-MN. 00303 M01S00301.taflog +++| MOVE TAF-SC TO ONE-CHARACTER. 00304 M01S00302.taflog +++| MOVE COMP-1-WORD TO P-TAF-SC. 00305 M01S00303.taflog +++| MOVE TAF-USERNAME TO P-TAF-USERNAME. 00306 M01S00304.taflog +++| MOVE 1 TO SUB1. 00307 M01S00305.taflog +++| MOVE SPACES TO P-LOG-TRAILER. 00308 M01S00306.taflog +++| PERFORM WRITE-RECORD 00309 M01S00307.taflog +++| UNTIL (SUB1 > LOG-TRAILER-CHARACTER-COUNT) 00310 M01S00308.taflog +++| OR (TRANEX = "*TRANEX"). 00311 M01S00309.taflog +++| IF (TRANEX = "*TRANEX") 00312 M01S00310.taflog +++| MOVE TAF-DY TO ONE-CHARACTER 00313 M01S00311.taflog +++| MOVE COMP-1-WORD TO P-TAF-DY 00314 M01S00312.taflog +++| MOVE TAF-MT TO ONE-CHARACTER 00315 M01S00313.taflog +++| MOVE COMP-1-WORD TO P-TAF-MT 00316 M01S00314.taflog +++| MOVE TAF-YR TO ONE-CHARACTER 00317 M01S00315.taflog +++| MOVE COMP-1-WORD TO P-TAF-YR 00318 M01S00316.taflog +++| ADD YEAR-OFFSET TO P-TAF-YR 00319 M01S00317.taflog +++| WRITE RPT-RECORD FROM PRINT-DATE 00320 M01S00318.taflog +++| ELSE IF (LOG-TRAILER-CHARACTER-COUNT = 0) 00321 M01S00319.taflog +++| PERFORM WRITE-LINE. 00322 M01S00320.taflog +++| MOVE POINT TO P-POINT-1. 00323 M01S00321.taflog +++| MOVE POINT TO P-POINT-2. 00324 M01S00322.taflog +++| * END OF PROCEDURE PRINT-DETAIL. 00325 M01S00323.taflog +++| 00326 M01S00324.taflog +++| 00327 M01S00325.taflog +++| TRANSFER. 00328 M01S00326.taflog +++| MOVE LOG-TRAILER (SUB1) TO P-LOG (CHAR-COUNT). 00329 M01S00327.taflog +++| ADD 1 TO CHAR-COUNT. 00330 M01S00328.taflog +++| ADD 1 TO SUB1. 00331 M01S00329.taflog +++| * END OF PROCEDURE TRANSFER. 00332 M01S00330.taflog +++| 00333 M01S00331.taflog +++| 00334 M01S00332.taflog +++| WRITE-LINE. 00335 M01S00333.taflog +++| PERFORM INSPECT-LOG-TRAILER. 00336 M01S00334.taflog +++| WRITE RPT-RECORD FROM PRINT-A-LINE. 00337 M01S00335.taflog +++| MOVE BLANK-LINE TO PRINT-A-LINE. 00338 M01S00336.taflog +++| * END OF PROCEDURE WRITE-LINE. 00339 M01S00337.taflog +++| 00340 M01S00338.taflog +++| 00341 M01S00339.taflog +++| WRITE-RECORD. 00342 M01S00340.taflog +++| MOVE 1 TO CHAR-COUNT. 00343 M01S00341.taflog +++| PERFORM TRANSFER UNTIL (CHAR-COUNT > LINE-LENGTH) OR 00344 M01S00342.taflog +++| (SUB1 > LOG-TRAILER-CHARACTER-COUNT). 00345 M01S00343.taflog +++| PERFORM WRITE-LINE. 00346 M01S00344.taflog +++| * END OF PROCEDURE WRITE-RECORD. 00347 M01S00345.taflog +++| 00348 M01S00346.taflog +++| 00349 M01S00347.taflog +++| * END OF PROGRAM TAFLOG. 00350 M01S00348.taflog +++|*WEOR 00351 M01S00349.taflog +++| IDENT READJ 00352 M01S00350.taflog +++| TITLE READJ - READ TAF JOURNAL FILE. 00353 M01S00351.taflog +++| ENTRY READFR 00354 M01S00352.taflog +++| ENTRY READNR 00355 M01S00353.taflog +++| SST 00356 M01S00354.taflog +++| SYSCOM B1 00357 M01S00355.taflog +++|*COMMENT TAFLOG - READ TAF JOURNAL FILE.
| Line S00356 Modification History | |
|---|---|
M01 (Added by) | taflog |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00358 M02S00356.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1986. 00359 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00360 M01S00357.taflog +++| SPACE 4,10 00361 M01S00358.taflog +++|*** READJ - READ TAF JOURNAL FILE. 00362 M01S00359.taflog +++|* 00363 M01S00360.taflog +++|* *READJ* READS ENTRIES (RECORDS) FROM THE TAF JOURNAL FILE ONE 00364 M01S00361.taflog +++|* AT A TIME. *READJ* CAN BE CALLED BY COBOL OR FORTRAN 00365 M01S00362.taflog +++|* PROGRAMS. *READJ* WILL READ PAST EOR AND EOF ON THE JOURNAL 00366 M01S00363.taflog +++|* FILE. THE TAF JOURNAL FILE MUST BE A LOCAL FILE WITH THE 00367 M01S00364.taflog +++|* NAME *JOUR0*. THE ENTRY POINTS IN *READJ* ARE *READFR* 00368 M01S00365.taflog +++|* AND *READNR*. ENTRY POINT *READFR* IS USED TO READ THE FIRST 00369 M01S00366.taflog +++|* RECORD FROM THE JOURNAL FILE. ALL SUBSEQUENT RECORDS ARE 00370 M01S00367.taflog +++|* READ BY CALLING *READNR*. THERE MUST BE ONLY ONE CALL 00371 M01S00368.taflog +++|* (FIRST) TO *READFR* IN ANY PROGRAM READING THE JOURNAL FILE. 00372 M01S00369.taflog +++|* THE CALLS TO *READFR* AND *READNR* ARE EXACTLY THE SAME. 00373 M01S00370.taflog +++|* 00374 M01S00371.taflog +++|* FORTRAN CALL TO *READFR* IS: 00375 M01S00372.taflog +++|* 00376 M01S00373.taflog +++|* CALL READFR(IREC,LEN,ISTAT,SEQ,ORG) 00377 M01S00374.taflog +++|* 00378 M01S00375.taflog +++|* COBOL CALL TO *READFR* IS: 00379 M01S00376.taflog +++|* 00380 M01S00377.taflog +++|* ENTER COMPASS "READFR" USING IREC, LEN, ISTAT, SEQ, ORG. 00381 M01S00378.taflog +++|* 00382 M01S00379.taflog +++|* FORTRAN CALL TO *READNR* IS: 00383 M01S00380.taflog +++|* 00384 M01S00381.taflog +++|* CALL READNR(IREC,LEN,ISTAT,SEQ,ORG) 00385 M01S00382.taflog +++|* 00386 M01S00383.taflog +++|* COBOL CALL TO *READNR* IS: 00387 M01S00384.taflog +++|* 00388 M01S00385.taflog +++|* ENTER COMPASS "READNR" USING IREC, LEN, ISTAT, SEQ, ORG. 00389 M01S00386.taflog +++|* 00390 M01S00387.taflog +++|* THE PARAMETERS ARE AS FOLLOWS: 00391 M01S00388.taflog +++|* 00392 M01S00389.taflog +++|* IREC = FWA OF THE WORKING BUFFER WHERE THE FIRST 00393 M01S00390.taflog +++|* OR NEXT RECORD WILL BE READ. THIS BUFFER 00394 M01S00391.taflog +++|* MUST BE LARGE ENOUGH TO HOLD THE LARGEST 00395 M01S00392.taflog +++|* RECORD ON THE JOURNAL FILE. 00396 M01S00393.taflog +++|* 00397 M01S00394.taflog +++|* LEN = THIS IS AN INTEGER VARIBLE FOR FORTRAN AND 00398 M01S00395.taflog +++|* COMP-1 FOR COBOL5. 00399 M01S00396.taflog +++|* THE LENGTH OF RECORD READ IN WORDS IS 00400 M01S00397.taflog +++|* RETURNED TO THE CALLER. THIS IS MEANINGFUL 00401 M01S00398.taflog +++|* ONLY WHEN ISTAT IS 0. 00402 M01S00399.taflog +++|* 00403 M01S00400.taflog +++|* ISTAT = THIS IS AN INTEGER VARIABLE FOR FORTRAN AND 00404 M01S00401.taflog +++|* COMP-1 FOR COBOL5. 00405 M01S00402.taflog +++|* THE STATUS OF THE REQUEST IS RETURNED TO THE USER 00406 M01S00403.taflog +++|* IN THIS PARAMETER AFTER COMPLETION OF THE REQUEST. 00407 M01S00404.taflog +++|* -3 = CIO ERROR ON READ. 00408 M01S00405.taflog +++|* -2 = EOI READ. 00409 M01S00406.taflog +++|* -1 = EOF READ. 00410 M01S00407.taflog +++|* 0 = NORMAL TERMINATION. 00411 M01S00408.taflog +++|* 1 = EOR READ. 00412 M01S00409.taflog +++|* 2 = ZERO LENGTH RECORD READ. 00413 M01S00410.taflog +++|* 00414 M01S00411.taflog +++|* SEQ = THIS IS A CHARACTER VARIABLE FOR FORTRAN AND COBOL5. 00415 M01S00412.taflog +++|* THE TAF SEQUENCE INDICATOR IS RETURNED TO THE 00416 M01S00413.taflog +++|* CALLER AS A DISPLAY CODED OCTAL VALUE. 00417 M01S00414.taflog +++|* 00418 M01S00415.taflog +++|* ORG = THIS IS A CHARACTER VARIABLE FOR FORTRAN AND COBOL5. 00419 M01S00416.taflog +++|* THE TAF ORIGIN INDICATOR IS RETURNED TO THE CALLER 00420 M01S00417.taflog +++|* AS A DISPLAY CODED OCTAL VALUE. 00421 M01S00418.taflog +++|* 00422 M01S00419.taflog +++|* TO READ PAST EOR/EOF ON JOURNAL FILE THE CALLER SHOULD IGNORE 00423 M01S00420.taflog +++|* EOR/EOF STATUS. THE FILE MAY BE READ UNTIL EOI IS REACHED OR 00424 M01S00421.taflog +++|* UNTIL A CIO ERROR IS ENCOUNTERED. 00425 M01S00422.taflog +++| SPACE 4,10 00426 M01S00423.taflog +++|*CALL COMCMAC 00427 M01S00424.taflog +++| SPACE 4,10 00428 M01S00425.taflog +++| JBUFL EQU 6401D JOURNAL FILE BUFFER LENGTH 00429 M01S00426.taflog +++| SPACE 4,10 00430 M01S00427.taflog +++| J BSS 0 JOURNAL FILE FET 00431 M01S00428.taflog +++| JOUR0 FILEB JBUF,JBUFL 00432 M01S00429.taflog +++| FWA BSS 1 FWA OF USER BUFFER 00433 M01S00430.taflog +++| NWORDS BSS 1 ADDRESS FOR NUMBER OF WORDS TRANSFERRED 00434 M01S00431.taflog +++| STATUS BSS 1 ADDRESS OF STATUS WORD 00435 M01S00432.taflog +++| SEQADR BSS 1 ADDRESS OF TAF SEQUENCE INDICATOR 00436 M01S00433.taflog +++| ORGADR BSS 1 ADDRESS OF TAF ORIGIN 00437 M01S00434.taflog +++| READFR SPACE 4,10 00438 M01S00435.taflog +++|** READFR - READ FIRST RECORD. 00439 M01S00436.taflog +++| 00440 M01S00437.taflog +++| 00441 M01S00438.taflog +++| READFR SUBR ENTRY/EXIT 00442 M01S00439.taflog +++| SB1 1 00443 M01S00440.taflog +++| RJ PRS PRESET 00444 M01S00441.taflog +++| REWIND J 00445 M01S00442.taflog +++| READ J READ FIRST X PRU-S 00446 M01S00443.taflog +++| RJ RNX READ FIRST RECORD 00447 M01S00444.taflog +++| EQ READFRX RETURN 00448 M01S00445.taflog +++| READNR SPACE 4,10 00449 M01S00446.taflog +++|** READNR - READ NEXT RECORD. 00450 M01S00447.taflog +++| 00451 M01S00448.taflog +++| 00452 M01S00449.taflog +++| READNR SUBR ENTRY/EXIT 00453 M01S00450.taflog +++| SB1 1 00454 M01S00451.taflog +++| RJ PRS PRESET 00455 M01S00452.taflog +++| RJ RNX READ NEXT RECORD 00456 M01S00453.taflog +++| EQ READNRX RETURN 00457 M01S00454.taflog +++| TITLE SUBROUTINES. 00458 M01S00455.taflog +++| PRS SPACE 4,10 00459 M01S00456.taflog +++|** PRS - PRESET. 00460 M01S00457.taflog +++|* 00461 M01S00458.taflog +++|* EXIT (FWA) = FIRST WORD OF USER BUFFER. 00462 M01S00459.taflog +++|* (NWORDS) = SECOND PARAMETER ADDRESS. 00463 M01S00460.taflog +++|* (STATUS) = STATUS WORD ADDRESS. 00464 M01S00461.taflog +++|* (SEQADR) = TAF SEQUENCE INDICATOR WORD ADDRESS. 00465 M01S00462.taflog +++|* (ORGADR) = TAF ORIGIN WORD ADDRESS. 00466 M01S00463.taflog +++| 00467 M01S00464.taflog +++| 00468 M01S00465.taflog +++| PRS SUBR ENTRY/EXIT 00469 M01S00466.taflog +++| SX6 X1 00470 M01S00467.taflog +++| SA6 FWA SAVE FWA OF USER BUFFER 00471 M01S00468.taflog +++| SA2 A1+B1 00472 M01S00469.taflog +++| SX7 X2 00473 M01S00470.taflog +++| SA7 NWORDS SAVE SECOND PARAMETER ADDRESS 00474 M01S00471.taflog +++| SA2 A2+B1 00475 M01S00472.taflog +++| SX7 X2 00476 M01S00473.taflog +++| SA7 STATUS SAVE STATUS WORD ADDRESS 00477 M01S00474.taflog +++| MX6 0 00478 M01S00475.taflog +++| SA6 X7 ZERO OUT ERROR STATUS 00479 M01S00476.taflog +++| SA2 A2+B1 00480 M01S00477.taflog +++| SX7 X2 00481 M01S00478.taflog +++| SA7 SEQADR SAVE TAF SEQUENCE INDICATOR WORD ADDRESS 00482 M01S00479.taflog +++| SA6 X7 ZERO OUT TAF SEQUENCE INDICATOR 00483 M01S00480.taflog +++| SA2 A2+B1 00484 M01S00481.taflog +++| SX7 X2 00485 M01S00482.taflog +++| SA7 ORGADR SAVE TAF ORIGIN WORD ADDRESS 00486 M01S00483.taflog +++| SA6 X7 ZERO OUT TAF ORIGIN 00487 M01S00484.taflog +++| EQ PRSX RETURN 00488 M01S00485.taflog +++| RNX SPACE 4,10 00489 M01S00486.taflog +++|** RNX - READ NEXT RECORD. 00490 M01S00487.taflog +++|* 00491 M01S00488.taflog +++|* USES X - 0, 1, 2, 6, 7. 00492 M01S00489.taflog +++|* A - 1, 2, 6, 7. 00493 M01S00490.taflog +++|* B - 6, 7. 00494 M01S00491.taflog +++|* 00495 M01S00492.taflog +++|* CALLS COD. 00496 M01S00493.taflog +++|* 00497 M01S00494.taflog +++|* MACROS READO, READW. 00498 M01S00495.taflog +++| 00499 M01S00496.taflog +++| 00500 M01S00497.taflog +++| RNX SUBR ENTRY/EXIT 00501 M01S00498.taflog +++| READO J READ HEADER WORD 00502 M01S00499.taflog +++| NZ X1,RNX4 IF EOR/EOF 00503 M01S00500.taflog +++| BX0 X6 SAVE (X6) 00504 M01S00501.taflog +++| SA2 RNXA 00505 M01S00502.taflog +++| BX2 X6-X2 CHECK FOR LABEL RECORD 00506 M01S00503.taflog +++| NZ X2,RNX1 IF NOT LABEL RECORD 00507 M01S00504.taflog +++| SB7 2 NUMBER OF WORDS TO TRANSFER 00508 M01S00505.taflog +++| SX7 3 LENGTH OF RECORD IN WORDS 00509 M01S00506.taflog +++| EQ RNX2 PROCESS LABEL RECORD 00510 M01S00507.taflog +++| 00511 M01S00508.taflog +++| RNX1 MX1 24 00512 M01S00509.taflog +++| BX1 X1*X6 GET TAF SEQUENCE INDICATOR 00513 M01S00510.taflog +++| LX1 -36 00514 M01S00511.taflog +++| MX2 1 00515 M01S00512.taflog +++| LX2 -30 00516 M01S00513.taflog +++| BX1 X1+X2 ASSURE THAT LEADING ZEROES ARE CONVERTED 00517 M01S00514.taflog +++| RJ COD CONVERT OCTAL TO DISPLAY CODE 00518 M01S00515.taflog +++| BX6 X4 00519 M01S00516.taflog +++| SA2 SEQADR 00520 M01S00517.taflog +++| SA6 X2 RETURN TAF SEQUENCE INDICATOR TO CALLER 00521 M01S00518.taflog +++| MX1 6 00522 M01S00519.taflog +++| LX1 -24 00523 M01S00520.taflog +++| BX1 X1*X0 GET TAF ORIGIN 00524 M01S00521.taflog +++| LX1 -30 00525 M01S00522.taflog +++| MX2 1 00526 M01S00523.taflog +++| LX2 -30 00527 M01S00524.taflog +++| BX1 X1+X2 ASSURE THAT LEADING ZEROES ARE CONVERTED 00528 M01S00525.taflog +++| RJ COD CONVERT OCTAL TO DISPLAY CODE 00529 M01S00526.taflog +++| BX6 X4 00530 M01S00527.taflog +++| SA2 ORGADR 00531 M01S00528.taflog +++| SA6 X2 RETURN TAF ORIGIN TO CALLER 00532 M01S00529.taflog +++| SB7 X0-1 NUMBER OF WORDS TO TRANSFER 00533 M01S00530.taflog +++| SX7 X0 00534 M01S00531.taflog +++| RNX2 SA2 NWORDS 00535 M01S00532.taflog +++| SA7 X2 RETURN WORD COUNT TO CALLER 00536 M01S00533.taflog +++| SA1 FWA FWA OF USER BUFFER 00537 M01S00534.taflog +++| BX6 X0 RESTORE (X6) 00538 M01S00535.taflog +++| ZR B7,RNX3 IF ONLY 1 WORD RECORD 00539 M01S00536.taflog +++| NG B7,RNX5 IF ZERO LENGTH RECORD 00540 M01S00537.taflog +++| SA6 X1 RETURN FIRST WORD OF RECORD 00541 M01S00538.taflog +++| SX1 X1+B1 00542 M01S00539.taflog +++| READW J,X1,B7 READ REST OF RECORD 00543 M01S00540.taflog +++| NZ X1,RNX4 IF EOR/EOF 00544 M01S00541.taflog +++| MX6 0 SET ERROR FLAG TO ZERO 00545 M01S00542.taflog +++| EQ RNX6 COMPLETE REQUEST 00546 M01S00543.taflog +++| 00547 M01S00544.taflog +++| RNX3 SA6 X1 RETURN 1 WORD TO USER BUFFER 00548 M01S00545.taflog +++| MX6 0 00549 M01S00546.taflog +++| EQ RNX6 COMPLETE REQUEST 00550 M01S00547.taflog +++| 00551 M01S00548.taflog +++| 00552 M01S00549.taflog +++|* PROCESS EOR/EOF. 00553 M01S00550.taflog +++| 00554 M01S00551.taflog +++| RNX4 SX6 X1 EOR/EOF/EOI 00555 M01S00552.taflog +++| SA1 J CLEAR EOR/EOF STATUS FOR NEXT READ 00556 M01S00553.taflog +++| SX0 30B 00557 M01S00554.taflog +++| BX7 -X0*X1 00558 M01S00555.taflog +++| SA7 A1 CLEAR EOR/EOF STATUS 00559 M01S00556.taflog +++| EQ RNX6 COMPLETE REQUEST 00560 M01S00557.taflog +++| 00561 M01S00558.taflog +++|* PROCESS ZERO-LENGTH RECORD. 00562 M01S00559.taflog +++| 00563 M01S00560.taflog +++| RNX5 SX6 2 ZERO LENGTH RECORD 00564 M01S00561.taflog +++| EQ RNX6 COMPLETE REQUEST 00565 M01S00562.taflog +++| 00566 M01S00563.taflog +++|* RETURN STATUS TO CALLER. 00567 M01S00564.taflog +++| 00568 M01S00565.taflog +++| RNX6 SA1 STATUS 00569 M01S00566.taflog +++| SA6 X1 RETURN STATUS TO CALLER 00570 M01S00567.taflog +++| EQ RNXX RETURN TO CALLER 00571 M01S00568.taflog +++| 00572 M01S00569.taflog +++| RNXA DATA C/*TRANEX*/ 00573 M01S00570.taflog +++| SPACE 4,10 00574 M01S00571.taflog +++|*CALL COMCCOD 00575 M01S00572.taflog +++| SPACE 4,10 00576 M01S00573.taflog +++| JBUF BSSZ JBUFL 00577 M01S00574.taflog +++| END
cdc/nos2.source/opl.opl871/deck/taflog.txt · Last modified: by 127.0.0.1