User Tools

Site Tools


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