User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:dayfile

Deck DAYFILE

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.dayfile +++|          IDENT  DAYFILE,FETS
00002  M01S00002.dayfile +++|          ABS
00003  M01S00003.dayfile +++|          SST
00004  M01S00004.dayfile +++|          SYSCOM B1
Line S00005 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.ns22000 ---|
Line S00006 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.ns22000 ---|          ENTRY  DAYFILE
00007  M01S00007.dayfile +++|          ENTRY  AFD
00008  M01S00001.ns22000 +++|          ENTRY  DAYFILE
00009  M01S00008.dayfile +++|          ENTRY  DFD
00010  M01S00009.dayfile +++|          ENTRY  ELD
00011  M01S00002.ns22000 +++|          ENTRY  GETLOG
00012  M01S00010.dayfile +++|          ENTRY  MAINLOG
00013  M01S00011.dayfile +++|          ENTRY  ARG=
00014  M01S00012.dayfile +++|          ENTRY  RFL=
00015  M01S00013.dayfile +++|          ENTRY  SSJ=
00016  M01S00001.242l642 +++|          ENTRY  UTL=
00017  M01S00014.dayfile +++|
00018  M01S00015.dayfile +++|*COMMENT  DAYFILE - DUMP DAYFILES.
Line S00016 Modification History
M01 (Added by) dayfile
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00016.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00020  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00021  M01S00017.dayfile +++|          TITLE  DAYFILE - DUMP DAYFILES.
00022  M01S00018.dayfile +++|          SPACE  4
00023  M01S00019.dayfile +++|***       DAYFILE - DUMP DAYFILES.
00024  M01S00020.dayfile +++|*         J. C. BOHNHOFF.    75/02/15.
00025  M01S00021.dayfile +++|*         S. L. KSANDER.     75/08/16.
00026  M01S00022.dayfile +++|*         P. L. VERELL.      79/11/07.
00027  M01S00023.dayfile +++|          SPACE  4
00028  M01S00024.dayfile +++|***              *DAYFILE* ACCESSES THE INDICATED DAYFILE AND COPIES
00029  M01S00025.dayfile +++|*         IT TO THE REQUESTED FILE.  CERTAIN PORTIONS OF DAYFILES MAY
00030  M01S00026.dayfile +++|*         BE SELECTIVELY COPIED.
00031  M01S00027.dayfile +++|          SPACE  4
Line S00028 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00028.v23l617 ---|***       CONTROL CARD CALL -
00033  M01S00001.v23l617 +++|***       THE COMMAND -
00034  M01S00029.dayfile +++|*
00035  M01S00030.dayfile +++|*         AFD(OPT)           DUMP ACCOUNT DAYFILE. **
00036  M01S00031.dayfile +++|*         DAYFILE(OPT)       DUMP USER JOB DAYFILE.
00037  M01S00032.dayfile +++|*         DFD(OPT)           DUMP SYSTEM DAYFILE. **
00038  M01S00033.dayfile +++|*         ELD(OPT)           DUMP ERROR LOG DAYFILE. **
00039  M01S00003.ns22000 +++|*         GETLOG(OPT)        DUMP ERROR LOG AND BML FOR *HPA*.  **
00040  M01S00034.dayfile +++|*         MAINLOG(OPT)       DUMP MAINTENANCE LOG. **
00041  M01S00035.dayfile +++|*
00042  M01S00036.dayfile +++|*         **     THESE CALLS ARE ALLOWED ONLY IF -
00043  M01S00037.dayfile +++|*                CALLER HAS SYSTEM ORIGIN, OR CALLER HAS SYSTEM
00044  M01S00038.dayfile +++|*                ORIGIN PRIVILEGES AND SYSTEM IS IN DEBUG MODE.
00045  M01S00039.dayfile +++|*
00046  M01S00040.dayfile +++|*         WHERE  OPT =       OPTIONS. ANY OF THE FOLLOWING -
00047  M01S00041.dayfile +++|*
Line S00042 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00042.ns22000 ---|*                L           FILE TO WHICH DAYFILE IS DUMPED.  IF
Line S00043 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00043.ns22000 ---|*                            ABSENT, THE FILE IS *OUTPUT*.  IF L IS
00050  M01S00004.ns22000 +++|*                L           FILE TO WHICH DAYFILE IS DUMPED.  FOR
00051  M01S00005.ns22000 +++|*                            *GETLOG*, THIS IS THE *ERRLOG* FILE.  THE
00052  M01S00006.ns22000 +++|*                            DEFAULT IS *ERR* FOR *GETLOG* AND IS
00053  M01S00007.ns22000 +++|*                            *OUTPUT* FOR ALL OTHER ENTRY POINTS.  IF
00054  M01S00044.dayfile +++|*                            EQUATED THEN THE FILE NAME MAY BE ANY
00055  M01S00045.dayfile +++|*                            VALID FILE NAME.  IF, BY ONE OF THE ABOVE
00056  M01S00046.dayfile +++|*                            MEANS, THE FILE NAME IS SET TO *OUTPUT*,
00057  M01S00047.dayfile +++|*                            PAGINATION OCCURS.  THE TITLE LINE OF
00058  M01S00048.dayfile +++|*                            EACH PAGE CONTAINS THE TIME AND DATE OF
00059  M01S00049.dayfile +++|*                            THE DUMP, THE TIME FIELD OF THE FIRST
00060  M01S00050.dayfile +++|*                            DAYFILE ENTRY ON THE PAGE, AND THE PAGE
00061  M01S00051.dayfile +++|*                            NUMBER.  IF EITHER OR BOTH OF THE PD OR
00062  M01S00052.dayfile +++|*                            PL ARGUMENTS ARE SPECIFIED, PAGINATION
00063  M01S00053.dayfile +++|*                            ALWAY OCCURS, REGARDLESS OF THE OUTPUT
00064  M01S00054.dayfile +++|*                            FILE NAME.  PAGES ARE NEVER GIVEN IF THE
00065  M01S00055.dayfile +++|*                            OUTPUT FILE IS ASSIGNED TO AN INTERACTIVE
00066  M01S00056.dayfile +++|*                            TERMINAL.
00067  M01S00057.dayfile +++|*
00068  M01S00058.dayfile +++|*                FR          SELECT PARTIAL DUMP FROM SPECIFIED LINE.
00069  M01S00059.dayfile +++|*                            IF FR IS EQUATED TO A LITERAL VALUE, THE
00070  M01S00060.dayfile +++|*                            DUMP WILL BEGIN AT THE LINE CONTAINING
00071  M01S00061.dayfile +++|*                            THE LAST OCCURRENCE OF THE LITERAL.
00072  M01S00062.dayfile +++|*                            DAYFILE LINES ARE EXAMINED BY COMPARING
00073  M01S00063.dayfile +++|*                            THE FIRST CHARACTERS OF THE FIELD
00074  M01S00064.dayfile +++|*                            SPECIFIED BY OP WITH THE LITERAL.  THE
00075  M01S00065.dayfile +++|*                            LITERAL MAY BE UP TO 30 CHARACTERS.  THE
00076  M01S00066.dayfile +++|*                            LITERAL IS DELIMITED BY DOLLAR SIGNS.  A
00077  M01S00067.dayfile +++|*                            LITERAL DOLLAR SIGN IS REPRESENTED BY TWO
00078  M01S00068.dayfile +++|*                            CONSECUTIVE DOLLAR SIGNS.  FR NEED NOT BE
00079  M01S00069.dayfile +++|*                            A LITERAL IF THE STRING BEING SEARCHED
00080  M01S00070.dayfile +++|*                            FOR IS ALSO A LEGITIMATE FILE NAME.
00081  M01S00071.dayfile +++|*
00082  M01S00072.dayfile +++|*                OP          SELECT DAYFILE FIELD FOR SEARCH.
00083  M01S00073.dayfile +++|*                            THE DEFAULT IS *OP = I* FOR TERMINAL
00084  M01S00074.dayfile +++|*                            OUTPUT FILES, *OP = F* FOR OTHER FILES.
00085  M01S00075.dayfile +++|*                            IF *FR* IS SPECIFIED, THE DEFAULT IS
00086  M01S00076.dayfile +++|*                            *OP = M*.
00087  M01S00077.dayfile +++|*                            OP MAY BE EQUATED TO ANY OF THE FOLLOWING
00088  M01S00078.dayfile +++|*                            SINGLE CHARACTERS -
00089  M01S00079.dayfile +++|*                                      T  FOR TIME FIELD
00090  M01S00080.dayfile +++|*                                      J  FOR JOB NAME FIELD
Line S00081 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00081.v23l617 ---|*                                         (ILLEGAL FOR USER DAYFILE)
00092  M01S00002.v23l617 +++|*                                         (INCORRECT FOR USER DAYFILE)
00093  M01S00082.dayfile +++|*                                      M  FOR MESSAGE FIELD
Line S00083 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00094  M02S00083.v23l617 ---|*                                         (ILLEGAL FOR MAINTENANCE LOG)
00095  M01S00003.v23l617 +++|*                                         (INCORRECT FOR MAINTENANCE
00096  M01S00004.v23l617 +++|*                                         LOG)
00097  M01S00084.dayfile +++|*                                      I  FROM LAST DUMP
00098  M01S00085.dayfile +++|*                                      P  FROM LAST DUMP BY THIS JOB
Line S00086 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00086.v23l617 ---|*                                         (ILLEGAL FOR USER DAYFILE)
00100  M01S00005.v23l617 +++|*                                         (INCORRECT FOR USER DAYFILE)
00101  M01S00087.dayfile +++|*                                      F  FULL DUMP
00102  M01S00088.dayfile +++|*                            OP SELECTS ONLY THE STARTING POSITION OF
00103  M01S00089.dayfile +++|*                            THE SEARCH IN EACH LINE.  THEREFORE, THE
00104  M01S00090.dayfile +++|*                            FIELD TO BE SEARCHED FOR MAY CROSS T,J,M
00105  M01S00091.dayfile +++|*                            BOUNDARIES.  FOR EXAMPLE -
00106  M01S00092.dayfile +++|*                               DAYFILE(FR=$ 11.03.21.COMPASS$,OP=T)
00107  M01S00093.dayfile +++|*                            IS PROPER.
00108  M01S00094.dayfile +++|*
00109  M01S00095.dayfile +++|*                PD          SELECT PRINT DENSITY.  IF PD IS ABSENT,
00110  M01S00096.dayfile +++|*                            SET PRINT DENSITY TO A VALUE DETERMINED
Line S00097 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00097.ns22000 ---|*                            BY AN INTERNAL INSTALLATION PARAMETER.
00112  M01S00008.ns22000 +++|*                            BY THE JOB DEFAULT PRINT DENSITY (PD).
00113  M01S00098.dayfile +++|*                            PD MAY BE EQUATED TO 3, 4, 6 OR 8.  VALUES
00114  M01S00099.dayfile +++|*                            OF 4 AND 8 ARE NOT INTENDED FOR USE WITH
00115  M01S00100.dayfile +++|*                            DEVICES NOT SUPPORTING 8 LPI.  THIS
00116  M01S00101.dayfile +++|*                            PARAMETER HAS NO MEANING, AND IS NOT
00117  M01S00102.dayfile +++|*                            CHECKED, IF THE OUTPUT IS TO A TIME-
00118  M01S00103.dayfile +++|*                            SHARING TERMINAL.  THIS OPTION IS NOT
Line S00104 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00119  M02S00104.ns22000 ---|*                            APPLICABLE FOR *MAINLOG* CALLS.
00120  M01S00009.ns22000 +++|*                            VALID FOR *GETLOG* OR *MAINLOG* CALLS.
00121  M01S00105.dayfile +++|*
00122  M01S00106.dayfile +++|*                PL          SELECT PAGE SIZE.  IF PL IS ABSENT, SIZE
Line S00107 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00107.ns22000 ---|*                            IS DETERMINED FROM THE PRINT DENSITY -
00124  M01S00010.ns22000 +++|*                            IS DETERMINED FROM THE JOB DEFAULT PAGE
00125  M01S00011.ns22000 +++|*                            SIZE (PS) AS FOLLOWS -
00126  M01S00108.dayfile +++|*                                       PD  PL (IN LINES)
00127  M01S00109.dayfile +++|*                                       --  --
Line S00110 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00128  M02S00110.ns22000 ---|*                                        3  30
Line S00111 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00111.ns22000 ---|*                                        4  40
Line S00112 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00112.ns22000 ---|*                                        6  60
Line S00113 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00113.ns22000 ---|*                                        8  80
00132  M01S00012.ns22000 +++|*                                        3  PS/2
00133  M01S00013.ns22000 +++|*                                        4  PS/2
00134  M01S00014.ns22000 +++|*                                        6  PS
00135  M01S00015.ns22000 +++|*                                        8  PS
00136  M01S00114.dayfile +++|*                            IF PL IS EQUATED TO A NUMERIC VALUE, THE
00137  M01S00115.dayfile +++|*                            PAGE SIZE IS SET ACCORDINGLY.  IF THE
00138  M01S00116.dayfile +++|*                            VALUE IS ZERO, THE PAGE SIZE IS SELECTED
00139  M01S00117.dayfile +++|*                            ACCORDING TO THE ABOVE TABLE.  PL
00140  M01S00118.dayfile +++|*                            SPECIFIES THE NUMBER OF DAYFILE LINES TO
00141  M01S00119.dayfile +++|*                            BE PRINTED PER PAGE, NOT NUMBER OF TOTAL
00142  M01S00120.dayfile +++|*                            LINES.  THE PAGE TITLE IS TWO LINES.
00143  M01S00121.dayfile +++|*                            THIS PARAMETER HAS NO MEANING, AND IS
00144  M01S00122.dayfile +++|*                            NOT CHECKED, IF THE OUTPUT IS TO A TIME-
00145  M01S00123.dayfile +++|*                            SHARING TERMINAL.  THIS OPTION IS NOT
Line S00124 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00146  M02S00124.ns22000 ---|*                            APPLICABLE FOR *MAINLOG* CALLS.
00147  M01S00016.ns22000 +++|*                            VALID FOR *GETLOG* OR *MAINLOG* CALLS.
00148  M01S00125.dayfile +++|*
00149  M01S00126.dayfile +++|*                I           FILE FROM WHICH DAYFILE IS READ.  IF
00150  M01S00127.dayfile +++|*                            ABSENT, THE FILE IS THE RESPECTIVE
00151  M01S00128.dayfile +++|*                            DAYFILE CURRENTLY MANAGED BY THE SYSTEM.
00152  M01S00017.ns22000 +++|*                            FOR *GETLOG*, THIS APPLIES ONLY TO THE
00153  M01S00018.ns22000 +++|*                            *BML* FILE.
00154  M01S00129.dayfile +++|*
00155  M01S00130.dayfile +++|*                B           BINARY FILE RECEIVING THE REFORMATTED
00156  M01S00131.dayfile +++|*                            MAINTENANCE LOG.  IF ABSENT, THE FILE
00157  M01S00132.dayfile +++|*                            IS *BML*.  THIS OPTION IS APPLICABLE
Line S00133 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00133.ns22000 ---|*                            ONLY TO *MAINLOG* CALLS.
00159  M01S00019.ns22000 +++|*                            ONLY TO *MAINLOG* AND *GETLOG* CALLS.
00160  M01S00134.dayfile +++|*
00161  M01S00135.dayfile +++|*                JT          JOB TERMINATION OPTION.
00162  M01S00136.dayfile +++|*                            D  IF SPECIFIED, A DEFFERRED ROUTE
00163  M01S00137.dayfile +++|*                               WILL BE PERFORMED ON THE FILE
00164  M01S00138.dayfile +++|*                               TO WHICH THE DAYFILE IS TO BE
00165  M01S00139.dayfile +++|*                               COPIED, AND PAGINATION WILL BE
00166  M01S00140.dayfile +++|*                               PERFORMED.
00167  M01S00141.dayfile +++|*                               THIS OPTION IS VALID ONLY FOR
Line S00142 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00142.v23l617 ---|*                               THE *DAYFILE* CONTROL STATEMENT.
00169  M01S00006.v23l617 +++|*                               THE *DAYFILE* COMMAND.
00170  M01S00020.ns22000 +++|*
00171  M01S00021.ns22000 +++|*                E           FILE TO WHICH THE EST IS WRITTEN, FOR
00172  M01S00022.ns22000 +++|*                            *GETLOG* ONLY.
00173  M01S00143.dayfile +++|*
00174  M01S00144.dayfile +++|*
00175  M01S00145.dayfile +++|*                OP=I, OP=P PROCESSING.
00176  M01S00146.dayfile +++|*         TO LOCATE THE LAST DUMP ENTRY, THE DAYFILE IS SEARCHED FOR
00177  M01S00147.dayfile +++|*         ONE OF THE NORMAL COMPLETION MESSAGES LISTED BELOW DEPENDING
00178  M01S00148.dayfile +++|*         UPON WHICH DAYFILE IS TO BE ACCESSED.
00179  M01S00149.dayfile +++|*
00180  M01S00150.dayfile +++|*                INTERACTIVE TERMINATION OF *DAYFILE,FR[=XXXX].*
00181  M01S00151.dayfile +++|*         WHENEVER AN INTERRUPT IS RECEIVED FROM AN INTERACTIVE TERMINAL
00182  M01S00152.dayfile +++|*         OUTPUT IS STOPPED AND A COMPLETION MESSAGE IS ISSUED TO THE
00183  M01S00153.dayfile +++|*         APPROPRIATE DAYFILES.  THIS ALLOWS THE USER TO SUPPRESS THE
00184  M01S00154.dayfile +++|*         LISTING OF A LONG DUMP WHILE RETAINING THE CAPABILITY TO DUMP
00185  M01S00155.dayfile +++|*         FROM THE LAST PREVIOUS DUMP (THE ONE THAT WAS INTERRUPTED).
00186  M01S00156.dayfile +++|*
00187  M01S00157.dayfile +++|*                POSITIONAL ARGUMENT PROCESSING.
00188  M01S00158.dayfile +++|*         IT IS NOT NECESSARY TO SPECIFY THE ABOVE KEYWORDS (L,FR,OP,..)
00189  M01S00159.dayfile +++|*         ARGUMENT VALUES MAY ASSUME THEIR ASSOCIATION WITH THESE KEY-
Line S00160 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00160.v23l617 ---|*         WORDS BY THEIR POSITION ON THE CALL CARD OR COMMAND.
00191  M01S00007.v23l617 +++|*         WORDS BY THEIR POSITION ON THE COMMAND.
00192  M01S00161.dayfile +++|*         FOR EXAMPLE -
00193  M01S00162.dayfile +++|*                DAYFILE(SAM,ERROR,M)
00194  M01S00163.dayfile +++|*         IS EQUIVALENT TO -
00195  M01S00164.dayfile +++|*                DAYFILE(L=SAM,FR=ERROR,OP=M)
00196  M01S00165.dayfile +++|*         THE ORDER OF THE ARGUMENTS MUST BE -
00197  M01S00166.dayfile +++|*                1) L VALUE
00198  M01S00167.dayfile +++|*                2) FR VALUE (MAY BE A LITERAL)
00199  M01S00168.dayfile +++|*                3) OP VALUE
00200  M01S00169.dayfile +++|*                4) PD VALUE
00201  M01S00170.dayfile +++|*                5) PL VALUE
00202  M01S00171.dayfile +++|*                6) I VALUE
00203  M01S00172.dayfile +++|*                7) B VALUE
00204  M01S00173.dayfile +++|*                8) D OPTION
00205  M01S00174.dayfile +++|*         VALUES MAY BE LEFT UNSPECIFIED AS -
00206  M01S00175.dayfile +++|*                DAYFILE(,,,8)
00207  M01S00176.dayfile +++|*                ( SAME AS DAYFILE(PD=8) )
00208  M01S00177.dayfile +++|*         KEYWORD TYPE ARGUMENTS MAY BE INTERMIXED WITH POSITIONAL
00209  M01S00178.dayfile +++|*         ARGUMENTS.  FOR EXAMPLE -
00210  M01S00179.dayfile +++|*                DAYFILE(SAM,PD=8,10)
00211  M01S00180.dayfile +++|*         IS EQUIVALENT TO -
00212  M01S00181.dayfile +++|*                DAYFILE(L=SAM,PD=8,PL=10)
00213  M01S00182.dayfile +++|*
00214  M01S00183.dayfile +++|*                NUMERIC ARGUMENT VALUES.
00215  M01S00184.dayfile +++|*         NUMERIC ARGUMENTS MAY BE SPECIFIED IN EITHER OCTAL OR DECIMAL
00216  M01S00185.dayfile +++|*         BASE.  A RADIX SYMBOL *B* OR *D* MAY IMMEDIATELY FOLLOW THE
00217  M01S00186.dayfile +++|*         NUMBER TO SPECIFY OCTAL OR DECIMAL BASE RESPECTIVELY.  IF
00218  M01S00187.dayfile +++|*         THE RADIX SYMBOL IS ABSENT, DECIMAL IS ASSUMED.  THE SINGLE
00219  M01S00188.dayfile +++|*         CHARACTER *B* OR *D* IS TAKEN TO MEAN ZERO, SO -
00220  M01S00189.dayfile +++|*                DFD(PL=B)
00221  M01S00190.dayfile +++|*         IS EQUIVALENT TO -
00222  M01S00191.dayfile +++|*                DFD(PL=0B) OR DFD(PL=D) OR DFD(PL=0D) OR DFD(PL=0)
00223  M01S00192.dayfile +++|*
00224  M01S00193.dayfile +++|*                FILES *SCR* AND *SCR1* ARE USED INTERNALLY.
00225  M01S00194.dayfile +++|          SPACE  4
00226  M01S00195.dayfile +++|***       DAYFILE MESSAGES ISSUED.
Line S00196 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00196.ns22000 ---|*
00228  M01S00197.dayfile +++|*
00229  M01S00198.dayfile +++|*         NORMAL COMPLETION.
00230  M01S00199.dayfile +++|*
00231  M01S00200.dayfile +++|*         *SIAD.*            (ACCOUNT DAYFILE ONLY)
00232  M01S00201.dayfile +++|*
00233  M01S00202.dayfile +++|*         * ACCOUNT DAYFILE PROCESSED.*
00234  M01S00203.dayfile +++|*
00235  M01S00204.dayfile +++|*         * USER DAYFILE PROCESSED.*
00236  M01S00205.dayfile +++|*
00237  M01S00206.dayfile +++|*         * SYSTEM DAYFILE PROCESSED.*
00238  M01S00207.dayfile +++|*
00239  M01S00208.dayfile +++|*         * ERROR LOG PROCESSED.*
00240  M01S00023.ns22000 +++|*
00241  M01S00024.ns22000 +++|*         * GETLOG PROCESSED.*  (ALSO WRITTEN TO *ERRLOG*).
00242  M01S00209.dayfile +++|*
00243  M01S00210.dayfile +++|*         * MAINTENANCE LOG PROCESSED.*
00244  M01S00211.dayfile +++|*
00245  M01S00212.dayfile +++|*         * ENTRYPT - LOCAL DAYFILE PROCESSED.*
00246  M01S00213.dayfile +++|*                *I=LFN* PROCESSING COMPLETED NORMALLY.
00247  M01S00214.dayfile +++|*
00248  M01S00215.dayfile +++|*         THE ABOVE MESSAGE DESCRIPTIONS ARE GIVEN WHEN
00249  M01S00216.dayfile +++|*         A DAYFILE DUMP HAS BEEN PERFORMED ON THE SPECIFIED
00250  M01S00217.dayfile +++|*         DAYFILE.  IF NO ADDITIONAL DAYFILE MESSAGES WERE ISSUED,
00251  M01S00218.dayfile +++|*         THE DUMP WAS SUCCESSFUL.
00252  M01S00219.dayfile +++|*
00253  M01S00220.dayfile +++|*
00254  M01S00221.dayfile +++|*         IN THE FOLLOWING MESSAGE DESCRIPTIONS, THE GENERIC LABEL
00255  M01S00222.dayfile +++|*         *ENTRYPT* REFERS TO THE ENTRY POINT NAME (AFD, DAYFILE,
00256  M01S00223.dayfile +++|*         DFD, ELD, OR MAINLOG) DISPLAYED IN EACH MESSAGE.
00257  M01S00224.dayfile +++|*
00258  M01S00225.dayfile +++|*         INFORMATIVE MESSAGES.
00259  M01S00226.dayfile +++|*
00260  M01S00227.dayfile +++|*         * ENTRYPT - DATA LOST.*
00261  M01S00228.dayfile +++|*                INDICATES THAT A DAYFILE READ ERROR HAS OCCURRED.
00262  M01S00229.dayfile +++|*                PROCESSING CONTINUES WITH THE FIRST AVAILABLE GOOD
00263  M01S00230.dayfile +++|*                DAYFILE MESSAGE.
00264  M01S00231.dayfile +++|*
Line S00232 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00232.ns22000 ---|*         * MAINLOG - RECOVERY SECTOR ENCOUNTERED.*
00266  M01S00025.ns22000 +++|*         * ENTRYPT - RECOVERY SECTOR ENCOUNTERED.*
00267  M01S00233.dayfile +++|*                INDICATES THAT A RECOVERY SECTOR HAS BEEN
00268  M01S00234.dayfile +++|*                ENCOUNTERED, DENOTING THE BOUNDARY OF A DEADSTART
00269  M01S00235.dayfile +++|*                RECOVERY.  ANY DAYFILE MESSAGE FRAGMENT PRECEEDING
00270  M01S00236.dayfile +++|*                THIS BOUNDARY IS DISCARDED.  PROCESSING CONTINUES
00271  M01S00237.dayfile +++|*                WITH THE FIRST MESSAGE AFTER THE BOUNDARY.
00272  M01S00238.dayfile +++|*
00273  M01S00239.dayfile +++|*
00274  M01S00240.dayfile +++|*         ABNORMAL COMPLETION.
00275  M01S00241.dayfile +++|*
00276  M01S00242.dayfile +++|*         * DAYFILE - INPUT FILE CANNOT BE EXECUTE ONLY.*
00277  M01S00243.dayfile +++|*                THE FILE SPECIFIED AS CONTAINING THE DAYFILE TO
00278  M01S00244.dayfile +++|*                PROCESS IS AN EXECUTE ONLY TYPE FILE, AND CANNOT
00279  M01S00245.dayfile +++|*                BE READ.
00280  M01S00026.ns22000 +++|*
00281  M01S00027.ns22000 +++|*         * ENTRYPT - INPUT FILE NOT FOUND.*
00282  M01S00028.ns22000 +++|*                THE FILE SPECIFIED BY THE *I=FILENAME* PARAMETER IS NOT
00283  M01S00029.ns22000 +++|*                A LOCAL FILE.
00284  M01S00246.dayfile +++|*
00285  M01S00247.dayfile +++|*         * DAYFILE - JOB FIELD DISALLOWED ON USER DAYFILE.*
00286  M01S00248.dayfile +++|*                OP=J OR OP=P IS SPECIFIED.  JOB NAMES DO NOT APPEAR
00287  M01S00249.dayfile +++|*                IN THE USER DAYFILE.
00288  M01S00250.dayfile +++|*
Line S00251 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00289  M02S00251.v23l617 ---|*         * DAYFILE - TTY INPUT FILE NOT ALLOWED.*
00290  M01S00008.v23l617 +++|*         * DAYFILE - INTERACTIVE INPUT FILE NOT ALLOWED.*
00291  M01S00252.dayfile +++|*                *I=* SPECIFIES A TERMINAL INPUT FILE, WHICH IS NOT
00292  M01S00253.dayfile +++|*                ALLOWED.
00293  M01S00254.dayfile +++|*
00294  M01S00255.dayfile +++|*         * ENTRYPT - ARGUMENT ERROR.*
Line S00256 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00295  M02S00256.v23l617 ---|*                AN UNKNOWN KEYWORD WAS ENCOUNTERED OR CONTROL CARD
00296  M01S00009.v23l617 +++|*                AN UNKNOWN KEYWORD WAS ENCOUNTERED OR COMMAND
00297  M01S00257.dayfile +++|*                WAS ILL-FORMATTED.
00298  M01S00258.dayfile +++|*
00299  M01S00259.dayfile +++|*         * ENTRYPT - BUFFER TOO SMALL.*
00300  M01S00260.dayfile +++|*                THE AMOUNT OF *CM RESIDENT* DAYFILE RETURNED BY *SFM*
00301  M01S00261.dayfile +++|*                IS LARGER THAN THE ALLOWED INTERNAL BUFFER.
00302  M01S00262.dayfile +++|*                RECOMMEND CHANGING VALUE OF *CBUFL*, IF THIS
00303  M01S00263.dayfile +++|*                MESSAGE OCCURS.
00304  M01S00264.dayfile +++|*
Line S00265 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00265.v23l617 ---|*         * ENTRYPT - FR INVALID FOR THIS OPTION.*
00306  M01S00010.v23l617 +++|*         * ENTRYPT - *FR* INCORRECT FOR THIS OPTION.*
00307  M01S00266.dayfile +++|*                OP=I OR OP=P IS SPECIFIED.  INCREMENTAL DAYFILE DUMPS
Line S00267 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00308  M02S00267.v23l617 ---|*                HAVE A PREDETERMINED SEARCH VALUE, THUS FR IS NOT
00309  M01S00011.v23l617 +++|*                HAVE A PREDETERMINED SEARCH VALUE, THUS *FR* IS NOT
00310  M01S00268.dayfile +++|*                NEEDED.
00311  M01S00269.dayfile +++|*
Line S00270 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00312  M02S00270.v23l617 ---|*         * ENTRYPT - ILLEGAL PAGE SIZE FORMAT.*
00313  M01S00012.v23l617 +++|*         * ENTRYPT - INCORRECT PAGE SIZE FORMAT.*
00314  M01S00271.dayfile +++|*                THE VALUE ASSOCIATED WITH THE PL ARGUMENT IS NOT
00315  M01S00272.dayfile +++|*                NUMERIC.
00316  M01S00273.dayfile +++|*
Line S00274 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00317  M02S00274.v23l617 ---|*         * ENTRYPT - ILLEGAL PRINT DENSITY.*
00318  M01S00013.v23l617 +++|*         * ENTRYPT - INCORRECT PRINT DENSITY.*
00319  M01S00275.dayfile +++|*                PD IS NOT 3, 4, 6 OR 8.
00320  M01S00276.dayfile +++|*
Line S00277 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00277.v23l617 ---|*         * ENTRYPT - ILLEGAL PRINT DENSITY FORMAT.*
00322  M01S00014.v23l617 +++|*         * ENTRYPT - INCORRECT PRINT DENSITY FORMAT.*
00323  M01S00278.dayfile +++|*                THE VALUE ASSOCIATED WITH THE PD ARGUMENT IS NOT
00324  M01S00279.dayfile +++|*                NUMERIC.
00325  M01S00280.dayfile +++|*
Line S00281 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00281.v23l617 ---|*         * DAYFILE - INVALID JOB TERMINATION OPTION.*
00327  M01S00015.v23l617 +++|*         * DAYFILE - INCORRECT JOB TERMINATION OPTION.*
00328  M01S00282.dayfile +++|*                THE VALUE OF THE *JT* OPTION SPECIFIED IS
00329  M01S00283.dayfile +++|*                NOT VALID.
00330  M01S00284.dayfile +++|*
00331  M01S00285.dayfile +++|*         * ENTRYPT - RESERVED FILE NAME.*
00332  M01S00286.dayfile +++|*                THE FILE NAME SPECIFIED FOR THE B, I OR L PARAMETER
00333  M01S00287.dayfile +++|*                IS A RESERVED FILE NAME.
00334  M01S00288.dayfile +++|*
00335  M01S00289.dayfile +++|*         * ENTRYPT - UNABLE TO ACCESS DAYFILE.*
00336  M01S00290.dayfile +++|*                THE SYSTEM DAYFILE THAT IS TO BE PROCESSED COULD NOT
00337  M01S00291.dayfile +++|*                BE ACCESSED DUE TO AN ERROR ENCOUNTERED BY *SFM*.
00338  M01S00292.dayfile +++|*
00339  M01S00293.dayfile +++|*         * ENTRYPT - UNKNOWN *OP* FIELD.*
Line S00294 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00340  M02S00294.v23l617 ---|*                OP IS NOT EQUATED TO A VALID OPTION CHARACTER.
00341  M01S00016.v23l617 +++|*                *OP* IS NOT EQUATED TO A VALID OPTION CHARACTER.
00342  M01S00295.dayfile +++|*
00343  M01S00296.dayfile +++|*         * *FR* NOT FOUND.*
00344  M01S00297.dayfile +++|*                THE *FR* ARGUMENT WAS SELECTED, BUT THE DAYFILE SEARCH
00345  M01S00298.dayfile +++|*                WAS UNSATISFIED.  THIS IS ONLY INFORMATIVE.  THE FULL
00346  M01S00299.dayfile +++|*                DUMP IS GIVEN IN PLACE OF STARTING AT THE *FR*.
00347  M01S00300.dayfile +++|*                IF THIS CONDITION IS PRESENT, IT IS LISTED AS THE
00348  M01S00301.dayfile +++|*                FIRST LINE OF OUTPUT TO AN INTERACTIVE TERMINAL.
00349  M01S00302.dayfile +++|*
Line S00303 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00303.ns22000 ---|*         * MAINLOG - TTY BINARY OUT-FILE NOT ALLOWED.*
Line S00030 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00030.v23l617 ---|*         * ENTRYPT - TTY BINARY OUT-FILE NOT ALLOWED.*
00352  M01S00017.v23l617 +++|*         * ENTRYPT - INTERACTIVE BINARY OUT-FILE NOT ALLOWED.*
00353  M01S00304.dayfile +++|*                *B=* SPECIFIES A TERMINAL FILE, WHICH IS NOT
00354  M01S00305.dayfile +++|*                ALLOWED.
00355  M01S00306.dayfile +++|*
Line S00307 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00307.v23l617 ---|*         * MAINLOG - FR TIME VALUE ILLEGAL.*
00357  M01S00018.v23l617 +++|*         * MAINLOG - *FR* TIME VALUE INCORRECT.*
00358  M01S00308.dayfile +++|*                ERROR OCCURRED WHILE CONVERTING A DATE SUBMITTED IN
00359  M01S00309.dayfile +++|*                DISPLAY CODE TO A PACKED DATE IN BINARY FOR SEARCHING
00360  M01S00310.dayfile +++|*                ON A BINARY FILE.
00361  M01S00311.dayfile +++|*
Line S00312 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00312.v23l617 ---|*         * MAINLOG - OP OPTION ILLEGAL.*
00363  M01S00019.v23l617 +++|*         * MAINLOG - *OP* OPTION INCORRECT.*
00364  M01S00313.dayfile +++|*                THE OPTION SPECIFIED THOUGH VALID FOR CODED DAYFILES
Line S00314 Modification History
M01 (Added by) dayfile
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00314.v23l617 ---|*                IS INVALID FOR BINARY DAYFILES.
00366  M01S00020.v23l617 +++|*                IS INCORRECT FOR BINARY DAYFILES.
00367  M01S00315.dayfile +++|*
00368  M01S00316.dayfile +++|*         * UNEXPECTED EOF/EOI ENCOUNTERED.
00369  M01S00317.dayfile +++|*                AN EOF OR EOI WAS ENCOUNTERED BEFORE THE PRU
00370  M01S00318.dayfile +++|*                COUNT HAD BEEN DEPLETED ON THE INPUT FILE.
00371  M01S00001.dayfil5 +++|*
00372  M01S00002.dayfil5 +++|*         * MAINLOG - *BML* FORMAT INCORRECT.
00373  M01S00003.dayfil5 +++|*                AN INCORRECT RECOVERY SECTOR WORD WAS DETECTED WHILE
00374  M01S00004.dayfil5 +++|*                PROCESSING THE *BML* FILE.
00375  M01S00319.dayfile +++|          SPACE  4
00376  M01S00320.dayfile +++|***       ERROR MESSAGES ISSUED TO OUTPUT.
Line S00321 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00321.ns22000 ---|*
00378  M01S00322.dayfile +++|*
00379  M01S00323.dayfile +++|*         *NOTICE*** DATA READ ERROR.
00380  M01S00324.dayfile +++|*                INDICATES MESSAGE(S) LOST DUE TO A DAYFILE
00381  M01S00325.dayfile +++|*                READ ERROR.
00382  M01S00326.dayfile +++|*
00383  M01S00327.dayfile +++|*         *NOTICE*** RECOVERY BOUNDARY.
00384  M01S00328.dayfile +++|*                INDICATES MESSAGE(S) LOST DUE TO CROSSING A
00385  M01S00329.dayfile +++|*                DEADSTART RECOVERY BOUNDARY.
00386  M01S00031.ns22000 +++| ESTFILE  SPACE  4,10
00387  M01S00032.ns22000 +++|***       EST FILE FORMAT (*GETLOG* ONLY).
00388  M01S00033.ns22000 +++|*
00389  M01S00034.ns22000 +++|*         THE ENTIRE EST IS WRITTEN TO THE SPECIFIED FILE, TOGETHER
00390  M01S00035.ns22000 +++|*         WITH THE FOLLOWING HEADER INFORMATION.
00391  M01S00036.ns22000 +++|*
00392  M01S00037.ns22000 +++|*T WD00   36/,12/ ESTSIZE,12/ ENTRYSIZE
Figure WD00

