Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.itask +++| IDENT ITASK
00002 M00S00002.itask +++| ENTRY ITASK
00003 M00S00003.itask +++| LCC OVERLAY(ITASK,0,0)
| Line S00004 Modification History |
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
00004 M01S00004.253l688 ---| SST BEGN
| Line S00001 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
00005 M01S00001.253l688 +++| SST BEGN,CMBL
00006 M00S00005.itask +++| SYSCOM B1
00007 M00S00006.itask +++|
00008 M00S00007.itask +++|*COMMENT INITIAL TASK.
| Line S00008 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00009 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00011 M00S00009.itask +++| ITASK TITLE INITIAL TASK.
00012 M00S00010.itask +++|
00013 M00S00011.itask +++|*** INITIAL TASK
00014 M00S00012.itask +++|* M. M. CHEN 1977.
00015 M00S00013.itask +++|* E. D. REDIG. 80/06/20. *TAF* AUTOMATIC RECOVERY.
00016 M00S00014.itask +++| SPACE 4,15
00017 M00S00015.itask +++|*** INITIALIZE TASK IS THE INTERFACE BETWEEN THE TRANSACTION
00018 M00S00016.itask +++|* EXECUTIVE AND USER-S APPLICATION TASK. *ITASK* PROCESSES
00019 M00S00017.itask +++|* ALL TRANSACTION INPUT TO DETERMINE WHICH TRANSACTION UNIT
00020 M00S00018.itask +++|* TO CALL TO FURTHER PROCESS THE INPUT, AND STATUS MESSAGES
00021 M00S00019.itask +++|* CONCERNING THE STATE OF THE TRANSACTION SYSTEM.
00022 M00S00020.itask +++|*
00023 M00S00021.itask +++|* BECAUSE TRANSACTION INPUT WILL VARY FROM APPLICATION TO
00024 M00S00022.itask +++|* APPLICATION, INITIAL TASK WILL HAVE TO VARY TO ADAPT TO
00025 M00S00023.itask +++|* DIFFERENT INPUT FORMATS AND OPERATIONAL CONDITIONS. THIS
00026 M00S00024.itask +++|* INITIAL TASK IS PROVIDED TO SERVE AS AN EXAMPLE. EACH
00027 M00S00025.itask +++|* INSTALLATION WILL NEED ITS OWN INITIAL TASK TO SERVE ITS OWN
00028 M00S00026.itask +++|* SPECIFIC NEEDS.
00029 M00S00027.itask +++|
00030 M00S00028.itask +++|
00031 M00S00029.itask +++| MACROS TITLE MACROS
00032 M00S00030.itask +++|*CALL COMKTAF
00033 M00S00031.itask +++|*CALL COMKFLD
00034 M00S00032.itask +++|*CALL COMKIPR
00035 M00S00033.itask +++|*CALL COMKMAC
00036 M00S00034.itask +++| BEGN BSS 0 SAVE ORIGIN COUNTER
00037 M00S00035.itask +++|*CALL COMKCBD
00038 M00S00036.itask +++| ORG BEGN RESTORE ORIGIN COUNTER
00039 M00S00037.itask +++|
00040 M00S00038.itask +++| NOREF .1,.2
00041 M00S00039.itask +++| .1 SET 0
00042 M00S00040.itask +++| .2 SET 0
00043 M00S00041.itask +++| TIMCNT SPACE 4
00044 M00S00042.itask +++|** TIMCNT - DEFINE A TIME ORIGINATING TASK.
00045 M00S00043.itask +++|*
00046 M00S00044.itask +++|
00047 M00S00045.itask +++|
00048 M00S00046.itask +++| PURGMAC TIMCNT
00049 M00S00047.itask +++|
00050 M00S00048.itask +++| TIMCNT MACRO HH,MM,SS,ADDR
00051 M00S00049.itask +++| VFD 18/ADDR,24/0,6/HH,6/MM,6/SS
00052 M00S00050.itask +++| ENDM
00053 M00S00051.itask +++| TRAN SPACE 4,20
00054 M00S00052.itask +++|** TRAN - DEFINE A TRANSACTION CODE.
00055 M00S00053.itask +++|*
00056 M00S00054.itask +++|* THE *TRAN* MACRO SETS UP ENTRIES FOR THE TABLE OF
00057 M00S00055.itask +++|* TRANSACTION CODES *TRANT*. NOTE - A PARTICULAR
00058 M00S00056.itask +++|* TRAN ENTRY SETS UP THE TRANT ENTRY FOR THE PRECEDING
00059 M00S00057.itask +++|* DECLARED TRANSACTION CODE. *ITASK* ASSUMES THAT
00060 M00S00058.itask +++|* THE *TRANT* TABLE IS SET UP IN DISPLAY ORDER. IT
00061 M00S00059.itask +++|* USES THE DISPLAY CODE VALUE OF THE TRANSACTION CODE
00062 M00S00060.itask +++|* ENTERED BY THE USER TO LOCATE THE PROPER ENTRY IN
00063 M00S00061.itask +++|* *TRANT*.
00064 M00S00062.itask +++|*
00065 M00S00063.itask +++|* TRAN CODE
00066 M00S00064.itask +++|*
00067 M00S00065.itask +++|* ENTRY CODE = ONE-CHARACTER TRANSACTION CODE.
00068 M00S00066.itask +++|* TRANS = SYMBOL SPECIFYING THE RELATIVE ADDRESS
00069 M00S00067.itask +++|* OF SUBTRANSACTION CODES.
00070 M00S00068.itask +++|*
00071 M00S00069.itask +++|* EXIT ENTRY MADE INTO THE TABLE OF TRANSACTION
00072 M00S00070.itask +++|* CODES *TRANT*.
00073 M00S00071.itask +++|
00074 M00S00072.itask +++|
00075 M00S00073.itask +++| PURGMAC TRAN
00076 M00S00074.itask +++|
00077 M00S00075.itask +++| TRAN MACRO A
00078 M00S00076.itask +++| VFD 12/2000B+.1,48/TRANS+.2
00079 M00S00077.itask +++| .2 SET .2+.1
00080 M00S00078.itask +++| .1 SET 0
00081 M00S00079.itask +++| ENDM
00082 M00S00080.itask +++| STRAN SPACE 4,15
00083 M00S00081.itask +++|** STRAN - DEFINE A SUBTRANSACTION CODE.
00084 M00S00082.itask +++|*
00085 M00S00083.itask +++|* THE *STRAN* MACRO MAKES ENTRIES IN THE TABLE OF
00086 M00S00084.itask +++|* SUBTRANSACTION CODES *TRANS*. *TRANS* CONTAINS THE
00087 M00S00085.itask +++|* SUBTRANSACTION CODE AND THE CORRESPONDING NAME OF
00088 M00S00086.itask +++|* THE TRANSACTION UNIT.
00089 M00S00087.itask +++|*
00090 M00S00088.itask +++|* STRAN CODE,TNAME
00091 M00S00089.itask +++|*
00092 M00S00090.itask +++|* ENTRY CODE = TWO-CHARACTER SUBTRANSACTION CODE.
00093 M00S00091.itask +++|* TNAME = NAME OF THE TRANSACTION UNIT TO BE CALLED.
00094 M00S00092.itask +++|*
00095 M00S00093.itask +++|* EXIT ENTRY MADE INTO THE TABLE OF SUBTRANSACTION
00096 M00S00094.itask +++|* CODES *TRANS*.
00097 M00S00095.itask +++|
00098 M00S00096.itask +++|
00099 M00S00097.itask +++| PURGMAC STRAN
00100 M00S00098.itask +++|
00101 M00S00099.itask +++| STRAN MACRO CODE,TNAME
00102 M00S00100.itask +++| STRAN RMT
00103 M00S00101.itask +++| VFD 12/0H_CODE,6/0,42/0L_TNAME
00104 M00S00102.itask +++| STRAN RMT
00105 M00S00103.itask +++| .1 SET .1+1 ADVANCE SUB TRANSACTION CODE COUNT
00106 M00S00104.itask +++| ENDM
00107 M00S00105.itask +++|
00108 M00S00106.itask +++|
00109 M00S00107.itask +++| BSS CMBL RESERVE SPACE FOR COMMUNICATION BLOCK
00110 M00S00108.itask +++| TABLES TITLE TRANSACTION TABLES.
00111 M00S00109.itask +++| TRANT SPACE 4,20
00112 M00S00110.itask +++|** TRANT - TRANSACTION CODE TABLE.
00113 M00S00111.itask +++|*
00114 M00S00112.itask +++|* EACH GROUP OF ENTRIES RELATING TO THE SAME TRANSACTION
00115 M00S00113.itask +++|* CODE IS PLACED IMMEDIATELY FOLLOWING THE *TRANT* ENTRY
00116 M00S00114.itask +++|* FOR THAT CODE, ALTHOUGH THE SUBTRANSACTION TABLE IS
00117 M00S00115.itask +++|* ASSEMBLED ELSEWHERE. THE FOLLOWING IS AN EXAMPLE OF
00118 M00S00116.itask +++|* THE USE OF THE *TRAN* AND *STRAN* MACROS.
00119 M00S00117.itask +++|*
00120 M00S00118.itask +++|* TRANT BSS 0
00121 M00S00119.itask +++|*
00122 M00S00120.itask +++|* TRAN A
00123 M00S00121.itask +++|*
00124 M00S00122.itask +++|* STRAN 02,TNAME1
00125 M00S00123.itask +++|*
00126 M00S00124.itask +++|* STRAN 03,TNAME2
00127 M00S00125.itask +++|*
00128 M00S00126.itask +++|* WHERE, *A* IS THE TRANSACTION CODE, *02* AND *03* ARE
00129 M00S00127.itask +++|* THE SUBTRANSACTION CODES, AND *TNAME1* AND *TNAME2*
00130 M00S00128.itask +++|* ARE THE RESPECTIVE TRANSACTION UNITS TO BE REQUESTED.
00131 M00S00129.itask +++|*
00132 M00S00130.itask +++|* THE DECLARATION OF A TRANSACTION UNIT AND THE ASSOCIATION
00133 M00S00131.itask +++|* OF ATTRIBUTES WITH IT IS ACCOMPLISHED THROUGH *LIBTASK*
00134 M00S00132.itask +++|* DIRECTIVES.
00135 M00S00133.itask +++|
00136 M00S00134.itask +++|
00137 M00S00135.itask +++| TRANT BSS 0
00138 M00S00136.itask +++| LOC 1
00139 M00S00137.itask +++| TRAN A
00140 M00S00138.itask +++| TRAN B
00141 M00S00139.itask +++| TRAN C
00142 M00S00140.itask +++| TRAN D
00143 M00S00141.itask +++| TRAN E
00144 M00S00142.itask +++| STRAN (X.),XTRAN EXECUTE NAMED TASK
00145 M00S00143.itask +++|
00146 M00S00144.itask +++|* CAUTION: THE FOLLOWING IS AN EXAMPLE OF A *LIBTASK*
00147 M00S00145.itask +++|* DIRECTIVE NEEDED FOR THE TRANSACTION UNIT *XTRAN*.
00148 M00S00146.itask +++|*
00149 M00S00147.itask +++|* /XTRAN,T1=XTASK
00150 M00S00148.itask +++|
00151 M00S00149.itask +++| TRAN F
00152 M00S00150.itask +++| TRAN G
00153 M00S00151.itask +++| TRAN H
00154 M00S00152.itask +++| TRAN I
00155 M00S00153.itask +++| TRAN J
00156 M00S00154.itask +++| TRAN K
00157 M00S00155.itask +++| TRAN L
00158 M00S00156.itask +++| TRAN M
00159 M00S00157.itask +++| TRAN N
00160 M00S00158.itask +++| TRAN O
00161 M00S00159.itask +++| TRAN P
00162 M00S00160.itask +++| TRAN Q
00163 M00S00161.itask +++| TRAN R
00164 M00S00162.itask +++| TRAN S
00165 M00S00163.itask +++| TRAN T
00166 M00S00164.itask +++| TRAN U
00167 M00S00165.itask +++| TRAN V
00168 M00S00166.itask +++| TRAN W
00169 M00S00167.itask +++| TRAN X
00170 M00S00168.itask +++| TRAN Y
00171 M00S00169.itask +++| TRAN Z
00172 M00S00170.itask +++| TRAN 0
00173 M00S00171.itask +++| TRAN 1
00174 M00S00172.itask +++| TRAN 2
00175 M00S00173.itask +++| TRAN 3
00176 M00S00174.itask +++| TRAN 4
00177 M00S00175.itask +++| TRAN 5
00178 M00S00176.itask +++| TRAN 6
00179 M00S00177.itask +++| TRAN 7
00180 M00S00178.itask +++| TRAN 8
00181 M00S00179.itask +++| TRAN 9
00182 M00S00180.itask +++| TRAN +
00183 M00S00181.itask +++| TRAN -
00184 M00S00182.itask +++| TRAN *
00185 M00S00183.itask +++| TRAN /
00186 M00S00184.itask +++| TRAN )
00187 M00S00185.itask +++| TRAN (
00188 M00S00186.itask +++| TRAN $
00189 M00S00187.itask +++| TRAN =
00190 M00S00188.itask +++| TRAN 1R
00191 M00S00189.itask +++| TRAN ,
00192 M00S00190.itask +++| TRAN .
00193 M00S00191.itask +++| TRAN #
00194 M00S00192.itask +++| TRAN [
00195 M00S00193.itask +++| TRAN ]
00196 M00S00194.itask +++| TRAN :
00197 M00S00195.itask +++| TRAN "
00198 M00S00196.itask +++| TRAN _
00199 M00S00197.itask +++| TRAN !
00200 M00S00198.itask +++| TRAN &
00201 M00S00199.itask +++| TRAN '
00202 M00S00200.itask +++| TRAN ?
00203 M00S00201.itask +++| TRAN <
00204 M00S00202.itask +++| TRAN :
00205 M00S00203.itask +++| TRAN
00206 M00S00204.itask +++| TRAN \
00207 M00S00205.itask +++| TRAN
00208 M00S00206.itask +++| TRAN ;
00209 M00S00207.itask +++| TRAN
00210 M00S00208.itask +++| LOC *O
00211 M00S00209.itask +++| STAN SPACE 4,10
00212 M00S00210.itask +++|** SUBTRANSACTION CODE TABLES.
00213 M00S00211.itask +++|*
00214 M00S00212.itask +++|
00215 M00S00213.itask +++|
00216 M00S00214.itask +++| TRANS BSS 0
00217 M00S00215.itask +++| STRAN HERE
00218 M00S00216.itask +++| TTOT SPACE 4,10
00219 M00S00217.itask +++|** TABLE OF TIME ORIGINATING TASKS.
00220 M00S00218.itask +++|* TIMCNT MACROS WOULD BE PUT IN THIS TABLE.
00221 M00S00219.itask +++|
00222 M00S00220.itask +++|
00223 M00S00221.itask +++| TTOT BSS 0
00224 M00S00222.itask +++| TTOTL EQU *-TTOT
00225 M00S00223.itask +++|
00226 M00S00224.itask +++|
00227 M00S00225.itask +++| ITASK TITLE ITASK
00228 M00S00226.itask +++| ITASK SPACE 4,80
00229 M00S00227.itask +++|** ITASK - PROCESS TRANSACTION INPUT.
00230 M00S00228.itask +++|*
00231 M00S00229.itask +++|* *ITASK* EXTRACTS THE DATA BASE NAME FROM THE COMMUNICATION
00232 M00S00230.itask +++|* BLOCK AND SEARCHES A DATA BASE NAME TABLE TO DETERMINE WHAT
00233 M00S00231.itask +++|* INPUT PROCESSING IS NECESSARY.
00234 M00S00232.itask +++|*
00235 M00S00233.itask +++|* *ITASK* MAY BE CALLED WITH SYSTEM ORIGIN TRANSACTIONS,
00236 M00S00234.itask +++|* WITH THE TYPE OF CALL IN WORD *TMSW* OF THE COMMUNICATION
00237 M00S00235.itask +++|* BLOCK.
00238 M00S00236.itask +++|*
00239 M00S00237.itask +++|* ENTRY (TRSQ) = 12/ DB,24/ UA,24/ SEQ
00240 M00S00238.itask +++|* (TNAM) = 42/ TN,1/S,1/P,1/B,2/ ,1/M,12/WC
00241 M00S00239.itask +++|* (TMSW) = MESSAGE IF S .EQ. 0.
00242 M00S00240.itask +++|* = RC IF S .EQ. 1.
00243 M00S00241.itask +++|*
00244 M00S00242.itask +++|* DB DATA BASE FOR TERMINAL
00245 M00S00243.itask +++|* UA USER ARGUMENT FIELD FOR TERMINAL
00246 M00S00244.itask +++|* SEQ TRANSACTION SEQUENCE NUMBER
00247 M00S00245.itask +++|* TN TERMINAL NAME
00248 M00S00246.itask +++|*
00249 M00S00247.itask +++|* S =1 IF SYSTEM ORIGIN TRANSACTION.
00250 M00S00248.itask +++|* P =1 IF PARITY ERROR OCCURRED ON TERMINAL INPUT.
00251 M00S00249.itask +++|* B =1 IF TRANSACTION INPUT CAME FROM BATCH.
00252 M00S00250.itask +++|* M =1 IF MULTIPLE COMMUNICATION BLOCKS USED.
00253 M00S00251.itask +++|* WC MESSAGE LENGTH IN WORDS.
00254 M00S00252.itask +++|*
00255 M00S00253.itask +++|* RC = 1 IMPLIES SYSTEM TIMED ACTIVATION.
00256 M00S00254.itask +++|* = 2 IMPLIES IDLE DOWN (K.IDLE).
00257 M00S00255.itask +++|* = 3 IMPLIES RECOVERY HAS TAKEN PLACE.
00258 M00S00256.itask +++|* = 4 IMPLIES TERMINAL LOGIN.
00259 M00S00257.itask +++|* = 5 IMPLIES SYSTEM MESSAGE.
00260 M00S00258.itask +++|* SYSTEM MESSAGE IS HANDLED BY *SYSMSG* TASK
00261 M00S00259.itask +++|* NOT BY ITASK.
00262 M00S00260.itask +++|* = 6 IMPLIES TERMINAL BREAK FROM NAM.
00263 M00S00261.itask +++|* = 7 IMPLIES TERMINAL CONNECTION BROKEN FROM NAM
00264 M00S00262.itask +++|* = 8 IMPLIES NETWORK SHUT DOWN -NORMAL.
00265 M00S00263.itask +++|* = 9 IMPLIES NAM ABORTED.
00266 M00S00264.itask +++|* = 10 IMPLIES NETWORK SHUT DOWN - FORCED.
00267 M00S00265.itask +++|* = 11 IMPLIES TERMINAL INACTIVE.
| Line S00266 Modification History |
M01 (Removed by) | ns2337 |
Seq # *Modification Id* Act
----------------------------+
00268 M01S00266.ns2337 ---|* = 12 IMPLIES STOP ON DOWN LINE CONNECTION.
00269 M01S00267.ns2337 ---|* = 13 IMPLIES START ON DOWN LINE CONNECTION.
00270 M00S00268.itask +++|* = 14 IMPLIES LOGICAL ERROR.
00271 M00S00269.itask +++|* = 15 IMPLIES BLOCK NOT DELIVERED.
00272 M00S00270.itask +++|* = 16 IMPLIES TERMINAL CHARACTERISTICS.
00273 M00S00271.itask +++|* = 17 IMPLIES INPUT TOO LARGE.
00274 M00S00272.itask +++|* = 18 IMPLIES TERMINAL STATUS REQUEST.
00275 M00S00273.itask +++|*
00276 M00S00274.itask +++|* SEE COMMON DECK *COMKSTC* FOR SYBOLS AND THEIR VALUES.
00277 M00S00275.itask +++|*
00278 M00S00276.itask +++|* FOR CODES 1, 2, 3, 8, 9, AND 10
00279 M00S00277.itask +++|* THE COMMUNICATION BLOCK HEADER CONTAINS ZERO FOR TERMINAL
00280 M00S00278.itask +++|* NAME AND USER AREA, THE DATA BASE IS *SY* WITH SECURITY
00281 M00S00279.itask +++|* CODES OF 7.
00282 M00S00280.itask +++|*
00283 M00S00281.itask +++|* FOR CODE 4, THE COMMUNICATION BLOCK HEADER IS SET UP WITH
00284 M00S00282.itask +++|* THE FOLLOWING INFORMATION FOR THE TERMINAL LOGGED IN.
00285 M00S00283.itask +++|*
00286 M00S00284.itask +++|* (TMSW+1) = 23/ ,12/BSZ,1/HW/8/DT,8/PW,8/PL
00287 M00S00285.itask +++|*
00288 M00S00286.itask +++|* BSZ = BLOCK SIZE. (IN CHARACTERS, BITS 25-37)
00289 M00S00287.itask +++|* HW = HARD WIRED LINE. (BIT 24)
00290 M00S00288.itask +++|* DT = DEVICE TYPE/TERMINAL CLASS. (BIT 16-23)
00291 M00S00289.itask +++|* PW = PAGE WIDTH OF TERMINAL. (BIT 8-15)
00292 M00S00290.itask +++|* PL = PAGE LENGTH OF TERMINAL. (BIT 0-7)
00293 M00S00291.itask +++|*
00294 M00S00292.itask +++|* FOR CODES 6, 7, AND 11 - 17
00295 M00S00293.itask +++|* THE COMMUNICATION BLOCK IS SET UP WITH NORMAL SEQUENCE
00296 M00S00294.itask +++|* NUMBER, TERMINAL NAME OF MALFUNCTION, THE DATA BASE FOR
00297 M00S00295.itask +++|* THE TERMINAL, READ AND UPDATE SECURITY OF 7 AND THE NETWORK
00298 M00S00296.itask +++|* SUPERVISORY MESSAGE IS FORMED IN (TMSW+1).
00299 M00S00297.itask +++|*
00300 M00S00298.itask +++|* THE FORMATS OF NETWORK SUPERVISORY MESSAGES ARE GIVEN IN
00301 M00S00299.itask +++|* COMMON DECK *COMKNWF*. THE VALUES FOR THE FIELDS ARE GIVEN
00302 M00S00300.itask +++|* IN COMMON DECK *COMSNCD*.
00303 M00S00301.itask +++|*
00304 M00S00302.itask +++|* USES A - 1, 2, 5, 6, 7.
00305 M00S00303.itask +++|* B - 3.
00306 M00S00304.itask +++|* X - 0, 1, 2, 5, 6, 7.
00307 M00S00305.itask +++|*
00308 M00S00306.itask +++|* CALLS BIN, CBT, CCS, CTL, CYB.
00309 M00S00307.itask +++|*
00310 M00S00308.itask +++|* MACROS CALLTRN, CALLTSK, CEASE, FMSG, JOURNL, SCALL, SEND.
00311 M00S00309.itask +++|
00312 M00S00310.itask +++|
00313 M00S00311.itask +++| ITASK SB1 1 ENTRY
00314 M00S00312.itask +++| SA2 TNAM
00315 M00S00313.itask +++| SA5 A2+B1 SYSTEM TRANSACTION CODE
00316 M00S00314.itask +++| LX2 59-CBSYS LEFT JUSTIFY SYSTEM ORIGIN
00317 M00S00315.itask +++| SA1 A2-B1
00318 M00S00316.itask +++| SX0 X5
00319 M00S00317.itask +++| NG X2,ITA1 IF SYSTEM ORIGIN TRANSACTION
00320 M00S00318.itask +++| BX3 X2
00321 M00S00319.itask +++| LX2 59-CBIDS-59+CBSYS
00322 M00S00320.itask +++| NG X2,ITA15 IF OPERATOR IDLE DOWN
00323 M00S00321.itask +++| LX3 59-CBCDS-59+CBSYS
00324 M00S00322.itask +++| NG X3,ITA16 IF CDCS ABORTED
00325 M00S00323.itask +++|
00326 M00S00324.itask +++|* IF INPUT FOUND IN TRANSACTION, SUBTRANSACTION TABLES
00327 M00S00325.itask +++|* SCHEDULE TRANSACTION UNIT SPECIFIED BY TABLES. OTHERWISE
00328 M00S00326.itask +++|* USE INPUT AS TRANSACTION UNIT TO SCHEDULE.
00329 M00S00327.itask +++|
00330 M00S00328.itask +++| RJ CYB PROCESS INPUT
00331 M00S00329.itask +++| NZ X1,ITA8 IF TRANSACTION UNIT FOUND
00332 M00S00330.itask +++| RJ CCS CHECK CHARACTER STRING
00333 M00S00331.itask +++| ZR X1,ITA7 IF NO TRANSACTION UNIT TO SCHEDULE
00334 M00S00332.itask +++| EQ ITA8 SCHEDULE TRANSACTION UNIT
00335 M00S00333.itask +++|
00336 M00S00334.itask +++|* DETERMINE PROCESSOR FOR SYSTEM ORIGIN TRANSACTION.
00337 M00S00335.itask +++|
00338 M00S00336.itask +++| ITA1 LX0 -1
00339 M00S00337.itask +++| SX6 X0-TITAL
00340 M00S00338.itask +++| SB3 X0
00341 M00S00339.itask +++| PL X6,ITA14 IF UNKNOWN REASON CODE
00342 M00S00340.itask +++| JP B3+TITA JUMP THRU TABLE
00343 M00S00341.itask +++|
00344 M00S00342.itask +++| TITA PL X0,ITA14 IF UNKNOWN REASON CODE
00345 M00S00343.itask +++| EQ ITA13 IF SYSTEM TIMED ACTIVATION
00346 M00S00344.itask +++| PL X0,ITA13 IF IDLE
00347 M00S00345.itask +++| EQ ITA13 IF RECOVERY HAS TAKEN PLACE
00348 M00S00346.itask +++| PL X0,ITA2 IF TERMINAL LOG IN
00349 M00S00347.itask +++| EQ ITA13 IF SYSTEM MESSAGE
00350 M00S00348.itask +++| PL X0,ITA3 IF BREAK
00351 M00S00349.itask +++| EQ ITA12 IF CONNECTION BROKEN
00352 M00S00350.itask +++| PL X0,ITA12 IF NETWORK SHUT DOWN - NORMAL
00353 M00S00351.itask +++| EQ ITA12 IF NETWORK ABORT
00354 M00S00352.itask +++| PL X0,ITA12 IF NETWORK SHUT DOWN - FORCED
00355 M00S00353.itask +++| EQ ITA12 IF TERMINAL INACTIVE
| Line S00354 Modification History |
M01 (Removed by) | ns2337 |
Seq # *Modification Id* Act
----------------------------+
00356 M01S00354.ns2337 ---| PL X0,ITA12 IF STOP ON DOWN LINE CONNECTION
00357 M01S00355.ns2337 ---| EQ ITA12 IF START ON DOWN LINE CONNECTION
| Line S00001 Modification History |
M01 (Added by) | ns2337 |
Seq # *Modification Id* Act
----------------------------+
00358 M01S00001.ns2337 +++| PL X0,ITA14 IF UNKNOWN REASON CODE
00359 M01S00002.ns2337 +++| EQ ITA14 IF UNKNOWN REASON CODE
00360 M00S00356.itask +++| PL X0,ITA4 IF TASK LOGICAL ERROR
00361 M00S00357.itask +++| EQ ITA5 IF BLOCK NOT DELIVERED
00362 M00S00358.itask +++| PL X0,ITA12 IF TERMINAL CHARACTERISTICS
00363 M00S00359.itask +++| EQ ITA6 IF INPUT TOO LARGE
00364 M00S00360.itask +++| PL X0,ITA12 IF TERMINAL STATUS REQUEST
00365 M00S00361.itask +++| EQ ITA14 IF UNKNOWN REASON CODE
00366 M00S00362.itask +++| TITAL EQU *-TITA LENGTH OF *ITASK* JUMP TABLE
00367 M00S00363.itask +++|
00368 M00S00364.itask +++|* PROCESS TERMINAL LOG IN.
00369 M00S00365.itask +++|
00370 M00S00366.itask +++| ITA2 SEND ITAF SEND *READY.*
00371 M00S00367.itask +++| SA1 TRSQ FIRST WORD OF COMMUNICATION BLOCK
00372 M00S00368.itask +++| RJ CBT CHECK FOR BINARY TERMINAL
00373 M00S00369.itask +++| ZR X6,ITA13 IF NOT BINARY TERMINAL
00374 M00S00370.itask +++| SA6 ITAE
00375 M00S00371.itask +++| SX7 ITAD BINARY INPUT REQUEST MESSAGE
00376 M00S00372.itask +++| EQ ITA10 SEND MESSAGE AND CEASE
00377 M00S00373.itask +++|
00378 M00S00374.itask +++|* PROCESS TERMINAL BREAK.
00379 M00S00375.itask +++|* APPLICATION MAY WISH TO ACTIVE RECOVERY TASK.
00380 M00S00376.itask +++|
| Line S00377 Modification History |
M01 (Removed by) | ns2233 |
Seq # *Modification Id* Act
----------------------------+
00381 M01S00377.ns2233 ---| ITA3 SX7 ITAG *BREAK RECEIVED.* MESSAGE
00382 M01S00378.ns2233 ---| EQ ITA10 SEND MESSAGE AND CEASE
| Line S00001 Modification History |
M01 (Added by) | ns2233 |
Seq # *Modification Id* Act
----------------------------+
00383 M01S00001.ns2233 +++| ITA3 SX7 1 *BREAK RECEIVED.* MESSAGE CODE
00384 M01S00002.ns2233 +++| EQ ITA18 CALLTSK TO SEND MESSAGE
00385 M00S00379.itask +++|
00386 M00S00380.itask +++|* PROCESS TASK LOGICAL ERROR.
00387 M00S00381.itask +++|* APPLICATION MAY WISH TO DUMP THE TASK.
00388 M00S00382.itask +++|
00389 M00S00383.itask +++| ITA4 SX7 ITAH *TASK LOGICAL ERROR.* MESSAGE
00390 M00S00384.itask +++| EQ ITA11 SEND AND JOURNAL MESSAGE THEN CEASE
00391 M00S00385.itask +++|
00392 M00S00386.itask +++|* PROCESS BLOCK NOT DELIVERED.
00393 M00S00387.itask +++|* APPLICATION MAY WISH TO ACTIVE RECOVERY TASK.
00394 M00S00388.itask +++|
00395 M00S00389.itask +++| ITA5 SX7 ITAI *BLOCK LOST.* MESSAGE
00396 M00S00390.itask +++| EQ ITA11 SEND AND JOURNAL MESSAGE THEN CEASE
00397 M00S00391.itask +++|
00398 M00S00392.itask +++|* PROCESS INPUT TOO LARGE.
00399 M00S00393.itask +++|
| Line S00394 Modification History |
M01 (Removed by) | ns2233 |
Seq # *Modification Id* Act
----------------------------+
00400 M01S00394.ns2233 ---| ITA6 SX7 ITAJ *INPUT TOO LARGE.* MESSAGE
00401 M01S00395.ns2233 ---| EQ ITA10 SEND MESSAGE AND CEASE
| Line S00003 Modification History |
M01 (Added by) | ns2233 |
Seq # *Modification Id* Act
----------------------------+
00402 M01S00003.ns2233 +++| ITA6 SX7 0 *INPUT TOO LARGE.* MESSAGE CODE
00403 M01S00004.ns2233 +++| EQ ITA18 CALLTSK TO SEND MESSAGE
00404 M00S00396.itask +++|
00405 M00S00397.itask +++|* PROCESS NO TRANSACTION UNIT TO SCHEDULE.
00406 M00S00398.itask +++|
| Line S00399 Modification History |
M01 (Removed by) | ns2233 |
Seq # *Modification Id* Act
----------------------------+
00407 M01S00399.ns2233 ---| ITA7 SX7 ITAK ILLEGAL TRANSACTION UNIT MESSAGE
00408 M01S00400.ns2233 ---| EQ ITA10 SEND MESSAGE AND CEASE
| Line S00005 Modification History |
M01 (Added by) | ns2233 |
Seq # *Modification Id* Act
----------------------------+
00409 M01S00005.ns2233 +++| ITA7 SX7 2 ILLEGAL TRANSACTION UNIT MESSAGE CODE
00410 M01S00006.ns2233 +++| EQ ITA18 CALLTSK TO SEND MESSAGE
00411 M00S00401.itask +++|
00412 M00S00402.itask +++|* SCHEDULE A TRANSACTION UNIT AND CEASE.
00413 M00S00403.itask +++|
00414 M00S00404.itask +++| ITA8 BX7 X1
00415 M00S00405.itask +++| SA7 ITAA TRANSACTION UNIT NAME
00416 M00S00406.itask +++| RJ CTL CHECK TIME LIST
00417 M00S00407.itask +++| NZ X2,ITA9 IF TIME TO SCHEDULE TRANSACTION UNIT
00418 M00S00408.itask +++| CALLTRN ITAA SCHEDULE TRANSACTION UNIT AND CEASE
00419 M00S00409.itask +++|
00420 M00S00410.itask +++| ITA9 CALLTSK ITAA SCHEDULE THE TIMED TASK
00421 M00S00411.itask +++| SA1 CTLA TRANSACTION UNIT TO SCHEDULE
00422 M00S00412.itask +++| EQ ITA8 SCHEDULE TRANSACTION UNIT
00423 M00S00413.itask +++|
00424 M00S00414.itask +++| ITA10 SEND X7 SEND MESSAGE
00425 M00S00415.itask +++| EQ ITA13 CEASE
00426 M00S00416.itask +++|
00427 M00S00417.itask +++| ITA11 SEND X7 SEND MESSAGE
00428 M00S00418.itask +++|
00429 M00S00419.itask +++|* PROCESS CONNECTION BROKEN, NETWORK ABORT, NETWORK
00430 M00S00420.itask +++|* SHUTDOWN, TERMINAL INACTIVE, STOP AND START ON
00431 M00S00421.itask +++|* DOWNLINE CONNECTION. JOURNAL MESSAGE.
00432 M00S00422.itask +++|
00433 M00S00423.itask +++| ITA12 JOURNL ITAC JOURNAL MESSAGE
| Line S00001 Modification History |
M01 (Added by) | ns2122 |
M02 (Removed by) | ns2122a |
Seq # *Modification Id* Act
----------------------------+
00434 M02S00001.ns2122a ---| CEASE ITAO EXIT WITHOUT UNLOCKING TERMINAL
| Line S00001 Modification History |
M01 (Added by) | ns2122a |
Seq # *Modification Id* Act
----------------------------+
00435 M01S00001.ns2122a +++| CEASE -1 EXIT WITHOUT UNLOCKING TERMINAL
| Line S00002 Modification History |
M01 (Added by) | ns2122 |
Seq # *Modification Id* Act
----------------------------+
00436 M01S00002.ns2122 +++|
00437 M00S00424.itask +++| ITA13 CEASE EXIT WITHOUT SCHEDULING TRANSACTION UNIT
00438 M00S00425.itask +++|
00439 M00S00426.itask +++|* PROCESS UNKNOWN REASON CODE.
00440 M00S00427.itask +++|
00441 M00S00428.itask +++| ITA14 SCALL TMSG,(ITAB) SEND MESSAGE TO DAYFILE
00442 M00S00429.itask +++| CEASE 2 ABNORMAL CEASE WITH DUMP
00443 M00S00430.itask +++|
00444 M00S00431.itask +++|* TAF IS IDLING DOWN, ONLY ACCEPT *EX.LOGT*
00445 M00S00432.itask +++|* AS INPUT.
00446 M00S00433.itask +++|
00447 M00S00434.itask +++| ITA15 SX7 ITAL *TAF IDLING DOWN.*
00448 M00S00435.itask +++| EQ ITA17 SEND MESSAGE AND CEASE
00449 M00S00436.itask +++|
00450 M00S00437.itask +++|* CDCS ABORTED, ONLY ACCEPT *EX.LOGT*
00451 M00S00438.itask +++|* AS INPUT.
00452 M00S00439.itask +++|
00453 M00S00440.itask +++| ITA16 SX7 ITAM *CDCS ABORTED PLEASE WAIT*
00454 M00S00441.itask +++|
00455 M00S00442.itask +++|* CHECK FOR *EX.LOGT*.
00456 M00S00443.itask +++|
00457 M00S00444.itask +++| ITA17 SA1 ITAN
00458 M00S00445.itask +++| IX2 X1-X5 PROCESS INPUT
00459 M00S00446.itask +++| MX1 42
00460 M00S00447.itask +++| BX2 X1*X2
00461 M00S00448.itask +++| NZ X2,ITA10 IF NOT *EX.LOGT*
00462 M00S00449.itask +++| RJ CYB
| Line S00007 Modification History |
M01 (Added by) | ns2233 |
Seq # *Modification Id* Act
----------------------------+
00463 M01S00007.ns2233 +++|
00464 M01S00008.ns2233 +++| ITA18 SA7 TMSW
00465 M01S00009.ns2233 +++| SA1 ITAO
00466 M01S00010.ns2233 +++| BX7 X1
00467 M01S00011.ns2233 +++| SA7 ITAA
00468 M01S00012.ns2233 +++| CALLTSK ITAA,CEASE
00469 M01S00013.ns2233 +++|
00470 M00S00450.itask +++| EQ ITA8 PROCESS *EX.LOGT*
00471 M00S00451.itask +++| ITAA BSSZ 2 TRANSACTION UNIT LIST FOR *CALLTRN*
00472 M00S00452.itask +++| ITAB DATA C* UNKNOWN REASON CODE.*
00473 M00S00453.itask +++| ITAC VFD 6/0,18/0,18/2,18/TRSQ
00474 M00S00454.itask +++| ITAD VFD 12/0,18/ITAE,12/0,18/ITAEL SEND CONTROL WORD
00475 M00S00455.itask +++| ITAE CON 0
00476 M00S00456.itask +++| ITAEL EQU *-ITAE
00477 M00S00457.itask +++| ITAF FMSG READY.
| Line S00458 Modification History |
M01 (Removed by) | ns2233 |
Seq # *Modification Id* Act
----------------------------+
00478 M01S00458.ns2233 ---| ITAG FMSG (BREAK RECEIVED.)
00479 M00S00459.itask +++| ITAH FMSG (TASK LOGICAL ERROR.)
00480 M00S00460.itask +++| ITAI FMSG (BLOCK LOST.)
| Line S00461 Modification History |
M01 (Removed by) | ns2233 |
Seq # *Modification Id* Act
----------------------------+
00481 M01S00461.ns2233 ---| ITAJ FMSG (INPUT TOO LARGE.)
00482 M01S00462.ns2233 ---| ITAK FMSG (UNKNOWN NAMED TRANSACTION REQUESTED FOR SCHEDULING.)
00483 M00S00463.itask +++| ITAL FMSG (TAF IDLING DOWN.)
00484 M00S00464.itask +++| ITAM FMSG (CDCS ABORTED PLEASE WAIT.)
00485 M00S00465.itask +++| ITAN VFD 60/0LEX.LOGT
| Line S00014 Modification History |
M01 (Added by) | ns2233 |
Seq # *Modification Id* Act
----------------------------+
00486 M01S00014.ns2233 +++| ITAO VFD 60/0LSTASK
| Line S00003 Modification History |
M01 (Added by) | ns2122 |
M02 (Removed by) | ns2122a |
Seq # *Modification Id* Act
----------------------------+
00487 M02S00003.ns2122a ---| ITAO CON -1 DO NOT UNLOCK TERMINAL
00488 M00S00466.itask +++| CYB TITLE CYBERLOAN/NIXDORF INPUT PROCESSING.
00489 M00S00467.itask +++| CYB SPACE 4,20
00490 M00S00468.itask +++|** CYB - CYBERLOAN INPUT PROCESSING.
00491 M00S00469.itask +++|*
00492 M00S00470.itask +++|* THE FIRST THREE CHARACTERS OF INPUT ARE USED
00493 M00S00471.itask +++|* TO DETERMINE WHICH TRANSACTION UNIT TO CALL.
00494 M00S00472.itask +++|*
00495 M00S00473.itask +++|* ENTRY (X5) = FIRST WORD OF DATA MESSAGE.
00496 M00S00474.itask +++|*
00497 M00S00475.itask +++|* EXIT (X1) = TRANSACTION UNIT TO SCHEDULE.
00498 M00S00476.itask +++|* = 0, IF NO TRANSACTION UNIT TO SCHEDULE.
00499 M00S00477.itask +++|*
00500 M00S00478.itask +++|* USES A - 1, 2, 7.
00501 M00S00479.itask +++|* B - 2, 3.
00502 M00S00480.itask +++|* X - 0, 1, 2, 5, 7.
00503 M00S00481.itask +++|*
00504 M00S00482.itask +++|* CALLS BIN.
00505 M00S00483.itask +++|
00506 M00S00484.itask +++|
00507 M00S00485.itask +++| CYB SUBR ENTRY/EXIT
00508 M00S00486.itask +++|
00509 M00S00487.itask +++|* THE FIRST CHARACTER OF INPUT DETERMINES THE
00510 M00S00488.itask +++|* SUBTRANSACTION TABLE.
00511 M00S00489.itask +++|
00512 M00S00490.itask +++| MX2 -6
00513 M00S00491.itask +++| LX5 6
00514 M00S00492.itask +++| BX2 -X2*X5 TRANSACTION CODE
00515 M00S00493.itask +++| MX0 12
00516 M00S00494.itask +++| SA2 X2+TRANT INDEX TO SUB TRANSACTION CODES
00517 M00S00495.itask +++| BX7 X0*X5 SUB TRANSACTION CODES
00518 M00S00496.itask +++| UX2,B3 X2
00519 M00S00497.itask +++| SB2 X2 START OF SUB TRANSACTION CODES
00520 M00S00498.itask +++|
00521 M00S00499.itask +++|* CHARACTERS 2 AND 3 DETERMINE THE TRANSACTION UNIT
00522 M00S00500.itask +++|* TO SCHEDULE FROM THE SUBTRANSACTION TABLE.
00523 M00S00501.itask +++|
00524 M00S00502.itask +++| RJ BIN SEARCH SUB TRANSACTION CODE TABLE
00525 M00S00503.itask +++| ZR X3,CYB1 IF ILLEGAL SUB-TRANSACTION CODE
00526 M00S00504.itask +++| LX1 18
00527 M00S00505.itask +++| MX7 42
00528 M00S00506.itask +++| BX1 X7*X1 TRANSACTION UNIT NAME TO SCHEDULE
00529 M00S00507.itask +++| EQ CYBX RETURN
00530 M00S00508.itask +++|
00531 M00S00509.itask +++| CYB1 SX1 X3 NO TRANSACTION UNIT TO SCHEDULE
00532 M00S00510.itask +++| LX5 -6 REPOSITION TERMINAL INPUT
00533 M00S00511.itask +++| EQ CYBX RETURN
00534 M00S00512.itask +++| BIN SPACE 4,15
00535 M00S00513.itask +++|** BIN - BINARY SEARCH TABLE.
00536 M00S00514.itask +++|*
00537 M00S00515.itask +++|* ENTRY (X0) = MASK.
00538 M00S00516.itask +++|* (X7) = CRITERION.
00539 M00S00517.itask +++|* (B2) = START OF TABLE.
00540 M00S00518.itask +++|* (B3) = LENGTH OF TABLE.
00541 M00S00519.itask +++|*
00542 M00S00520.itask +++|* EXIT (X3) = 0 IF MATCH NOT FOUND.
00543 M00S00521.itask +++|* (X1) = ENTRY IF MATCH.
00544 M00S00522.itask +++|*
00545 M00S00523.itask +++|* USES A - 1.
00546 M00S00524.itask +++|* B - 2, 3.
00547 M00S00525.itask +++|* X - 1, 2, 3, 6.
00548 M00S00526.itask +++|
00549 M00S00527.itask +++|
00550 M00S00528.itask +++| BIN SUBR ENTRY/EXIT
00551 M00S00529.itask +++| SX3 B3+
00552 M00S00530.itask +++| SB3 B2+B3
00553 M00S00531.itask +++| SB3 B3-B1
00554 M00S00532.itask +++| ZR X3,BINX IF THERE ARE NO ELEMENTS TO SEARCH
00555 M00S00533.itask +++| BIN1 SX3 B3-B2
00556 M00S00534.itask +++| AX3 1
00557 M00S00535.itask +++| SA1 X3+B2 TABLE ENTRY
00558 M00S00536.itask +++| NO
00559 M00S00537.itask +++| BX2 X0*X1
00560 M00S00538.itask +++| IX6 X2-X7
00561 M00S00539.itask +++| NG X6,BIN2 IF RAISE LOWER LIMIT
00562 M00S00540.itask +++| ZR X6,BIN3 IF FOUND ENTRY
00563 M00S00541.itask +++| SB3 A1-1 LOWER UPPER LIMIT
00564 M00S00542.itask +++| GE B3,B2,BIN1 IF NOT END OF TABLE
00565 M00S00543.itask +++| SX3 0
00566 M00S00544.itask +++| EQ BINX RETURN - NO MATCH FOUND
00567 M00S00545.itask +++|
00568 M00S00546.itask +++| BIN2 SB2 A1+B1
00569 M00S00547.itask +++| LE B2,B3,BIN1 IF NOT END OF TABLE
00570 M00S00548.itask +++| BX3 X3-X3
00571 M00S00549.itask +++| EQ BINX RETURN - NO MATCH FOUND
00572 M00S00550.itask +++|
00573 M00S00551.itask +++| BIN3 SX3 1
00574 M00S00552.itask +++| EQ BINX RETURN - MATCH FOUND
00575 M00S00553.itask +++| ITASK SPACE 4,15
00576 M00S00554.itask +++|** CCS - CHECK CHARACTER STRING FOR TRANSACTION UNIT NAME.
00577 M00S00555.itask +++|*
00578 M00S00556.itask +++|* THE FIRST ONE TO SEVEN ALPHANUMERIC CHARACTERS OF INPUT
00579 M00S00557.itask +++|* ARE USED TO DETERMINE WHICH TRANSACTION UNIT TO SCHEDULE.
00580 M00S00558.itask +++|*
00581 M00S00559.itask +++|* ENTRY (X5) = FIRST WORD OF TERMINAL INPUT.
00582 M00S00560.itask +++|*
00583 M00S00561.itask +++|* EXIT (X1) = TRANSACTION UNIT TO SCHEDULE.
00584 M00S00562.itask +++|* = 0, IF NO TRANSACTION UNIT TO SCHEDULE.
00585 M00S00563.itask +++|*
00586 M00S00564.itask +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
00587 M00S00565.itask +++|* B - 2, 3.
00588 M00S00566.itask +++|
00589 M00S00567.itask +++|
00590 M00S00568.itask +++| CCS SUBR ENTRY/EXIT
00591 M00S00569.itask +++| MX2 48 EIGHT CHARACTER MASK
00592 M00S00570.itask +++| SB2 6
00593 M00S00571.itask +++| BX6 X6-X6 CLEAR TRANSACTION UNIT NAME
00594 M00S00572.itask +++| SX0 1R+
00595 M00S00573.itask +++| BX5 X5*X2 MASK OFF CHARACTER STRING
00596 M00S00574.itask +++| MX3 -6 ONE CHARACTER MASK
00597 M00S00575.itask +++| SB3 60
00598 M00S00576.itask +++| LX5 6 POSITION TERMINAL INPUT
00599 M00S00577.itask +++| BX1 X6
00600 M00S00578.itask +++| CCS1 BX4 -X3*X5 GET A CHARACTER
00601 M00S00579.itask +++| ZR X4,CCS2 IF END OF TRANSACTION UNIT NAME
00602 M00S00580.itask +++| IX2 X4-X0
00603 M00S00581.itask +++| PL X2,CCS3 IF NOT ALPHANUMERIC
00604 M00S00582.itask +++| LX6 6
00605 M00S00583.itask +++| SB3 B3-B2
00606 M00S00584.itask +++| BX6 X6+X4 TRANSFER A CHARACTER
00607 M00S00585.itask +++| LX5 6
00608 M00S00586.itask +++| EQ CCS1 LOOP FOR NEXT CHARACTER
00609 M00S00587.itask +++|
00610 M00S00588.itask +++| CCS2 SB2 12
00611 M00S00589.itask +++| EQ B2,B3,CCSX IF TOO MANY CHARACTERS
00612 M00S00590.itask +++| CCS3 ZR X6,CCSX IF ZERO LENGTH TRANSACTION UNIT NAME
00613 M00S00591.itask +++| LX6 X6,B3 POSITION TRNASACTION UNIT NAME
00614 M00S00592.itask +++| BX1 X6
00615 M00S00593.itask +++| EQ CCSX RETURN
00616 M00S00594.itask +++| CTL SPACE 4,20
00617 M00S00595.itask +++|** CTL - CHECK TIMED TRANSACTION UNIT LIST.
00618 M00S00596.itask +++|*
00619 M00S00597.itask +++|* THIS ROUTINE CHECKS TIME DEPENDENT TRANSACTION UNITS.
00620 M00S00598.itask +++|* IF IT IS TIME TO SCHEDULE A TRANSACTION UNIT THEN (X2) =
00621 M00S00599.itask +++|* THE ADDRESS OF THE TRANSACTION UNIT, OTHERWISE (X2) = 0.
00622 M00S00600.itask +++|*
00623 M00S00601.itask +++|* APPLICATIONS MAY WISH TO GENERATE TIME DEPENDENT TRANS-
00624 M00S00602.itask +++|* ACTION TABLES BY MACRO *TIMCNT* AND CHANGE THIS ROUTINE
00625 M00S00603.itask +++|* TO SEARCH FOR THE PROPER TRANSACTION UNIT TO SCHEDULE.
00626 M00S00604.itask +++|* DEFAULT VALUE FOR *TAF* IS NO TIMED TRANSACTION UNIT.
00627 M00S00605.itask +++|*
00628 M00S00606.itask +++|* ENTRY NONE.
00629 M00S00607.itask +++|*
00630 M00S00608.itask +++|* EXIT (X2) = FWA OF TRANSACTION UNIT TO SCHEDULE.
00631 M00S00609.itask +++|* (X2) = 0 IF NOT TIME TO SCHEDULE TIMED TRANSACTION.
00632 M00S00610.itask +++|*
00633 M00S00611.itask +++|* USES X - 2.
00634 M00S00612.itask +++|
00635 M00S00613.itask +++|
00636 M00S00614.itask +++| CTL SUBR ENTRY/EXIT
00637 M00S00615.itask +++| SX2 0
00638 M00S00616.itask +++| EQ CTLX RETURN
00639 M00S00617.itask +++|
00640 M00S00618.itask +++| CTLA BSS 1 NEXT TIMED TRANSACTION UNIT TO SCHEDULE
00641 M00S00619.itask +++| SPACE 4
00642 M00S00620.itask +++|* COMMON DECKS.
00643 M00S00621.itask +++|
00644 M00S00622.itask +++|
00645 M00S00623.itask +++| LIST X
00646 M00S00624.itask +++|*CALL COMKCBT
00647 M00S00625.itask +++|*CALL COMKSTC
00648 M00S00626.itask +++| END ITASK