Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:taflog
Deck TAFLOG
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.taflog +++| IDENTIFICATION DIVISION. 00002 M00S00002.taflog +++| PROGRAM-ID. TAFLOG. 00003 M00S00003.taflog +++| AUTHOR. R L ERICKSON - DATA MANAGEMENT CONSULTING SERVICES. 00004 M00S00004.taflog +++| * T E SCHULL - 2/27/87.
| Line S00005 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00005.281l803 ---| *COPYRIGHT. CONTROL DATA CORPORATION - 1987.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00001.281l803 +++| * 00007 M01S00002.281l803 +++| * COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00006.taflog +++| * 00009 M00S00007.taflog +++| * THIS PROGRAM PRODUCES A FORMATTED LISTING OF ALL THE 00010 M00S00008.taflog +++| * INFORMATION CONTAINED IN THE TAF SYSTEM JOURNAL FILE *JOUR0* 00011 M00S00009.taflog +++| * ON A FILE CALLED *JOURNAL*. TO EXECUTE THIS PROGRAM, *JOUR0* 00012 M00S00010.taflog +++| * MUST BE A LOCAL FILE. 00013 M00S00011.taflog +++| * 00014 M00S00012.taflog +++| * THE OUTPUT ON FILE *JOURNAL* IS FORMATTED ACCORDING TO THE 00015 M00S00013.taflog +++| * FOLLOWING HEADERS. 00016 M00S00014.taflog +++| * 00017 M00S00015.taflog +++| * SEQ - TRANSACTION SEQUENCE INDICATOR IN OCTAL. 00018 M00S00016.taflog +++| * 00019 M00S00017.taflog +++| * ORG - ORIGIN INDICATOR IN OCTAL. 00020 M00S00018.taflog +++| * 00021 M00S00019.taflog +++| * CNT - LENGTH OF JOURNAL MESSAGE IN CHARACTERS (ROUNDED UP TO 00022 M00S00020.taflog +++| * A WORD BOUNDARY). 00023 M00S00021.taflog +++| * 00024 M00S00022.taflog +++| * TASK - NAME OF TASK. 00025 M00S00023.taflog +++| * 00026 M00S00024.taflog +++| * TIME - HH.MM.SS IN DECIMAL. 00027 M00S00025.taflog +++| * 00028 M00S00026.taflog +++| * USER - USER NAME ASSOCIATED WITH THE TRANSACTION, IF TASK 00029 M00S00027.taflog +++| * ORIGIN. 00030 M00S00028.taflog +++| * 00031 M00S00029.taflog +++| * JOURNAL MESSAGE - MESSAGE JOURNALIZED BY TAF. 00032 M00S00030.taflog +++| * 00033 M00S00031.taflog +++| * DATE - YY/MM/DD (DATE WHEN TAF WAS BROUGHT UP) IN DECIMAL. 00034 M00S00032.taflog +++| * 00035 M00S00033.taflog +++| ENVIRONMENT DIVISION. 00036 M00S00034.taflog +++| CONFIGURATION SECTION. 00037 M00S00035.taflog +++| SOURCE-COMPUTER. CYBER-170. 00038 M00S00036.taflog +++| OBJECT-COMPUTER. CYBER-170. 00039 M00S00037.taflog +++| SPECIAL-NAMES. 00040 M00S00038.taflog +++| "TERMINAL" IS SCREEN 00041 M00S00039.taflog +++| . 00042 M00S00040.taflog +++| INPUT-OUTPUT SECTION. 00043 M00S00041.taflog +++| FILE-CONTROL. 00044 M00S00042.taflog +++| SELECT RPT-FILE 00045 M00S00043.taflog +++| ASSIGN TO JOURNAL 00046 M00S00044.taflog +++| USE "RT=Z" 00047 M00S00045.taflog +++| . 00048 M00S00046.taflog +++| DATA DIVISION. 00049 M00S00047.taflog +++| FILE SECTION. 00050 M00S00048.taflog +++| FD RPT-FILE 00051 M00S00049.taflog +++| LABEL RECORDS ARE OMITTED. 00052 M00S00050.taflog +++| 01 RPT-RECORD PIC X(136). 00053 M00S00051.taflog +++| * 00054 M00S00052.taflog +++| WORKING-STORAGE SECTION. 00055 M00S00053.taflog +++| 01 LOG-RECORD. 00056 M00S00054.taflog +++| * 00057 M00S00055.taflog +++| * THE LOG RECORD HEADER IS 30 CHARACTERS LONG. 00058 M00S00056.taflog +++| * 00059 M00S00057.taflog +++| 05 LOG-HEADER. 00060 M00S00058.taflog +++| 00061 M00S00059.taflog +++| 07 WORD-ONE. 00062 M00S00060.taflog +++| 00063 M00S00061.taflog +++| 10 FILLER PIC X(07). 00064 M00S00062.taflog +++| 10 LOG-TRAILER-CHARACTER-COUNT 00065 M00S00063.taflog +++| COMP-4 PIC 9(05). 00066 M00S00064.taflog +++| 00067 M00S00065.taflog +++| 07 WORD-TRANEX REDEFINES WORD-ONE. 00068 M00S00066.taflog +++| 10 TRANEX PIC X(07). 00069 M00S00067.taflog +++| 10 FILLER PIC X(03). 00070 M00S00068.taflog +++| 00071 M00S00069.taflog +++| 07 WORD-TWO. 00072 M00S00070.taflog +++| 10 TAF-TASK-NAME PIC X(07). 00073 M00S00071.taflog +++| 10 TAF-TIME. 00074 M00S00072.taflog +++| 15 TAF-HR PIC X(01). 00075 M00S00073.taflog +++| 15 TAF-MN PIC X(01). 00076 M00S00074.taflog +++| 15 TAF-SC PIC X(01). 00077 M00S00075.taflog +++| 00078 M00S00076.taflog +++| 07 WORD-DATE REDEFINES WORD-TWO. 00079 M00S00077.taflog +++| 10 FILLER PIC X(04). 00080 M00S00078.taflog +++| 10 TAF-YR PIC X(01). 00081 M00S00079.taflog +++| 10 TAF-MT PIC X(01). 00082 M00S00080.taflog +++| 10 TAF-DY PIC X(01). 00083 M00S00081.taflog +++| 10 FILLER PIC X(03). 00084 M00S00082.taflog +++| 00085 M00S00083.taflog +++| 07 WORD-THREE. 00086 M00S00084.taflog +++| 10 TAF-USERNAME PIC X(07). 00087 M00S00085.taflog +++| 10 FILLER PIC X(03). 00088 M00S00086.taflog +++| 00089 M00S00087.taflog +++| * 00090 M00S00088.taflog +++| * END OF LOG RECORD HEADER 00091 M00S00089.taflog +++| * 00092 M00S00090.taflog +++| 00093 M00S00091.taflog +++| * 00094 M00S00092.taflog +++| * LOG TRAILER DEFINITION FOLLOWS 00095 M00S00093.taflog +++| * 00096 M00S00094.taflog +++| 05 LOG-TRAILER PIC X(01) OCCURS 0 TO 65535 TIMES 00097 M00S00095.taflog +++| DEPENDING ON LOG-TRAILER-CHARACTER-COUNT. 00098 M00S00096.taflog +++| * 00099 M00S00097.taflog +++| 01 PRINT-A-LINE. 00100 M00S00098.taflog +++| 03 PRINT-HEADER. 00101 M00S00099.taflog +++| 05 FILLER PIC X(01) VALUE " ". 00102 M00S00100.taflog +++| 05 P-TAF-SEQ PIC X(08). 00103 M00S00101.taflog +++| 05 FILLER PIC X(01). 00104 M00S00102.taflog +++| 05 P-TAF-ORG PIC X(02). 00105 M00S00103.taflog +++| 05 FILLER PIC X(01). 00106 M00S00104.taflog +++| 05 P-CHAR-COUNT PIC ZZZZ9. 00107 M00S00105.taflog +++| 05 FILLER PIC X(01). 00108 M00S00106.taflog +++| 05 P-TASK-NAME PIC X(07). 00109 M00S00107.taflog +++| 05 FILLER PIC X(01). 00110 M00S00108.taflog +++| 05 P-TAF-HR PIC 9(02). 00111 M00S00109.taflog +++| 05 P-POINT-1 PIC X(01) VALUE ".". 00112 M00S00110.taflog +++| 05 P-TAF-MN PIC 9(02). 00113 M00S00111.taflog +++| 05 P-POINT-2 PIC X(01) VALUE ".". 00114 M00S00112.taflog +++| 05 P-TAF-SC PIC 9(02). 00115 M00S00113.taflog +++| 05 FILLER PIC X(01). 00116 M00S00114.taflog +++| 05 P-TAF-USERNAME PIC X(07). 00117 M00S00115.taflog +++| 05 FILLER PIC X(01). 00118 M00S00116.taflog +++| 03 P-LOG-TRAILER. 00119 M00S00117.taflog +++| 05 P-LOG PIC X(01) OCCURS 90. 00120 M00S00118.taflog +++| * 00121 M00S00119.taflog +++| 01 PRINT-DATE. 00122 M00S00120.taflog +++| 05 FILLER PIC X(15) VALUE " --------------". 00123 M00S00121.taflog +++| 05 FILLER PIC X(15) VALUE "---------------". 00124 M00S00122.taflog +++| 05 FILLER PIC X(14) VALUE "------------- ". 00125 M00S00123.taflog +++| 05 FILLER PIC X(07) VALUE "DATE - ". 00126 M00S00124.taflog +++| 05 P-TAF-YR PIC 9(02). 00127 M00S00125.taflog +++| 05 FILLER PIC X(01) VALUE "/". 00128 M00S00126.taflog +++| 05 P-TAF-MT PIC 9(02). 00129 M00S00127.taflog +++| 05 FILLER PIC X(01) VALUE "/". 00130 M00S00128.taflog +++| 05 P-TAF-DY PIC 9(02). 00131 M00S00129.taflog +++| 05 FILLER PIC X(15) VALUE " --------------". 00132 M00S00130.taflog +++| 05 FILLER PIC X(15) VALUE "---------------". 00133 M00S00131.taflog +++| 05 FILLER PIC X(15) VALUE "---------------". 00134 M00S00132.taflog +++| 05 FILLER PIC X(15) VALUE "---------------". 00135 M00S00133.taflog +++| 05 FILLER PIC X(12) VALUE "------------". 00136 M00S00134.taflog +++| * 00137 M00S00135.taflog +++| 01 RPT-HDG-1. 00138 M00S00136.taflog +++| 05 FILLER PIC X(09) VALUE "1 SEQ". 00139 M00S00137.taflog +++| 05 FILLER PIC X(06) VALUE "ORG". 00140 M00S00138.taflog +++| 05 FILLER PIC X(05) VALUE "CNT". 00141 M00S00139.taflog +++| 05 FILLER PIC X(08) VALUE "TASK". 00142 M00S00140.taflog +++| 05 FILLER PIC X(08) VALUE "TIME". 00143 M00S00141.taflog +++| 05 FILLER PIC X(08) VALUE "USER". 00144 M00S00142.taflog +++| 05 FILLER PIC X(15) VALUE "JOURNAL MESSAGE". 00145 M00S00143.taflog +++| 05 FILLER PIC X(29) VALUE " ". 00146 M00S00144.taflog +++| 05 FILLER PIC X(09) VALUE "(RECORDS". 00147 M00S00145.taflog +++| 05 REC-FROM PIC Z(05). 00148 M00S00146.taflog +++| 05 FILLER PIC X(02) VALUE " -". 00149 M00S00147.taflog +++| 05 REC-TO PIC Z(05). 00150 M00S00148.taflog +++| 05 FILLER PIC X(10) VALUE ") PAGE". 00151 M00S00149.taflog +++| 05 PAGE-CNT PIC Z(04). 00152 M00S00150.taflog +++| 01 RPT-HDG-2 PIC X(10) VALUE SPACES. 00153 M00S00151.taflog +++| 01 DET-COUNT COMP-1 PIC 9(10) VALUE 20. 00154 M00S00152.taflog +++| 01 REC-COUNT PIC 9(10) VALUE 0. 00155 M00S00153.taflog +++| 01 CNT-FROM PIC 9(06) VALUE 1. 00156 M00S00154.taflog +++| 01 CNT-TO PIC 9(06) VALUE 20. 00157 M00S00155.taflog +++| 01 CNT-PAGE PIC 9(05) VALUE 0. 00158 M00S00156.taflog +++| 01 SUB1 COMP-1 PIC 9(10). 00159 M00S00157.taflog +++| 01 PER-PAGE PIC 9(10) VALUE 58. 00160 M00S00158.taflog +++| 01 COMP-1-WORD COMP-1 PIC 9(10) VALUE 0. 00161 M00S00159.taflog +++| 01 COMP-1-WORD-R REDEFINES COMP-1-WORD. 00162 M00S00160.taflog +++| 05 FILLER PIC X(09). 00163 M00S00161.taflog +++| 05 ONE-CHARACTER PIC X(01). 00164 M00S00162.taflog +++| 01 LINE-LENGTH PIC 9(10) VALUE 90. 00165 M00S00163.taflog +++| 01 YEAR-OFFSET PIC 9(02) VALUE 70. 00166 M00S00164.taflog +++| 01 CHAR-COUNT PIC 9(10). 00167 M00S00165.taflog +++| 01 BLANK-LINE PIC X(132). 00168 M00S00166.taflog +++| 01 POINT PIC X(01) VALUE ".". 00169 M00S00167.taflog +++| 01 ZERO-COUNT PIC 9(10) VALUE 0. 00170 M00S00168.taflog +++| 01 NBR-WORDS COMP-1 PIC 9(10) VALUE 0. 00171 M00S00169.taflog +++| 01 W-TAF-SEQ. 00172 M00S00170.taflog +++| 05 FILLER PIC X(02). 00173 M00S00171.taflog +++| 05 TAF-SEQ PIC X(08). 00174 M00S00172.taflog +++| * 00175 M00S00173.taflog +++| * TAF-ORG CONTAINS ONE OF THE FOLLOWING: 00176 M00S00174.taflog +++| * 00177 M00S00175.taflog +++| * 0 TASK ORIGIN (JOURNAL REQUEST). 00178 M00S00176.taflog +++| * 1 TRANSACTION SUBSYSTEM ORIGIN (INPUT). 00179 M00S00177.taflog +++| * 2 DATA MANAGER ORIGIN. 00180 M00S00178.taflog +++| * 3 TRANSACTION SUBSYSTEM RECOVERY/STATISTICAL DATA. 00181 M00S00179.taflog +++| * 4 END OF TRANSACTION INDICATOR. 00182 M00S00180.taflog +++| * 5 INCOMPLETE BLOCK OF TERMINAL INPUT DATA. 00183 M00S00181.taflog +++| * 6 TERMINAL INPUT FOR AN INTERACTIVE TASK. 00184 M00S00182.taflog +++| * 7 ILLEGAL INTERCONTROL POINT TRANSFER. 00185 M00S00183.taflog +++| * 10 ON LINE LIBTASK UPDATE (TT OPTION). 00186 M00S00184.taflog +++| * 11 CDCS DETECTED ERROR (ERROR MESSAGE FOLLOWS HEADER). 00187 M00S00185.taflog +++| * 12 *MSG* REQUEST WITH ZERO FUNCTION CODE. NORMAL FORTRAN 00188 M00S00186.taflog +++| * MESSAGES ARE LOGGED WITH THIS FUNCTION CODE. 00189 M00S00187.taflog +++| * 00190 M00S00188.taflog +++| 01 W-TAF-ORG. 00191 M00S00189.taflog +++| 05 FILLER PIC X(08). 00192 M00S00190.taflog +++| 05 TAF-ORG PIC X(02). 00193 M00S00191.taflog +++| * 00194 M00S00192.taflog +++| * ERR-STATUS WILL CONTAIN ONE OF THE FOLLOWING: 00195 M00S00193.taflog +++| * 00196 M00S00194.taflog +++| * -3 CIO ERROR ENCOUNTERED 00197 M00S00195.taflog +++| * -2 EOI ENCOUNTERED 00198 M00S00196.taflog +++| * -1 EOF ENCOUNTERED 00199 M00S00197.taflog +++| * 0 NO ERROR ENCOUNTERED 00200 M00S00198.taflog +++| * 1 EOR ENCOUNTERED 00201 M00S00199.taflog +++| * 2 ZERO LENGTH RECORD ENCOUNTERED 00202 M00S00200.taflog +++| * 00203 M00S00201.taflog +++| 01 ERR-STATUS COMP-1 PIC S9(10) VALUE 0. 00204 M00S00202.taflog +++| * 00205 M00S00203.taflog +++| PROCEDURE DIVISION. 00206 M00S00204.taflog +++| 00207 M00S00205.taflog +++| 00208 M00S00206.taflog +++| *** MAIN PROGRAM. 00209 M00S00207.taflog +++| 00210 M00S00208.taflog +++| 00211 M00S00209.taflog +++| DO-IT. 00212 M00S00210.taflog +++| MOVE PER-PAGE TO DET-COUNT CNT-TO. 00213 M00S00211.taflog +++| OPEN OUTPUT RPT-FILE. 00214 M00S00212.taflog +++| * 00215 M00S00213.taflog +++| READ-FIRST. 00216 M00S00214.taflog +++| ENTER COMPASS "READFR" 00217 M00S00215.taflog +++| USING 00218 M00S00216.taflog +++| LOG-RECORD 00219 M00S00217.taflog +++| NBR-WORDS 00220 M00S00218.taflog +++| ERR-STATUS 00221 M00S00219.taflog +++| W-TAF-SEQ 00222 M00S00220.taflog +++| W-TAF-ORG 00223 M00S00221.taflog +++| . 00224 M00S00222.taflog +++| PERFORM ERROR-CHECKING. 00225 M00S00223.taflog +++| GO TO PROCESS-ONE. 00226 M00S00224.taflog +++| * 00227 M00S00225.taflog +++| READ-ONE. 00228 M00S00226.taflog +++| ENTER COMPASS "READNR" 00229 M00S00227.taflog +++| USING 00230 M00S00228.taflog +++| LOG-RECORD 00231 M00S00229.taflog +++| NBR-WORDS 00232 M00S00230.taflog +++| ERR-STATUS 00233 M00S00231.taflog +++| W-TAF-SEQ 00234 M00S00232.taflog +++| W-TAF-ORG 00235 M00S00233.taflog +++| . 00236 M00S00234.taflog +++| PERFORM ERROR-CHECKING. 00237 M00S00235.taflog +++| * 00238 M00S00236.taflog +++| PROCESS-ONE. 00239 M00S00237.taflog +++| ADD 1 TO REC-COUNT. 00240 M00S00238.taflog +++| COMPUTE LOG-TRAILER-CHARACTER-COUNT = 00241 M00S00239.taflog +++| (LOG-TRAILER-CHARACTER-COUNT * 10). 00242 M00S00240.taflog +++| SUBTRACT 30 FROM LOG-TRAILER-CHARACTER-COUNT. 00243 M00S00241.taflog +++| ADD 1 TO ZERO-COUNT. 00244 M00S00242.taflog +++| PERFORM PRINT-DETAIL. 00245 M00S00243.taflog +++| GO TO READ-ONE. 00246 M00S00244.taflog +++| * 00247 M00S00245.taflog +++| CIO-ERROR. 00248 M00S00246.taflog +++| DISPLAY "CIO ERROR DETECTED" UPON SCREEN. 00249 M00S00247.taflog +++| GO TO END-OF-JOB. 00250 M00S00248.taflog +++| * 00251 M00S00249.taflog +++| END-OF-JOB. 00252 M00S00250.taflog +++| CLOSE RPT-FILE. 00253 M00S00251.taflog +++| DISPLAY "RECORDS READ =" REC-COUNT UPON SCREEN. 00254 M00S00252.taflog +++| DISPLAY "AFTER IMAGES PROCESSED =" ZERO-COUNT UPON SCREEN. 00255 M00S00253.taflog +++| DISPLAY "OUTPUT ON FILE *JOURNAL*.". 00256 M00S00254.taflog +++| STOP RUN. 00257 M00S00255.taflog +++| 00258 M00S00256.taflog +++| 00259 M00S00257.taflog +++| *** SUBROUTINES. 00260 M00S00258.taflog +++| 00261 M00S00259.taflog +++| 00262 M00S00260.taflog +++| ERROR-CHECKING. 00263 M00S00261.taflog +++| IF (ERR-STATUS EQUAL -1) OR (ERR-STATUS EQUAL 1) 00264 M00S00262.taflog +++| OR (ERR-STATUS EQUAL 2) 00265 M00S00263.taflog +++| GO TO READ-ONE. 00266 M00S00264.taflog +++| IF ERR-STATUS EQUAL -2 00267 M00S00265.taflog +++| GO TO END-OF-JOB. 00268 M00S00266.taflog +++| IF ERR-STATUS EQUAL -3 00269 M00S00267.taflog +++| GO TO CIO-ERROR. 00270 M00S00268.taflog +++| * END OF PROCEDURE ERROR-CHECKING. 00271 M00S00269.taflog +++| 00272 M00S00270.taflog +++| 00273 M00S00271.taflog +++| INSPECT-LOG-TRAILER. 00274 M00S00272.taflog +++| INSPECT P-TASK-NAME REPLACING ALL ":" BY " ". 00275 M00S00273.taflog +++| INSPECT P-TAF-USERNAME REPLACING ALL ":" BY " ". 00276 M00S00274.taflog +++| INSPECT P-LOG-TRAILER REPLACING ALL ":" BY " ". 00277 M00S00275.taflog +++| * END OF PROCEDURE INSPECT-LOG-TRAILER. 00278 M00S00276.taflog +++| 00279 M00S00277.taflog +++| 00280 M00S00278.taflog +++| PRINT-DETAIL. 00281 M00S00279.taflog +++| ADD 1 TO DET-COUNT. 00282 M00S00280.taflog +++| IF DET-COUNT GREATER THAN PER-PAGE 00283 M00S00281.taflog +++| MOVE 1 TO DET-COUNT 00284 M00S00282.taflog +++| ADD 1 TO CNT-PAGE 00285 M00S00283.taflog +++| MOVE CNT-PAGE TO PAGE-CNT 00286 M00S00284.taflog +++| MOVE CNT-FROM TO REC-FROM 00287 M00S00285.taflog +++| MOVE CNT-TO TO REC-TO 00288 M00S00286.taflog +++| WRITE RPT-RECORD FROM RPT-HDG-1 00289 M00S00287.taflog +++| WRITE RPT-RECORD FROM RPT-HDG-2 00290 M00S00288.taflog +++| ADD PER-PAGE TO CNT-FROM 00291 M00S00289.taflog +++| ADD PER-PAGE TO CNT-TO 00292 M00S00290.taflog +++| WRITE RPT-RECORD FROM RPT-HDG-2 00293 M00S00291.taflog +++| . 00294 M00S00292.taflog +++| MOVE TAF-SEQ TO P-TAF-SEQ. 00295 M00S00293.taflog +++| MOVE TAF-ORG TO P-TAF-ORG. 00296 M00S00294.taflog +++| MOVE LOG-TRAILER-CHARACTER-COUNT 00297 M00S00295.taflog +++| TO P-CHAR-COUNT. 00298 M00S00296.taflog +++| MOVE TAF-TASK-NAME TO P-TASK-NAME. 00299 M00S00297.taflog +++| MOVE TAF-HR TO ONE-CHARACTER. 00300 M00S00298.taflog +++| MOVE COMP-1-WORD TO P-TAF-HR. 00301 M00S00299.taflog +++| MOVE TAF-MN TO ONE-CHARACTER. 00302 M00S00300.taflog +++| MOVE COMP-1-WORD TO P-TAF-MN. 00303 M00S00301.taflog +++| MOVE TAF-SC TO ONE-CHARACTER. 00304 M00S00302.taflog +++| MOVE COMP-1-WORD TO P-TAF-SC. 00305 M00S00303.taflog +++| MOVE TAF-USERNAME TO P-TAF-USERNAME. 00306 M00S00304.taflog +++| MOVE 1 TO SUB1. 00307 M00S00305.taflog +++| MOVE SPACES TO P-LOG-TRAILER. 00308 M00S00306.taflog +++| PERFORM WRITE-RECORD 00309 M00S00307.taflog +++| UNTIL (SUB1 > LOG-TRAILER-CHARACTER-COUNT) 00310 M00S00308.taflog +++| OR (TRANEX = "*TRANEX"). 00311 M00S00309.taflog +++| IF (TRANEX = "*TRANEX") 00312 M00S00310.taflog +++| MOVE TAF-DY TO ONE-CHARACTER 00313 M00S00311.taflog +++| MOVE COMP-1-WORD TO P-TAF-DY 00314 M00S00312.taflog +++| MOVE TAF-MT TO ONE-CHARACTER 00315 M00S00313.taflog +++| MOVE COMP-1-WORD TO P-TAF-MT 00316 M00S00314.taflog +++| MOVE TAF-YR TO ONE-CHARACTER 00317 M00S00315.taflog +++| MOVE COMP-1-WORD TO P-TAF-YR 00318 M00S00316.taflog +++| ADD YEAR-OFFSET TO P-TAF-YR 00319 M00S00317.taflog +++| WRITE RPT-RECORD FROM PRINT-DATE 00320 M00S00318.taflog +++| ELSE IF (LOG-TRAILER-CHARACTER-COUNT = 0) 00321 M00S00319.taflog +++| PERFORM WRITE-LINE. 00322 M00S00320.taflog +++| MOVE POINT TO P-POINT-1. 00323 M00S00321.taflog +++| MOVE POINT TO P-POINT-2. 00324 M00S00322.taflog +++| * END OF PROCEDURE PRINT-DETAIL. 00325 M00S00323.taflog +++| 00326 M00S00324.taflog +++| 00327 M00S00325.taflog +++| TRANSFER. 00328 M00S00326.taflog +++| MOVE LOG-TRAILER (SUB1) TO P-LOG (CHAR-COUNT). 00329 M00S00327.taflog +++| ADD 1 TO CHAR-COUNT. 00330 M00S00328.taflog +++| ADD 1 TO SUB1. 00331 M00S00329.taflog +++| * END OF PROCEDURE TRANSFER. 00332 M00S00330.taflog +++| 00333 M00S00331.taflog +++| 00334 M00S00332.taflog +++| WRITE-LINE. 00335 M00S00333.taflog +++| PERFORM INSPECT-LOG-TRAILER. 00336 M00S00334.taflog +++| WRITE RPT-RECORD FROM PRINT-A-LINE. 00337 M00S00335.taflog +++| MOVE BLANK-LINE TO PRINT-A-LINE. 00338 M00S00336.taflog +++| * END OF PROCEDURE WRITE-LINE. 00339 M00S00337.taflog +++| 00340 M00S00338.taflog +++| 00341 M00S00339.taflog +++| WRITE-RECORD. 00342 M00S00340.taflog +++| MOVE 1 TO CHAR-COUNT. 00343 M00S00341.taflog +++| PERFORM TRANSFER UNTIL (CHAR-COUNT > LINE-LENGTH) OR 00344 M00S00342.taflog +++| (SUB1 > LOG-TRAILER-CHARACTER-COUNT). 00345 M00S00343.taflog +++| PERFORM WRITE-LINE. 00346 M00S00344.taflog +++| * END OF PROCEDURE WRITE-RECORD. 00347 M00S00345.taflog +++| 00348 M00S00346.taflog +++| 00349 M00S00347.taflog +++| * END OF PROGRAM TAFLOG. 00350 M00S00348.taflog +++|*WEOR 00351 M00S00349.taflog +++| IDENT READJ 00352 M00S00350.taflog +++| TITLE READJ - READ TAF JOURNAL FILE. 00353 M00S00351.taflog +++| ENTRY READFR 00354 M00S00352.taflog +++| ENTRY READNR 00355 M00S00353.taflog +++| SST 00356 M00S00354.taflog +++| SYSCOM B1 00357 M00S00355.taflog +++|*COMMENT TAFLOG - READ TAF JOURNAL FILE.
| Line S00356 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00358 M01S00356.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1986.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00359 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00360 M00S00357.taflog +++| SPACE 4,10 00361 M00S00358.taflog +++|*** READJ - READ TAF JOURNAL FILE. 00362 M00S00359.taflog +++|* 00363 M00S00360.taflog +++|* *READJ* READS ENTRIES (RECORDS) FROM THE TAF JOURNAL FILE ONE 00364 M00S00361.taflog +++|* AT A TIME. *READJ* CAN BE CALLED BY COBOL OR FORTRAN 00365 M00S00362.taflog +++|* PROGRAMS. *READJ* WILL READ PAST EOR AND EOF ON THE JOURNAL 00366 M00S00363.taflog +++|* FILE. THE TAF JOURNAL FILE MUST BE A LOCAL FILE WITH THE 00367 M00S00364.taflog +++|* NAME *JOUR0*. THE ENTRY POINTS IN *READJ* ARE *READFR* 00368 M00S00365.taflog +++|* AND *READNR*. ENTRY POINT *READFR* IS USED TO READ THE FIRST 00369 M00S00366.taflog +++|* RECORD FROM THE JOURNAL FILE. ALL SUBSEQUENT RECORDS ARE 00370 M00S00367.taflog +++|* READ BY CALLING *READNR*. THERE MUST BE ONLY ONE CALL 00371 M00S00368.taflog +++|* (FIRST) TO *READFR* IN ANY PROGRAM READING THE JOURNAL FILE. 00372 M00S00369.taflog +++|* THE CALLS TO *READFR* AND *READNR* ARE EXACTLY THE SAME. 00373 M00S00370.taflog +++|* 00374 M00S00371.taflog +++|* FORTRAN CALL TO *READFR* IS: 00375 M00S00372.taflog +++|* 00376 M00S00373.taflog +++|* CALL READFR(IREC,LEN,ISTAT,SEQ,ORG) 00377 M00S00374.taflog +++|* 00378 M00S00375.taflog +++|* COBOL CALL TO *READFR* IS: 00379 M00S00376.taflog +++|* 00380 M00S00377.taflog +++|* ENTER COMPASS "READFR" USING IREC, LEN, ISTAT, SEQ, ORG. 00381 M00S00378.taflog +++|* 00382 M00S00379.taflog +++|* FORTRAN CALL TO *READNR* IS: 00383 M00S00380.taflog +++|* 00384 M00S00381.taflog +++|* CALL READNR(IREC,LEN,ISTAT,SEQ,ORG) 00385 M00S00382.taflog +++|* 00386 M00S00383.taflog +++|* COBOL CALL TO *READNR* IS: 00387 M00S00384.taflog +++|* 00388 M00S00385.taflog +++|* ENTER COMPASS "READNR" USING IREC, LEN, ISTAT, SEQ, ORG. 00389 M00S00386.taflog +++|* 00390 M00S00387.taflog +++|* THE PARAMETERS ARE AS FOLLOWS: 00391 M00S00388.taflog +++|* 00392 M00S00389.taflog +++|* IREC = FWA OF THE WORKING BUFFER WHERE THE FIRST 00393 M00S00390.taflog +++|* OR NEXT RECORD WILL BE READ. THIS BUFFER 00394 M00S00391.taflog +++|* MUST BE LARGE ENOUGH TO HOLD THE LARGEST 00395 M00S00392.taflog +++|* RECORD ON THE JOURNAL FILE. 00396 M00S00393.taflog +++|* 00397 M00S00394.taflog +++|* LEN = THIS IS AN INTEGER VARIBLE FOR FORTRAN AND 00398 M00S00395.taflog +++|* COMP-1 FOR COBOL5. 00399 M00S00396.taflog +++|* THE LENGTH OF RECORD READ IN WORDS IS 00400 M00S00397.taflog +++|* RETURNED TO THE CALLER. THIS IS MEANINGFUL 00401 M00S00398.taflog +++|* ONLY WHEN ISTAT IS 0. 00402 M00S00399.taflog +++|* 00403 M00S00400.taflog +++|* ISTAT = THIS IS AN INTEGER VARIABLE FOR FORTRAN AND 00404 M00S00401.taflog +++|* COMP-1 FOR COBOL5. 00405 M00S00402.taflog +++|* THE STATUS OF THE REQUEST IS RETURNED TO THE USER 00406 M00S00403.taflog +++|* IN THIS PARAMETER AFTER COMPLETION OF THE REQUEST. 00407 M00S00404.taflog +++|* -3 = CIO ERROR ON READ. 00408 M00S00405.taflog +++|* -2 = EOI READ. 00409 M00S00406.taflog +++|* -1 = EOF READ. 00410 M00S00407.taflog +++|* 0 = NORMAL TERMINATION. 00411 M00S00408.taflog +++|* 1 = EOR READ. 00412 M00S00409.taflog +++|* 2 = ZERO LENGTH RECORD READ. 00413 M00S00410.taflog +++|* 00414 M00S00411.taflog +++|* SEQ = THIS IS A CHARACTER VARIABLE FOR FORTRAN AND COBOL5. 00415 M00S00412.taflog +++|* THE TAF SEQUENCE INDICATOR IS RETURNED TO THE 00416 M00S00413.taflog +++|* CALLER AS A DISPLAY CODED OCTAL VALUE. 00417 M00S00414.taflog +++|* 00418 M00S00415.taflog +++|* ORG = THIS IS A CHARACTER VARIABLE FOR FORTRAN AND COBOL5. 00419 M00S00416.taflog +++|* THE TAF ORIGIN INDICATOR IS RETURNED TO THE CALLER 00420 M00S00417.taflog +++|* AS A DISPLAY CODED OCTAL VALUE. 00421 M00S00418.taflog +++|* 00422 M00S00419.taflog +++|* TO READ PAST EOR/EOF ON JOURNAL FILE THE CALLER SHOULD IGNORE 00423 M00S00420.taflog +++|* EOR/EOF STATUS. THE FILE MAY BE READ UNTIL EOI IS REACHED OR 00424 M00S00421.taflog +++|* UNTIL A CIO ERROR IS ENCOUNTERED. 00425 M00S00422.taflog +++| SPACE 4,10 00426 M00S00423.taflog +++|*CALL COMCMAC 00427 M00S00424.taflog +++| SPACE 4,10 00428 M00S00425.taflog +++| JBUFL EQU 6401D JOURNAL FILE BUFFER LENGTH 00429 M00S00426.taflog +++| SPACE 4,10 00430 M00S00427.taflog +++| J BSS 0 JOURNAL FILE FET 00431 M00S00428.taflog +++| JOUR0 FILEB JBUF,JBUFL 00432 M00S00429.taflog +++| FWA BSS 1 FWA OF USER BUFFER 00433 M00S00430.taflog +++| NWORDS BSS 1 ADDRESS FOR NUMBER OF WORDS TRANSFERRED 00434 M00S00431.taflog +++| STATUS BSS 1 ADDRESS OF STATUS WORD 00435 M00S00432.taflog +++| SEQADR BSS 1 ADDRESS OF TAF SEQUENCE INDICATOR 00436 M00S00433.taflog +++| ORGADR BSS 1 ADDRESS OF TAF ORIGIN 00437 M00S00434.taflog +++| READFR SPACE 4,10 00438 M00S00435.taflog +++|** READFR - READ FIRST RECORD. 00439 M00S00436.taflog +++| 00440 M00S00437.taflog +++| 00441 M00S00438.taflog +++| READFR SUBR ENTRY/EXIT 00442 M00S00439.taflog +++| SB1 1 00443 M00S00440.taflog +++| RJ PRS PRESET 00444 M00S00441.taflog +++| REWIND J 00445 M00S00442.taflog +++| READ J READ FIRST X PRU-S 00446 M00S00443.taflog +++| RJ RNX READ FIRST RECORD 00447 M00S00444.taflog +++| EQ READFRX RETURN 00448 M00S00445.taflog +++| READNR SPACE 4,10 00449 M00S00446.taflog +++|** READNR - READ NEXT RECORD. 00450 M00S00447.taflog +++| 00451 M00S00448.taflog +++| 00452 M00S00449.taflog +++| READNR SUBR ENTRY/EXIT 00453 M00S00450.taflog +++| SB1 1 00454 M00S00451.taflog +++| RJ PRS PRESET 00455 M00S00452.taflog +++| RJ RNX READ NEXT RECORD 00456 M00S00453.taflog +++| EQ READNRX RETURN 00457 M00S00454.taflog +++| TITLE SUBROUTINES. 00458 M00S00455.taflog +++| PRS SPACE 4,10 00459 M00S00456.taflog +++|** PRS - PRESET. 00460 M00S00457.taflog +++|* 00461 M00S00458.taflog +++|* EXIT (FWA) = FIRST WORD OF USER BUFFER. 00462 M00S00459.taflog +++|* (NWORDS) = SECOND PARAMETER ADDRESS. 00463 M00S00460.taflog +++|* (STATUS) = STATUS WORD ADDRESS. 00464 M00S00461.taflog +++|* (SEQADR) = TAF SEQUENCE INDICATOR WORD ADDRESS. 00465 M00S00462.taflog +++|* (ORGADR) = TAF ORIGIN WORD ADDRESS. 00466 M00S00463.taflog +++| 00467 M00S00464.taflog +++| 00468 M00S00465.taflog +++| PRS SUBR ENTRY/EXIT 00469 M00S00466.taflog +++| SX6 X1 00470 M00S00467.taflog +++| SA6 FWA SAVE FWA OF USER BUFFER 00471 M00S00468.taflog +++| SA2 A1+B1 00472 M00S00469.taflog +++| SX7 X2 00473 M00S00470.taflog +++| SA7 NWORDS SAVE SECOND PARAMETER ADDRESS 00474 M00S00471.taflog +++| SA2 A2+B1 00475 M00S00472.taflog +++| SX7 X2 00476 M00S00473.taflog +++| SA7 STATUS SAVE STATUS WORD ADDRESS 00477 M00S00474.taflog +++| MX6 0 00478 M00S00475.taflog +++| SA6 X7 ZERO OUT ERROR STATUS 00479 M00S00476.taflog +++| SA2 A2+B1 00480 M00S00477.taflog +++| SX7 X2 00481 M00S00478.taflog +++| SA7 SEQADR SAVE TAF SEQUENCE INDICATOR WORD ADDRESS 00482 M00S00479.taflog +++| SA6 X7 ZERO OUT TAF SEQUENCE INDICATOR 00483 M00S00480.taflog +++| SA2 A2+B1 00484 M00S00481.taflog +++| SX7 X2 00485 M00S00482.taflog +++| SA7 ORGADR SAVE TAF ORIGIN WORD ADDRESS 00486 M00S00483.taflog +++| SA6 X7 ZERO OUT TAF ORIGIN 00487 M00S00484.taflog +++| EQ PRSX RETURN 00488 M00S00485.taflog +++| RNX SPACE 4,10 00489 M00S00486.taflog +++|** RNX - READ NEXT RECORD. 00490 M00S00487.taflog +++|* 00491 M00S00488.taflog +++|* USES X - 0, 1, 2, 6, 7. 00492 M00S00489.taflog +++|* A - 1, 2, 6, 7. 00493 M00S00490.taflog +++|* B - 6, 7. 00494 M00S00491.taflog +++|* 00495 M00S00492.taflog +++|* CALLS COD. 00496 M00S00493.taflog +++|* 00497 M00S00494.taflog +++|* MACROS READO, READW. 00498 M00S00495.taflog +++| 00499 M00S00496.taflog +++| 00500 M00S00497.taflog +++| RNX SUBR ENTRY/EXIT 00501 M00S00498.taflog +++| READO J READ HEADER WORD 00502 M00S00499.taflog +++| NZ X1,RNX4 IF EOR/EOF 00503 M00S00500.taflog +++| BX0 X6 SAVE (X6) 00504 M00S00501.taflog +++| SA2 RNXA 00505 M00S00502.taflog +++| BX2 X6-X2 CHECK FOR LABEL RECORD 00506 M00S00503.taflog +++| NZ X2,RNX1 IF NOT LABEL RECORD 00507 M00S00504.taflog +++| SB7 2 NUMBER OF WORDS TO TRANSFER 00508 M00S00505.taflog +++| SX7 3 LENGTH OF RECORD IN WORDS 00509 M00S00506.taflog +++| EQ RNX2 PROCESS LABEL RECORD 00510 M00S00507.taflog +++| 00511 M00S00508.taflog +++| RNX1 MX1 24 00512 M00S00509.taflog +++| BX1 X1*X6 GET TAF SEQUENCE INDICATOR 00513 M00S00510.taflog +++| LX1 -36 00514 M00S00511.taflog +++| MX2 1 00515 M00S00512.taflog +++| LX2 -30 00516 M00S00513.taflog +++| BX1 X1+X2 ASSURE THAT LEADING ZEROES ARE CONVERTED 00517 M00S00514.taflog +++| RJ COD CONVERT OCTAL TO DISPLAY CODE 00518 M00S00515.taflog +++| BX6 X4 00519 M00S00516.taflog +++| SA2 SEQADR 00520 M00S00517.taflog +++| SA6 X2 RETURN TAF SEQUENCE INDICATOR TO CALLER 00521 M00S00518.taflog +++| MX1 6 00522 M00S00519.taflog +++| LX1 -24 00523 M00S00520.taflog +++| BX1 X1*X0 GET TAF ORIGIN 00524 M00S00521.taflog +++| LX1 -30 00525 M00S00522.taflog +++| MX2 1 00526 M00S00523.taflog +++| LX2 -30 00527 M00S00524.taflog +++| BX1 X1+X2 ASSURE THAT LEADING ZEROES ARE CONVERTED 00528 M00S00525.taflog +++| RJ COD CONVERT OCTAL TO DISPLAY CODE 00529 M00S00526.taflog +++| BX6 X4 00530 M00S00527.taflog +++| SA2 ORGADR 00531 M00S00528.taflog +++| SA6 X2 RETURN TAF ORIGIN TO CALLER 00532 M00S00529.taflog +++| SB7 X0-1 NUMBER OF WORDS TO TRANSFER 00533 M00S00530.taflog +++| SX7 X0 00534 M00S00531.taflog +++| RNX2 SA2 NWORDS 00535 M00S00532.taflog +++| SA7 X2 RETURN WORD COUNT TO CALLER 00536 M00S00533.taflog +++| SA1 FWA FWA OF USER BUFFER 00537 M00S00534.taflog +++| BX6 X0 RESTORE (X6) 00538 M00S00535.taflog +++| ZR B7,RNX3 IF ONLY 1 WORD RECORD 00539 M00S00536.taflog +++| NG B7,RNX5 IF ZERO LENGTH RECORD 00540 M00S00537.taflog +++| SA6 X1 RETURN FIRST WORD OF RECORD 00541 M00S00538.taflog +++| SX1 X1+B1 00542 M00S00539.taflog +++| READW J,X1,B7 READ REST OF RECORD 00543 M00S00540.taflog +++| NZ X1,RNX4 IF EOR/EOF 00544 M00S00541.taflog +++| MX6 0 SET ERROR FLAG TO ZERO 00545 M00S00542.taflog +++| EQ RNX6 COMPLETE REQUEST 00546 M00S00543.taflog +++| 00547 M00S00544.taflog +++| RNX3 SA6 X1 RETURN 1 WORD TO USER BUFFER 00548 M00S00545.taflog +++| MX6 0 00549 M00S00546.taflog +++| EQ RNX6 COMPLETE REQUEST 00550 M00S00547.taflog +++| 00551 M00S00548.taflog +++| 00552 M00S00549.taflog +++|* PROCESS EOR/EOF. 00553 M00S00550.taflog +++| 00554 M00S00551.taflog +++| RNX4 SX6 X1 EOR/EOF/EOI 00555 M00S00552.taflog +++| SA1 J CLEAR EOR/EOF STATUS FOR NEXT READ 00556 M00S00553.taflog +++| SX0 30B 00557 M00S00554.taflog +++| BX7 -X0*X1 00558 M00S00555.taflog +++| SA7 A1 CLEAR EOR/EOF STATUS 00559 M00S00556.taflog +++| EQ RNX6 COMPLETE REQUEST 00560 M00S00557.taflog +++| 00561 M00S00558.taflog +++|* PROCESS ZERO-LENGTH RECORD. 00562 M00S00559.taflog +++| 00563 M00S00560.taflog +++| RNX5 SX6 2 ZERO LENGTH RECORD 00564 M00S00561.taflog +++| EQ RNX6 COMPLETE REQUEST 00565 M00S00562.taflog +++| 00566 M00S00563.taflog +++|* RETURN STATUS TO CALLER. 00567 M00S00564.taflog +++| 00568 M00S00565.taflog +++| RNX6 SA1 STATUS 00569 M00S00566.taflog +++| SA6 X1 RETURN STATUS TO CALLER 00570 M00S00567.taflog +++| EQ RNXX RETURN TO CALLER 00571 M00S00568.taflog +++| 00572 M00S00569.taflog +++| RNXA DATA C/*TRANEX*/ 00573 M00S00570.taflog +++| SPACE 4,10 00574 M00S00571.taflog +++|*CALL COMCCOD 00575 M00S00572.taflog +++| SPACE 4,10 00576 M00S00573.taflog +++| JBUF BSSZ JBUFL 00577 M00S00574.taflog +++| END
cdc/nos2.source/opl.opl871/deck/taflog.txt · Last modified: by 127.0.0.1