01112232429 ENTRYSIZE ESTSIZE3059

00393  M01S00038.ns22000 +++|*T,WD01   60/           UNUSED
Figure WD01

029 UNUSED3059 UNUSED

00394  M01S00039.ns22000 +++|*T,WD02   24/,36/ PACKED DATE AND TIME
Figure WD02

029 PACKED DATE AND TIME30353659 PACKED DATE AND TIME

00395  M01S00040.ns22000 +++|*T,WD03   60/           SYSTEM TITLE LINE
Figure WD03

029 SYSTEM TITLE LINE3059 SYSTEM TITLE LINE

00396  M01S00041.ns22000 +++|*T,WD04   60/
Figure WD04

0293059

00397  M01S00042.ns22000 +++|*T,WD05   60/
Figure WD05

0293059

00398  M01S00043.ns22000 +++|*T,WD06   60/
Figure WD06

0293059

00399  M01S00044.ns22000 +++|*T,WD07   60/           SYSTEM VERSION
Figure WD07

029 SYSTEM VERSION3059 SYSTEM VERSION

00400  M01S00045.ns22000 +++|*T,WD10   60/
Figure WD10

0293059

00401  M01S00046.ns22000 +++|*T,WD11-N 60/           (EST ENTRIES)
Figure WD11-N

