User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comktif

Common COMKTIF

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comktif +++|          CTEXT  COMKTIF - *TAF* INITIALIZATION FILE DEFINITIONS.
00002  M00S00002.comktif +++|          SPACE  4,10
00003  M00S00003.comktif +++|          BASE   DECIMAL
Line S00004 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1980.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M00S00005.comktif +++| TIF      SPACE  4,40
00007  M00S00006.comktif +++|***       TIF - *TAF* INITIALIZATION FILE DEFINITIONS.
00008  M00S00007.comktif +++|*
00009  M00S00008.comktif +++|*         R. G. PARKHOUSE.   80/04/15.
00010  M00S00009.comktif +++|          SPACE  4,25
00011  M00S00010.comktif +++|***       *COMKTIF* PROVIDES A DESCRIPTION AND COMMON
00012  M00S00011.comktif +++|*         DEFINITIONS OF THE *TAF* INITIALIZATION FILE FOR *TAFREC*,
00013  M00S00012.comktif +++|*         *TAF1* AND *TAF2*.
00014  M00S00013.comktif +++|*
00015  M00S00014.comktif +++|*         THE *TIF* IS A SEQUENTIAL FILE CREATED BY *TAFREC* DURING
00016  M00S00015.comktif +++|*         INITIALIZATION.  IF THE *TIF* IS LOCAL WHEN *TAFREC* BEGINS
00017  M00S00016.comktif +++|*         EXECUTION, IT INDICATES *TAF* RESTART.  THAT IS, *TAF* HAS
00018  M00S00017.comktif +++|*         ABORTED, BUT *TAF2* GAINED CONTROL DUE TO THE *EXIT*
00019  M00S00018.comktif +++|*         STATEMENT IN THE PROCEDURE FILE, TO CLEAN UP.  FOLLOWING
00020  M00S00019.comktif +++|*         CONTROL STATEMENTS TRANSFERRED CONTROL BACK TO *TAFREC*.
00021  M00S00020.comktif +++|*
00022  M00S00021.comktif +++|*         THE FILE LAYOUT IS -
00023  M00S00022.comktif +++|*
00024  M00S00023.comktif +++|*T  W1    58/ ,1/ C,1/ R
Figure W1

01229 R C 3059

00025  M00S00024.comktif +++|*T, W2    60/          LOW CM V-SYMBOLS
Figure W2

029 LOW CM V-SYMBOLS3059 LOW CM V-SYMBOLS

00026  M00S00025.comktif +++|*T,       60/            DEFINED BY
Figure

029 DEFINED BY3059 DEFINED BY

00027  M00S00026.comktif +++|*T,       60/             *COMSTRX*
Figure

029 *COMSTRX*3059 *COMSTRX*

00028  M00S00027.comktif +++|*T, W(I)  60/
Figure W(I)

0293059

00029  M00S00028.comktif +++|*T, W(J)  60/ TSTL
Figure W(J)

029 TSTL3059 TSTL

00030  M00S00029.comktif +++|*T,       60/            TERMINAL
Figure

029 TERMINAL3059 TERMINAL

00031  M00S00030.comktif +++|*T,       60/             STATUS
Figure

029 STATUS3059 STATUS

00032  M00S00031.comktif +++|*T, W(N)  60/             TABLE.
Figure W(N)

029 TABLE.3059 TABLE.

00033  M00S00032.comktif +++|*
00034  M00S00033.comktif +++|*         WHERE
00035  M00S00034.comktif +++|*                C    = 1, IF *CRM* RECOVERY FILE IS TO BE INITIALIZED.
00036  M00S00035.comktif +++|*                R    = 1, IF *TAF* IS TO BE RESTARTED.
00037  M00S00036.comktif +++|*                I    = 2+VLOCL  (*VLOCL* DEFINED IN *COMSTRX*).
00038  M00S00037.comktif +++|*                J    = I+1.
00039  M00S00038.comktif +++|*                TSTL = LENGTH OF TERMINAL STATUS TABLE.
00040  M00S00039.comktif +++|*                N    = J+TSTL.
00041  M00S00040.comktif +++|*
00042  M00S00041.comktif +++|*         *TAF1* WILL READ THE *TIF* FILE AND LOAD THE V-SYMBOLS AND
00043  M00S00042.comktif +++|*         *TST* INTO MEMORY.  IF NOT TAF RESTART, *TAF1* WILL
00044  M00S00043.comktif +++|*         INITIALIZE V-SYMBOLS WHICH COULD NOT BE INITIALIZED IN
00045  M00S00044.comktif +++|*         *TAFREC*.  *TAF1* REWINDS THE *TIF* FILE AND WRITES ALL
00046  M00S00045.comktif +++|*         INITIALIZED V-SYMBOLS BACK OVER THE *TIF*.
00047  M00S00046.comktif +++|
00048  M00S00047.comktif +++|
00049  M00S00048.comktif +++| TICR     FIELD  0,1,1       1, IF INITIALIZE *CRM* RECOVERY FILE
00050  M00S00049.comktif +++| TIRF     FIELD  0,0,0       1, IF *TAF* RESTART
00051  M00S00050.comktif +++|
00052  M00S00051.comktif +++|
00053  M00S00052.comktif +++| TIF      MICRO  1,,*ZZTIF*  *TAF* INITIALIZATION FILE
00054  M00S00053.comktif +++|
00055  M00S00054.comktif +++|
00056  M00S00055.comktif +++|          BASE   *
00057  M00S00056.comktif +++| TIF      ENDX
cdc/nos2.source/opl.opl871/common/comktif.txt ยท Last modified: (external edit)