029 (EST ENTRIES)3059 (EST ENTRIES)

00402  M01S00047.ns22000 +++|*
00403  M01S00048.ns22000 +++|*         ESTSIZE = NUMBER OF ENTRIES (LAST ORDINAL + 1).
00404  M01S00049.ns22000 +++|*         ENTRYSIZE = NUMBER OF CM WORDS PER EST ENTRY.
Line S00330 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00330.dayfil7 ---|          SPACE  4,20
00406  M01S00001.dayfil7 +++| MACROS   SPACE  4,20
00407  M01S00331.dayfile +++|          TITLE  MACRO DEFINITIONS.
00408  M01S00332.dayfile +++| INPUTC   SPACE  4,20
00409  M01S00333.dayfile +++|**        INPUTC - READ CODED MESSAGE FROM CONTROL WORD BLOCKS.
00410  M01S00334.dayfile +++|*
00411  M01S00335.dayfile +++|*         INPUTC FET,FWA,LEN
00412  M01S00336.dayfile +++|*
00413  M01S00337.dayfile +++|*         ENTRY  *FET* = FWA OF FET TO READ.
00414  M01S00338.dayfile +++|*                *FWA* = FWA OF WORKING STORAGE BUFFER.
00415  M01S00339.dayfile +++|*                *LEN* = LENGTH OF WORKING STORAGE BUFFER.
00416  M01S00340.dayfile +++|*
00417  M01S00341.dayfile +++|*         USES   X - 2.
00418  M01S00342.dayfile +++|*                B - 6, 7.
00419  M01S00343.dayfile +++|*
00420  M01S00344.dayfile +++|*         CALLS  RDC.
00421  M01S00345.dayfile +++|
00422  M01S00346.dayfile +++|
00423  M01S00347.dayfile +++|          PURGMAC  INPUTC
00424  M01S00348.dayfile +++| INPUTC   MACRO  F,S,N
00425  M01S00349.dayfile +++|  MACREF INPUTC
00426  M01S00350.dayfile +++|  R= B6,S
00427  M01S00351.dayfile +++|  R= B7,N
00428  M01S00352.dayfile +++|  R= X2,F
00429  M01S00353.dayfile +++|  RJ RDC
00430  M01S00354.dayfile +++| INPUTC ENDM
00431  M01S00355.dayfile +++| INPUTW   SPACE  4,20
00432  M01S00356.dayfile +++|**        INPUTW - READ BINARY MESSAGE FROM CONTROL WORD BLOCKS.
00433  M01S00357.dayfile +++|*
00434  M01S00358.dayfile +++|*         INPUTW FET,FWA,LEN
00435  M01S00359.dayfile +++|*
00436  M01S00360.dayfile +++|*         ENTRY  *FET* = FWA OF FET TO READ.
00437  M01S00361.dayfile +++|*                *FWA* = FWA OF WORKING STORAGE BUFFER.
00438  M01S00362.dayfile +++|*                *LEN* = LENGTH OF WORKING STORAGE BUFFER.
00439  M01S00363.dayfile +++|*
00440  M01S00364.dayfile +++|*         USES   X - 2.
00441  M01S00365.dayfile +++|*                B - 6, 7.
00442  M01S00366.dayfile +++|*
00443  M01S00367.dayfile +++|*         CALLS  RDW.
00444  M01S00368.dayfile +++|
00445  M01S00369.dayfile +++|
00446  M01S00370.dayfile +++|          PURGMAC  INPUTW
00447  M01S00371.dayfile +++| INPUTW   MACRO  F,S,N
00448  M01S00372.dayfile +++|  MACREF INPUTW
00449  M01S00373.dayfile +++|  R= B6,S
00450  M01S00374.dayfile +++|  R= B7,N
00451  M01S00375.dayfile +++|  R= X2,F
00452  M01S00376.dayfile +++|  RJ RDW
00453  M01S00377.dayfile +++| INPUTW ENDM
Line S00378 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00378.dayfil7 ---|          SPACE  4
00455  M01S00002.dayfil7 +++|          SPACE  4,10
Line S00379 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00379.ns22000 ---|*         COMMON DECKS.
00457  M01S00050.ns22000 +++|**        COMMON DECKS.
00458  M01S00380.dayfile +++|
00459  M01S00381.dayfile +++|
Line S00382 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns2635
M03 (Updated by) dayfi13
Seq #  *Modification Id* Act 
----------------------------+
00460  M03S00382.dayfi13 ---|*CALL     COMSMSC
Line S00383 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil4
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00461  M03S00383.242l642 ---|*CALL,COMCMAC
Line S00002 Modification History
M01 (Added by) 242l642
M02 (Updated by) dayfil9
Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00002.dayfil9 ---|*CALL     COMCMAC
00463  M01S00001.dayfil4 +++|*CALL     COMCMAC
00464  M01S00051.ns22000 +++|*CALL     COMCCMD
00465  M01S00384.dayfile +++|*CALL     COMSDFS
00466  M01S00001.dayfi13 +++|*CALL     COMSMSC
00467  M01S00001.ns2635  +++|*CALL     COMSMSC
00468  M01S00385.dayfile +++|*CALL     COMSSFM
00469  M01S00386.dayfile +++|*CALL     COMSSSJ
00470  M01S00387.dayfile +++|          TITLE  SYMBOL DEFINITIONS.
00471  M01S00388.dayfile +++|*         SSJ CONTROL.
00472  M01S00389.dayfile +++|
00473  M01S00390.dayfile +++| SSJ=     EQU    SSJP        SYSTEM PRIVILEGES ONLY
00474  M01S00003.242l642 +++| UTL=     BSS    0           SYSTEM UTILITY SPECIAL ENTRY POINT
00475  M01S00391.dayfile +++|
00476  M01S00392.dayfile +++|*         SYMBOL DEFINITIONS.
00477  M01S00393.dayfile +++|
00478  M01S00394.dayfile +++|
00479  M01S00395.dayfile +++| MAXZ     MAX    MXML,MBML,MCML  FIND LARGEST MESSAGE SIZE
00480  M01S00396.dayfile +++| WBUFL    EQU    MAXZ+5      WORKING BUFFER LENGTH
Line S00397 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns2126
Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00397.ns2126  ---| CBUFL    EQU    1000B       LENGTH OF BUFFER CONTAINING CM BUFFER
Line S00398 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns2126
Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00398.ns2126  ---|*                            PORTION OF DAYFILE
00483  M01S00001.ns2126  +++| CBUFL    EQU    MXDB+MBML+2 LENGTH OF CM HOLD AREA
00484  M01S00052.ns22000 +++| EBUFL    EQU    ESMX*ESTE+11B+1  EST BUFFER (*GETLOG* ONLY)
Line S00399 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns2126
Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00399.ns2126  ---| IBUFL    EQU    2001B       DAYFILE BUFFER LENGTH
00486  M01S00002.ns2126  +++| BUFML    MAX    2001B,CBUFL+1
00487  M01S00003.ns2126  +++| IBUFL    EQU    BUFML       DAYFILE BUFFER LENGTH
Line S00400 Modification History
M01 (Added by) dayfile
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00488  M02S00400.274l797 ---| OBUFL    EQU    2001B       OUTPUT BUFFER LENGTH
00489  M01S00001.274l797 +++| OBUFL    EQU    20001B      OUTPUT BUFFER LENGTH
00490  M01S00401.dayfile +++| SBUFL    EQU    2001B       SCRATCH BUFFER LENGTH
Line S00402 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00491  M02S00402.ns22000 ---| DFPD     EQU    6           DEFAULT PRINT DENSITY
Line S00403 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00403.ns22000 ---| DFPDM    DECMIC DFPD
00493  M01S00404.dayfile +++| DFDF     EQU    1RS         DEFAULT DENSITY FORMAT CHARACTER
00494  M01S00405.dayfile +++| FETL     EQU    10B         FET LENGTH
Line S00406 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00495  M02S00406.ns22000 ---| LPRP     EQU    LINP*8/6    LINES PER PAGE AT 8 LPI
00496  M01S00407.dayfile +++| PLEN     EQU    1000        START PAGE LINE NUMBER
00497  M01S00408.dayfile +++|          SPACE  4,10
00498  M01S00409.dayfile +++|*         DAYFILE TYPE CODES.
00499  M01S00410.dayfile +++|
00500  M01S00053.ns22000 +++| GLTY     EQU    0           *GETLOG* - ERRLOG (CODED), BML (BINARY)
00501  M01S00411.dayfile +++| ACTY     EQU    1           ACCOUNT (CODED FILE)
00502  M01S00412.dayfile +++| UDTY     EQU    2           USER DAYFILE (CODED FILE)
00503  M01S00413.dayfile +++| SDTY     EQU    3           SYSTEM DAYFILE (CODED FILE)
00504  M01S00414.dayfile +++| ELTY     EQU    4           ERROR LOG (CODED FILE)
00505  M01S00415.dayfile +++| MLTY     EQU    5           MAINTENANCE LOG (BINARY FILE)
00506  M01S00416.dayfile +++|          SPACE  4,10
00507  M01S00417.dayfile +++|*         NOTICE MESSAGE CODES.
00508  M01S00418.dayfile +++|
00509  M01S00419.dayfile +++| REMC     EQU    1           READ ERROR
00510  M01S00420.dayfile +++| RSMC     EQU    2           RECOVERY SECTOR
00511  M01S00421.dayfile +++|          SPACE  4,10
00512  M01S00422.dayfile +++|*         FET INDEX DEFINITIONS TO CONTROL WORD PROCESSING INFORMATION.
00513  M01S00423.dayfile +++|
00514  M01S00424.dayfile +++|
00515  M01S00425.dayfile +++| WRD      EQU    1           INDEX OF WORDS BEFORE CONTROL WORD
00516  M01S00426.dayfile +++| ERF      EQU    2           INDEX TO EOR FLAG
00517  M01S00427.dayfile +++| LWP      EQU    3           INDEX TO REMAINING MESSAGE
00518  M01S00428.dayfile +++|          SPACE  4,10
00519  M01S00429.dayfile +++|*         *SFM* ERROR CODES.
00520  M01S00430.dayfile +++|
00521  M01S00431.dayfile +++| DFB      EQU    1           DAYFILE BUSY
00522  M01S00432.dayfile +++|          TITLE  FETS AND GLOBAL STORAGE.
00523  M01S00433.dayfile +++|*         FETS.
00524  M01S00434.dayfile +++|
00525  M01S00435.dayfile +++|
Line S00436 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil4
Seq #  *Modification Id* Act 
----------------------------+
00526  M02S00436.dayfil4 ---|          ORG    110B
Line S00002 Modification History
M01 (Added by) dayfil4
M02 (Updated by) dayfi11
Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00002.dayfi11 ---|          ORG    112B
00528  M01S00001.dayfi11 +++|          ORG    113B
00529  M01S00437.dayfile +++| FETS     BSS    0
00530  M01S00054.ns22000 +++|
00531  M01S00055.ns22000 +++| E        BSS    0           EST FILE (*GETLOG* ONLY)
00532  M01S00056.ns22000 +++| EST      FILEB  EBUF,EBUFL
00533  M01S00438.dayfile +++|
00534  M01S00439.dayfile +++|          CON    0           WORDS LEFT IN CURRENT MESSAGE
00535  M01S00440.dayfile +++|          CON    -1          EOR FLAG
00536  M01S00441.dayfile +++|          CON    -1          NUMBER OF WORDS BEFORE CONTROL WORD
00537  M01S00442.dayfile +++| I        BSS    0           DAYFILE
00538  M01S00443.dayfile +++| SCR      FILEB  IBUF,IBUFL,FET=FETL,EPR
00539  M01S00444.dayfile +++|
00540  M01S00445.dayfile +++| O        BSS    0           OUTPUT
00541  M01S00446.dayfile +++| OUTPUT   RFILEB OBUF,OBUFL,FET=FETL
00542  M01S00447.dayfile +++|
00543  M01S00448.dayfile +++| S        BSS    0           SCRATCH
00544  M01S00449.dayfile +++| SCR1     FILEB  SBUF,SBUFL,FET=FETL
00545  M01S00450.dayfile +++|
00546  M01S00451.dayfile +++| B        BSS    0           BINARY
00547  M01S00452.dayfile +++| BML      FILEB  OBUF,OBUFL,FET=FETL
00548  M01S00453.dayfile +++|          SPACE  4,10
00549  M01S00454.dayfile +++|*         *DSP* PARAMETER BLOCK.
00550  M01S00455.dayfile +++|
00551  M01S00456.dayfile +++|
00552  M01S00457.dayfile +++| PDRA     VFD    60/0        FILE NAME AND STATUS
Line S00458 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00458.ns21000 ---|          VFD    12/5000B,12/0,12/2LLP,6/0,18/21B  ROUTING CONTROL
Line S00459 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00459.ns21000 ---|          BSSZ   6
00555  M01S00001.ns21000 +++|          VFD    12/5000B,12/0,12/2LLP,6/0,18/121B  ROUTING CONTROL
00556  M01S00002.ns21000 +++|          BSSZ   13
Line S00460 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00557  M02S00460.dayfil7 ---|          SPACE  4
00558  M01S00003.dayfil7 +++|          SPACE  4,10
00559  M01S00461.dayfile +++|*         GLOBAL STORAGE.
00560  M01S00462.dayfile +++|
00561  M01S00463.dayfile +++|
00562  M01S00464.dayfile +++| BNAM     BSSZ   1           BINARY FILE NAME
00563  M01S00465.dayfile +++| CMFG     BSSZ   1           CM BUFFER PROCESSING FLAG
00564  M01S00466.dayfile +++| DFTY     BSSZ   1           DAYFILE TYPE
00565  M01S00467.dayfile +++| EFFG     BSSZ   1           CHECKPOINT EOR/EOF IN-PROCESS FLAG
00566  M01S00057.ns22000 +++| ENPT     CON    0           ENTRY POINT IDENTIFIER
00567  M01S00468.dayfile +++| INAM     BSSZ   1           IN FILE NAME
00568  M01S00469.dayfile +++| OMCA     CON    WBUF        OUTSTANDING MESSAGE CONTINUATION ADDRESS
00569  M01S00470.dayfile +++| PRUS     CON    377777B     NUMBER OF PRU-S TO READ
00570  M01S00471.dayfile +++| WCCM     CON    0           NUMBER OF WORDS IN CM BUFFER PORTION
00571  M01S00472.dayfile +++|*                            OF DAYFILE
00572  M01S00473.dayfile +++| PAGE     CON    0           CURRENT PAGE NUMBER
00573  M01S00474.dayfile +++| LINE     CON    PLEN        CURRENT LINE NUMBER
00574  M01S00475.dayfile +++| LISF     CON    0           LIST FILE FLAG - =0 IF FILE IS TO BE
00575  M01S00476.dayfile +++|*                            PAGINATED
00576  M01S00477.dayfile +++| LISV     CON    0           (LISF) IF *FR* OPTION SELECTED
Line S00478 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00577  M02S00478.ns22000 ---| EMSG     CON    0           ADDRESS OF *DAYFILE DUMPED* MESSAGE
Line S00479 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00578  M02S00479.ns22000 ---|*                            12/2000B+MESSAGE CODE,30/0,18/ADDRESS
00579  M01S00480.dayfile +++| FROM     CON    0           =0 IF FULL DUMP, ELSE PARTIAL DUMP
00580  M01S00481.dayfile +++| SEMS     CON    0,0,0       SEARCH MESSAGE
00581  M01S00482.dayfile +++|          CON    0           MESSAGE TERMINATOR
00582  M01S00483.dayfile +++| SEMA     CON    0,0,0       SEARCH MESSAGE MASK
00583  M01S00484.dayfile +++|          CON    0           MASK TERMINATOR
00584  M01S00485.dayfile +++| SEJN     CON    0           SEARCH JOB NAME
00585  M01S00486.dayfile +++| SFOP     VFD    6/1RF,54/1  SEARCH FIELD OPTION / CHANGE FLAG
00586  M01S00487.dayfile +++| FRFO     CON    1           =0 IF *FR* MESSAGE NOT FOUND
00587  M01S00488.dayfile +++| SEWI     CON    2           STARTING MESSAGE SEARCH WORD INDEX
Line S00489 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00588  M02S00489.ns22000 ---| PDEN     CON    0L"DFPDM"+1 PRINT DENSITY IN LINES PER INCH
00589  M01S00058.ns22000 +++| PDEN     CON    1           PRINT DENSITY
00590  M01S00490.dayfile +++| PLPP     CON    0L0+1       LINES PER PAGE DURING PRESET, OTHERWISE -
00591  M01S00491.dayfile +++| PLPO     CON    0L0+1       ALTERNATE LINES PER PAGE FOR SEARCH FILE
00592  M01S00492.dayfile +++|*                            FORMAT AS DESCRIBED FOR *TPAS*.
00593  M01S00493.dayfile +++| RFMT     VFD    6/DFDF,6/1R ,48/0  RESET FORMAT LINE
00594  M01S00494.dayfile +++| IOUT     CON    1           =0 IF TERMINAL OUTPUT
00595  M01S00495.dayfile +++| INTR     CON    0           NONZERO IF TERMINAL INTERRUPT
00596  M01S00496.dayfile +++| JTOP     CON    0           JOB TERMINATION OPTION
00597  M01S00497.dayfile +++|          SPACE  4,10
00598  M01S00498.dayfile +++|*         PAGE TITLE LINE.
00599  M01S00499.dayfile +++|
00600  M01S00500.dayfile +++| HDR2     BSS    0
00601  M01S00501.dayfile +++| JSNP     BSS    1           JSN FOR END OF JOB HEADER
00602  M01S00502.dayfile +++| TITL     DATA   -0          TITLE AND VERSION FOR END OF JOB HEADER
Line S00503 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00503.ns22000 ---| HEDR     BSS    0
00604  M01S00504.dayfile +++| DENF     VFD    6/DFDF,54/0 DENSITY FORMAT CONTROL
00605  M01S00059.ns22000 +++| DENC     CON    1           PRINT DENSITY CONTROL WORD
00606  M01S00060.ns22000 +++| HEDR     BSS    0
00607  M01S00505.dayfile +++| MODE     DATA   10H1    FULL
00608  M01S00506.dayfile +++| TYPE     DATA   10HDAYFILE.
00609  M01S00507.dayfile +++| DATE     DATA   0           DATE
00610  M01S00001.dayfi10 +++| DAT2     BSS    0           DATE FOR END OF JOB HEADER
00611  M01S00508.dayfile +++| TIME     DATA   0           TIME
Line S00509 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfi10
Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00509.dayfi10 ---| DAT2     BSS    0           DATE FOR END OF JOB HEADER
00613  M01S00002.dayfi10 +++| TIM2     BSS    0           TIME FOR END OF JOB HEADER
00614  M01S00510.dayfile +++| INDX     DATA   10H*        *  TIME OF FIRST ENTRY ON PAGE
00615  M01S00511.dayfile +++| PGNO     DATA   0           PAGE NUMBER
00616  M01S00512.dayfile +++|          DATA   0
00617  M01S00513.dayfile +++|          DATA   2L
00618  M01S00514.dayfile +++| HEDRL    EQU    *-HEDR      LENGTH OF TITLE LINE
00619  M01S00515.dayfile +++| HDR2L    EQU    *-HDR2      LENGTH OF END OF JOB HEADER
00620  M01S00516.dayfile +++|          TITLE  ENTRIES.
00621  M01S00517.dayfile +++|**        ENTRY PROCESSORS.
Line S00518 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00518.dayfil7 ---| AFD      SPACE  4
00623  M01S00004.dayfil7 +++| AFD      SPACE  4,10
00624  M01S00519.dayfile +++|**        AFD - DUMP ACCOUNT DAYFILE.
00625  M01S00520.dayfile +++|
00626  M01S00521.dayfile +++|
00627  M01S00522.dayfile +++| AFD      BSS    0           ENTRY
00628  M01S00523.dayfile +++|          SX6    ACTY        SET DAYFILE TYPE = ACCOUNT
00629  M01S00524.dayfile +++|          SA6    DFTY
00630  M01S00061.ns22000 +++|          SA6    ENPT        SET ENTRY POINT = *AFD*
00631  M01S00062.ns22000 +++|          SX4    AFDA        SET SEARCH STRING FOR PARTIAL DUMP
00632  M01S00063.ns22000 +++|          RJ     PRS         PRESET PROGRAM
00633  M01S00525.dayfile +++|          SA1    =10H ACCOUNT.   SET TITLE
Line S00526 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00526.ns22000 ---|          SB7    0           SET DAYFILE MESSAGE CODE
00635  M01S00527.dayfile +++|          SX4    =C*SIAD. *  SET TERMINATION MESSAGE
Line S00528 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00528.ns22000 ---|          SX6    =C* ACCOUNT DAYFILE PROCESSED.*  DAYFILE MESSAGE
Line S00529 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00529.ns22000 ---|          EQ     DAF         PROCESS DUMP
00638  M01S00064.ns22000 +++|          RJ     DAF         PROCESS DUMP
00639  M01S00065.ns22000 +++|          SX2    AFDB        ISSUE TERMINATION MESSAGE
00640  M01S00066.ns22000 +++|          EQ     TRM         EXIT
00641  M01S00067.ns22000 +++|
00642  M01S00068.ns22000 +++| AFDA     DATA   C*SIAD.*    ACCOUNT FILE MESSAGE
00643  M01S00069.ns22000 +++| AFDB     DATA   C* ACCOUNT DAYFILE PROCESSED.*
Line S00530 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00644  M02S00530.dayfil7 ---| DAYFILE  SPACE  4
00645  M01S00005.dayfil7 +++| DAYFILE  SPACE  4,10
00646  M01S00531.dayfile +++|**        DAYFILE - DUMP USER DAYFILE.
00647  M01S00532.dayfile +++|
00648  M01S00533.dayfile +++|
00649  M01S00534.dayfile +++| DAYFILE  BSS    0           ENTRY
00650  M01S00535.dayfile +++|          SX6    UDTY        SET DAYFILE TYPE = USER DAYFILE
00651  M01S00536.dayfile +++|          SA6    DFTY
Line S00537 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00537.ns22000 ---|          SA1    =10H DAYFILE.  SET TITLE
Line S00538 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00538.ns22000 ---|          SX6    =C* USER DAYFILE PROCESSED.*  DAYFILE MESSAGE
00654  M01S00070.ns22000 +++|          SA6    ENPT        SET ENTRY POINT = *DAYFILE*
00655  M01S00539.dayfile +++|          SX7    1           SET SEARCH INDEX
Line S00540 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00540.ns22000 ---|          SB7    B0          SET DAYFILE MESSAGE CODE
Line S00541 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00541.ns22000 ---|          BX4    X6          SET TERMINATION MESSAGE
00658  M01S00542.dayfile +++|          SA7    SEWI
Line S00543 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00543.ns22000 ---|          EQ     DAF         PROCESS DUMP
00660  M01S00071.ns22000 +++|          SX4    DAYA        SET SEARCH STRING FOR PARTIAL DUMP
00661  M01S00072.ns22000 +++|          RJ     PRS         PRESET PROGRAM
00662  M01S00073.ns22000 +++|          SA1    =10H DAYFILE.   SET TITLE
00663  M01S00074.ns22000 +++|          RJ     DAF         PROCESS DUMP
00664  M01S00075.ns22000 +++|          SX2    DAYA        ISSUE TERMINATION MESSAGE
00665  M01S00076.ns22000 +++|          EQ     TRM         EXIT
00666  M01S00077.ns22000 +++|
00667  M01S00078.ns22000 +++| DAYA     DATA   C* USER DAYFILE PROCESSED.*
Line S00544 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00544.dayfil7 ---| DFD      SPACE  4
00669  M01S00006.dayfil7 +++| DFD      SPACE  4,10
00670  M01S00545.dayfile +++|**        DFD - DUMP SYSTEM DAYFILE.
00671  M01S00546.dayfile +++|
00672  M01S00547.dayfile +++|
00673  M01S00548.dayfile +++| DFD      BSS    0           ENTRY
00674  M01S00549.dayfile +++|          SX6    SDTY        SET DAYFILE TYPE = SYSTEM DAYFILE
00675  M01S00550.dayfile +++|          SA6    DFTY
00676  M01S00079.ns22000 +++|          SA6    ENPT        SET ENTRY POINT = *DFD*
00677  M01S00080.ns22000 +++|          SX4    DFDA        SET SEARCH STRING FOR PARTIAL DUMP
00678  M01S00081.ns22000 +++|          RJ     PRS         PRESET PROGRAM
00679  M01S00551.dayfile +++|          SA1    =10H DAYFILE.  SET TITLE
Line S00552 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00552.ns22000 ---|          SB7    3           SET DAYFILE MESSAGE CODE
Line S00553 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00553.ns22000 ---|          SX6    =C* SYSTEM DAYFILE PROCESSED.*  DAYFILE MESSAGE
Line S00554 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00554.ns22000 ---|          BX4    X6          SET TERMINATION MESSAGE
Line S00555 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00683  M02S00555.ns22000 ---|          EQ     DAF         PROCESS DUMP
00684  M01S00082.ns22000 +++|          RJ     DAF         PROCESS DUMP
00685  M01S00083.ns22000 +++|          SX2    DFDA        ISSUE TERMINATION MESSAGE
00686  M01S00084.ns22000 +++|          SB7    3           SET LOCAL DAYFILE ONLY OPTION
00687  M01S00085.ns22000 +++|          EQ     TRM1        EXIT
00688  M01S00086.ns22000 +++|
00689  M01S00087.ns22000 +++| DFDA     DATA   C* SYSTEM DAYFILE PROCESSED.*
Line S00556 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00556.dayfil7 ---| ELD      SPACE  4
00691  M01S00007.dayfil7 +++| ELD      SPACE  4,10
00692  M01S00557.dayfile +++|**        ELD - DUMP ERROR LOG.
00693  M01S00558.dayfile +++|
00694  M01S00559.dayfile +++|
00695  M01S00560.dayfile +++| ELD      BSS    0           ENTRY
00696  M01S00561.dayfile +++|          SX6    ELTY        SET DAYFILE TYPE = ERRLOG
00697  M01S00562.dayfile +++|          SA6    DFTY
00698  M01S00088.ns22000 +++|          SA6    ENPT        SET ENTRY POINT = *ELD*
00699  M01S00089.ns22000 +++|          SX4    ELDA        SET SEARCH STRING FOR PARTIAL DUMP
00700  M01S00090.ns22000 +++|          RJ     PRS         PRESET PROGRAM
00701  M01S00563.dayfile +++|          SA1    =10H ERRLOG.    SET TITLE
Line S00564 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00702  M02S00564.ns22000 ---|          SX6    =C* ERROR LOG PROCESSED.*  DAYFILE MESSAGE
Line S00565 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00565.ns22000 ---|          SB7    B0          SET DAYFILE MESSAGE CODE
Line S00566 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00704  M02S00566.ns22000 ---|          BX4    X6          SET TERMINATION MESSAGE
Line S00567 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00567.ns22000 ---|          EQ     DAF         PROCESS DUMP
00706  M01S00091.ns22000 +++|          RJ     DAF         PROCESS DUMP
00707  M01S00092.ns22000 +++|          SX2    ELDA        ISSUE TERMINATION MESSAGE
00708  M01S00093.ns22000 +++|          EQ     TRM         EXIT
00709  M01S00094.ns22000 +++|
00710  M01S00095.ns22000 +++| ELDA     DATA   C* ERROR LOG PROCESSED.*
00711  M01S00096.ns22000 +++| GETLOG   SPACE  4,10
00712  M01S00097.ns22000 +++|**        GETLOG - DUMP ERROR LOG AND BML FOR *HPA*.
00713  M01S00098.ns22000 +++|
00714  M01S00099.ns22000 +++|
00715  M01S00100.ns22000 +++| GETLOG   BSS    0           ENTRY
00716  M01S00101.ns22000 +++|          SA1    GTLC        CHANGE *L* DEFAULT TO *ERR*
00717  M01S00102.ns22000 +++|          BX6    X1
00718  M01S00103.ns22000 +++|          SA6    O
00719  M01S00104.ns22000 +++|          SX6    GLTY        SET ENTRY POINT = *GETLOG*
00720  M01S00105.ns22000 +++|          SA6    ENPT
00721  M01S00106.ns22000 +++|
00722  M01S00107.ns22000 +++|*         PROCESS MAINTENANCE LOG.
00723  M01S00108.ns22000 +++|
00724  M01S00109.ns22000 +++|          SX6    MLTY        SET DAYFILE TYPE = BML
00725  M01S00110.ns22000 +++|          SA6    DFTY
00726  M01S00111.ns22000 +++|          SX4    GTLA        SET SEARCH STRING FOR PARTIAL DUMP
00727  M01S00112.ns22000 +++|          RJ     PRS         PRESET PROGRAM
00728  M01S00113.ns22000 +++|          SA1    =10H GETLOG.    SET TITLE
00729  M01S00114.ns22000 +++|          RJ     DAF         PROCESS DUMP
00730  M01S00115.ns22000 +++|
00731  M01S00116.ns22000 +++|*         RESET PARAMETERS.
00732  M01S00117.ns22000 +++|
00733  M01S00118.ns22000 +++|          MX7    0           CLEAR LOCAL FILE FLAG
00734  M01S00119.ns22000 +++|          SA7    INAM
00735  M01S00120.ns22000 +++|          SA7    CMFG        CLEAR *CM BUFFER* FLAG
00736  M01S00121.ns22000 +++|          SA1    GTLD        RESTORE *SCR* FILENAME
00737  M01S00122.ns22000 +++|          BX6    X1
00738  M01S00123.ns22000 +++|          SX7    IBUF        RESTORE FIRST/IN/OUT/LIMIT
00739  M01S00124.ns22000 +++|          MX0    42
00740  M01S00125.ns22000 +++|          SA6    I
00741  M01S00126.ns22000 +++|          SA1    A6+B1
00742  M01S00127.ns22000 +++|          MX6    59          INITIALIZE CONTROL WORDS
00743  M01S00128.ns22000 +++|          BX1    X0*X1
00744  M01S00129.ns22000 +++|          BX7    X1+X7
00745  M01S00130.ns22000 +++|          SA7    A6+B1
00746  M01S00131.ns22000 +++|          ERRNZ  WRD-1       CANNOT USE *B1*
00747  M01S00132.ns22000 +++|          ERRNZ  ERF-WRD-1   CANNOT USE *B1*
00748  M01S00133.ns22000 +++|          SA6    A6-B1
00749  M01S00134.ns22000 +++|          SX7    X7
00750  M01S00135.ns22000 +++|          SA7    A7+B1
00751  M01S00136.ns22000 +++|          SA6    A6-B1
00752  M01S00137.ns22000 +++|          SX6    X7+IBUFL
00753  M01S00138.ns22000 +++|          SA7    A7+B1
00754  M01S00139.ns22000 +++|          SA6    A7+B1
00755  M01S00140.ns22000 +++|
00756  M01S00141.ns22000 +++|*         PROCESS ERROR LOG.
00757  M01S00142.ns22000 +++|
00758  M01S00143.ns22000 +++|          SX6    ELTY        SET DAYFILE TYPE = ERRLOG
00759  M01S00144.ns22000 +++|          SA6    DFTY
00760  M01S00145.ns22000 +++|          MOVE   3,GTLB,IBUF SET SEARCH STRING FOR PARTIAL DUMP
00761  M01S00146.ns22000 +++|          MOVE   3,GTLB,SEMS
00762  M01S00147.ns22000 +++|          MX6    48          SET SEARCH MASK
00763  M01S00148.ns22000 +++|          BX7    X4-X4
00764  M01S00149.ns22000 +++|          SA6    SEMA+1
00765  M01S00150.ns22000 +++|          AX6    12
00766  M01S00151.ns22000 +++|          SA7    A6+B1
00767  M01S00152.ns22000 +++|          SA6    A6-B1
00768  M01S00153.ns22000 +++|          SA1    =10H GETLOG.    SET TITLE
00769  M01S00154.ns22000 +++|          RJ     DAF         PROCESS DUMP
00770  M01S00155.ns22000 +++|          SX2    GTLB        ISSUE TERMINATION MESSAGE
00771  M01S00156.ns22000 +++|          EQ     TRM         EXIT
00772  M01S00157.ns22000 +++|
00773  M01S00158.ns22000 +++| GTLA     VFD    12/2,48/0   BML MESSAGE FOR *GETLOG* EXECUTION
00774  M01S00159.ns22000 +++|          VFD    12/DM0406,12/DS0113,36/0
00775  M01S00160.ns22000 +++|          VFD    60/0
00776  M01S00161.ns22000 +++| GTLB     DATA   C* GETLOG PROCESSED.*
00777  M01S00162.ns22000 +++| GTLC     VFD    42/0LERR,18/3  *L* DEFAULT FILENAME
00778  M01S00163.ns22000 +++| GTLD     VFD    42/0LSCR,18/3  *I* FILENAME AFTER *BML* DUMPED
Line S00568 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00568.dayfil7 ---|          SPACE  4
00780  M01S00008.dayfil7 +++| MAINLOG  SPACE  4,10
00781  M01S00569.dayfile +++|**        MAINLOG - DUMP BINARY MAINTENANCE LOG.
00782  M01S00570.dayfile +++|
00783  M01S00571.dayfile +++|
00784  M01S00572.dayfile +++| MAINLOG  BSS    0           ENTRY
00785  M01S00573.dayfile +++|          SX6    MLTY        SET DAYFILE TYPE = MAINLOG
00786  M01S00574.dayfile +++|          SA6    DFTY
00787  M01S00164.ns22000 +++|          SA6    ENPT        SET ENTRY POINT = *MAINLOG*
00788  M01S00165.ns22000 +++|          SX4    MLDA        SET SEARCH STRING FOR PARTIAL DUMP
00789  M01S00166.ns22000 +++|          RJ     PRS         PRESET PROGRAM
00790  M01S00575.dayfile +++|          SA1    =10H MAINLOG.  SET TITLE
Line S00576 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00791  M02S00576.ns22000 ---|          SX6    =C* MAINTENANCE LOG PROCESSED.*  DAYFILE MESSAGE
Line S00577 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00577.ns22000 ---|          SX4    MLDA        SET TERMINATION MESSAGE
Line S00578 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00793  M02S00578.ns22000 ---|          SB7    B0          SET DAYFILE MESSAGE CODE
Line S00579 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00794  M02S00579.ns22000 ---|          EQ     DAF         PROCESS DUMP
00795  M01S00167.ns22000 +++|          RJ     DAF         PROCESS DUMP
00796  M01S00168.ns22000 +++|          SX2    MLDB        ISSUE TERMINATION MESSAGE
00797  M01S00169.ns22000 +++|          EQ     TRM         EXIT
00798  M01S00580.dayfile +++|
00799  M01S00581.dayfile +++| MLDA     VFD    12/2,48/0
00800  M01S00582.dayfile +++|          VFD    12/DM0406,12/DS0102,36/0
00801  M01S00583.dayfile +++|          VFD    60/0
00802  M01S00170.ns22000 +++| MLDB     DATA   C* MAINTENANCE LOG PROCESSED.*
00803  M01S00171.ns22000 +++| TRM      SPACE  4,10
00804  M01S00172.ns22000 +++|**        TRM - COMMON TERMINATION ROUTINE.
00805  M01S00173.ns22000 +++|*
00806  M01S00174.ns22000 +++|*         ENTRY  (X2) = ADDRESS OF TERMINATION MESSAGE.
00807  M01S00175.ns22000 +++|*                (B7) = DAYFILE OPTION, IF ENTERED AT *TRM1*.
00808  M01S00176.ns22000 +++|*
00809  M01S00177.ns22000 +++|*         MACROS MESSAGE.
00810  M01S00178.ns22000 +++|
00811  M01S00179.ns22000 +++|
00812  M01S00180.ns22000 +++| TRM      SB7    0           ISSUE MESSAGE TO USER/SYSTEM DAYFILES
00813  M01S00181.ns22000 +++|
00814  M01S00182.ns22000 +++|*         ENTER WITH (B7) = DAYFILE OPTION.
00815  M01S00183.ns22000 +++|
00816  M01S00184.ns22000 +++| TRM1     SA1    INAM        CHECK DAYFILE TYPE
00817  M01S00185.ns22000 +++|          ZR     X1,TRM2     IF ACTIVE DAYFILE PROCESSED
00818  M01S00186.ns22000 +++|          SA1    ENPT
00819  M01S00187.ns22000 +++|          SA1    NTAB+X1-GLTY  SET ENTRY POINT IN MESSAGE
00820  M01S00188.ns22000 +++|          BX6    X1
00821  M01S00189.ns22000 +++|          SA6    TRMA
00822  M01S00190.ns22000 +++|          SX2    A6
00823  M01S00191.ns22000 +++| TRM2     MESSAGE  X2,B7     ISSUE TERMINATION MESSAGE
00824  M01S00192.ns22000 +++|          ENDRUN
00825  M01S00193.ns22000 +++|
00826  M01S00194.ns22000 +++| TRMA     DATA   C* ENTRYPT - LOCAL DAYFILE PROCESSED.*
00827  M01S00584.dayfile +++| DAF      TITLE  MAIN PROGRAM.
00828  M01S00585.dayfile +++|**        DAF - PROCESS DAYFILE DUMP.
00829  M01S00586.dayfile +++|*
00830  M01S00587.dayfile +++|*         MAIN LOOP.
00831  M01S00588.dayfile +++|*
Line S00589 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00589.ns22000 ---|*         ENTRY  RESPECTIVE DAYFILE ACCESSED.
Line S00590 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00833  M02S00590.ns22000 ---|*                (B7) = DAYFILE MESSAGE CODE.
Line S00591 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00834  M02S00591.ns22000 ---|*                (DFTY) = DAYFILE TYPE.
Line S00592 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00835  M02S00592.ns22000 ---|*                (FROM) = 0, IF FULL DUMP.
Line S00593 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00836  M02S00593.ns22000 ---|*                       .NE. 0, IF PARTIAL DUMP.
Line S00594 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00837  M02S00594.ns22000 ---|*                (IOUT) = 0, IF TERMINAL OUTPUT.
Line S00595 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00838  M02S00595.ns22000 ---|*                       .NE. 0, IF NOT.
Line S00596 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00839  M02S00596.ns22000 ---|*                (LISF) = 0, IF OUTPUT TO BE PAGINATED.
Line S00597 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00840  M02S00597.ns22000 ---|*                       .NE. 0, IF NOT.
Line S00598 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00841  M02S00598.ns22000 ---|*                (RFMT) = RESET PRINT FORMAT SENTINAL.
00842  M01S00195.ns22000 +++|*         ENTRY  (DFTY) = DAYFILE DUMP TYPE.
00843  M01S00196.ns22000 +++|*                (X1) = DAYFILE NAME.
00844  M01S00599.dayfile +++|*
00845  M01S00600.dayfile +++|*         EXIT   DAYFILE DUMPED.
00846  M01S00601.dayfile +++|*
00847  M01S00602.dayfile +++|*         USES   X - 1, 2, 6.
00848  M01S00603.dayfile +++|*                A - 1, 6.
00849  M01S00604.dayfile +++|*
Line S00605 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00850  M02S00605.ns22000 ---|*         CALLS  PRS, RIF, TSF, WOF, WUP.
Line S00606 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00851  M02S00606.ns22000 ---|*
Line S00607 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00607.ns22000 ---|*         MACROS ENDRUN, MESSAGE, WRITER.
Line S00608 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00608.ns22000 ---|
Line S00609 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00854  M02S00609.ns22000 ---| DAF      BSS    0           ENTRY
Line S00610 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00610.ns22000 ---|          RJ     PRS         PRESET
00856  M01S00197.ns22000 +++|*         CALLS  OPN, RIF, TSF, WOF, WUP.
00857  M01S00198.ns22000 +++|*
00858  M01S00199.ns22000 +++|*         MACROS MESSAGE, RECALL, ROUTE, WRITER.
00859  M01S00200.ns22000 +++|
00860  M01S00201.ns22000 +++|
00861  M01S00202.ns22000 +++| DAF      SUBR               ENTRY/EXIT
00862  M01S00203.ns22000 +++|          BX6    X1          STORE DAYFILE NAME
00863  M01S00204.ns22000 +++|          SA6    TYPE
00864  M01S00611.dayfile +++|
00865  M01S00612.dayfile +++|*         PROCESS DAYFILE.
00866  M01S00613.dayfile +++|
00867  M01S00205.ns22000 +++|          RJ     OPN         OPEN DAYFILE
00868  M01S00206.ns22000 +++|          SA1    TYPE        SET DAYFILE TYPE IN MESSAGE
00869  M01S00207.ns22000 +++|          BX6    X1
00870  M01S00208.ns22000 +++|          SA6    DAFA+1
00871  M01S00614.dayfile +++|          MESSAGE  DAFA,2    * COPYING - DAYFILE.*
00872  M01S00615.dayfile +++| DAF1     RJ     RIF         READ IN-FILE
00873  M01S00616.dayfile +++|          NG     X1,DAF2     IF EOF/EOI
00874  M01S00617.dayfile +++|          RJ     WOF         WRITE OUT-FILE
00875  M01S00618.dayfile +++|          SA1    INTR
00876  M01S00619.dayfile +++|          NZ     X1,DAF5     IF TERMINAL INTERRUPT
00877  M01S00620.dayfile +++|          EQ     DAF1        PROCESS NEXT RECORD
00878  M01S00621.dayfile +++|
00879  M01S00622.dayfile +++|*         CHECK SEARCH FILE.
00880  M01S00623.dayfile +++|
00881  M01S00624.dayfile +++| DAF2     SA1    FROM
00882  M01S00625.dayfile +++|          ZR     X1,DAF3     IF FULL DUMP
00883  M01S00626.dayfile +++|          RJ     TSF         TERMINATE SEARCH FILE
00884  M01S00627.dayfile +++|          SA1    DFTY
00885  M01S00628.dayfile +++|          SX1    X1-MLTY
00886  M01S00629.dayfile +++|          ZR     X1,DAF3     IF PROCESSING BINARY FILE
00887  M01S00630.dayfile +++|
00888  M01S00631.dayfile +++|*         MARK END OF TERMINAL OUTPUT.
00889  M01S00632.dayfile +++|
00890  M01S00633.dayfile +++|          SA1    LISF
00891  M01S00634.dayfile +++|          NZ     X1,DAF3     IF NOT PAGINATED OUTPUT
00892  M01S00635.dayfile +++|          SA1    RFMT        RESET PRINT FORMAT
00893  M01S00636.dayfile +++|          BX6    X1
00894  M01S00637.dayfile +++|          SA6    WBUF
00895  M01S00638.dayfile +++|          SA6    LISF        SET *NO FORMAT*
00896  M01S00639.dayfile +++|          BX6    X6-X6       SET FULL DUMP
00897  M01S00640.dayfile +++|          SB7    B1          INDICATE MESSAGE PRESENT
00898  M01S00641.dayfile +++|          SA6    FROM
00899  M01S00642.dayfile +++|          RJ     WOF         WRITE OUT-FILE
00900  M01S00643.dayfile +++|
00901  M01S00644.dayfile +++|*         WRAP UP TERMINATION.
00902  M01S00645.dayfile +++|
00903  M01S00646.dayfile +++| DAF3     RJ     WUP         WRAP UP PROCESSING
00904  M01S00647.dayfile +++|          MESSAGE  (=C* *),2
00905  M01S00648.dayfile +++|          SX2    O           FLUSH OUT-FILE
00906  M01S00649.dayfile +++|          SA1    DFTY
00907  M01S00650.dayfile +++|          SX1    X1-MLTY
00908  M01S00651.dayfile +++|          NZ     X1,DAF4     IF NOT PROCESSING BINARY FILE
00909  M01S00652.dayfile +++|          SX2    B
00910  M01S00653.dayfile +++| DAF4     WRITER X2
00911  M01S00654.dayfile +++|          SA1    JTOP        CHECK IF JOB TERMINATION ENTERED
Line S00655 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00655.ns22000 ---|          ZR     X1,DAF6     IF NOT ENTERED
00913  M01S00209.ns22000 +++|          ZR     X1,DAFX     IF NOT ENTERED
00914  M01S00656.dayfile +++|          RECALL X2
00915  M01S00657.dayfile +++|          ROUTE  PDRA,R      ISSUE *DSP* REQUEST
Line S00658 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00658.ns22000 ---|          EQ     DAF6        ENDRUN
00917  M01S00210.ns22000 +++|          EQ     DAFX        RETURN
00918  M01S00659.dayfile +++|
00919  M01S00660.dayfile +++| DAF5     RJ     WUP         WRAP UP PROCESSING
Line S00661 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00920  M02S00661.ns22000 ---| DAF6     ENDRUN
00921  M01S00211.ns22000 +++|          EQ     DAFX        RETURN
00922  M01S00662.dayfile +++|
00923  M01S00663.dayfile +++|
00924  M01S00664.dayfile +++| DAFA     DATA   C* COPYING - DAYFILE. *
Line S00665 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00665.dayfil7 ---| DBM      SPACE  4,35
00926  M01S00666.dayfile +++|          TITLE  SUBROUTINES.
00927  M01S00667.dayfile +++| ERR      SPACE  4,10
00928  M01S00668.dayfile +++|**        ERR - PROCESS ERROR.
00929  M01S00669.dayfile +++|*
00930  M01S00670.dayfile +++|*         ENTRY  (A0) = ADDRESS OF ERROR MESSAGE.
00931  M01S00671.dayfile +++|*
00932  M01S00672.dayfile +++|*         EXIT   ABORTS.
Line S00673 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00673.dayfil7 ---|*                (DFTY) = DAYFILE TYPE.
00934  M01S00009.dayfil7 +++|*                (ENPT) = ENTRY POINT NAME.
00935  M01S00674.dayfile +++|*                B = BINARY OUT-FILE FET.
00936  M01S00675.dayfile +++|*                O = CODED OUT-FILE FET.
00937  M01S00676.dayfile +++|*
00938  M01S00677.dayfile +++|*         USES   X - 0, 1, 2, 6.
00939  M01S00678.dayfile +++|*                A - 1, 2, 6.
00940  M01S00679.dayfile +++|*
Line S00680 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfi15
Seq #  *Modification Id* Act 
----------------------------+
00941  M02S00680.dayfi15 ---|*         MACROS ABORT, MESSAGE, WRITER.
00942  M01S00001.dayfi15 +++|*         MACROS ABORT, MESSAGE, RECALL, ROUTE, WRITER.
00943  M01S00681.dayfile +++|
00944  M01S00682.dayfile +++|
Line S00683 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
00945  M02S00683.dayfil7 ---| ERR      SA1    DFTY        SET ENTRY POINT NAME
00946  M01S00010.dayfil7 +++| ERR      SA1    ENPT        SET ENTRY POINT NAME
Line S00684 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00947  M02S00684.ns22000 ---|          SA2    NTAB+X1
00948  M01S00212.ns22000 +++|          SA2    NTAB+X1-GLTY
00949  M01S00685.dayfile +++|          BX6    X2
00950  M01S00686.dayfile +++|          SA6    ERRA
00951  M01S00687.dayfile +++|          MX0    -12         GET MESSAGE TEXT
00952  M01S00688.dayfile +++|          SA1    A0
00953  M01S00689.dayfile +++| ERR1     BX6    X1
00954  M01S00690.dayfile +++|          SA6    A6+B1
00955  M01S00691.dayfile +++|          BX2    -X0*X1
00956  M01S00692.dayfile +++|          SA1    A1+B1
00957  M01S00693.dayfile +++|          NZ     X2,ERR1     IF MORE
00958  M01S00694.dayfile +++|          SX2    O           FLUSH OUT-FILE
00959  M01S00695.dayfile +++|          SA1    DFTY
00960  M01S00696.dayfile +++|          SX1    X1-MLTY
00961  M01S00697.dayfile +++|          NZ     X1,ERR2     IF NOT PROCESSING BINARY FILE
00962  M01S00698.dayfile +++|          SX2    B
00963  M01S00699.dayfile +++| ERR2     WRITER X2
00964  M01S00700.dayfile +++|          MESSAGE  ERRA,,R   ISSUE ERROR MESSAGE
00965  M01S00701.dayfile +++|          MESSAGE  (=C* *),2
Line S00702 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfi15
Seq #  *Modification Id* Act 
----------------------------+
00966  M02S00702.dayfi15 ---|          ABORT              ABORT JOB
00967  M01S00002.dayfi15 +++|          SA1    JTOP
00968  M01S00003.dayfi15 +++|          ZR     X1,ERR3     IF NOT JOB TERMINATION
00969  M01S00004.dayfi15 +++|          SA1    PDRA
00970  M01S00005.dayfi15 +++|          ZR     X1,ERR3     IF NO FILE NAME IN *DSP* PARAMETER BLOCK
00971  M01S00006.dayfi15 +++|          RECALL X2
00972  M01S00007.dayfi15 +++|          ROUTE  PDRA,R      ISSUE *DSP* CALL
00973  M01S00008.dayfi15 +++| ERR3     ABORT
00974  M01S00703.dayfile +++|
00975  M01S00704.dayfile +++| ERRA     BSSZ   10B         MESSAGE BUILD AREA
00976  M01S00705.dayfile +++| GEM      SPACE  4,20
00977  M01S00706.dayfile +++|**        GEM - GENERATE ERROR MESSAGE.
00978  M01S00707.dayfile +++|*
00979  M01S00708.dayfile +++|*         ENTRY  (B2) = ERROR MESSAGE CODE.
00980  M01S00709.dayfile +++|*                (DFTY) = DAYFILE TYPE.
00981  M01S00213.ns22000 +++|*                (ENPT) = ENTRY POINT IDENTIFIER.
00982  M01S00710.dayfile +++|*
00983  M01S00711.dayfile +++|*         EXIT   ERROR MESSAGES ISSUED TO OUTPUT FILE AND DAYFILE.
00984  M01S00712.dayfile +++|*
00985  M01S00713.dayfile +++|*         USES   X - 1, 2, 5, 6, 7.
00986  M01S00714.dayfile +++|*                A - 1, 2, 5, 6, 7.
00987  M01S00715.dayfile +++|*                B - 2, 3, 7.
00988  M01S00716.dayfile +++|*
00989  M01S00717.dayfile +++|*         CALLS  WOF.
00990  M01S00718.dayfile +++|*
00991  M01S00719.dayfile +++|*         MACROS MESSAGE.
00992  M01S00720.dayfile +++|*
00993  M01S00721.dayfile +++|*         NOTE   PRESERVES (X2)
00994  M01S00722.dayfile +++|
00995  M01S00723.dayfile +++|
00996  M01S00724.dayfile +++| GEM      SUBR               ENTRY/EXIT
00997  M01S00725.dayfile +++|          BX7    X2          SAVE FET ADDRESS
00998  M01S00726.dayfile +++|          SX6    B2          SAVE MESSAGE CODE
00999  M01S00727.dayfile +++|          SA6    GEMA
01000  M01S00728.dayfile +++|          SA7    GEMB
01001  M01S00729.dayfile +++|
01002  M01S00730.dayfile +++|*         GENERATE OUT-FILE ERROR MESSAGE.
01003  M01S00731.dayfile +++|
Line S00732 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00732.ns22000 ---| GEM1     SA2    DFTY        FIND MESSAGE TEXT AND INSERT LOCATION
Line S00733 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01005  M02S00733.ns22000 ---|          SA1    ETAB+X2
01006  M01S00214.ns22000 +++| GEM1     SA2    DFTY        SET ERROR MESSAGE PARAMETERS
01007  M01S00215.ns22000 +++|          SA1    ETAB+X2-GLTY
01008  M01S00734.dayfile +++|          SA2    X1+B2
01009  M01S00735.dayfile +++|          SB2    B0          TRANSFER MESSAGE TO WORKING BUFFER
01010  M01S00736.dayfile +++|          SB3    X2          START ADDRESS
01011  M01S00737.dayfile +++|          AX2    18
01012  M01S00738.dayfile +++|          SB7    X2          LENGTH OF MESSAGE
01013  M01S00739.dayfile +++| GEM2     SA5    B3+B2
01014  M01S00740.dayfile +++|          BX6    X5
01015  M01S00741.dayfile +++|          SA6    WBUF+B2
01016  M01S00742.dayfile +++|          SB2    B2+B1
01017  M01S00743.dayfile +++|          LT     B2,B7,GEM2  IF NOT END OF MESSAGE
01018  M01S00744.dayfile +++|          RJ     WOF         WRITE MESSAGE TO OUTPUT FILE
01019  M01S00745.dayfile +++|
01020  M01S00746.dayfile +++|*         ISSUE DAYFILE VERSION OF ERROR MESSAGE.
01021  M01S00747.dayfile +++|
01022  M01S00748.dayfile +++|          SA1    GEMA        GET MESSAGE CODE
01023  M01S00749.dayfile +++|          SB2    X1+
Line S00750 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01024  M02S00750.ns22000 ---|          SA1    DFTY        GET ENTRY POINT NAME
01025  M01S00216.ns22000 +++|          SA1    ENPT        SET ENTRY POINT NAME
01026  M01S00751.dayfile +++|          SA1    NTAB+X1
01027  M01S00752.dayfile +++|          BX6    X1
01028  M01S00753.dayfile +++|          SA2    DTAB+B2     GET MESSAGE TEXT
01029  M01S00754.dayfile +++|          SA6    X2          INSERT ENTRY POINT NAME INTO TEXT
01030  M01S00755.dayfile +++|          MESSAGE  X2
01031  M01S00756.dayfile +++|          SA2    GEMB        REPLACE FET ADDRESS
01032  M01S00757.dayfile +++|          EQ     GEMX        RETURN
01033  M01S00758.dayfile +++|
01034  M01S00759.dayfile +++|
01035  M01S00760.dayfile +++| GEMA     BSSZ   1           MESSAGE CODE HOLD
01036  M01S00761.dayfile +++| GEMB     BSSZ   1           FET ADDRESS
01037  M01S00762.dayfile +++|
Line S00763 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00763.ns22000 ---| NTAB     BSS    1           ENTRY POINT NAME TABLE
Line S00764 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01039  M02S00764.ns22000 ---|          DATA   10H     AFD -
Line S00765 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01040  M02S00765.ns22000 ---|          DATA   10H DAYFILE -
Line S00766 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01041  M02S00766.ns22000 ---|          DATA   10H     DFD -
Line S00767 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01042  M02S00767.ns22000 ---|          DATA   10H     ELD -
Line S00768 Modification History
M01 (Added by) dayfile
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01043  M02S00768.ns22000 ---|          DATA   10H MAINLOG -
01044  M01S00217.ns22000 +++| NTAB     BSS    0           ENTRY POINT NAME TABLE
01045  M01S00218.ns22000 +++|          LOC    GLTY
01046  M01S00219.ns22000 +++| GLTY     DATA   10H  GETLOG -
01047  M01S00220.ns22000 +++| ACTY     DATA   10H     AFD -
01048  M01S00221.ns22000 +++| UDTY     DATA   10H DAYFILE -
01049  M01S00222.ns22000 +++| SDTY     DATA   10H     DFD -
01050  M01S00223.ns22000 +++| ELTY     DATA   10H     ELD -
01051  M01S00224.ns22000 +++| MLTY     DATA   10H MAINLOG -
01052  M01S00225.ns22000 +++|          LOC    *O
Line S00769 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
01053  M02S00769.dayfil7 ---|          SPACE  2,10
Line S00770 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil7
Seq #  *Modification Id* Act 
----------------------------+
01054  M02S00770.dayfil7 ---|*         NOTE --
01055  M01S00011.dayfil7 +++|          SPACE  4,10
01056  M01S00012.dayfil7 +++|**        NOTE:
01057  M01S00771.dayfile +++|*                THE MESSAGES REFERENCED BY THE FOLLOWING TABLES ARE
01058  M01S00772.dayfile +++|*                ORDERED ONE-FOR-ONE AND MUST BE MAINTAINED THAT WAY.
01059  M01S00773.dayfile +++|*
01060  M01S00774.dayfile +++|*                *DTAB* - LIST OF THE DAYFILE VERSIONS OF THE MESSAGES.
01061  M01S00775.dayfile +++|*                *CFTB* - LIST OF THE CODED OUT-FILE VERSIONS OF THE
01062  M01S00776.dayfile +++|*                         MESSAGES.
01063  M01S00777.dayfile +++|*                *BFTB* - LIST OF THE BINARY OUT-FILE VERSIONS OF THE
01064  M01S00778.dayfile +++|*                         MESSAGES.
01065  M01S00779.dayfile +++|
01066  M01S00780.dayfile +++| DTAB     BSS    1           DAYFILE MESSAGE TEXT ADDRESS TABLE
01067  M01S00781.dayfile +++|          CON    DFRE
01068  M01S00782.dayfile +++|          CON    DFSE
01069  M01S00783.dayfile +++|
01070  M01S00784.dayfile +++|*         TEXT TABLE FOR DAYFILE VERSION OF NOTICE MESSAGES.
01071  M01S00785.dayfile +++|
01072  M01S00786.dayfile +++| DFRE     DATA   40C XXXXXXX - DATA LOST.
01073  M01S00787.dayfile +++| DFSE     DATA   40C XXXXXXX - RECOVERY SECTOR ENCOUNTERED.
01074  M01S00788.dayfile +++|
01075  M01S00789.dayfile +++| ETAB     BSS    1           DAYFILE TYPE TO MESSAGE SET - MAP TABLE
01076  M01S00790.dayfile +++|          CON    CFTB        ACCOUNT
01077  M01S00791.dayfile +++|          CON    CFTB        USER DAYFILE
01078  M01S00792.dayfile +++|          CON    CFTB        SYSTEM DAYFILE
01079  M01S00793.dayfile +++|          CON    CFTB        ERROR LOG
01080  M01S00794.dayfile +++|          CON    BFTB        MAINTENANCE LOG
01081  M01S00795.dayfile +++|
01082  M01S00796.dayfile +++| CFTB     BSS    1           CODED FILE MESSAGE ADDRESS TABLE
01083  M01S00797.dayfile +++|          VFD    12/2000B+CREI,12/0,18/CREL,18/CFRE
01084  M01S00798.dayfile +++|
01085  M01S00799.dayfile +++|*         TEXT TABLE FOR CODED FILE NOTICE MESSAGES.
01086  M01S00800.dayfile +++|
01087  M01S00801.dayfile +++| CFRE     DATA   30H NOTICE*** DATA READ ERROR -
01088  M01S00802.dayfile +++| CREI     EQU    *-CFRE
01089  M01S00803.dayfile +++| CREL     EQU    *-CFRE
01090  M01S00804.dayfile +++|
01091  M01S00805.dayfile +++| BFTB     BSS    1           BINARY FILE MESSAGE ADDRESS TABLE.
01092  M01S00806.dayfile +++|          VFD    12/2000B+BREI,12/0,18/BREL,18/BFRE
01093  M01S00807.dayfile +++|          VFD    12/2000B+BRSI,12/0,18/BRSL,18/BFRS
01094  M01S00808.dayfile +++|
01095  M01S00809.dayfile +++|*         TEXT TABLE FOR BINARY FILE NOTICE MESSAGES.
01096  M01S00810.dayfile +++|
01097  M01S00811.dayfile +++| BFRE     VFD    12/BREL,48/0
Line S00812 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil1
Seq #  *Modification Id* Act 
----------------------------+
01098  M02S00812.dayfil1 ---|          VFD    60/0
01099  M01S00001.dayfil1 +++|          VFD    12/2H  ,24/0,24/4HS.
01100  M01S00813.dayfile +++|          VFD    12/DM0406,12/DS0105,36/0
01101  M01S00814.dayfile +++| BREI     EQU    *-BFRE
01102  M01S00815.dayfile +++|          VFD    60/0
01103  M01S00816.dayfile +++| BREL     EQU    *-BFRE
01104  M01S00817.dayfile +++|
01105  M01S00818.dayfile +++| BFRS     VFD    12/BRSL,48/0
Line S00819 Modification History
M01 (Added by) dayfile
M02 (Updated by) dayfil1
Seq #  *Modification Id* Act 
----------------------------+
01106  M02S00819.dayfil1 ---|          VFD    60/0
01107  M01S00002.dayfil1 +++|          VFD    12/2H  ,24/0,24/4HS.
01108  M01S00820.dayfile +++|          VFD    12/DM0406,12/DS0107,36/0
01109  M01S00821.dayfile +++| BRSI     EQU    *-BFRS
01110  M01S00822.dayfile +++|          VFD    60/0
01111  M01S00823.dayfile +++| BRSL     EQU    *-BFRS
01112  M01S00824.dayfile +++|
01113  M01S00825.dayfile +++| ICP      SPACE  4,20
01114  M01S00826.dayfile +++|**        ICP - INITIALIZE CM BUFFER PROCESSING.
01115  M01S00827.dayfile +++|*
01116  M01S00828.dayfile +++|*         ENTRY  (CMFG) = 0, IF *ICP* NOT PREVIOUSLY CALLED.
01117  M01S00829.dayfile +++|*                (CMFG) = 1, IF *ICP* PREVIOUSLY CALLED.
01118  M01S00830.dayfile +++|*                (INAM) .NE. 0, IF READ ALTERNATE INPUT FILE.
01119  M01S00831.dayfile +++|*                (WCCM) = NUMBER OF WORDS IN *CBUF*.
01120  M01S00832.dayfile +++|*                (X2) = FET ADDRESS.
01121  M01S00833.dayfile +++|*
01122  M01S00834.dayfile +++|*         EXIT   FET POINTERS POINTING TO *CBUF* DATA.
01123  M01S00835.dayfile +++|*                (X1) .LT. 0 IF NO DATA IN *CBUF*.
01124  M01S00836.dayfile +++|*                (X2) = FET ADDRESS.
01125  M01S00837.dayfile +++|*
01126  M01S00838.dayfile +++|*         USES   X - 0, 1, 3, 4, 5, 6, 7.
01127  M01S00839.dayfile +++|*                A - 1, 3, 5, 6, 7.
01128  M01S00840.dayfile +++|
01129  M01S00841.dayfile +++|
01130  M01S00842.dayfile +++| ICP2     SX1    -2          SET EOI STATUS
01131  M01S00843.dayfile +++|
01132  M01S00844.dayfile +++| ICP      SUBR               ENTRY/EXIT
01133  M01S00845.dayfile +++|          SA1    CMFG
01134  M01S00846.dayfile +++|          NZ     X1,ICP2     IF NOT FIRST CALL TO *ICP*
01135  M01S00847.dayfile +++|          SX6    B1
01136  M01S00848.dayfile +++|          SA6    A1
01137  M01S00849.dayfile +++|          SA3    INAM
01138  M01S00850.dayfile +++|          NZ     X3,ICP2     IF READING ALTERNATE INPUT FILE
01139  M01S00851.dayfile +++|          RECALL X2
01140  M01S00852.dayfile +++|          SA5    DFTY        CHECK MESSAGE TYPE
01141  M01S00853.dayfile +++|          MX0    42
01142  M01S00854.dayfile +++|          SX5    X5-MLTY
01143  M01S00855.dayfile +++|          SA3    X2+B1       SET FIRST
01144  M01S00856.dayfile +++|          SA1    WCCM
01145  M01S00857.dayfile +++|          SX6    CBUF
01146  M01S00858.dayfile +++|          NZ     X5,ICP1     IF NOT PROCESSING BML
01147  M01S00859.dayfile +++|          SX6    BCWD        START OF BUFFER FOR BML
01148  M01S00860.dayfile +++|          SX1    X1+B1       CONTROL WORD
01149  M01S00861.dayfile +++| ICP1     BX3    X0*X3
01150  M01S00862.dayfile +++|          BX7    X6+X3
01151  M01S00863.dayfile +++|          SA7    A3
01152  M01S00864.dayfile +++|          BX3    X1          CONVERT TO PP WORDS
01153  M01S00865.dayfile +++|          IX7    X6+X1       SET IN
01154  M01S00866.dayfile +++|          SX3    X3-1        REMOVE CONTROL WORD
01155  M01S00867.dayfile +++|          SA7    A7+B1
01156  M01S00868.dayfile +++|          BX4    X3
01157  M01S00869.dayfile +++|          LX3    2
01158  M01S00870.dayfile +++|          SA6    A7+B1       SET OUT
01159  M01S00871.dayfile +++|          SX7    CBUF+CBUFL  SET LIMIT
01160  M01S00872.dayfile +++|          SA7    A6+B1
01161  M01S00873.dayfile +++|          BX7    X1          SET NUMBER OF WORDS BEFORE CONTROL WORD
01162  M01S00874.dayfile +++|          SA7    X2-WRD
01163  M01S00875.dayfile +++|          SX6    B1          SET EOR FLAG
01164  M01S00876.dayfile +++|          IX7    X4+X3
01165  M01S00877.dayfile +++|          SA6    X2-ERF
01166  M01S00878.dayfile +++|          SA7    BCWD        SET FOR BML
01167  M01S00879.dayfile +++|          EQ     ICPX        RETURN
01168  M01S00226.ns22000 +++| OPN      SPACE  4,20
01169  M01S00227.ns22000 +++|**        OPN - OPEN RESPECTIVE DAYFILE.
01170  M01S00228.ns22000 +++|*
01171  M01S00229.ns22000 +++|*         ENTRY  (BNAM) = 0, IF BINARY OUT-FILE NAME DEFAULTED.
01172  M01S00230.ns22000 +++|*                       .NE. 0, IF NAME SPECIFIED.
01173  M01S00231.ns22000 +++|*                (DFTY) = DAYFILE TYPE.
01174  M01S00232.ns22000 +++|*
01175  M01S00233.ns22000 +++|*         EXIT   RESPECTIVE DAYFILE ACCESSED.
01176  M01S00234.ns22000 +++|*                BINARY FILE OPENED, IF MAINTENANCE LOG ACCESSED.
01177  M01S00235.ns22000 +++|*                (BFCW) = BINARY FILE CONTROL WORD.
01178  M01S00236.ns22000 +++|*                (WCDF) = DISK FILE WORD COUNT.
01179  M01S00237.ns22000 +++|*                (WCCM) = CM BUFFER WORD COUNT.
01180  M01S00238.ns22000 +++|*                EXITS TO SUBROUTINE *ERR*, IF ERROR DETECTED.
01181  M01S00239.ns22000 +++|*
01182  M01S00240.ns22000 +++|*         USES   X - 0, 1, 2, 5, 6, 7.
01183  M01S00241.ns22000 +++|*                A - 0, 1, 2, 6, 7.
01184  M01S00242.ns22000 +++|*                B - 4.
01185  M01S00243.ns22000 +++|*
01186  M01S00244.ns22000 +++|*         CALLS  STF.
01187  M01S00245.ns22000 +++|*
01188  M01S00246.ns22000 +++|*         MACROS DAYFILE, GETJN, MESSAGE, PDATE, READCW, READW
01189  M01S00247.ns22000 +++|*                RECALL.
01190  M01S00248.ns22000 +++|
01191  M01S00249.ns22000 +++|
01192  M01S00250.ns22000 +++| OPN      SUBR               ENTRY/EXIT
01193  M01S00251.ns22000 +++|          SA1    INAM
01194  M01S00252.ns22000 +++|          ZR     X1,OPN2     IF IN-FILE DEFAULTED
01195  M01S00253.ns22000 +++|
01196  M01S00254.ns22000 +++|*         CHECK INPUT FILE FILE NAME.
01197  M01S00255.ns22000 +++|
01198  M01S00256.ns22000 +++|          MX0    42
01199  M01S00257.ns22000 +++|          SA2    OPNB        SET FILE NAME IN *FILINFO* BLOCK
01200  M01S00258.ns22000 +++|          BX5    X0*X1
01201  M01S00259.ns22000 +++|          BX2    -X0*X2
01202  M01S00260.ns22000 +++|          BX6    X5+X2
01203  M01S00261.ns22000 +++|          SA6    A2+
01204  M01S00262.ns22000 +++|          SA0    =C* INPUT FILE NOT FOUND.*
01205  M01S00263.ns22000 +++|          FILINFO  OPNB      GET INFORMATION ON INPUT FILE
01206  M01S00264.ns22000 +++|          SA2    OPNB+1
01207  M01S00265.ns22000 +++|          MX1    -6
01208  M01S00266.ns22000 +++|          ZR     X2,ERR      IF FILE NOT FOUND
01209  M01S00267.ns22000 +++|          AX2    6
01210  M01S00268.ns22000 +++|          SA0    =C* INPUT FILE CANNOT BE EXECUTE ONLY.*
01211  M01S00269.ns22000 +++|          BX2    -X1*X2
01212  M01S00270.ns22000 +++|          ZR     X2,ERR      IF INPUT FILE IS EXECUTE ONLY
01213  M01S00271.ns22000 +++|
01214  M01S00272.ns22000 +++|*         SET SPECIFIED IN-FILE FILE NAME.
01215  M01S00273.ns22000 +++|
01216  M01S00274.ns22000 +++|          SA2    I
01217  M01S00275.ns22000 +++|          BX2    -X0*X2
01218  M01S00276.ns22000 +++|          BX6    X5+X2
01219  M01S00277.ns22000 +++|          SA6    A2+
01220  M01S00278.ns22000 +++|          SX2    I
01221  M01S00279.ns22000 +++|          RJ     STF         SET TERMINAL FILE
Line S00280 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01222  M02S00280.v23l617 ---|          SA0    =C* TTY INPUT FILE NOT ALLOWED.*
01223  M01S00021.v23l617 +++|          SA0    =C* INTERACTIVE INPUT FILE NOT ALLOWED.*
01224  M01S00281.ns22000 +++|          ZR     X6,ERR      IF TERMINAL FILE
01225  M01S00282.ns22000 +++|          EQ     OPN11       INITIATE READ
01226  M01S00283.ns22000 +++|
01227  M01S00284.ns22000 +++|*         ACCESS RESPECTIVE DAYFILE.
01228  M01S00285.ns22000 +++|
01229  M01S00286.ns22000 +++| OPN2     SA1    DFTY
01230  M01S00287.ns22000 +++|          SB4    X1-ACTY
01231  M01S00288.ns22000 +++|          NZ     B4,OPN3     IF NOT ACCOUNT
01232  M01S00289.ns22000 +++|          DAYFILE  I,ACCOUNT
01233  M01S00290.ns22000 +++|          EQ     OPN7        CHECK CM BUFFER
01234  M01S00291.ns22000 +++|
01235  M01S00292.ns22000 +++| OPN3     SB4    X1-UDTY
01236  M01S00293.ns22000 +++|          NZ     B4,OPN4     IF NOT USER DAYFILE
01237  M01S00294.ns22000 +++|          DAYFILE  I,USER
01238  M01S00295.ns22000 +++|          EQ     OPN7        CHECK CM BUFFER
01239  M01S00296.ns22000 +++|
01240  M01S00297.ns22000 +++| OPN4     SB4    X1-SDTY
01241  M01S00298.ns22000 +++|          NZ     B4,OPN5     IF NOT SYSTEM DAYFILE
01242  M01S00299.ns22000 +++|          DAYFILE  I,DAYFILE
01243  M01S00300.ns22000 +++|          EQ     OPN7        CHECK CM BUFFER
01244  M01S00301.ns22000 +++|
01245  M01S00302.ns22000 +++| OPN5     SB4    X1-ELTY
01246  M01S00303.ns22000 +++|          NZ     B4,OPN6     IF NOT ERROR LOG
01247  M01S00304.ns22000 +++|          DAYFILE  I,ERRLOG
01248  M01S00305.ns22000 +++|          EQ     OPN7        CHECK CM BUFFER
01249  M01S00306.ns22000 +++|
01250  M01S00307.ns22000 +++| OPN6     DAYFILE  I,MAINLOG
01251  M01S00308.ns22000 +++| OPN7     SA1    X2          CHECK ERROR STATUS
01252  M01S00309.ns22000 +++|          MX0    -4
01253  M01S00310.ns22000 +++|          LX1    -10
01254  M01S00311.ns22000 +++|          BX2    -X0*X1
01255  M01S00312.ns22000 +++|          ZR     X2,OPN8     IF DAYFILE ATTACHED
01256  M01S00313.ns22000 +++|          SX2    X2-DFB
01257  M01S00314.ns22000 +++|          SA0    =C* UNABLE TO ACCESS DAYFILE.*
01258  M01S00315.ns22000 +++|          NZ     X2,ERR      IF NOT *DAYFILE BUSY* ERROR
01259  M01S00316.ns22000 +++|          RECALL
01260  M01S00317.ns22000 +++|          MESSAGE  OPNA,2    *WAITING FOR DAYFILE.*
01261  M01S00318.ns22000 +++|          EQ     OPN2        LOOP FOR RETRY
01262  M01S00319.ns22000 +++|
01263  M01S00320.ns22000 +++| OPN8     SA1    I+2         DETERMINE AMOUNT OF DATA IN CM BUFFER
01264  M01S00321.ns22000 +++|          SA2    A1+B1
01265  M01S00322.ns22000 +++|          IX6    X1-X2
01266  M01S00323.ns22000 +++|          SA6    WCCM
01267  M01S00324.ns22000 +++|          SA2    I+6         DETERMINE AMOUNT IN DISK FILE
01268  M01S00325.ns22000 +++|          BX7    X2
01269  M01S00326.ns22000 +++|          SA7    PRUS
01270  M01S00327.ns22000 +++|          SX1    X6-CBUFL-1
01271  M01S00328.ns22000 +++|          ZR     X6,OPN10    IF CM BUFFER EMPTY
01272  M01S00329.ns22000 +++|          NG     X1,OPN9     IF CM BUFFER WILL FIT IN HOLD AREA
01273  M01S00330.ns22000 +++|          SA0    =C* BUFFER TOO SMALL.*
01274  M01S00331.ns22000 +++|          EQ     ERR         PROCESS ERROR
01275  M01S00332.ns22000 +++|
01276  M01S00333.ns22000 +++| OPN9     SX5    X6+         SAVE CM BUFFER LENGTH
01277  M01S00334.ns22000 +++|          READW  I,CBUF,X5   SAVE CM BUFFER IMAGE
01278  M01S00335.ns22000 +++| OPN10    SA1    PRUS
01279  M01S00336.ns22000 +++|          ZR     X1,OPN12    IF DISK FILE EMPTY
01280  M01S00337.ns22000 +++| OPN11    READCW I           INITIATE DISK FILE READ
01281  M01S00338.ns22000 +++| OPN12    SA1    DFTY
01282  M01S00339.ns22000 +++|          SX1    X1-MLTY
01283  M01S00340.ns22000 +++|          NZ     X1,OPNX     IF NOT MAINTENANCE LOG
01284  M01S00341.ns22000 +++|
01285  M01S00342.ns22000 +++|*         OBTAIN THE CURRENT PACKED DATE/TIME AND THIS JOB-S JSN, AND
01286  M01S00343.ns22000 +++|*         MERGE THESE FIELDS INTO THE BML ERROR MESSAGES, SHOULD AN
01287  M01S00344.ns22000 +++|*         ERROR BE DETECTED.
01288  M01S00345.ns22000 +++|
01289  M01S00346.ns22000 +++|          PDATE  OPNC        GET PACKED DATE/TIME
01290  M01S00347.ns22000 +++|          GETJN  OPND        GET JSN
01291  M01S00348.ns22000 +++|          SA1    OPNC        MERGE PACKED DATE/TIME INTO MESSAGES
01292  M01S00349.ns22000 +++|          SA2    BFRE
01293  M01S00350.ns22000 +++|          BX6    X1+X2
01294  M01S00351.ns22000 +++|          SA6    A2
01295  M01S00352.ns22000 +++|          SA6    BFRS
01296  M01S00353.ns22000 +++|          ERRNZ  BREL-BRSL   ERROR IF MESSAGE LENGTHS DIFFER
01297  M01S00354.ns22000 +++|          SA1    A1+B1       JSN
01298  M01S00355.ns22000 +++|          ERRNZ  OPND-OPNC-1 ERROR IF FIELDS NOT ADJACENT
01299  M01S00356.ns22000 +++|          MX0    24
01300  M01S00357.ns22000 +++|          SA2    BFRE+1
01301  M01S00358.ns22000 +++|          BX1    X0*X1
01302  M01S00359.ns22000 +++|          LX1    -12         POSITION JSN
01303  M01S00360.ns22000 +++|          BX6    X2+X1       MERGE JSN INTO MESSAGE
01304  M01S00361.ns22000 +++|          SA6    A2
01305  M01S00362.ns22000 +++|          SA6    BFRS+1
01306  M01S00363.ns22000 +++|
01307  M01S00364.ns22000 +++|*         INITIATE BINARY FILE WRITE.
01308  M01S00365.ns22000 +++|
01309  M01S00366.ns22000 +++|          SA1    BNAM
01310  M01S00367.ns22000 +++|          ZR     X1,OPN13    IF FILE NAME DEFAULTED
01311  M01S00368.ns22000 +++|          SA2    B
01312  M01S00369.ns22000 +++|          MX0    42          SET FILE NAME
01313  M01S00370.ns22000 +++|          BX1    X0*X1
01314  M01S00371.ns22000 +++|          BX2    -X0*X2
01315  M01S00372.ns22000 +++|          BX6    X1+X2
01316  M01S00373.ns22000 +++|          SA6    A2+
01317  M01S00374.ns22000 +++| OPN13    SX2    B
01318  M01S00375.ns22000 +++|          RJ     STF         SET TERMINAL FILE
Line S00376 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01319  M02S00376.v23l617 ---|          SA0    =C* TTY BINARY OUT-FILE NOT ALLOWED.*
01320  M01S00022.v23l617 +++|          SA0    =C* INTERACTIVE BINARY OUT-FILE NOT ALLOWED.*
01321  M01S00377.ns22000 +++|          ZR     X6,ERR      IF TERMINAL FILE
01322  M01S00378.ns22000 +++|          EQ     OPNX        RETURN
01323  M01S00379.ns22000 +++|
01324  M01S00380.ns22000 +++|
01325  M01S00381.ns22000 +++| OPNA     DATA   C* WAITING FOR DAYFILE.*
01326  M01S00382.ns22000 +++| OPNB     VFD    42/0,6/5,11/0,1/1  BUFFER FOR *FILINFO* CALL
01327  M01S00383.ns22000 +++|          BSS    4
01328  M01S00384.ns22000 +++| OPNC     VFD    60/0        PACKED DATE/TIME
01329  M01S00385.ns22000 +++| OPND     VFD    60/0        JSN
01330  M01S00880.dayfile +++| RDC      SPACE  4,20
01331  M01S00881.dayfile +++|**        RDC - READ CODED LINE.
01332  M01S00882.dayfile +++|*
01333  M01S00883.dayfile +++|*         PROCESSES CALLS TO READ CODED LINE (*RDC=*).
01334  M01S00884.dayfile +++|*         DEBLOCKS DATA IF CONTROL WORD READS.
01335  M01S00885.dayfile +++|*
01336  M01S00886.dayfile +++|*         ENTRY  (X2) = FET ADDRESS.
01337  M01S00887.dayfile +++|*                (B6) = FWA OF WORKING STORAGE BUFFER.
01338  M01S00888.dayfile +++|*                (B7) = WORKING STORAGE BUFFER LENGTH.
01339  M01S00889.dayfile +++|*                (INAM) = .NE. 0, IF READING ALTERNATE INPUT FILE.
01340  M01S00890.dayfile +++|*                (PRUS) = NUMBER OF SECTORS REMAINING TO BE READ.
01341  M01S00891.dayfile +++|*
01342  M01S00892.dayfile +++|*         EXIT   (X1) = STATUS RETURNED FROM RDC=.
01343  M01S00893.dayfile +++|*                (X2-LWP) = LWA+1 OF DATA TRANSFERRED.
01344  M01S00894.dayfile +++|*                (B6) = LWA+1 OF DATA TRANSFERRED.
01345  M01S00895.dayfile +++|*
01346  M01S00896.dayfile +++|*         USES   X - 1, 3, 4, 6, 7.
01347  M01S00897.dayfile +++|*                A - 0, 1, 3, 6, 7.
01348  M01S00898.dayfile +++|*                B - 2, 5, 6, 7.
01349  M01S00899.dayfile +++|*
01350  M01S00900.dayfile +++|*         CALLS  GEM, ICP, RDC=, RDW=, UOP.
01351  M01S00901.dayfile +++|
01352  M01S00902.dayfile +++|
01353  M01S00903.dayfile +++| RDC9     SA3    RDCE        CHECK READ ERROR STATUS
01354  M01S00904.dayfile +++|          NG     X3,RDC7     IF READ ERROR ENCOUNTERED
01355  M01S00905.dayfile +++|
01356  M01S00906.dayfile +++| RDC      SUBR               ENTRY/EXIT
01357  M01S00907.dayfile +++|          SX6    B6          SAVE FWA OF WORKING STORAGE BUFFER
01358  M01S00908.dayfile +++|          SX7    B7          SAVE LENGTH OF WORKING STORAGE BUFFER
01359  M01S00909.dayfile +++|          SA6    RDCC
01360  M01S00910.dayfile +++|          SA7    RDCD
01361  M01S00911.dayfile +++|          SA6    RDCB
01362  M01S00912.dayfile +++| RDC1     SA1    X2-WRD      GET NUMBER OF WORDS BEFORE CONTROL WORD
01363  M01S00913.dayfile +++|          SB5    X1
01364  M01S00914.dayfile +++|          SX7    B7          SAVE LENGTH OF WORKING STORAGE BUFFER
01365  M01S00915.dayfile +++|          SA7    RDCA
01366  M01S00916.dayfile +++|          SA7    RDCE        SET NO READ ERROR ENCOUNTERED
01367  M01S00917.dayfile +++|          NG     X1,RDC4     IF FIRST READ
01368  M01S00918.dayfile +++|          GE     B5,B7,RDC2  IF ENOUGH DATA TO FILL BUFFER
01369  M01S00919.dayfile +++|          SB7    B5          SET WORDS TO READ
01370  M01S00920.dayfile +++|          ZR     B5,RDC3     IF NO DATA
01371  M01S00921.dayfile +++| RDC2     RJ     RDC=        READ CODED LINE
01372  M01S00922.dayfile +++|          SA3    RDCB        DETERMINE NUMBER OF WORDS TRANSFERRED
01373  M01S00923.dayfile +++|          SX6    B6
01374  M01S00924.dayfile +++|          SA6    A3          UPDATE FWA OF WORKING BUFFER
01375  M01S00925.dayfile +++|          IX6    X6-X3
01376  M01S00926.dayfile +++|          SA3    RDCA        UNUSED WORDS IN WORKING STORAGE BUFFER
01377  M01S00927.dayfile +++|          IX7    X3-X6
01378  M01S00928.dayfile +++|          SA7    A3
01379  M01S00929.dayfile +++|          SA3    X2-WRD      UPDATE WORDS LEFT IN PRU (NOT TRANSFERRED)
01380  M01S00930.dayfile +++|          IX6    X3-X6
01381  M01S00931.dayfile +++|          SA6    A3
01382  M01S00932.dayfile +++|          SA3    B6-B1       GET LAST WORD TRANSFERRED
01383  M01S00933.dayfile +++|          BX6    X4
01384  M01S00934.dayfile +++|          SA6    A3
01385  M01S00935.dayfile +++|          BX6    X3-X4
01386  M01S00936.dayfile +++|          ZR     X6,RDC9     IF COMPLETE MESSAGE
01387  M01S00937.dayfile +++|          ZR     X7,RDC9     IF WORKING STORAGE BUFFER FULL
01388  M01S00938.dayfile +++|
01389  M01S00939.dayfile +++|*         PROCESS *CIO* TRAILING CONTROL WORD.
01390  M01S00940.dayfile +++|
01391  M01S00941.dayfile +++| RDC3     SB7    B1          READ TRAILING CONTROL WORD
01392  M01S00942.dayfile +++|          RJ     RDW=
01393  M01S00943.dayfile +++|          SB6    B6-B1       BACK UP LWA TO ALLOW FOR CONTROL WORD
01394  M01S00944.dayfile +++|          SA3    X2-ERF      CHECK EOR FLAG
01395  M01S00945.dayfile +++|          PL     X3,RDC4     IF NOT EOR BLOCK
01396  M01S00946.dayfile +++|          MX6    1           SET NEW READ FLAG
01397  M01S00947.dayfile +++|          SA6    X2-ERF
01398  M01S00948.dayfile +++|          SA6    X2-WRD
01399  M01S00949.dayfile +++|          NG     X1,RDC9     IF EOF/EOI ENCOUNTERED
01400  M01S00950.dayfile +++|          SX1    B6          SET EOR EXIT CONDITION
01401  M01S00951.dayfile +++|          EQ     RDC9        RETURN
01402  M01S00952.dayfile +++|
01403  M01S00953.dayfile +++|*         CHECK SECTOR COUNT TO DETERMINE IF DATA SHOULD BE READ
01404  M01S00954.dayfile +++|*         FROM THE DISK FILE OR FROM *CBUF*.
01405  M01S00955.dayfile +++|
01406  M01S00956.dayfile +++| RDC4     SA1    PRUS        CHECK PRU COUNT
01407  M01S00957.dayfile +++|          SX6    B1
01408  M01S00958.dayfile +++|          IX6    X1-X6
01409  M01S00959.dayfile +++|          NZ     X1,RDC5     IF MORE PRU-S TO READ FROM DISK
01410  M01S00960.dayfile +++|          RJ     ICP         INITIALIZE CM BUFFER PROCESSING
01411  M01S00961.dayfile +++|          NG     X1,RDCX     IF EOF/EOI ENCOUNTERED
01412  M01S00962.dayfile +++|          EQ     RDC1        LOOP
01413  M01S00963.dayfile +++|
01414  M01S00964.dayfile +++| RDC5     SA6    A1          UPDATE SECTOR COUNT
01415  M01S00965.dayfile +++|
01416  M01S00966.dayfile +++|*         PROCESS *CIO* HEADER CONTROL WORD.
01417  M01S00967.dayfile +++|
01418  M01S00968.dayfile +++|          SB7    B1          READ CONTROL WORD
01419  M01S00969.dayfile +++|          RJ     RDW=
01420  M01S00970.dayfile +++|          PL     X1,RDC6     IF NOT EOF/EOI
01421  M01S00971.dayfile +++|          SA3    INAM
01422  M01S00972.dayfile +++|          NZ     X3,RDCX     IF EOF/EOI ON ALTERNATE INPUT FILE
01423  M01S00973.dayfile +++|          SA0    =C* UNEXPECTED EOF/EOI ENCOUNTERED.*
01424  M01S00974.dayfile +++|          EQ     ERR         PREMATURE EOF/EOI
01425  M01S00975.dayfile +++|
01426  M01S00976.dayfile +++| RDC6     SB6    B6-B1       BACK UP WORKING BUFFER
01427  M01S00977.dayfile +++|          SA1    B6          SET BLOCK SIZE FROM CONTROL WORD
01428  M01S00978.dayfile +++|          SX7    5
01429  M01S00979.dayfile +++|          BX3    X1
01430  M01S00980.dayfile +++|          SX4    X1+4        ROUND UP
01431  M01S00981.dayfile +++|          AX1    36
01432  M01S00982.dayfile +++|          SX6    X1
01433  M01S00983.dayfile +++|          IX7    X4/X7       SET NUMBER OF WORDS BEFORE CONTROL WORD
01434  M01S00984.dayfile +++|          IX6    X7-X6       SET EOR FLAG
01435  M01S00985.dayfile +++|          SA7    X2-WRD
01436  M01S00986.dayfile +++|          SA6    X2-ERF
01437  M01S00987.dayfile +++|          PL     X3,RDC8     IF NO ERRORS
01438  M01S00988.dayfile +++|
01439  M01S00989.dayfile +++|*         THE READ ERROR PROCESS IGNORES ALL MESSAGES WHICH MAY
01440  M01S00990.dayfile +++|*         CONSIST OF ANY BAD SECTOR DATA.
01441  M01S00991.dayfile +++|
01442  M01S00992.dayfile +++|          SX7    X7+B1
01443  M01S00993.dayfile +++|          RJ     UOP         UPDATE OUT POINTER
01444  M01S00994.dayfile +++|          MX6    1           SET NEW READ FLAGS
01445  M01S00995.dayfile +++|          SA6    X2-ERF
01446  M01S00996.dayfile +++|          SA6    A6+B1
01447  M01S00997.dayfile +++|          SA6    RDCE        FLAG READ ERROR
01448  M01S00998.dayfile +++|          SB2    REMC        *DATA LOST.*
01449  M01S00999.dayfile +++|          RJ     GEM         GENERATE ERROR MESSAGE
01450  M01S01000.dayfile +++| RDC7     SA1    RDCC        RESET FWA OF WORKING STORAGE BUFFER
01451  M01S01001.dayfile +++|          SA3    RDCD        SET LENGTH OF REQUESTED TRANSFER
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/dayfile.txt ยท Last modified: by 127.0.0.1