Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.libtask +++| IDENT LIBTASK,FETS
00002 M01S00002.libtask +++| ABS
00003 M01S00003.libtask +++| SST LREC,MP
00004 M01S00004.libtask +++| ENTRY LIBTASK
00005 M01S00005.libtask +++| ENTRY RFL=
00006 M01S00001.ns2523 +++| ENTRY SSJ=
00007 M01S00006.libtask +++| SYSCOM B1
00008 M01S00007.libtask +++| LIBTASK TITLE LIBTASK - TASK LIBRARY EDITING PROGRAM.
00009 M01S00008.libtask +++|*COMMENT LIBTASK - TASK LIBRARY EDITING PROGRAM.
| Line S00009 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00010 M02S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1971.
00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00012 M01S00010.libtask +++| LIBTASK SPACE 4,10
00013 M01S00011.libtask +++|***** LIBTASK - TASK LIBRARY BUILDING AND EDITING PROGRAM.
00014 M01S00012.libtask +++|*
00015 M01S00013.libtask +++|* J. R. HOGUE. 1971.
00016 M01S00014.libtask +++|* K. R. COMBS. 1972.
00017 M01S00015.libtask +++|* M. M. CHEN. 1978.
00018 M01S00016.libtask +++|* R. G. PARKHOUSE. 80/04/15.
00019 M01S00017.libtask +++|* E. D. REDIG. 81/03/06.
00020 M01S00018.libtask +++| SPACE 4
00021 M01S00019.libtask +++|*** *LIBTASK* BUILDS THE TASK LIBRARY USED BY THE TRANSACTION
00022 M01S00020.libtask +++|* EXECUTIVE AND PLACES BOTH A TASK DIRECTORY AND A TRANSACTION
00023 M01S00021.libtask +++|* DIRECTORY ON THE LAST RECORD OF THE LIBRARY.
00024 M01S00022.libtask +++|*
00025 M01S00023.libtask +++|* TO MAKE CHANGES TO THE LIBRARY WHILE THE TRANSACTION SYSTEM
00026 M01S00024.libtask +++|* IS RUNNING, *LIBTASK* ADDS THE NEW TASK BINARIES TO THE END
00027 M01S00025.libtask +++|* OF THE LIBRARY FILE AND REWRITES AN UPDATED DIRECTORY ON THE
00028 M01S00026.libtask +++|* LAST RECORD. THEN, VIA THE OPERATING SYSTEM *SIC* REQUEST,
00029 M01S00027.libtask +++|* *LIBTASK* INFORMS THE TRANSACTION EXECUTIVE THAT A CHANGE
00030 M01S00028.libtask +++|* WAS MADE AND THE EXECUTIVE READS IN THE NEW DIRECTORY.
00031 M01S00029.libtask +++|*
00032 M01S00030.libtask +++|* *LIBTASK* DOES NOT DEFINE THE INITIAL LIBRARY FILE. THIS
00033 M01S00031.libtask +++|* MUST BE DONE PRIOR TO A *LIBTASK* CREATION RUN.
00034 M01S00032.libtask +++| SPACE 4,10
| Line S00033 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00035 M02S00033.v23l617 ---|*** CONTROL STATEMENT CALL.
00036 M01S00001.v23l617 +++|*** THE COMMAND.
00037 M01S00034.libtask +++|*
00038 M01S00035.libtask +++|* LIBTASK(P1,P2,,PN)
00039 M01S00036.libtask +++|*
00040 M01S00037.libtask +++|* THE PARAMETERS P(I) MAY INCLUDE THE FOLLOWING (IN ANY ORDER)
00041 M01S00038.libtask +++|* AND MUST BE IN ONE OF THE FORMS
00042 M01S00039.libtask +++|*
00043 M01S00040.libtask +++|* * * - (NONE) ASSUME FIRST DEFAULT VALUE.
00044 M01S00041.libtask +++|* P - ASSUME ALTERNATE DEFAULT VALUE.
00045 M01S00042.libtask +++|* P=X - SUBSTITUTE *X* FOR ANY ASSUMED VALUE OF *P*.
00046 M01S00043.libtask +++|*
00047 M01S00044.libtask +++|* I - FILE CONTAINING INPUT DIRECTIVES.
| Line S00045 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00048 M02S00045.v23l617 ---|* Z - TAKE DIRECTIVES ONLY FROM CONTROL CARD.
00049 M01S00002.v23l617 +++|* Z - TAKE DIRECTIVES ONLY FROM COMMAND.
00050 M01S00046.libtask +++|* EXAMPLE -
00051 M01S00047.libtask +++|* LIBTASK(...,Z,...)XDDDDDXDDDDXDDD
00052 M01S00048.libtask +++|* WHERE X IS ANY CHARACTER NOT IN D.
00053 M01S00049.libtask +++|* D IS A LIBTASK DIRECTIVE.
00054 M01S00050.libtask +++|* B - FILE CONTAINING BINARIES TO ADD TO TASK LIBRARY FILE.
00055 M01S00051.libtask +++|* L - FILE CONTAINING LIST OF ACTIONS TAKEN.
00056 M01S00052.libtask +++|* P - TASK LIBRARY FILE.
00057 M01S00053.libtask +++|* N - NEW TASK LIBRARY FILE.
00058 M01S00054.libtask +++|* CR - CREATE A NEW LIBRARY FILE.
00059 M01S00055.libtask +++|* TT - SEND MESSAGE TO *TAF* TO READ NEW DIRECTORY.
00060 M01S00056.libtask +++|* PR - PURGE OLD BINARIES AND DIRECTORIES.
00061 M01S00057.libtask +++|* DA - DISABLE ATTACHES AND RETURNS.
00062 M01S00058.libtask +++|* LO - LIST OPTION FOR TASKS/TRANSACTIONS AND ATTRIBUTES.
00063 M01S00059.libtask +++|* TN - TASK OR TRANSACTION NAME USED IN CONJUNCTION WITH *LO*.
00064 M01S00060.libtask +++|*
00065 M01S00061.libtask +++|* DEFAULT PARAMETER SUBSTITUTION VALUES.
00066 M01S00062.libtask +++|*
00067 M01S00063.libtask +++|* EQUIVALENCED FIRST ALTERNATE
00068 M01S00064.libtask +++|* PARAMETERS DEFAULT DEFAULT - COMMENT -
00069 M01S00065.libtask +++|*
00070 M01S00066.libtask +++|* I *INPUT* *COMPILE*
00071 M01S00067.libtask +++|* B *LGOB* *LGO* TASK BINARY FILE.
00072 M01S00068.libtask +++|* L *OUTPUT* *OUTPUT* OUTPUT FILE.
00073 M01S00069.libtask +++|* P *TASKLIB* TASK LIBRARY FILE.
00074 M01S00070.libtask +++|* N *SCRATCH* *TASKLIB* NEW TASK LIBRARY FILE.
00075 M01S00071.libtask +++|* LO 0 *A* LIST OPTION.
00076 M01S00072.libtask +++|* TN 0 0 TASK OR TRANSACTION NAME.
00077 M01S00073.libtask +++|*
00078 M01S00074.libtask +++|* SINGLE FIRST ALTERNATE
00079 M01S00075.libtask +++|* PARAMETERS DEFAULT DEFAULT - COMMENT -
00080 M01S00076.libtask +++|*
| Line S00077 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00081 M02S00077.v23l617 ---|* Z *NOT Z* *Z* DIRECTIVES FROM CONTROL CARD.
00082 M01S00003.v23l617 +++|* Z *NOT Z* *Z* DIRECTIVES FROM COMMAND.
00083 M01S00078.libtask +++|* CR *NOT CR* *CR* CREATE A NEW LIBRARY FILE.
00084 M01S00079.libtask +++|* TT *NOT TT* *TT* TELL *TAF* ABOUT CHANGE.
00085 M01S00080.libtask +++|* PR *NOT PR* *PR* PURGE OLD RECORDS
00086 M01S00081.libtask +++|* DA *NOT DA* *DA* SKIP ATTACHES OF LIBRARY FILE
00087 M01S00082.libtask +++| SPACE 4,45
00088 M01S00083.libtask +++|*** DESCRIPTION OF PARAMETER OPTIONS.
00089 M01S00084.libtask +++|*
00090 M01S00085.libtask +++|* CR - THE CREATE OPTION IS USED TO CREATE A NEW TASK LIBRARY.
00091 M01S00086.libtask +++|* IF *TAF* IS RUNNING BUT DOES NOT HAVE A FILE ATTACHED BY THE
00092 M01S00087.libtask +++|* NEW TASK LIBRARY NAME, A CREATE MAY BE DONE. OTHERWISE, IT
00093 M01S00088.libtask +++|* MAY NOT BE USED WHILE *TAF* IS RUNNING. THE *P* FILE MUST
00094 M01S00089.libtask +++|* HAVE BEEN PREVIOUSLY DEFINED. LIBTASK READS ONE TASK
00095 M01S00090.libtask +++|* AT A TIME FROM THE *B* FILE, CHECKS FOR AN INPUT DIRECTIVE
00096 M01S00091.libtask +++|* FOR THE TASK, CONSTRUCTS A DIRECTORY ENTRY AND INSERTS THE
00097 M01S00092.libtask +++|* ENTRY IN ALPHABETICAL ORDER IN THE LIBRARY DIRECTORY. THE
00098 M01S00093.libtask +++|* DIRECTORY IS WRITTEN AT THE END OF THE LIBRARY.
00099 M01S00094.libtask +++|*
00100 M01S00095.libtask +++|* PR - THE PURGE OPTION IS USED TO REMOVE INACTIVE TASK
00101 M01S00096.libtask +++|* BINARIES AND OLD DIRECTORIES FROM THE TASK LIBRARY.
00102 M01S00097.libtask +++|* THIS OPTION MAY BE USED WHILE *TAF* IS RUNNING AND THE
00103 M01S00098.libtask +++|* TASK LIBRARY TO BE PURGED IS NOT ATTACHED BY *TAF*.
00104 M01S00099.libtask +++|* *LIBTASK* PROCESSES THE REPLACEMENT FILE *B*
00105 M01S00100.libtask +++|* AND THE INPUT DIRECTIVES NORMALLY, COPIES THE
00106 M01S00101.libtask +++|* ENTIRE LIBRARY TO A SCRATCH FILE, THEN TRANSFERS THE CURRENT
00107 M01S00102.libtask +++|* BINARY FOR EACH TASK IN THE LIBRARY TO THE SCRATCH FILE.
00108 M01S00103.libtask +++|* HOWEVER, IF THE *N* OPTION IS SPECIFIED, ONLY THE CURRENT
00109 M01S00104.libtask +++|* BINARIES ARE TRANSFERRED DIRECTLY TO THE SCRATCH FILE,
00110 M01S00105.libtask +++|* WHICH HAS BECOME THE NEWLY DEFINED TASK LIBRARY. THE
00111 M01S00106.libtask +++|* DIRECTORY IS UPDATED AND WRITTEN AT THE END IN EACH CASE.
00112 M01S00107.libtask +++|* THEREFORE, ONLY ONE COPY OF EACH TASK AND ONE DIRECTORY
00113 M01S00108.libtask +++|* REMAINS IN THE LIBRARY.
00114 M01S00109.libtask +++|*
00115 M01S00110.libtask +++|* TT - THE TELL *TAF* OPTION IS USED TO INFORM *TAF* THAT A
00116 M01S00111.libtask +++|* CHANGE HAS OCCURRED IN THE TASK LIBRARY WHEN A LIBTASK
00117 M01S00112.libtask +++|* TAKES PLACE WHILE *TAF* IS RUNNING. THE PARAMETER HAS
00118 M01S00113.libtask +++|* NO EFFECT IF *TAF* IS NOT RUNNING. NORMAL PROCESSING
00119 M01S00114.libtask +++|* OCCURS, AFTER WHICH INTERCONTROL POINT COMMUNICATION IS USED
00120 M01S00115.libtask +++|* TO INFORM *TAF* TO READ IN THE NEW DIRECTORY.
00121 M01S00116.libtask +++|*
00122 M01S00117.libtask +++|* DA - THE DISABLE ATTACH OPTION IS USED TO ALLOW A USER
00123 M01S00118.libtask +++|* COMPLETE CONTROL OF HIS PERMANENT FILES. THIS OPTION
00124 M01S00119.libtask +++|* DISABLES ALL ATTACHES AND RETURNS OF THE TASK LIBRARY FILES.
00125 M01S00120.libtask +++|* THE EXCEPTION TO THIS IS IF THE *TT* OPTION IS ALSO
00126 M01S00121.libtask +++|* SPECIFIED. LIBTASK WILL THEN RETURN THE TASK LIBRARY
00127 M01S00122.libtask +++|* FILE SO THAT *TAF* MAY REATTACH THE FILE TO UPDATE ITS
00128 M01S00123.libtask +++|* TABLES.
00129 M01S00124.libtask +++|*
00130 M01S00125.libtask +++|* LO - THE LIST OPTION PRODUCES A REPORT OF TASKS AND THEIR
00131 M01S00126.libtask +++|* ATTRIBUTES, TRANSACTION NAMES WITH ATTRIBUTES AND NAMES
00132 M01S00127.libtask +++|* OF MEMBER TASKS. WHEN LISTING TASK NAMES WITH TRANSACTION
00133 M01S00128.libtask +++|* NAMES, THOSE TASKS WHICH DO NOT EXIST IN THE DATA BASE
00134 M01S00129.libtask +++|* LIBRARY ARE FLAGGED.
00135 M01S00130.libtask +++| SPACE 4,70
00136 M01S00131.libtask +++|*** INPUT FILE DIRECTIVE FORMAT.
00137 M01S00132.libtask +++|*
00138 M01S00133.libtask +++|* 1. TASK DIRECTIVE.
00139 M01S00134.libtask +++|*
00140 M01S00135.libtask +++|* TO ENTER ALTERNATE VALUES FOR A TASK, A DIRECTIVE CARD MAY
00141 M01S00136.libtask +++|* BE ENTERED IN THE DIRECTIVE FILE.
00142 M01S00137.libtask +++|*
| Line S00138 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00143 M02S00138.v23l617 ---|* DIRECTORY CONTROL CARD FORMAT.
00144 M01S00004.v23l617 +++|* DIRECTORY COMMAND FORMAT.
00145 M01S00139.libtask +++|*
00146 M01S00140.libtask +++|* *NAME P1,P2,,,PN.
00147 M01S00141.libtask +++|*
00148 M01S00142.libtask +++|* NAME = TASK NAME OF TASK ON FILE *B*.
00149 M01S00143.libtask +++|*
00150 M01S00144.libtask +++|* THE PARAMETERS P(I) MAY INCLUDE THE FOLLOWING (IN ANY ORDER)
00151 M01S00145.libtask +++|* AND MUST BE IN ONE OF THE FORMS :
00152 M01S00146.libtask +++|*
00153 M01S00147.libtask +++|* * * - (NONE) ASSUME FIRST DEFAULT VALUE
00154 M01S00148.libtask +++|* P - ASSUME ALTERNATE DEFAULT VALUE
00155 M01S00149.libtask +++|* P=X - SUBSTITUTE *X* FOR ANY ASSUMED VALUE OF *P*
00156 M01S00150.libtask +++|*
00157 M01S00151.libtask +++|* BP - BEGINNING PRIORITY.
00158 M01S00152.libtask +++|* MP - MAXIMUM PRIORITY (FUTURE USE).
00159 M01S00153.libtask +++|* QL - QUEUE LIMIT.
00160 M01S00154.libtask +++|* S - SYSTEM TASK.
00161 M01S00155.libtask +++|* C - CORE RESIDENT.
00162 M01S00156.libtask +++|* SC - COMMUNICATION BLOCK SOLICITED FLAG.
00163 M01S00157.libtask +++|* D - DESTRUCTIVE CODE.
| Line S00158 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00164 M02S00158.v23l617 ---|* E - ECS RESIDENT (FUTURE USE).
00165 M01S00005.v23l617 +++|* E - EXTENDED MEMORY RESIDENT (FUTURE USE).
00166 M01S00159.libtask +++|* O - TASK ON/OFF.
00167 M01S00160.libtask +++|* Q - QUEUING FORCED FOR ADDITIONAL ACTIVE COPIES OF TASK.
00168 M01S00161.libtask +++|* R - REDUCE FL (CM RESIDENT TASK ONLY).
00169 M01S00162.libtask +++|*
00170 M01S00163.libtask +++|* EQUIVALENCED FIRST ALTERNATE
00171 M01S00164.libtask +++|* PARAMETERS DEFAULT DEFAULT - COMMENT -
00172 M01S00165.libtask +++|*
00173 M01S00166.libtask +++|* BP 20B 25B BEGINNING TASK PRIORITY.
00174 M01S00167.libtask +++|* EF 0 0 DEFAULT EXPANDABLE FL.
00175 M01S00168.libtask +++|* MP 40B 50B MAXIMUM TASK PRIORITY.
00176 M01S00169.libtask +++|* QL 3B 5B QUEUE LIMIT FOR A TASK.
00177 M01S00170.libtask +++|*
00178 M01S00171.libtask +++|* SINGLE FIRST ALTERNATE
00179 M01S00172.libtask +++|* PARAMETERS DEFAULT DEFAULT - COMMENT -
00180 M01S00173.libtask +++|*
00181 M01S00174.libtask +++|* R 0 0 REDUCE FL
00182 M01S00175.libtask +++|* S *NOT S* *S* SYSTEM TASK.
00183 M01S00176.libtask +++|* C *DISK* *CORE* RESIDENCE OF TASK BINARY.
00184 M01S00177.libtask +++|* D *NOT D* *D* DESTRUCTIVE CODE INDICATOR.
| Line S00178 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00185 M02S00178.v23l617 ---|* E *NOT E* *E* ECS RESIDENT.
00186 M01S00006.v23l617 +++|* E *NOT E* *E* EXTENDED MEMORY RESIDENT.
00187 M01S00179.libtask +++|* O *ON* *OFF* TASK ON/OFF.
00188 M01S00180.libtask +++|* DL *NOT DL* *DL* DELETE TASK.
00189 M01S00181.libtask +++|* IG *NOT IG* *IG* IGNORE TASK.
00190 M01S00182.libtask +++|* SC *NOT SC* *SC* COM. BLK. SOLICITED
00191 M01S00183.libtask +++|* Q *NORMAL* *QUEUE* QUEUE FOR ADDITIONAL COPIES.
00192 M01S00184.libtask +++|*
00193 M01S00185.libtask +++|*
00194 M01S00186.libtask +++|* 2. TRANSACTION DIRECTIVE.
00195 M01S00187.libtask +++|*
00196 M01S00188.libtask +++|* TO NAME A TRANSACTION AND SPECIFY TASKS COMPRISING THE NAMED
00197 M01S00189.libtask +++|* TRANSACTION. TO SPECIFY DATA MANAGERS USED BY THE TRANSACTION
00198 M01S00190.libtask +++|* AND SPECIFY THE RECOVERABLE ATTRIBUTE.
00199 M01S00191.libtask +++|*
00200 M01S00192.libtask +++|* DIRECTIVE FORMAT.
00201 M01S00193.libtask +++|*
00202 M01S00194.libtask +++|* /TNAME,T1=TSK1,T2=TSK2,T3=TSK3,T4=TSK4,T5=TSK5,RC,DM=DMID,DL.
00203 M01S00195.libtask +++|*
00204 M01S00196.libtask +++|* TNAME = 1-7 ALPHANUMERIC CHARACTER TRANSACTION UNIT NAME.
00205 M01S00197.libtask +++|* TSK(I) = TASKS COMPRISING TRANSACTION.
00206 M01S00198.libtask +++|* RC = TRANSACTION IS RECOVERABLE.
00207 M01S00199.libtask +++|* DMID = DATA MANAGERS USED(C - *CRM*, D - *CDCS*, CD - BOTH)
00208 M01S00200.libtask +++|* DL = DELETE NAMED TRANSACTION.
00209 M01S00201.libtask +++| SPACE 4,10
00210 M01S00202.libtask +++|*** DOCUMENTATION CONVENTIONS.
00211 M01S00203.libtask +++|*
| Line S00204 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00212 M02S00204.v23l617 ---|* B FILE NAME DENOTED BY CONTROL STATEMENT *B* PARAMETER.
| Line S00205 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00213 M02S00205.v23l617 ---|* N FILE NAME DENOTED BY CONTROL STATEMENT *N* PARAMETER.
| Line S00206 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00214 M02S00206.v23l617 ---|* P FILE NAME DENOTED BY CONTROL STATEMENT *P* PARAMETER.
00215 M01S00007.v23l617 +++|* B FILE NAME DENOTED BY COMMAND *B* PARAMETER.
00216 M01S00008.v23l617 +++|* N FILE NAME DENOTED BY COMMAND *N* PARAMETER.
00217 M01S00009.v23l617 +++|* P FILE NAME DENOTED BY COMMAND *P* PARAMETER.
00218 M01S00207.libtask +++|* TLD TASK LIBRARY DIRECTORY.
00219 M01S00208.libtask +++|* TRD TRANSACTION DIRECTORY.
00220 M01S00209.libtask +++| SPACE 4,10
00221 M01S00210.libtask +++|*** DAYFILE MESSAGES.
00222 M01S00211.libtask +++|*
00223 M01S00212.libtask +++|* ERRA BINARY RECORD WAS LESS THAN 640 WORDS LONG.
00224 M01S00213.libtask +++|* ERRB BINARY RECORD WAS NETHER ABSOLUTE NOR OVERLAY FORMAT.
| Line S00214 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00225 M02S00214.v23l617 ---|* PRSB CONTROL CARD ARGUMENT ERRORS.
00226 M01S00010.v23l617 +++|* PRSB LIBTASK COMMAND ARGUMENT ERRORS.
00227 M01S00215.libtask +++|* ERCB CONFLICTING LIBTASK OPTIONS - CR, PR.
00228 M01S00216.libtask +++|* ERCC CONFLICTING LIBTASK OPTIONS - CR, TT.
00229 M01S00217.libtask +++|* ERCD CONFLICTING LIBTASK OPTIONS - PR, TT.
00230 M01S00218.libtask +++|* ERCF CONFLICTING LIBTASK OPTIONS - P=0, -N.
00231 M01S00219.libtask +++|* ERCH CONFLICTING LIBTASK OPTIONS - TT, N.
00232 M01S00220.libtask +++|* INPB DIRECTIVE ERRORS.
00233 M01S00221.libtask +++|* ERRF DIRECTORY IS FULL - NO MORE ADDITIONS ALLOWED.
00234 M01S00222.libtask +++|* LIBK FILE NOT ATTACHED - LFN.
| Line S00223 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00235 M02S00223.v23l617 ---|* ERRD ILLEGAL FWA FOR LOAD.
00236 M01S00011.v23l617 +++|* ERRD INCORRECT FWA FOR LOAD.
00237 M01S00224.libtask +++|* ATTD LIBRARY FILE TIME OUT.
00238 M01S00225.libtask +++|* ERRE LIBTASK ERROR CONDITION UNKNOWN.
00239 M01S00226.libtask +++|* LIBJ LIBTASK ERRORS.
00240 M01S00227.libtask +++|* ATTE LIBTASK - PFM ERROR DETECTED.
00241 M01S00228.libtask +++|* TOVA TABLE OVERFLOW - TOO MANY TASKS.
00242 M01S00229.libtask +++|* LIBF TASK EDITING COMPLETE.
00243 M01S00230.libtask +++|* PRSD TASK LIBRARY DIRECTORY EMPTY.
00244 M01S00231.libtask +++|* PRSE TASK LIBRARY DIRECTORY ERROR.
00245 M01S00232.libtask +++|* PRSC TASK LIBRARY DIRECTORY TOO LONG.
00246 M01S00233.libtask +++|* ERCO TASKLIB MUST NOT START WITH THE LETTER Z.
00247 M01S00234.libtask +++|* ERCL TN REQUIRES EITHER LO=T OR LO=X.
| Line S00235 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00248 M02S00235.v23l617 ---|* PRSF TT OPTION REQUIRES USER NUMBER.
00249 M01S00012.v23l617 +++|* PRSF TT OPTION REQUIRES USER NAME.
00250 M01S00236.libtask +++|* PRSG TRANSACTION DIRECTORY EMPTY.
00251 M01S00237.libtask +++|* PRSH TRANSACTION DIRECTORY TOO LONG.
00252 M01S00238.libtask +++|* PRSI TRANSACTION DIRECTORY ERROR.
00253 M01S00002.ns2523 +++|* PRSJ USER NOT VALIDATED FOR ONLINE TASK LIBRARY UPDATES.
00254 M01S00239.libtask +++|* ERCM VALID LO OPTIONS ARE LO, LO=A, LO=T OR LO=X.
00255 M01S00240.libtask +++|* PLOG XXXXXXX NOT IN DIRECTORY.
00256 M01S00241.libtask +++| SPACE 4,10
00257 M01S00242.libtask +++| QUAL$ EQU 0 PROGRAM WILL HANDLE QUAL
00258 M01S00243.libtask +++|*CALL COMCMAC
00259 M01S00244.libtask +++|*CALL COMCMTM
00260 M01S00245.libtask +++| LIST X
00261 M01S00246.libtask +++|*CALL COMKFLD
00262 M01S00247.libtask +++|*CALL COMKTLD
00263 M01S00248.libtask +++| LIST -X
00264 M01S00003.ns2523 +++|*CALL COMSPRD
00265 M01S00249.libtask +++|*CALL COMSSSD
00266 M01S00004.ns2523 +++|*CALL COMSSSJ
00267 M01S00250.libtask +++|
| Line S00251 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | ns2523 |
Seq # *Modification Id* Act
----------------------------+
00268 M02S00251.ns2523 ---| ORG 103B
00269 M01S00005.ns2523 +++| ORG 104B
00270 M01S00252.libtask +++| FETS TITLE FETS AND DATA STORAGE.
00271 M01S00253.libtask +++| FETS BSS 0
00272 M01S00254.libtask +++|
00273 M01S00255.libtask +++| I BSS 0
00274 M01S00256.libtask +++| INPUT FILEB IBUF,IBUFL,FET=7 DIRECTIVE INPUT FILE
00275 M01S00257.libtask +++|
00276 M01S00258.libtask +++| B BSS 0
00277 M01S00259.libtask +++| LGOB FILEB BBUF,BBUFL TASK BINARY FILE
00278 M01S00260.libtask +++|
00279 M01S00261.libtask +++| O BSS 0
00280 M01S00262.libtask +++| OUTPUT FILEC OBUF,OBUFL OUTPUT FILE
00281 M01S00263.libtask +++|
00282 M01S00264.libtask +++| P BSS 0
00283 M01S00265.libtask +++| TASKLIB RFILEB PBUF,PBUFL,EPR,FET=11 TASK LIBRARY FILE
00284 M01S00266.libtask +++|
00285 M01S00267.libtask +++| SF BSS 0
00286 M01S00268.libtask +++| N BSS 0
00287 M01S00269.libtask +++| SCRATCH RFILEB SBUF,SBUFL,EPR,FET=11 NEW/SCRATCH LIBRARY FILE
00288 M01S00270.libtask +++|
00289 M01S00271.libtask +++| LATLD BSS 1 ACTUAL LWA OF TLD
00290 M01S00272.libtask +++| LWTLD BSS 1 CURRENT LWA OF TLD
00291 M01S00273.libtask +++| LWOLD BSS 1 LWA OF BASE TLD FOR RUNNING SYSTEM
00292 M01S00274.libtask +++| TSKDI BSS 1 TASK DISK INDEX
00293 M01S00275.libtask +++| TSKNM BSS 1 TASK NAME
00294 M01S00276.libtask +++| TSKNE BSS 1 TASK NAME AND ENTRY POINT
00295 M01S00277.libtask +++| TSKFL BSS 1 TASK FIELD LENGTH
00296 M01S00278.libtask +++| EOFF CON 0 END OF BINARY FILE FLAG
00297 M01S00279.libtask +++| BFEF CON 0 BINARY FILE ERROR FLAG
00298 M01S00280.libtask +++| FSLT BSS 1 FREE SPACE LEFT IN TLD
00299 M01S00281.libtask +++| CRES CON 0 CORE RESIDENT TASK COUNT
00300 M01S00282.libtask +++|
00301 M01S00283.libtask +++| LATRD CON 0 LWA OF TRD BEFORE SORT
00302 M01S00284.libtask +++| LWTRD CON 0 LWA OF TRD
00303 M01S00285.libtask +++| FSTR CON 0 FREE SPACE LEFT IN TRD
00304 M01S00286.libtask +++| MTRD CON 0 TRD UPDATED FLAG
00305 M01S00287.libtask +++| TRDE CON 0 TRD EXISTS FLAG
00306 M01S00288.libtask +++|
| Line S00289 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00307 M02S00289.v23l617 ---| Z CON 0 TO TAKE DIRECTIVES FROM CONTROL STATEMENT
00308 M01S00013.v23l617 +++| Z CON 0 TO TAKE DIRECTIVES FROM CONTROL COMMAND
00309 M01S00290.libtask +++| PR CON 0 TO PURGE OLD COPIES
00310 M01S00291.libtask +++| CR CON 0 TO CREATE A LIBRARY FILE OR NOT TO CREATE
00311 M01S00292.libtask +++| TT CON 0 TELL *TAF* ABOUT NEW DIRECTORY
00312 M01S00293.libtask +++| DA CON 0 DISABLE ATTACH AND RETURN
00313 M01S00294.libtask +++| AT CON 0 ATTACHED BY *TAF* FLAG
00314 M01S00295.libtask +++| PN CON 0 FILE *F* AND *N* NOT EQUAL FLAG
00315 M01S00296.libtask +++| LO CON 0 LIST OPTION
00316 M01S00297.libtask +++| XTN CON 0 TASK OR TRANSACTION UNIT NAME FOR *LO*
00317 M01S00298.libtask +++|
00318 M01S00299.libtask +++| FWLD EQU 111B FWA OF SINGLE ENTRY POINT PROGRAM
00319 M01S00300.libtask +++| RECN CON 0 RECORDS READ FROM BINARY FILE
00320 M01S00301.libtask +++| CBP EQU 3533B DEFAULT BEGINNING TASK PRIORITY
00321 M01S00302.libtask +++| ABP EQU 3540B ALTERNATE BEGINNING TASK PRIORITY
00322 M01S00303.libtask +++| MNBP EQU 10B MINIMUM BEGINNING PRIORITY
00323 M01S00304.libtask +++| MXBP EQU 70B MAXIMUM BEGINNING PRIORITY
00324 M01S00305.libtask +++| CMP EQU 3733B DEFAULT MAXIMUM TASK PRIORITY
00325 M01S00306.libtask +++| AMP EQU 4033B ALTERNATE MAXIMUM TASK PRIORITY
00326 M01S00307.libtask +++| MNMP EQU 10B MINIMUM MAXIMUM PRIORITY
00327 M01S00308.libtask +++| MXMP EQU 70B MAXIMUM MAXIMUM PRIORITY
00328 M01S00309.libtask +++| CQL EQU 3336B DEFAULT TASK QUEUE LIMIT
00329 M01S00310.libtask +++| AQL EQU 3340B ALTERNATE TASK QUEUE LIMIT
00330 M01S00311.libtask +++| MINQL EQU 1 MINIMUM QUEUE LIMIT
00331 M01S00312.libtask +++| MAXQL EQU 5 MAXIMUM QUEUE LIMIT
00332 M01S00313.libtask +++| EFL EQU 0 DEFAULT EXPANDABLE FIELD LENGTH BY TASK
00333 M01S00314.libtask +++| MAXEF EQU 300000B MAXIMUM EXPANDABLE FL
00334 M01S00315.libtask +++| CC EQU 0 DEFAULT CORE RESIDENCE VALUE
00335 M01S00316.libtask +++| CD EQU 1 DEFAULT FOR DESTRUCTIVE TASKS
00336 M01S00317.libtask +++| CS EQU 0 DEFAULT SYSTEM TASK INDICATOR
00337 M01S00318.libtask +++| CO EQU 0 DEFAULT ON/OFF INDICATOR
00338 M01S00319.libtask +++| CE EQU 0 DEFAULT ECS RESIDENCE INDICATOR
00339 M01S00320.libtask +++| CDL EQU 0 DEFAULT DELETE DIRECTORY
00340 M01S00321.libtask +++| CQ EQU 0 DEFAULT QUEUING CONTROL
00341 M01S00322.libtask +++| CRE EQU 0 DEFAULT REDUCE FL
00342 M01S00323.libtask +++| TLQUSM DECMIC TLQUS
00343 M01S00324.libtask +++| MLQU EQU 1S"TLQUSM" MULTIPLIER OF *CQ*
00344 M01S00325.libtask +++| BP VFD 12/CBP,48/0 BEGINNING PRIORITY FOR A TASK
00345 M01S00326.libtask +++| MP VFD 12/CMP,48/0 MAXIMUM TASK PRIORITY
00346 M01S00327.libtask +++| EF CON EFL EXPANDABLE FIELD LENGTH BY TASK
00347 M01S00328.libtask +++| QL VFD 12/CQL,48/0 TASK QUEUE LIMIT
00348 M01S00329.libtask +++| C CON CC*10B CORE RESIDENT DIRECTORY INFORMATION
00349 M01S00330.libtask +++| D CON CD*20B DESTRUCTIVE CODE DIRECTORY INFORMATION
00350 M01S00331.libtask +++| S CON CS*40B SYSTEM TASK DIRECTORY INFORMATION
00351 M01S00332.libtask +++| OO CON CO*02B ON/OFF BIT
| Line S00333 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00352 M02S00333.v23l617 ---| E CON CE*04B ECS RESIDENT BIT
00353 M01S00014.v23l617 +++| E CON CE*04B EXTENDED MEMORY RESIDENT BIT
00354 M01S00334.libtask +++| DL CON CDL*01B DELETE BIT
00355 M01S00335.libtask +++| Q CON CQ*MLQU QUEUING CONTROL BIT
00356 M01S00336.libtask +++| R CON CRE REDUCE FL FLAG
00357 M01S00337.libtask +++| IG CON 0 IGNORE TASK
00358 M01S00338.libtask +++| SC CON 0 SOLICITED FLAG
00359 M01S00339.libtask +++|
00360 M01S00340.libtask +++| TSK1 CON 0 TASK 1
00361 M01S00341.libtask +++| TSK2 CON 0 TASK 2
00362 M01S00342.libtask +++| TSK3 CON 0 TASK 3
00363 M01S00343.libtask +++| TSK4 CON 0 TASK 4
00364 M01S00344.libtask +++| TSK5 CON 0 TASK 5
00365 M01S00345.libtask +++| RC CON 0 RECOVER TRANSACTION
00366 M01S00346.libtask +++| DM CON 0 DATA MANAGER(S) USED
00367 M01S00347.libtask +++| TDL CON 0 DELETE TRANSACTION
00368 M01S00348.libtask +++|
00369 M01S00349.libtask +++| JOBORG BSS 1 JOB ORIGIN CODE
00370 M01S00350.libtask +++| ENDH CON 10H0LAST MODI
00371 M01S00351.libtask +++| CON 10HFICATION
00372 M01S00352.libtask +++| CON 10H -
00373 M01S00353.libtask +++| LAST BSSZ 3
00374 M01S00354.libtask +++| ENDHL EQU *-ENDH
00375 M01S00355.libtask +++|
00376 M01S00356.libtask +++|
00377 M01S00357.libtask +++| LREC TABLE TASKS ON TASK LIBRARY
00378 M01S00358.libtask +++|
00379 M01S00359.libtask +++| RREC TABLE RECORDS REPLACED TABLE
00380 M01S00360.libtask +++|
00381 M01S00361.libtask +++| IREC TABLE RECORDS INSERTED TABLE
00382 M01S00362.libtask +++|
00383 M01S00363.libtask +++| DRTC TABLE INPUT DIRECTIVES
00384 M01S00364.libtask +++|
00385 M01S00365.libtask +++| TDCH TABLE DIRECTIVES CHANGED TABLE
00386 M01S00366.libtask +++|
00387 M01S00367.libtask +++| TDRC TABLE DIRECTIVES CHANGED
00388 M01S00368.libtask +++|
00389 M01S00369.libtask +++| TDIG TABLE IGNORE TASK
00390 M01S00370.libtask +++|
00391 M01S00371.libtask +++| TTIN TABLE TRANSACTION UNITS INSERTED
00392 M01S00372.libtask +++|
00393 M01S00373.libtask +++| TTCN TABLE TRANSACTION UNITS CHANGED
00394 M01S00374.libtask +++|
00395 M01S00375.libtask +++| TTNE TABLE TRANSACTION UNITS WITH NONEXISTENT TASKS
00396 M01S00006.ns2523 +++|
00397 M01S00007.ns2523 +++| SSJ= BSS 0 SPECIAL SYSTEM JOB PARAMETER BLOCK
00398 M01S00008.ns2523 +++| VFD 36/0,12/LTCS,12/UJSI
00399 M01S00009.ns2523 +++| BSSZ SSJL-1
00400 M01S00376.libtask +++| LIB TITLE MAIN PROGRAM.
00401 M01S00377.libtask +++|** LIB - LIBTASK MAIN PROGRAM.
00402 M01S00378.libtask +++|*
00403 M01S00379.libtask +++|* LIB READS THE BINARIES AND BUILDS NEW ENTRIES
00404 M01S00380.libtask +++|* AT THE END OF THE LIBRARY FILE. ONE BINARY RECORD (TASK) AT
00405 M01S00381.libtask +++|* A TIME IS READ FROM THE B FILE AND WRITTEN ON THE P FILE. A
00406 M01S00382.libtask +++|* NEW DIRECTORY ENTRY IS CREATED IF THIS IS A NEW TASK, OR THE
00407 M01S00383.libtask +++|* EXISTING ENTRY IS UPDATED. IF THE CR OPTION IS SET, THE
00408 M01S00384.libtask +++|* DIRECTORY ENTRIES ARE ARRANGED ALPHABETICALLY, ELSE NEW
00409 M01S00385.libtask +++|* ENTRIES ARE ADDED AT THE END OF THE DIRECTORY.
00410 M01S00386.libtask +++|* THE STORAGE AREAS OF *PRS* AND RELATED ROUTINES ARE USED
00411 M01S00387.libtask +++|* FOR TASK LIBRARY DIRECTORY RESIDENT AFTER *PRS* IS CALLED.
00412 M01S00388.libtask +++|
00413 M01S00389.libtask +++|
00414 M01S00390.libtask +++| LIBTASK RJ PRS INITIALIZE LIBTASK
00415 M01S00391.libtask +++|
00416 M01S00392.libtask +++|* CHECK CREATION RUN.
00417 M01S00393.libtask +++|
00418 M01S00394.libtask +++| SA1 B
00419 M01S00395.libtask +++| ZR X1,LIB0 IF NO BINARY FILE
00420 M01S00396.libtask +++| REWIND B,R
00421 M01S00397.libtask +++| READ B INITIATE READ
00422 M01S00398.libtask +++| LIB0 SA1 CR
00423 M01S00399.libtask +++| SA2 PR
00424 M01S00400.libtask +++| ZR X1,LIB1 IF NOT A CREATION RUN
00425 M01S00401.libtask +++| RJ PCR CREATE A NEW LIBRARY
00426 M01S00402.libtask +++| EQ LIB4 PROCESS OUTPUT
00427 M01S00403.libtask +++|
00428 M01S00404.libtask +++|* CHECK PURGE RUN.
00429 M01S00405.libtask +++|
00430 M01S00406.libtask +++| LIB1 SA3 TT
00431 M01S00407.libtask +++| ZR X2,LIB2 IF NOT A PURGE RUN
00432 M01S00408.libtask +++| RJ PIT PURGE INACTIVE TASKS
00433 M01S00409.libtask +++| EQ LIB4 PROCESS OUTPUT
00434 M01S00410.libtask +++|
00435 M01S00411.libtask +++|* CHECK TELL *TAF* RUN.
00436 M01S00412.libtask +++|
00437 M01S00413.libtask +++| LIB2 ZR X3,LIB3 IF NOT A TELL *TAF* RUN
00438 M01S00414.libtask +++| RJ PTT TELL *TAF*
00439 M01S00415.libtask +++| EQ LIB4 PROCESS OUTPUT
00440 M01S00416.libtask +++|
00441 M01S00417.libtask +++| LIB3 RJ PNP PROCESS NO PARAMETERS
00442 M01S00418.libtask +++| LIB4 SA1 JOBORG
00443 M01S00419.libtask +++| ZR X1,LIB5 IF INTERACTIVE INPUT
00444 M01S00420.libtask +++| SA1 L.LREC
00445 M01S00421.libtask +++| ZR X1,LIB5 IF NO TASKS ON OLD DIRECTORY
00446 M01S00422.libtask +++|
00447 M01S00423.libtask +++|* WRITE NAMES OF TASKS ON OLD DIRECTORY.
00448 M01S00424.libtask +++|
00449 M01S00425.libtask +++| WRITEW O,LIBE,LIBEL
00450 M01S00426.libtask +++| SX2 2
00451 M01S00427.libtask +++| RJ ALC ADVANCE LINE COUNT
00452 M01S00428.libtask +++| SA1 F.LREC START OF NAMES
00453 M01S00429.libtask +++| SA5 L.LREC COUNT OF NAMES
00454 M01S00430.libtask +++| SB7 X1
00455 M01S00431.libtask +++| SX1 X5
00456 M01S00432.libtask +++| RJ /COMCSST/SST SORT TABLE
00457 M01S00433.libtask +++| SA1 F.LREC START OF NAMES
00458 M01S00434.libtask +++| RJ LRL LIST RECORD LIST
00459 M01S00435.libtask +++| LIB5 SA1 L.IREC
00460 M01S00436.libtask +++| ZR X1,LIB6 IF NO RECORDS INSERTED
00461 M01S00437.libtask +++|
00462 M01S00438.libtask +++|* WRITE NAMES OF RECORDS INSERTED.
00463 M01S00439.libtask +++|
00464 M01S00440.libtask +++| WRITEW O,LIBC,LIBCL
00465 M01S00441.libtask +++| SX2 2
00466 M01S00442.libtask +++| RJ ALC ADVANCE LINE COUNT
00467 M01S00443.libtask +++| SA1 F.IREC START OF INSERTED RECORD NAMES
00468 M01S00444.libtask +++| SA5 L.IREC COUNT OF INSERTED RECORD NAMES
00469 M01S00445.libtask +++| SB7 X1
00470 M01S00446.libtask +++| SX1 X5
00471 M01S00447.libtask +++| RJ /COMCSST/SST SORT TABLE
00472 M01S00448.libtask +++| SA1 F.IREC START OF INSERTED RECORD NAMES
00473 M01S00449.libtask +++| RJ LRL LIST RECORD LIST
00474 M01S00450.libtask +++| LIB6 SA1 L.RREC
00475 M01S00451.libtask +++| ZR X1,LIB7 IF NO RECORDS REPLACED
00476 M01S00452.libtask +++|
00477 M01S00453.libtask +++|* WRITE NAMES OF RECORDS REPLACED.
00478 M01S00454.libtask +++|
00479 M01S00455.libtask +++| WRITEW O,LIBD,LIBDL
00480 M01S00456.libtask +++| SX2 2
00481 M01S00457.libtask +++| RJ ALC ADVANCE LINE COUNT
00482 M01S00458.libtask +++| SA1 F.RREC START OF REPLACED RECORD NAMES
00483 M01S00459.libtask +++| SA5 L.RREC COUNT OF RECORD NAMES
00484 M01S00460.libtask +++| SB7 X1
00485 M01S00461.libtask +++| SX1 X5
00486 M01S00462.libtask +++| RJ /COMCSST/SST SORT TABLE
00487 M01S00463.libtask +++| SA1 F.RREC START OF REPLACED RECORD NAMES
00488 M01S00464.libtask +++| RJ LRL LIST RECORD LIST
00489 M01S00465.libtask +++| LIB7 SA1 L.TDRC
00490 M01S00466.libtask +++| ZR X1,LIB8 IF NO DIRECTIVES CHANGED
00491 M01S00467.libtask +++|
00492 M01S00468.libtask +++|* WRITE NAMES OF DIRECTIVES CHANGED.
00493 M01S00469.libtask +++|
00494 M01S00470.libtask +++| WRITEW O,LIBL,LIBLL
00495 M01S00471.libtask +++| SX2 2
00496 M01S00472.libtask +++| RJ ALC ADVANCE LINE COUNT
00497 M01S00473.libtask +++| SA1 F.TDRC START OF DIRECTIVE CHANGE NAMES
00498 M01S00474.libtask +++| SA5 L.TDRC COUNT OF NAMES
00499 M01S00475.libtask +++| SB7 X1
00500 M01S00476.libtask +++| SX1 X5
00501 M01S00477.libtask +++| RJ /COMCSST/SST SORT TABLE
00502 M01S00478.libtask +++| SA1 F.TDRC START OF DIRECTIVE CHANGE NAMES
00503 M01S00479.libtask +++| RJ LRL LIST RECORD LIST
00504 M01S00480.libtask +++| LIB8 SA1 L.TTIN
00505 M01S00481.libtask +++| ZR X1,LIB9 IF NO TRANSACTION UNITS INSERTED
00506 M01S00482.libtask +++|
00507 M01S00483.libtask +++|* WRITE NAMES OF TRANSACTION UNITS INSERTED.
00508 M01S00484.libtask +++|
00509 M01S00485.libtask +++| WRITEW O,LIBN,LIBNL
00510 M01S00486.libtask +++| SX2 2
00511 M01S00487.libtask +++| RJ ALC ADVANCE LINE COUNT
00512 M01S00488.libtask +++| SB2 B1 WORDS PER ENTRY
00513 M01S00489.libtask +++| SA1 F.TTIN
00514 M01S00490.libtask +++| SB6 X1 FWA OF TABLE
00515 M01S00491.libtask +++| SA1 L.TTIN LENGTH OF TABLE
00516 M01S00492.libtask +++| SB3 LIBQ TEMPORARY BUFFER
00517 M01S00493.libtask +++| MX0 42 MASK
00518 M01S00494.libtask +++| RJ SSR SORT TABLE
00519 M01S00495.libtask +++| SA1 F.TTIN
00520 M01S00496.libtask +++| SA5 L.TTIN
00521 M01S00497.libtask +++| RJ LRL LIST RECORD LIST
00522 M01S00498.libtask +++| LIB9 SA1 L.TTCN
00523 M01S00499.libtask +++| ZR X1,LIB10 IF NO TRANSACTION UNITS CHANGED
00524 M01S00500.libtask +++|
00525 M01S00501.libtask +++|* WRITE NAMES OF TRANSACTION UNITS CHANGED.
00526 M01S00502.libtask +++|
00527 M01S00503.libtask +++| WRITEW O,LIBO,LIBOL
00528 M01S00504.libtask +++| SX2 2
00529 M01S00505.libtask +++| RJ ALC ADVANCE LINE COUNT
00530 M01S00506.libtask +++| SB2 B1 WORDS PER ENTRY
00531 M01S00507.libtask +++| SA1 F.TTCN
00532 M01S00508.libtask +++| SB6 X1 FWA OF TABLE
00533 M01S00509.libtask +++| SA1 L.TTCN LENGTH OF TABLE
00534 M01S00510.libtask +++| SB3 LIBQ TEMPORARY BUFFER
00535 M01S00511.libtask +++| MX0 42 MASK
00536 M01S00512.libtask +++| RJ SSR SORT TABLE
00537 M01S00513.libtask +++| SA1 F.TTCN
00538 M01S00514.libtask +++| SA5 L.TTCN
00539 M01S00515.libtask +++| RJ LRL LIST RECORD LIST
00540 M01S00516.libtask +++| LIB10 SA1 L.TTNE
00541 M01S00517.libtask +++| ZR X1,LIB11 IF NO TRANSACTION UNITS WITH NONEXISTENT
00542 M01S00518.libtask +++|
00543 M01S00519.libtask +++|* WRITE NAMES OF TRANSACTION UNITS WITH NONEXISTENT TASKS.
00544 M01S00520.libtask +++|
00545 M01S00521.libtask +++| WRITEW O,LIBP,LIBPL
00546 M01S00522.libtask +++| SX2 2
00547 M01S00523.libtask +++| RJ ALC ADVANCE LINE COUNT
00548 M01S00524.libtask +++| SB2 B1 WORDS PER ENTRY
00549 M01S00525.libtask +++| SA1 F.TTNE
00550 M01S00526.libtask +++| SB6 X1 FWA OF TABLE
00551 M01S00527.libtask +++| SA1 L.TTNE LENGTH OF TABLE
00552 M01S00528.libtask +++| SB3 LIBQ TEMPORARY BUFFER
00553 M01S00529.libtask +++| MX0 42 MASK
00554 M01S00530.libtask +++| RJ SSR SORT TABLE
00555 M01S00531.libtask +++| SA1 F.TTNE
00556 M01S00532.libtask +++| SA5 L.TTNE
00557 M01S00533.libtask +++| RJ LRL LIST RECORD LIST
00558 M01S00534.libtask +++|
00559 M01S00535.libtask +++|* PROCESS LIST OPTION IF USED.
00560 M01S00536.libtask +++|
00561 M01S00537.libtask +++| LIB11 SA1 LO
00562 M01S00538.libtask +++| ZR X1,LIB12 IF NO *LO* OPTION
00563 M01S00539.libtask +++| RJ PLO PROCESS LIST OPTION
00564 M01S00540.libtask +++|
00565 M01S00541.libtask +++|* WRITE TIME AND DATE OF MOST RECENT LIBRARY MODIFICATION.
00566 M01S00542.libtask +++|
00567 M01S00543.libtask +++| LIB12 SA1 RECN
00568 M01S00544.libtask +++| NZ X1,LIB13 IF *B* FILE USED
00569 M01S00545.libtask +++| SA1 TLDHD PLACE DIRECTORY DATE IN OUTPUT LINE
00570 M01S00546.libtask +++| BX6 X1
00571 M01S00547.libtask +++| SA6 LAST
00572 M01S00548.libtask +++| SA1 TLDHT PLACE DIRECTORY TIME IN OUTPUT LINE
00573 M01S00549.libtask +++| BX6 X1
00574 M01S00550.libtask +++| SA6 LAST+1
00575 M01S00551.libtask +++| LIB13 WRITEW O,ENDH,ENDHL WRITE DATE AND TIME OF LAST MODIFICATION
00576 M01S00552.libtask +++| WRITER O FLUSH OUTPUT FILE
00577 M01S00010.ns2523 +++| SETFS O,0 PREVENT RETURN OF OUTPUT FILE
00578 M01S00553.libtask +++| SA1 BFEF
00579 M01S00554.libtask +++| ZR X1,LIB14 IF NO ERRORS ON *B* OR *PLO*
00580 M01S00555.libtask +++| MESSAGE LIBJ * LIBTASK ERRORS.*
00581 M01S00556.libtask +++| ABORT
00582 M01S00557.libtask +++|
00583 M01S00558.libtask +++| LIB14 MESSAGE LIBF * TASK EDITING COMPLETE.*
00584 M01S00559.libtask +++| ENDRUN
00585 M01S00560.libtask +++|
00586 M01S00561.libtask +++|* TLD VALUES FOR CURRENT TASK.
00587 M01S00562.libtask +++|
00588 M01S00563.libtask +++| LIBA VFD 48/0,6/0,6/0 WORD 2 OF TLD
00589 M01S00564.libtask +++| VFD 1/CS,1/CD,1/CC,3/0,18/0,18/0,18/0
00590 M01S00565.libtask +++|
00591 M01S00566.libtask +++|* DEFAULT VALUES FOR ALL TASKS.
00592 M01S00567.libtask +++|
00593 M01S00568.libtask +++| LIBB VFD 48/0,6/0,6/0 WORD 2 OF TLD
00594 M01S00569.libtask +++| VFD 1/CS,1/CD,1/CC,3/0,18/0,18/0,18/0
00595 M01S00570.libtask +++| LIBC DATA C* RECORDS INSERTED INTO LIBRARY FILE - *
00596 M01S00571.libtask +++| LIBCL EQU *-LIBC
00597 M01S00572.libtask +++| LIBD DATA C* RECORDS REPLACED IN LIBRARY FILE - *
00598 M01S00573.libtask +++| LIBDL EQU *-LIBD
00599 M01S00574.libtask +++| LIBE DATA C* RECORDS ON OLD TASK LIBRARY FILE - *
00600 M01S00575.libtask +++| CON 8L
00601 M01S00576.libtask +++| LIBEL EQU *-LIBE
00602 M01S00577.libtask +++| LIBF DATA C* TASK EDITING COMPLETE.*
00603 M01S00578.libtask +++| LIBG DATA C* COPYING *
00604 M01S00579.libtask +++| LIBH VFD 18/0,12/TRSI,30/0 REPLY WORD FOR *SIC* MACRO
00605 M01S00580.libtask +++| LIBI VFD 12/2002B,30/0,18/LIBIL
00606 M01S00581.libtask +++| VFD 42/0,18/0
00607 M01S00582.libtask +++| CON 0 TASK LIBRARY NAME
00608 M01S00583.libtask +++| LIBIL EQU *-LIBI LENGTH OF PARAMETER BLOCK
00609 M01S00584.libtask +++| LIBJ DATA C* LIBTASK ERRORS.*
00610 M01S00585.libtask +++| LIBK DATA C* FILE NOT ATTACHED - *
00611 M01S00586.libtask +++| LIBL DATA C* DIRECTIVE ENTRIES CHANGED IN TASK LIBRARY DIRECTORY.
00612 M01S00587.libtask +++|,*
00613 M01S00588.libtask +++| CON 8L
00614 M01S00589.libtask +++| LIBLL EQU *-LIBL
00615 M01S00590.libtask +++| LIBM DATA C*IGNORING *
00616 M01S00591.libtask +++| LIBN DATA C* TRANSACTION NAMES INSERTED.*
00617 M01S00592.libtask +++| CON 8L
00618 M01S00593.libtask +++| LIBNL EQU *-LIBN
00619 M01S00594.libtask +++| LIBO DATA C* TRANSACTION NAMES CHANGED.*
00620 M01S00595.libtask +++| CON 8L
00621 M01S00596.libtask +++| LIBOL EQU *-LIBO
00622 M01S00597.libtask +++| LIBP DATA C* TRANSACTION NAMES CONTAINING NONEXISTENT TASKS.*
00623 M01S00598.libtask +++| CON 8L
00624 M01S00599.libtask +++| LIBPL EQU *-LIBP
00625 M01S00600.libtask +++| LIBQ CON 0 TEMPORARY BUFFER FOR *SSR*
00626 M01S00601.libtask +++| TITLE SUBROUTINES.
00627 M01S00602.libtask +++| ALC SPACE 4,15
00628 M01S00603.libtask +++|** ALC - ADVANCE LINE COUNT.
00629 M01S00604.libtask +++|*
00630 M01S00605.libtask +++|* ADVANCE THE LINE COUNT FOR THE OUTPUT FILE PAGE AND
00631 M01S00606.libtask +++|* CHECK FOR END OF PAGE.
00632 M01S00607.libtask +++|*
00633 M01S00608.libtask +++|* ENTRY (X2) = LINE COUNT IF NOT 1.
00634 M01S00609.libtask +++|*
00635 M01S00610.libtask +++|* EXIT LINE COUNT ADVANCED.
00636 M01S00611.libtask +++|*
00637 M01S00612.libtask +++|* USES A - 1, 6, 7.
00638 M01S00613.libtask +++|* B - 2.
00639 M01S00614.libtask +++|* X - 1, 2, 4, 6, 7.
00640 M01S00615.libtask +++|*
00641 M01S00616.libtask +++|* CALLS CDD, STL.
00642 M01S00617.libtask +++|
00643 M01S00618.libtask +++|
00644 M01S00619.libtask +++| ALC SUBR ENTRY/EXIT
00645 M01S00620.libtask +++| SA1 ALCA LINE COUNT
00646 M01S00621.libtask +++| IX7 X1+X2
00647 M01S00622.libtask +++| SA7 A1 LINE COUNT ADVANCED
00648 M01S00623.libtask +++| SB2 X1-58
00649 M01S00624.libtask +++| NG B2,ALCX IF NOT AT END OF PAGE
00650 M01S00625.libtask +++| SA1 ALCB
00651 M01S00626.libtask +++| SX7 X1+1 ADVANCE PAGE COUNT
00652 M01S00627.libtask +++| SA7 ALCB
00653 M01S00628.libtask +++| RJ CDD CONVERT TO DECIMAL DISPLAY CODE
00654 M01S00629.libtask +++| MX4 30
00655 M01S00630.libtask +++| SA1 STLAP HEADER PAGE WORD
00656 M01S00631.libtask +++| BX2 X4*X1
00657 M01S00632.libtask +++| BX6 -X4*X6
00658 M01S00633.libtask +++| BX6 X6+X2
00659 M01S00634.libtask +++| SA6 A1+ NEW PAGE NUMBER INSERTED
00660 M01S00635.libtask +++| RJ STL SET NEW TITLE LINE
00661 M01S00636.libtask +++| EQ ALCX RETURN
00662 M01S00637.libtask +++|
00663 M01S00638.libtask +++| ALCA CON 3 LINE COUNT
00664 M01S00639.libtask +++| ALCB CON 2 PAGE COUNT
00665 M01S00640.libtask +++| CDR SPACE 4,15
00666 M01S00641.libtask +++|** CDR - COPY DIRECTORY TO TASK LIBRARY.
00667 M01S00642.libtask +++|*
00668 M01S00643.libtask +++|* ENTRY FILE INITIALIZED.
00669 M01S00644.libtask +++|* (X5) = FILE NAME TO WHICH TLD IS TO BE COPIED.
00670 M01S00645.libtask +++|*
00671 M01S00646.libtask +++|* EXIT TASK AND TRANSACTION DIRECTORIES COPIED
00672 M01S00647.libtask +++|* TO THE LIBRARY FILE.
00673 M01S00648.libtask +++|*
00674 M01S00649.libtask +++|* USES A - 1, 2, 3, 4, 6, 7.
00675 M01S00650.libtask +++|* X - 1, 2, 3, 4, 6, 7.
00676 M01S00651.libtask +++|*
00677 M01S00652.libtask +++|* CALLS STN, STR.
00678 M01S00653.libtask +++|*
00679 M01S00654.libtask +++|* MACROS RECALL, WRITEF, WRITER, WRITEW.
00680 M01S00655.libtask +++|
00681 M01S00656.libtask +++|
00682 M01S00657.libtask +++| CDR SUBR ENTRY/EXIT
00683 M01S00658.libtask +++| RJ STN FIND TRANSACTIONS WITH NONEXISTENT TASKS
00684 M01S00659.libtask +++| RECALL X5 WAIT FOR FILE NOT BUSY
00685 M01S00660.libtask +++| SA1 STLAD PLACE DATE IN DIRECTORY
00686 M01S00661.libtask +++| SA2 STLAT PLACE TIME IN DIRECTORY HEADER
00687 M01S00662.libtask +++| BX6 X1
00688 M01S00663.libtask +++| BX7 X2
00689 M01S00664.libtask +++| SA6 LAST
00690 M01S00665.libtask +++| SA7 LAST+1
00691 M01S00666.libtask +++| SA6 TLDHD
00692 M01S00667.libtask +++| SA7 TLDHT
00693 M01S00668.libtask +++| SA1 TRDE
00694 M01S00669.libtask +++| ZR X1,CDR1 IF TRD DOES NOT EXIST
00695 M01S00670.libtask +++| SA1 MTRD
00696 M01S00671.libtask +++| ZR X1,CDR1 IF TRD NOT MODIFIED
00697 M01S00672.libtask +++| SA1 LWTRD
00698 M01S00673.libtask +++| SX2 X1-TRD LENGTH OF TRD
00699 M01S00674.libtask +++| NZ X2,CDR0 IF TRD NOT EMPTY
00700 M01S00675.libtask +++| SA1 TLDH+TLTRW CLEAR PRU OF TRD IN TLD HEADER
00701 M01S00676.libtask +++| MX3 60-TLTRN
00702 M01S00677.libtask +++| BX6 X3*X1
00703 M01S00678.libtask +++| SA6 A1+
00704 M01S00679.libtask +++| EQ CDR1 PROCESS TLD
00705 M01S00680.libtask +++|
00706 M01S00681.libtask +++| CDR0 SA6 TRDH+2 DATE
00707 M01S00682.libtask +++| SA7 A6+1 TIME
00708 M01S00683.libtask +++| RJ STR SORT TRANSACTION DIRECTORY
00709 M01S00684.libtask +++| SA2 X5+6
00710 M01S00685.libtask +++| MX3 TLTRN
00711 M01S00686.libtask +++| ERRNZ TLTRN-30 *CRI* AND PRU OF TRD LENGTHS DIFFERENT
00712 M01S00687.libtask +++| BX6 X3*X2 EXTRACT CURRENT RANDOM INDEX FROM FET
00713 M01S00688.libtask +++| SA2 TLDH+TLTRW
00714 M01S00689.libtask +++| LX6 TLTRS-59
00715 M01S00690.libtask +++| BX3 X3*X2 CLEAR OLD PRU
00716 M01S00691.libtask +++| BX6 X6+X3
00717 M01S00692.libtask +++| SA6 A2 PRU OF TRD IN TLD HEADER
00718 M01S00693.libtask +++| SA1 LWTRD
00719 M01S00694.libtask +++| SX7 X1-TRD LENGTH OF TRD
00720 M01S00695.libtask +++| MX3 -18
00721 M01S00696.libtask +++| LX3 18
00722 M01S00697.libtask +++| LX7 18
00723 M01S00698.libtask +++| SA2 TRDH+1
00724 M01S00699.libtask +++| BX2 X3*X2
00725 M01S00700.libtask +++| BX7 X2+X7
00726 M01S00701.libtask +++| SA7 A2 TRD LENGTH IN TRD HEADER
00727 M01S00702.libtask +++| WRITEW X5,TRDH,X1-TRDH WRITE TRD TO FILE
00728 M01S00703.libtask +++| WRITER X5,R FLUSH BUFFER
00729 M01S00704.libtask +++| CDR1 SA1 CRES NUMBER OF CM RESIDENT TASKS
00730 M01S00705.libtask +++| SA3 TT
00731 M01S00706.libtask +++| SA4 LWTLD LWA OF TLD
00732 M01S00707.libtask +++| ZR X3,CDR2 IF NOT *TT* RUN
00733 M01S00708.libtask +++| SA4 LWOLD LWA OF BASE TLD
00734 M01S00709.libtask +++| CDR2 SA2 TLDH+1
00735 M01S00710.libtask +++| MX3 18
00736 M01S00711.libtask +++| BX2 X3*X2
00737 M01S00712.libtask +++| SX6 X4-TLD LENGTH OF TLD
00738 M01S00713.libtask +++| BX7 X1+X2 STORE CORE RESIDENT COUNT IN HEADER WORD
00739 M01S00714.libtask +++| LX6 18
00740 M01S00715.libtask +++| BX7 X7+X6 ADD TLD LENGTH
00741 M01S00716.libtask +++| SA7 TLDH+1 UPDATE DIRECTORY HEADER
00742 M01S00717.libtask +++| SA4 LWTLD LWA OF TLD
00743 M01S00718.libtask +++| WRITEW X5,TLDH,X4-TLDH
00744 M01S00719.libtask +++| WRITER X5 FLUSH BUFFER
00745 M01S00720.libtask +++| WRITEF X5 WRITE EOF ON LIBRARY FILE
00746 M01S00721.libtask +++| EQ CDRX
00747 M01S00722.libtask +++| ERR SPACE 4,25
00748 M01S00723.libtask +++|** ERR - PROCESS ERRORS ENCOUNTERED IN BINARY OR INPUT
00749 M01S00724.libtask +++|* DIRECTIVE FILE.
00750 M01S00725.libtask +++|*
00751 M01S00726.libtask +++|* THE FOLLOWING BLOCKS OF CODE HANDLE VARIOUS ERROR CONDITIONS
00752 M01S00727.libtask +++|* WHICH MAY OCCUR WHILE PROCESSING THE *B* OR *I* FILE.
00753 M01S00728.libtask +++|*
00754 M01S00729.libtask +++|* ENTRY (X6) = 1 - RECORD LESS THAN 64D WORDS.
| Line S00730 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00755 M02S00730.v23l617 ---|* 2 - ILLEGAL RECORD TYPE ON BINARY.
00756 M01S00015.v23l617 +++|* 2 - INCORRECT RECORD TYPE ON BINARY.
00757 M01S00731.libtask +++|* 3 - MULTIPLE ENTRY POINT.
00758 M01S00732.libtask +++|* 4 - ERROR IN *54* TABLE.
00759 M01S00733.libtask +++|* 5 - TLD IS FULL.
00760 M01S00734.libtask +++|* 6 - TRD IS FULL.
00761 M01S00735.libtask +++|*
00762 M01S00736.libtask +++|* EXIT (BFEF) = 1 IF ERROR PROCESSED.
00763 M01S00737.libtask +++|*
00764 M01S00738.libtask +++|* USES A - 1, 6, 7.
00765 M01S00739.libtask +++|* B - 3.
00766 M01S00740.libtask +++|* X - 1, 2, 6, 7.
00767 M01S00741.libtask +++|*
00768 M01S00742.libtask +++|* CALLS ALC, SEH, SFN, SKR.
00769 M01S00743.libtask +++|*
00770 M01S00744.libtask +++|* MACROS ABORT, MESSAGE, READ, WRITEW.
00771 M01S00745.libtask +++|
00772 M01S00746.libtask +++|
00773 M01S00747.libtask +++| ERR9 SX7 B1+ INDICATE ERROR ENCOUNTERED
00774 M01S00748.libtask +++| SA7 BFEF
00775 M01S00749.libtask +++|
00776 M01S00750.libtask +++| ERR SUBR ENTRY/EXIT
00777 M01S00751.libtask +++| LX6 -1
00778 M01S00752.libtask +++| SX2 X6-TERRL
00779 M01S00753.libtask +++| SB3 X6
00780 M01S00754.libtask +++| PL X2,ERR7 IF UNKNOWN ERROR CONDITION
00781 M01S00755.libtask +++| JP B3+TERR JUMP THROUGH TABLE
00782 M01S00756.libtask +++|
00783 M01S00757.libtask +++| TERR PL X6,ERR7 UNKNOWN ERROR CONDITION
00784 M01S00758.libtask +++| EQ ERR1 RECORD LESS THAN 64D WORDS
| Line S00759 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00785 M02S00759.v23l617 ---| PL X6,ERR4 ILLEGAL RECORD TYPE
00786 M01S00016.v23l617 +++| PL X6,ERR4 IF INCORRECT RECORD TYPE
00787 M01S00760.libtask +++| EQ ERR5 MULTIPLE ENTRY POINT
00788 M01S00761.libtask +++| PL X6,ERR6 ERRORS IN *54* TABLE
00789 M01S00762.libtask +++| EQ ERR8 TLD FULL
00790 M01S00763.libtask +++| PL X6,ERR10 TRD FULL
00791 M01S00764.libtask +++| EQ ERR7 UNKNOWN ERROR CONDITION
00792 M01S00765.libtask +++| TERRL EQU *-TERR LENGTH OF ERROR JUMP TABLE
00793 M01S00766.libtask +++|
00794 M01S00767.libtask +++|* BINARY RECORD LESS THAN 64D WORDS LONG.
00795 M01S00768.libtask +++|
00796 M01S00769.libtask +++| ERR1 SX2 X1-HB
00797 M01S00770.libtask +++| NZ X2,ERR2 IF NOT A BLANK RECORD
00798 M01S00771.libtask +++| READ B REINITIATE READ ON BINARY FILE
00799 M01S00772.libtask +++| EQ ERRX RETURN
00800 M01S00773.libtask +++|
00801 M01S00774.libtask +++| ERR2 SX2 X1-HB-1
00802 M01S00775.libtask +++| PL X2,ERR3 IF MORE THAN ONE WORD ON RECORD
00803 M01S00776.libtask +++| SX6 B0+
00804 M01S00777.libtask +++| SA6 HB+1 NO TASK NAME
00805 M01S00778.libtask +++| ERR3 READ B INITIATE READ ON BINARY FILE
00806 M01S00779.libtask +++| RJ SEH SET ERROR HEADER
00807 M01S00780.libtask +++| MX7 42
00808 M01S00781.libtask +++| SA1 HB+1 TASK NAME - HOPEFULLY
00809 M01S00782.libtask +++| BX1 X7*X1
00810 M01S00783.libtask +++| RJ SFN SPACE FILL NAME
00811 M01S00784.libtask +++| SA6 ERRA+1
00812 M01S00785.libtask +++| WRITEW O,ERRA,ERRAL
00813 M01S00786.libtask +++| SX2 B1+B1
00814 M01S00787.libtask +++| RJ ALC ADVANCE LINE COUNT
00815 M01S00788.libtask +++| EQ ERR9 RETURN
00816 M01S00789.libtask +++|
| Line S00790 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00817 M02S00790.v23l617 ---|* ILLEGAL RECORD TYPE ON BINARY FILE.
00818 M01S00017.v23l617 +++|* INCORRECT RECORD TYPE ON BINARY FILE.
00819 M01S00791.libtask +++|
00820 M01S00792.libtask +++| ERR4 RJ SKR ADVANCE TO NEXT RECORD
00821 M01S00793.libtask +++| RJ SEH SET ERROR HEADER
00822 M01S00794.libtask +++| MX7 42
00823 M01S00795.libtask +++| SA1 TSKNM TASK NAME
00824 M01S00796.libtask +++| RJ SFN SPACE FILL NAME
00825 M01S00797.libtask +++| SA6 ERRB+1
00826 M01S00798.libtask +++| WRITEW O,ERRB,ERRBL
00827 M01S00799.libtask +++| SX2 B1+B1
00828 M01S00800.libtask +++| RJ ALC ADVANCE LINE COUNT
00829 M01S00801.libtask +++| EQ ERR9 RETURN
00830 M01S00802.libtask +++|
00831 M01S00803.libtask +++|* MORE THAN ONE ENTRY POINT GIVEN ON A *54* TABLE.
00832 M01S00804.libtask +++|
00833 M01S00805.libtask +++| ERR5 RJ SKR SKIP TO NEXT RECORD
00834 M01S00806.libtask +++| RJ SEH SET ERROR HEADER
00835 M01S00807.libtask +++| MX7 42
00836 M01S00808.libtask +++| SA1 TSKNM TASK NAME
00837 M01S00809.libtask +++| RJ SFN SPACE FILL NAME
00838 M01S00810.libtask +++| SA6 ERRC+1
00839 M01S00811.libtask +++| WRITEW O,ERRC,ERRCL
00840 M01S00812.libtask +++| SX2 B1+B1
00841 M01S00813.libtask +++| RJ ALC ADVANCE LINE COUNT
00842 M01S00814.libtask +++| EQ ERR9 RETURN
00843 M01S00815.libtask +++|
00844 M01S00816.libtask +++|* FWA FOR A NON *54* TABLE BINARY WAS NOT EQUAL TO THE
00845 M01S00817.libtask +++|* DEFAULT FWA OF A *54* TABLE.
00846 M01S00818.libtask +++|
00847 M01S00819.libtask +++| ERR6 RJ SKR SKIP TO NEXT RECORD
00848 M01S00820.libtask +++| RJ SEH SET ERROR HEADER
00849 M01S00821.libtask +++| MX7 42
00850 M01S00822.libtask +++| SA1 TSKNM TASK NAME
00851 M01S00823.libtask +++| RJ SFN SPACE FILL NAME
00852 M01S00824.libtask +++| SA6 ERRD+1
00853 M01S00825.libtask +++| WRITEW O,ERRD,ERRDL
00854 M01S00826.libtask +++| SX2 B1+B1
00855 M01S00827.libtask +++| RJ ALC ADVANCE LINE COUNT
00856 M01S00828.libtask +++| EQ ERR9 RETURN
00857 M01S00829.libtask +++|
00858 M01S00830.libtask +++|* UNKNOWN ERROR CONDITION.
00859 M01S00831.libtask +++|
00860 M01S00832.libtask +++| ERR7 MESSAGE ERRE * LIBTASK ERROR CONDITION UNKNOWN.*
00861 M01S00833.libtask +++| ABORT
00862 M01S00834.libtask +++|
00863 M01S00835.libtask +++|* TLD IS FULL.
00864 M01S00836.libtask +++|
00865 M01S00837.libtask +++| ERR8 RJ SEH SET ERROR HEADER
00866 M01S00838.libtask +++| MX7 42
00867 M01S00839.libtask +++| SA1 TSKNM TASK NAME
00868 M01S00840.libtask +++| RJ SFN SPACE FILL NAME
00869 M01S00841.libtask +++| SA6 ERRF+1
00870 M01S00842.libtask +++| WRITEW O,ERRF,ERRFL
00871 M01S00843.libtask +++| SX2 2
00872 M01S00844.libtask +++| RJ ALC ADVANCE LINE COUNT
00873 M01S00845.libtask +++| EQ ERR9 RETURN
00874 M01S00846.libtask +++|
00875 M01S00847.libtask +++|* TRD IS FULL.
00876 M01S00848.libtask +++|
00877 M01S00849.libtask +++| ERR10 RJ SEH SET ERROR HEADING
00878 M01S00850.libtask +++| MX7 42
00879 M01S00851.libtask +++| SA1 INPT TRANSACTION NAME
00880 M01S00852.libtask +++| RJ SFN SPACE FILL NAME
00881 M01S00853.libtask +++| SA6 ERRG+1
00882 M01S00854.libtask +++| WRITEW O,ERRG,ERRGL
00883 M01S00855.libtask +++| SX2 B1+B1
00884 M01S00856.libtask +++| RJ ALC ADVANCE LINE COUNT
00885 M01S00857.libtask +++| EQ ERR9 RETURN
00886 M01S00858.libtask +++|
00887 M01S00859.libtask +++| ERRA DATA 20H0
00888 M01S00860.libtask +++| DATA C* BINARY RECORD WAS LESS THAN 64D WORDS LONG.*
00889 M01S00861.libtask +++| ERRAL EQU *-ERRA LENGTH OF MESSAGE
00890 M01S00862.libtask +++| ERRB DATA 20H0
00891 M01S00863.libtask +++| DATA C* BINARY RECORD WAS NETHER ABSOLUTE NOR OVERLAY.*
00892 M01S00864.libtask +++| ERRBL EQU *-ERRB LENGTH OF MESSAGE
00893 M01S00865.libtask +++| ERRC DATA 20H0
00894 M01S00866.libtask +++| DATA C/ MORE THAN ONE ENTRY POINT ON A *54* TABLE./
00895 M01S00867.libtask +++| ERRCL EQU *-ERRC LENGTH OF MESSAGE
00896 M01S00868.libtask +++| ERRD DATA 20H0
| Line S00869 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00897 M02S00869.v23l617 ---| DATA C* ILLEGAL FWA FOR LOAD.*
00898 M01S00018.v23l617 +++| DATA C* INCORRECT FWA FOR LOAD.*
00899 M01S00870.libtask +++| ERRDL EQU *-ERRD LENGTH OF MESSAGE
00900 M01S00871.libtask +++| ERRE DATA C* LIBTASK ERROR CONDITION UNKNOWN.*
00901 M01S00872.libtask +++| ERRF DATA 20H0
00902 M01S00873.libtask +++| DATA C* DIRECTORY IS FULL - NO MORE ADDITIONS ALLOWED.*
00903 M01S00874.libtask +++| ERRFL EQU *-ERRF LENGTH OF MESSAGE
00904 M01S00875.libtask +++| ERRG DATA 20H0
00905 M01S00876.libtask +++| DATA C* TRD IS FULL - NO MORE ADDITIONS ALLOWED.*
00906 M01S00877.libtask +++| ERRGL EQU *-ERRG
00907 M01S00878.libtask +++| FPL SPACE 4,20
00908 M01S00879.libtask +++|** FPL - FORMAT PRINT LINE.
00909 M01S00880.libtask +++|*
00910 M01S00881.libtask +++|* FORMATS THE PRINT LINE FOR EITHER THE TASK NAME REPORT
00911 M01S00882.libtask +++|* OR THE TRANSACTION UNIT REPORT, PRINTS THE LINE, AND
00912 M01S00883.libtask +++|* CALLS *ALC* TO ADVANCE THE LINE COUNT.
00913 M01S00884.libtask +++|*
00914 M01S00885.libtask +++|* ENTRY (A1) = FWA OF TLD/TRD ENTRY.
00915 M01S00886.libtask +++|* (FPLC) = 0, IF TLD IS BEING FORMATTED.
00916 M01S00887.libtask +++|* = 1, IF TRD IS BEING FORMATTED.
00917 M01S00888.libtask +++|*
00918 M01S00889.libtask +++|* EXIT LINE PRINTED.
00919 M01S00890.libtask +++|*
00920 M01S00891.libtask +++|* USES X - 0, 1, 2, 3, 4, 5, 6, 7.
00921 M01S00892.libtask +++|* A - 1, 2, 4, 5, 6.
00922 M01S00893.libtask +++|* B - 2, 3, 4, 5, 6, 7.
00923 M01S00894.libtask +++|*
00924 M01S00895.libtask +++|* CALLS ALC, COD, PRH, SFN, STD.
00925 M01S00896.libtask +++|*
00926 M01S00897.libtask +++|* MACROS WRITEC, WRITEW.
00927 M01S00898.libtask +++|
00928 M01S00899.libtask +++|
00929 M01S00900.libtask +++| FPL SUBR ENTRY/EXIT
00930 M01S00901.libtask +++| SA2 FPLC FORMAT FLAG
00931 M01S00902.libtask +++| NZ X2,FPL7 IF FORMATTING TRANSACTION UNITS
00932 M01S00903.libtask +++| SA2 A1+TLTNW FIRST WORD OF TLD
00933 M01S00904.libtask +++| MX4 TLTNN
00934 M01S00905.libtask +++| BX1 X4*X2 TASK NAME
00935 M01S00906.libtask +++| RJ SFN SPACE FILL NAME
00936 M01S00907.libtask +++| LX6 -6
00937 M01S00908.libtask +++| SA6 FPLB SET IN FIRST WORD OF PRINT LINE
00938 M01S00909.libtask +++| SA2 A1+B1 SECOND WORD OF TLD
00939 M01S00910.libtask +++| MX0 -TLMPN
00940 M01S00911.libtask +++| BX1 -X0*X2 MAXIMUM PRIORITY
00941 M01S00912.libtask +++| RJ COD CONVERT TO DISPLAY CODE
00942 M01S00913.libtask +++| SA2 A2+B1 THIRD WORD OF TLD
00943 M01S00914.libtask +++| BX5 X6 SAVE MAXIMUM PRIORITY
00944 M01S00915.libtask +++| LX2 TLBPN-1-TLBPS
00945 M01S00916.libtask +++| BX1 -X0*X2 BEGINNING PRIORITY
00946 M01S00917.libtask +++| MX0 -36
00947 M01S00918.libtask +++| BX5 -X0*X5 CLEAR OUT BEGINNING PRIORITY
00948 M01S00919.libtask +++| RJ COD CONVERT TO DISPLAY CODE
00949 M01S00920.libtask +++| LX6 59-23
00950 M01S00921.libtask +++| BX6 X0*X6 BEGINNING PRIORITY
00951 M01S00922.libtask +++| BX6 X6+X5 ADD MAXIMUM TO BEGINNING PRIORITY
00952 M01S00923.libtask +++| MX4 -TLQLN
00953 M01S00924.libtask +++| SA2 A2 THIRD WORD OF TLD
00954 M01S00925.libtask +++| SA6 A6+1 SET IN SECOND WORD OF PRINT LINE
00955 M01S00926.libtask +++| BX1 -X4*X2 QUEUE LIMIT
00956 M01S00927.libtask +++| RJ COD CONVERT TO DISPLAY CODE
00957 M01S00928.libtask +++| LX6 24
00958 M01S00929.libtask +++| MX0 -TLFLN
00959 M01S00930.libtask +++| SA6 A6+1 SET IN THIRD WORD OF PRINT LINE
00960 M01S00931.libtask +++| SA2 A1+TLFLW SECOND WORD OF TLD
00961 M01S00932.libtask +++| BX5 X2
00962 M01S00933.libtask +++| LX2 TLFLN-1-TLFLS
00963 M01S00934.libtask +++| BX1 -X0*X2
00964 M01S00935.libtask +++| LX1 6 FIELD LENGTH*100B
00965 M01S00936.libtask +++| RJ COD CONVERT TO DISPLAY CODE
00966 M01S00937.libtask +++| LX6 24
00967 M01S00938.libtask +++| SA6 A6+1 SET IN FOURTH WORD OF PRINT LINE
00968 M01S00939.libtask +++| LX5 TLEFN-1-TLEFS
00969 M01S00940.libtask +++| ERRNZ TLFLW-TLEFW
00970 M01S00941.libtask +++| BX1 -X0*X5
00971 M01S00942.libtask +++| LX1 6 EXTRA FL*100B
00972 M01S00943.libtask +++| RJ COD CONVERT TO DISPLAY CODE
00973 M01S00944.libtask +++| LX6 24
00974 M01S00945.libtask +++| SA6 A6+B1 SET IN FIFTH WORD OF PRINT LINE
00975 M01S00946.libtask +++| SA5 FPLA
00976 M01S00947.libtask +++| BX6 X5
00977 M01S00948.libtask +++| SA4 A1+TLNDW THIRD WORD OF TLD
00978 M01S00949.libtask +++| BX1 X4
00979 M01S00950.libtask +++| SA6 A6+1 SET SPACES IN SIXTH WORD OF PRINT LINE
00980 M01S00951.libtask +++| SB2 1R-
00981 M01S00952.libtask +++| BX0 X4
00982 M01S00953.libtask +++| LX1 59-TLNDS
00983 M01S00954.libtask +++| SX2 B2+
00984 M01S00955.libtask +++| NG X1,FPL1 IF NOT DESTRUCTIVE CODE
00985 M01S00956.libtask +++| SX2 1RD ADD IN *D*
00986 M01S00957.libtask +++| FPL1 BX1 X4
00987 M01S00958.libtask +++| LX2 6
00988 M01S00959.libtask +++| SX3 B2
00989 M01S00960.libtask +++| LX1 59-TLCMS
00990 M01S00961.libtask +++| PL X1,FPL2 IF NO CM RESIDENT
00991 M01S00962.libtask +++| SX3 1RC
00992 M01S00963.libtask +++| FPL2 BX2 X2+X3 ADD IN *C* OR *-*
00993 M01S00964.libtask +++| LX1 59-TLECS-59+TLCMS
00994 M01S00965.libtask +++| SX3 B2
00995 M01S00966.libtask +++| LX2 6
| Line S00967 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00996 M02S00967.v23l617 ---| PL X1,FPL3 IF NOT ECS RESIDENT
00997 M01S00019.v23l617 +++| PL X1,FPL3 IF NOT EXTENDED MEMORY RESIDENT
00998 M01S00968.libtask +++| SX3 1RE
00999 M01S00969.libtask +++| FPL3 BX2 X2+X3 ADD IN *E* OR *-*
01000 M01S00970.libtask +++| LX0 59-TLTOS
01001 M01S00971.libtask +++| SX3 B2
01002 M01S00972.libtask +++| LX2 6
01003 M01S00973.libtask +++| PL X0,FPL4 IF TASK IS NOT OFF
01004 M01S00974.libtask +++| SX3 1RO
01005 M01S00975.libtask +++| FPL4 BX2 X2+X3 ADD IN *O* OR *-*
01006 M01S00976.libtask +++| LX4 59-TLSCS
01007 M01S00977.libtask +++| SX3 B2
01008 M01S00978.libtask +++| LX2 6
01009 M01S00979.libtask +++| PL X4,FPL5 IF NO SOLICITED COMMUNICATION BLOCK
01010 M01S00980.libtask +++| SX3 1RR
01011 M01S00981.libtask +++| FPL5 BX2 X2+X3 ADD IN *R* OR *-*
01012 M01S00982.libtask +++| LX4 59-TLQUS-59+TLSCS
01013 M01S00983.libtask +++| SX3 B2
01014 M01S00984.libtask +++| LX2 6
01015 M01S00985.libtask +++| PL X4,FPL6 IF QUEUEING NOT ENFORCED
01016 M01S00986.libtask +++| SX3 1RQ
01017 M01S00987.libtask +++| FPL6 BX2 X2+X3 ADD IN *Q* OR *-*
01018 M01S00988.libtask +++| MX4 -24
01019 M01S00989.libtask +++| LX2 24
01020 M01S00990.libtask +++| BX6 -X4*X5
01021 M01S00991.libtask +++| BX6 X6+X2 ADD ATTRIBUTES TO SPACES
01022 M01S00992.libtask +++| SA6 A6+B1 SET IN SEVENTH WORD OF PRINT LINE
01023 M01S00993.libtask +++| EQ FPL14 PRINT OUT LINE
01024 M01S00994.libtask +++|
01025 M01S00995.libtask +++|* FORMAT THE PRINT LINE FOR THE TRANSACTION UNIT REPORT.
01026 M01S00996.libtask +++|
01027 M01S00997.libtask +++| FPL7 MX0 TDTNN
01028 M01S00998.libtask +++| SA2 A1 FIRST WORD OF TRD
01029 M01S00999.libtask +++| SB4 A1
01030 M01S01000.libtask +++| BX1 X0*X2 TRANSACTION NAME
01031 M01S01001.libtask +++| SB7 4
01032 M01S01002.libtask +++| RJ SFN SPACE FILL NAME
01033 M01S01003.libtask +++| LX6 -6
01034 M01S01004.libtask +++| SA6 FPLB SET IN FIRST WORD OF PRINT LINE
01035 M01S01005.libtask +++| SA5 A6-B1 GET SPACES
01036 M01S01006.libtask +++| FPL8 SA2 A2+1 GET NEXT WORD IN TRD
01037 M01S01007.libtask +++| BX6 X5
01038 M01S01008.libtask +++| BX1 X0*X2
01039 M01S01009.libtask +++| ZR X1,FPL10 IF NO TASK
01040 M01S01010.libtask +++| RJ SFN SPACE FILL NAME
01041 M01S01011.libtask +++| SB3 TLDLE LENGTH OF TLD ENTRY
01042 M01S01012.libtask +++| SB5 TLD START OF TLD
01043 M01S01013.libtask +++| BX2 X1
01044 M01S01014.libtask +++| SA1 LWOLD
01045 M01S01015.libtask +++| SB6 X1 LWA OF TLD
01046 M01S01016.libtask +++| RJ STD SEARCH TLD
01047 M01S01017.libtask +++| ZR X1,FPL10 IF TASK NAME IN TLD
01048 M01S01018.libtask +++| LX6 -6
01049 M01S01019.libtask +++| MX3 -54
01050 M01S01020.libtask +++| BX1 -X3*X6
01051 M01S01021.libtask +++| SX4 1R(
01052 M01S01022.libtask +++| LX4 -6
01053 M01S01023.libtask +++| BX6 X1+X4 ADD IN LEFT PARENTHESIS
01054 M01S01024.libtask +++| SB5 -6
01055 M01S01025.libtask +++| MX1 -6
01056 M01S01026.libtask +++| SX4 1R
01057 M01S01027.libtask +++| SB6 6
01058 M01S01028.libtask +++| FPL9 LX6 -6
01059 M01S01029.libtask +++| BX3 -X1*X6
01060 M01S01030.libtask +++| IX7 X3-X4
01061 M01S01031.libtask +++| SB5 B5+B6
01062 M01S01032.libtask +++| ZR X7,FPL9 IF BLANK
01063 M01S01033.libtask +++| LX6 B6
01064 M01S01034.libtask +++| MX1 54
01065 M01S01035.libtask +++| BX2 X1*X6
01066 M01S01036.libtask +++| SX1 1R)
01067 M01S01037.libtask +++| BX6 X2+X1 ADD IN RIGHT PARENTHESIS
01068 M01S01038.libtask +++| LX6 B5 POSITION NAME
01069 M01S01039.libtask +++| FPL10 SB7 B7-B1
01070 M01S01040.libtask +++| SA6 A6+B1 SET NAME IN PRINT LINE
01071 M01S01041.libtask +++| PL B7,FPL8 IF MORE TASKS
01072 M01S01042.libtask +++| MX4 -48
01073 M01S01043.libtask +++| SA2 B4+TDDCW FIRST WORD OF TRD
01074 M01S01044.libtask +++| BX6 -X4*X5 CLEAR OUT *CRM* AND *CDCS* USAGE
01075 M01S01045.libtask +++| BX0 X2
01076 M01S01046.libtask +++| LX2 59-TDDCS
01077 M01S01047.libtask +++| SX3 1R-
01078 M01S01048.libtask +++| PL X2,FPL11 IF NOT *CDCS* USAGE
01079 M01S01049.libtask +++| SX3 1RD
01080 M01S01050.libtask +++| FPL11 LX3 -6
01081 M01S01051.libtask +++| BX6 X6+X3 ADD IN *D* OR *-*
01082 M01S01052.libtask +++| SX3 1R-
01083 M01S01053.libtask +++| LX2 59-TDRMS-59+TDDCS
01084 M01S01054.libtask +++| PL X2,FPL12 IF NOT *CRM* USAGE
01085 M01S01055.libtask +++| SX3 1RC
01086 M01S01056.libtask +++| FPL12 LX3 -12
01087 M01S01057.libtask +++| BX6 X6+X3 ADD IN *C* OR *-*
01088 M01S01058.libtask +++| MX4 54
01089 M01S01059.libtask +++| LX0 59-TDRCS
01090 M01S01060.libtask +++| SX3 1RN
01091 M01S01061.libtask +++| LX4 12
01092 M01S01062.libtask +++| BX6 X4*X6 CLEAR OUT RECOVER FLAG
01093 M01S01063.libtask +++| PL X0,FPL13 IF NOT RECOVERABLE
01094 M01S01064.libtask +++| SX3 1RY
01095 M01S01065.libtask +++| FPL13 LX3 12
01096 M01S01066.libtask +++| BX6 X6+X3 ADD IN *N* OR *Y*
01097 M01S01067.libtask +++| SA6 A6+1 SET IN SEVENTH WORD OF PRINT LINE
01098 M01S01068.libtask +++|
01099 M01S01069.libtask +++|* PRINT OUTPUT LINE.
01100 M01S01070.libtask +++|
01101 M01S01071.libtask +++| FPL14 WRITEC O,FPLB PRINT OUT LINE
01102 M01S01072.libtask +++| SX2 B1+
01103 M01S01073.libtask +++| RJ ALC ADVANCE LINE COUNT
01104 M01S01074.libtask +++| SA4 ALCA GET LINE COUNT
01105 M01S01075.libtask +++| SA2 FPLC
01106 M01S01076.libtask +++| SA5 PLOH
01107 M01S01077.libtask +++| SX4 X4-3
01108 M01S01078.libtask +++| SA5 X5+TLDLE GET NEXT TLD ENTRY
01109 M01S01079.libtask +++| ZR X2,FPL15 IF TLD FORMAT
01110 M01S01080.libtask +++| SA5 PLOH
01111 M01S01081.libtask +++| SA5 X5+TRDLE1 GET NEXT TRD ENTRY
01112 M01S01082.libtask +++| FPL15 ZR X5,FPLX IF NO MORE ENTRIES RETURN
01113 M01S01083.libtask +++| NZ X4,FPLX IF NOT NEW PAGE RETURN
01114 M01S01084.libtask +++| RJ PRH PRINT REPORT HEADER
01115 M01S01085.libtask +++| EQ FPLX RETURN
01116 M01S01086.libtask +++|
01117 M01S01087.libtask +++| FPLA CON 1H SPACES
01118 M01S01088.libtask +++| FPLB BSS 7 PRINT LINE BUFFER
01119 M01S01089.libtask +++| CON 8L
01120 M01S01090.libtask +++| FPLC CON 0 FORMAT FLAG
01121 M01S01091.libtask +++| LRL SPACE 4,20
01122 M01S01092.libtask +++|** LRL - WRITE RECORD LIST.
01123 M01S01093.libtask +++|*
01124 M01S01094.libtask +++|* WRITE A LIST OF TASK NAMES ONTO THE OUTPUT FILE, EIGHT NAMES
01125 M01S01095.libtask +++|* ON EACH LINE, AND UPDATE THE LINE COUNT. IF THERE ARE NO
01126 M01S01096.libtask +++|* TASK NAMES IN THE LIST, *NONE* IS WRITTEN.
01127 M01S01097.libtask +++|*
01128 M01S01098.libtask +++|* ENTRY (X1) = FWA OF RECORD LIST.
01129 M01S01099.libtask +++|* (X5) = NUMBER OF RECORDS IN LIST
01130 M01S01100.libtask +++|*
01131 M01S01101.libtask +++|* EXIT - RECORDS WRITTEN ON OUTPUT FILE.
01132 M01S01102.libtask +++|*
01133 M01S01103.libtask +++|* USES A - 0, 1, 2, 6.
01134 M01S01104.libtask +++|* B - 2, 3, 5, 6.
01135 M01S01105.libtask +++|* X - ALL.
01136 M01S01106.libtask +++|*
01137 M01S01107.libtask +++|* CALLS ALC, SFN.
01138 M01S01108.libtask +++|*
01139 M01S01109.libtask +++|* MACROS WRITEC, WRITEW.
01140 M01S01110.libtask +++|
01141 M01S01111.libtask +++|
01142 M01S01112.libtask +++| LRL SUBR ENTRY/EXIT
01143 M01S01113.libtask +++| SX7 X5-23
01144 M01S01114.libtask +++| SA0 11 TASKS PER LINE
01145 M01S01115.libtask +++| SB5 X1 ADDRESS OF FIRST TASK NAME
01146 M01S01116.libtask +++| SB6 A0
01147 M01S01117.libtask +++| SX0 B1
01148 M01S01118.libtask +++| SB3 B0
01149 M01S01119.libtask +++| PL X7,LRL2 IF MORE THAN 23 TASKS TO LIST
01150 M01S01120.libtask +++| SX6 X5-9
01151 M01S01121.libtask +++| NG X6,LRL4 IF 8 TASKS ON ONE LINE
01152 M01S01122.libtask +++| SX3 X5
01153 M01S01123.libtask +++| LX3 -1 DIVIDE COUNT BY TWO
01154 M01S01124.libtask +++| SA0 X3
01155 M01S01125.libtask +++| SB6 A0
01156 M01S01126.libtask +++| PL X3,LRL2 IF EVEN NUMBER OF TASKS
01157 M01S01127.libtask +++| SB6 B6+1
01158 M01S01128.libtask +++| LRL2 SX3 X5
01159 M01S01129.libtask +++| SX4 A0
01160 M01S01130.libtask +++| IX0 X3/X4 NUMBER OF LINES
01161 M01S01131.libtask +++| SB2 A0
01162 M01S01132.libtask +++| NE B2,B6,LRL3 IF FORCED ODD COUNT LINES
01163 M01S01133.libtask +++| SX2 X0
01164 M01S01134.libtask +++| SX4 A0
01165 M01S01135.libtask +++| IX2 X2*X4 CHECK FOR REMAINDER
01166 M01S01136.libtask +++| IX4 X5-X2
01167 M01S01137.libtask +++| ZR X4,LRL3 IF NO ODD COUNT LINES
01168 M01S01138.libtask +++| SB3 X4+B1
01169 M01S01139.libtask +++| SX0 X0+B1
01170 M01S01140.libtask +++| LRL3 SX1 B5+
01171 M01S01141.libtask +++| LX1 18
01172 M01S01142.libtask +++| BX0 X1+X0
01173 M01S01143.libtask +++| SX2 B3+
01174 M01S01144.libtask +++| LX2 36
01175 M01S01145.libtask +++| BX0 X0+X2
01176 M01S01146.libtask +++| LRL4 SA2 STLAB BLANKS
01177 M01S01147.libtask +++| MX4 42 MASK FOR TASK NAMES
01178 M01S01148.libtask +++| BX6 X2
01179 M01S01149.libtask +++| SA6 WBUF
01180 M01S01150.libtask +++| LRL5 ZR X5,LRL7 IF DONE LISTING TASK NAMES
01181 M01S01151.libtask +++| SA1 B5 TASK NAME
01182 M01S01152.libtask +++| BX1 X4*X1
01183 M01S01153.libtask +++| ZR B3,LRL6 IF NO EXTRA LINES IN THIS COLUMN
01184 M01S01154.libtask +++| SB3 B3-1
01185 M01S01155.libtask +++| NZ B3,LRL6 IF EXTRA LINES REMAIN
01186 M01S01156.libtask +++| SX2 B1
01187 M01S01157.libtask +++| IX0 X0-X2 REMOVE EXTRA COLUMN COUNT
01188 M01S01158.libtask +++| LRL6 SX5 X5-1
01189 M01S01159.libtask +++| RJ SFN SPACE FILL NAME
01190 M01S01160.libtask +++| SB6 B6-B1
01191 M01S01161.libtask +++| SA6 A6+1 STORE TASK NAME IN OUTPUT BUFFER
01192 M01S01162.libtask +++| SB5 B5+X0
01193 M01S01163.libtask +++| NZ B6,LRL5 IF MORE NAMES TO PRINT ON THIS LINE
01194 M01S01164.libtask +++| LRL7 BX6 X6-X6
01195 M01S01165.libtask +++| SA6 A6+B1 TERMINATE LINE
01196 M01S01166.libtask +++| WRITEC O,WBUF,WBUFL
01197 M01S01167.libtask +++| SX2 B1
01198 M01S01168.libtask +++| RJ ALC ADVANCE LINE COUNT
01199 M01S01169.libtask +++| SB6 A0 NAMES TO LIST ON NEXT LINE
01200 M01S01170.libtask +++| LX0 -18
01201 M01S01171.libtask +++| SX1 B1
01202 M01S01172.libtask +++| SB5 X0+B1
01203 M01S01173.libtask +++| IX0 X0+X1
01204 M01S01174.libtask +++| LX0 -18
01205 M01S01175.libtask +++| SB3 X0
01206 M01S01176.libtask +++| LX0 36
01207 M01S01177.libtask +++| ZR B3,LRL8 IF NO EXTRA LINES
01208 M01S01178.libtask +++| IX0 X0+X1
01209 M01S01179.libtask +++| LRL8 NZ X5,LRL4 IF NOT END OF LISTING
01210 M01S01180.libtask +++| WRITEW O,BLINE,1 SKIP ONE LINE
01211 M01S01181.libtask +++| SX2 B1+
01212 M01S01182.libtask +++| RJ ALC ADVANCE LINE COUNT
01213 M01S01183.libtask +++| EQ LRLX RETURN
01214 M01S01184.libtask +++|
01215 M01S01185.libtask +++| LRLA DATA C/ *NONE*/
01216 M01S01186.libtask +++| LRLAL EQU *-LRLA
01217 M01S01187.libtask +++| PCR SPACE 4,15
01218 M01S01188.libtask +++|** PCR - PROCESS CREATION RUN.
01219 M01S01189.libtask +++|*
01220 M01S01190.libtask +++|* ENTRY FILE INITIALIZED.
01221 M01S01191.libtask +++|*
01222 M01S01192.libtask +++|* EXIT NEW TASK LIBRARY CREATED.
01223 M01S01193.libtask +++|*
01224 M01S01194.libtask +++|* USES A - 1.
01225 M01S01195.libtask +++|* X - 1, 5.
01226 M01S01196.libtask +++|*
01227 M01S01197.libtask +++|* CALLS CDR, RBF, SDR.
01228 M01S01198.libtask +++|*
01229 M01S01199.libtask +++|* MACROS REWIND.
01230 M01S01200.libtask +++|
01231 M01S01201.libtask +++|
01232 M01S01202.libtask +++| PCR SUBR ENTRY/EXIT
01233 M01S01203.libtask +++| SA1 PN
01234 M01S01204.libtask +++| SX5 P
01235 M01S01205.libtask +++| ZR X1,PCR1 IF *P* AND *N* ARE IDENTICAL
01236 M01S01206.libtask +++| SX5 N
01237 M01S01207.libtask +++| PCR1 REWIND X5
01238 M01S01208.libtask +++| RJ RBF READ BINARY FILE
01239 M01S01209.libtask +++| RJ SDR SORT DIRECTORY
01240 M01S01210.libtask +++| RJ CDR COPY DIRECTORY TO NEW TASK LIBRARY
01241 M01S01211.libtask +++| EQ PCRX RETURN
01242 M01S01212.libtask +++| PLO SPACE 4,20
01243 M01S01213.libtask +++|** PLO - PROCESS LIST OPTION.
01244 M01S01214.libtask +++|*
01245 M01S01215.libtask +++|* READ TASK AND TRANSACTION DIRECTORIES AND PRODUCE A
01246 M01S01216.libtask +++|* FORMATTED LISTING OF ALL TASKS AND THEIR ATTRIBUTES
01247 M01S01217.libtask +++|* AND ALL TRANSACTIONS WITH THEIR ATTRIBUTES.
01248 M01S01218.libtask +++|*
01249 M01S01219.libtask +++|* ENTRY TLD = FWA OF TASK LIBRARY DIRECTORY.
01250 M01S01220.libtask +++|* TRD = FWA OF TRANSACTION UNIT DIRECTORY.
01251 M01S01221.libtask +++|*
01252 M01S01222.libtask +++|* EXIT *PLO* PROCESSSING COMPLETE.
01253 M01S01223.libtask +++|*
01254 M01S01224.libtask +++|* ERROR (BFEF) NON ZERO IF NAME NOT IN DIRECTORY.
01255 M01S01225.libtask +++|*
01256 M01S01226.libtask +++|* USES X - 1, 2, 3, 6, 7.
01257 M01S01227.libtask +++|* A - 1, 2, 6, 7.
01258 M01S01228.libtask +++|* B - 2, 3, 5, 6.
01259 M01S01229.libtask +++|*
01260 M01S01230.libtask +++|* CALLS FPL, PRH, SNM, STD, STL.
01261 M01S01231.libtask +++|*
01262 M01S01232.libtask +++|* MACROS WRITEW.
01263 M01S01233.libtask +++|
01264 M01S01234.libtask +++|
01265 M01S01235.libtask +++| PLO SUBR ENTRY/EXIT
01266 M01S01236.libtask +++| SA1 ALCA GET LINE COUNT
01267 M01S01237.libtask +++| SX1 X1-3
01268 M01S01238.libtask +++| ZR X1,PLO1 IF PAGE EJECT NOT NEEDED
01269 M01S01239.libtask +++| RJ STL SET NEW TITLE PAGE
01270 M01S01240.libtask +++| PLO1 SX2 1RT
01271 M01S01241.libtask +++| SA1 LO
01272 M01S01242.libtask +++| LX2 -6
01273 M01S01243.libtask +++| IX3 X2-X1
01274 M01S01244.libtask +++| ZR X3,PLO6 IF *LO=T*
01275 M01S01245.libtask +++| SX2 1RX
01276 M01S01246.libtask +++| LX2 -6
01277 M01S01247.libtask +++| IX3 X2-X1
01278 M01S01248.libtask +++| ZR X3,PLO7 IF *LO=X*
01279 M01S01249.libtask +++| PLO1.1 SA1 LWTLD
01280 M01S01250.libtask +++| SX1 X1-TLD LENGTH OF TLD
01281 M01S01251.libtask +++| ZR X1,PLO3 IF NO TLD ENTRIES
01282 M01S01252.libtask +++| SX2 B0+
01283 M01S01253.libtask +++| RJ PRH PRINT HEADER FOR TASK NAME REPORT
01284 M01S01254.libtask +++| SX6 B0+
01285 M01S01255.libtask +++| SA1 TLD
01286 M01S01256.libtask +++| SA6 FPLC FORMAT TLD
01287 M01S01257.libtask +++| PLO2 SX7 A1+
01288 M01S01258.libtask +++| SA7 PLOH SAVE LAST TLD ENTRY
01289 M01S01259.libtask +++| RJ FPL FORMAT PRINT LINE
01290 M01S01260.libtask +++| SA1 PLOH
01291 M01S01261.libtask +++| SA1 X1+TLDLE GET NEXT TLD ENTRY
01292 M01S01262.libtask +++| SA2 LWTLD
01293 M01S01263.libtask +++| SX3 A1
01294 M01S01264.libtask +++| IX1 X2-X3
01295 M01S01265.libtask +++| ZR X1,PLO3 IF NO MORE TLD ENTRIES
01296 M01S01266.libtask +++| EQ PLO2 LOOP FOR NEXT ENTRY
01297 M01S01267.libtask +++|
01298 M01S01268.libtask +++| PLO3 SA2 PLOI
01299 M01S01269.libtask +++| NZ X2,PLOX IF *LO=T*
01300 M01S01270.libtask +++| SA2 ALCA GET LINE COUNT
01301 M01S01271.libtask +++| SX2 X2-3
01302 M01S01272.libtask +++| ZR X2,PLO4 IF PAGE EJECT NOT NEEDED
01303 M01S01273.libtask +++| RJ STL SET NEW TITLE PAGE
01304 M01S01274.libtask +++| PLO4 SA1 LWTRD
01305 M01S01275.libtask +++| SX1 X1-TRD LENGTH OF TRD
01306 M01S01276.libtask +++| ZR X1,PLOX IF NO TRD ENTRIES
01307 M01S01277.libtask +++| SX2 B1+
01308 M01S01278.libtask +++| RJ PRH PRINT HEADER FOR TRANSACTION UNIT REPORT
01309 M01S01279.libtask +++| SX6 B1+
01310 M01S01280.libtask +++| SA1 TRD
01311 M01S01281.libtask +++| SA6 FPLC FORMAT TRD
01312 M01S01282.libtask +++| PLO5 SX7 A1+
01313 M01S01283.libtask +++| SA7 PLOH SAVE LAST TRD ENTRY
01314 M01S01284.libtask +++| RJ FPL FORMAT PRINT LINE
01315 M01S01285.libtask +++| SA1 PLOH
01316 M01S01286.libtask +++| SA1 X1+TRDLE1 GET NEXT TRD ENTRY
01317 M01S01287.libtask +++| SA2 LWTRD
01318 M01S01288.libtask +++| SX3 A1
01319 M01S01289.libtask +++| IX1 X2-X3
01320 M01S01290.libtask +++| ZR X1,PLOX IF NO MORE TRD ENTRIES
01321 M01S01291.libtask +++| EQ PLO5 LOOP FOR NEXT ENTRY
01322 M01S01292.libtask +++|
01323 M01S01293.libtask +++|* PROCESS *LO=T* OPTION.
01324 M01S01294.libtask +++|
01325 M01S01295.libtask +++| PLO6 SA2 XTN GET TASK NAME
01326 M01S01296.libtask +++| SX7 B1+
01327 M01S01297.libtask +++| SA7 PLOI SET *LO=T*
01328 M01S01298.libtask +++| ZR X2,PLO1.1 IF *LO=T* WITH NO *TN*
01329 M01S01299.libtask +++| SB3 TLDLE LENGTH OF TLD ENTRY
01330 M01S01300.libtask +++| SB5 TLD START OF TLD
01331 M01S01301.libtask +++| SA1 LWOLD LWA OF BASE TLD
01332 M01S01302.libtask +++| SB6 X1+
01333 M01S01303.libtask +++| RJ STD SEARCH TLD
01334 M01S01304.libtask +++| NZ X1,PLO8 IF ENTRY NOT FOUND
01335 M01S01305.libtask +++| SX7 A1
01336 M01S01306.libtask +++| SX2 B0
01337 M01S01307.libtask +++| SA7 PLOH SAVE FWA OF ENTRY
01338 M01S01308.libtask +++| RJ PRH PRINT TASK NAME REPORT HEADER
01339 M01S01309.libtask +++| SX6 B0
01340 M01S01310.libtask +++| SA1 PLOH
01341 M01S01311.libtask +++| SA1 X1 FWA OF TLD ENTRY
01342 M01S01312.libtask +++| SA6 FPLC FORMAT TLD
01343 M01S01313.libtask +++| RJ FPL FORMAT PRINT LINE
01344 M01S01314.libtask +++| EQ PLOX RETURN
01345 M01S01315.libtask +++|
01346 M01S01316.libtask +++|* PROCESS *LO=X* OPTION.
01347 M01S01317.libtask +++|
01348 M01S01318.libtask +++| PLO7 SA2 XTN GET TRANSACTION NAME
01349 M01S01319.libtask +++| ZR X2,PLO3 IF *LO=X* WITH NO *TN*
01350 M01S01320.libtask +++| SB3 TRDLE1 LENGTH OF TRD ENTRY
01351 M01S01321.libtask +++| SB5 TRD START OF TRD
01352 M01S01322.libtask +++| SA1 LWTRD LWA OF TRD
01353 M01S01323.libtask +++| SB6 X1+
01354 M01S01324.libtask +++| RJ STD SEARCH TRD
01355 M01S01325.libtask +++| NZ X1,PLO8 IF ENTRY NOT FOUND
01356 M01S01326.libtask +++| SX7 A1
01357 M01S01327.libtask +++| SX2 B1
01358 M01S01328.libtask +++| SA7 PLOH SAVE FWA OF ENTRY
01359 M01S01329.libtask +++| RJ PRH PRINT TRANSACTION UNIT REPORT HEADER
01360 M01S01330.libtask +++| SX6 B1
01361 M01S01331.libtask +++| SA1 PLOH
01362 M01S01332.libtask +++| SA1 X1 FWA OF TRD ENTRY
01363 M01S01333.libtask +++| SA6 FPLC FORMAT TRD
01364 M01S01334.libtask +++| RJ FPL FORMAT PRINT LINE
01365 M01S01335.libtask +++| EQ PLOX RETURN
01366 M01S01336.libtask +++|
01367 M01S01337.libtask +++| PLO8 SA1 XTN ENTRY NOT FOUND
01368 M01S01338.libtask +++| SB2 1RX
01369 M01S01339.libtask +++| SB5 PLOG ERROR MESSAGE
01370 M01S01340.libtask +++| RJ SNM SET NAME IN MESSAGE
01371 M01S01341.libtask +++| WRITEW O,BLINE,1
01372 M01S01342.libtask +++| WRITEW O,PLOG,PLOGL
01373 M01S01343.libtask +++| SA1 BFEF
01374 M01S01344.libtask +++| SX6 X1+1 INCREMENT ERROR FLAG
01375 M01S01345.libtask +++| SA6 A1+
01376 M01S01346.libtask +++| EQ PLOX RETURN
01377 M01S01347.libtask +++|
01378 M01S01348.libtask +++| PLOA DATA C* TASK NAME REPORT*
01379 M01S01349.libtask +++| CON 8L
01380 M01S01350.libtask +++| PLOAL EQU *-PLOA
01381 M01S01351.libtask +++| PLOB DATA C* TASK PRIORITY FIELD EXTRA
01382 M01S01352.libtask +++|, ATTR*
01383 M01S01353.libtask +++| PLOBL EQU *-PLOB
01384 M01S01354.libtask +++| PLOC DATA C* NAME BEG MAX QL LENGTH FL
01385 M01S01355.libtask +++|, DCEORQ*
01386 M01S01356.libtask +++| CON 8L
01387 M01S01357.libtask +++| PLOCL EQU *-PLOC
01388 M01S01358.libtask +++| PLOD DATA C* TRANSACTION NAME REPORT*
01389 M01S01359.libtask +++| CON 8L
01390 M01S01360.libtask +++| PLODL EQU *-PLOD
01391 M01S01361.libtask +++| PLOE DATA C* TRANSACTION TASKS
01392 M01S01362.libtask +++|, D.M.*
01393 M01S01363.libtask +++| PLOEL EQU *-PLOE
01394 M01S01364.libtask +++| PLOF DATA C* NAME 1ST 2ND 3RD 4TH 5
01395 M01S01365.libtask +++|,TH DC RECOVER*
01396 M01S01366.libtask +++| CON 8L
01397 M01S01367.libtask +++| PLOFL EQU *-PLOF
01398 M01S01368.libtask +++| PLOG DATA C* XXXXXXX NOT IN DIRECTORY.*
01399 M01S01369.libtask +++| PLOGL EQU *-PLOG
01400 M01S01370.libtask +++| PLOH CON 0 FWA OF ENTRY
01401 M01S01371.libtask +++| PLOI CON 0 *LO*/*TN* FLAG
01402 M01S01372.libtask +++| PNP SPACE 4,15
01403 M01S01373.libtask +++|** PNP - PROCESS NO PARAMETERS.
01404 M01S01374.libtask +++|*
01405 M01S01375.libtask +++|* ENTRY FILE INITIALIZED.
01406 M01S01376.libtask +++|*
01407 M01S01377.libtask +++|* EXIT NEW TASK LIBRARY CREATED OR UPDATED.
01408 M01S01378.libtask +++|*
01409 M01S01379.libtask +++|* USES A - 1, 2.
01410 M01S01380.libtask +++|* X - 1, 2, 5.
01411 M01S01381.libtask +++|*
01412 M01S01382.libtask +++|* CALLS CDR, PCR, PIT, RBF, SDR.
01413 M01S01383.libtask +++|*
01414 M01S01384.libtask +++|* MACROS SKIPEI.
01415 M01S01385.libtask +++|
01416 M01S01386.libtask +++|
01417 M01S01387.libtask +++| PNP SUBR ENTRY/EXIT
01418 M01S01388.libtask +++| SA1 AT
01419 M01S01389.libtask +++| SA2 P
01420 M01S01390.libtask +++| NZ X2,PNP1 IF NOT *P=0*
01421 M01S01391.libtask +++| RJ PCR PROCESS CREATE OPTION
01422 M01S01392.libtask +++| EQ PNPX RETURN
01423 M01S01393.libtask +++|
| Line S01394 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act
----------------------------+
01424 M02S01394.libta1 ---| PNP1 NZ X1,PNP2 IF FILE N ATTACHED BY *TAF*
01425 M01S00001.libta1 +++| PNP1 ZR X1,PNP2 IF ATTACHED IN *MODIFY* MODE
01426 M01S01395.libtask +++| RJ PIT PURGE INACTIVE TASKS
01427 M01S01396.libtask +++| EQ PNPX RETURN
01428 M01S01397.libtask +++|
| Line S01398 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | libta1 |
Seq # *Modification Id* Act
----------------------------+
01429 M02S01398.libta1 ---| PNP2 SKIPEI P,,R SKIP TO EOI
01430 M01S00002.libta1 +++| PNP2 SA1 B
01431 M01S00003.libta1 +++| SA2 I
01432 M01S00004.libta1 +++| BX1 X1+X2
01433 M01S00005.libta1 +++| ZR X1,PNPX IF NO *I* OR *B* FILE
01434 M01S01399.libtask +++| SX5 P
01435 M01S01400.libtask +++| RJ RBF READ BINARY FILE
01436 M01S01401.libtask +++| RJ SDR SORT DIRECTORY
01437 M01S01402.libtask +++| RJ CDR COPY DIRECTORY
01438 M01S01403.libtask +++| EQ PNPX RETURN
01439 M01S01404.libtask +++| PIT SPACE 4,15
01440 M01S01405.libtask +++|** PIT - PURGE INACTIVE TASKS (*PR* OPTION).
01441 M01S01406.libtask +++|*
01442 M01S01407.libtask +++|* ENTRY FILE INITIALIZED.
01443 M01S01408.libtask +++|*
01444 M01S01409.libtask +++|* EXIT NEW FILE CREATED FROM *P* AND *B*.
01445 M01S01410.libtask +++|*
01446 M01S01411.libtask +++|* USES A - 1, 6.
01447 M01S01412.libtask +++|* X - 1, 5, 6.
01448 M01S01413.libtask +++|*
01449 M01S01414.libtask +++|* CALLS CDR, RBF, SAT, SAP, SDR.
01450 M01S01415.libtask +++|
01451 M01S01416.libtask +++|
01452 M01S01417.libtask +++| PIT SUBR ENTRY/EXIT
01453 M01S01418.libtask +++| SA1 LWTLD SAVE LWA OF TLD
01454 M01S01419.libtask +++| BX6 X1
01455 M01S01420.libtask +++| SA6 LATLD
01456 M01S01421.libtask +++| SA1 PN
01457 M01S01422.libtask +++| NZ X1,PIT2 IF *P* AND *N* ARE NOT EQUAL
01458 M01S01423.libtask +++| SX5 P COPY TO *P* FILE
01459 M01S01424.libtask +++| RJ RBF READ BINARY FILE
01460 M01S01425.libtask +++| RJ SAT SELECT ALL ACTIVE TASKS
01461 M01S01426.libtask +++| SX5 P COPY TO P FILE
01462 M01S01427.libtask +++| RJ SDR SORT DIRECTORY
01463 M01S01428.libtask +++| PIT1 SA1 LATLD COPY ACTUAL LENGTH OF TLD
01464 M01S01429.libtask +++| BX6 X1
01465 M01S01430.libtask +++| SA6 LWTLD
01466 M01S01431.libtask +++| SX6 B1
01467 M01S01432.libtask +++| SA6 MTRD FORCE COPY OF TRD IF IT EXISTS
01468 M01S01433.libtask +++| RJ CDR COPY DIRECTORY
01469 M01S01434.libtask +++| EQ PITX RETURN
01470 M01S01435.libtask +++|
01471 M01S01436.libtask +++| PIT2 REWIND N
01472 M01S01437.libtask +++| SX5 N
01473 M01S01438.libtask +++| RJ RBF READ BINARY FILE
01474 M01S01439.libtask +++| RJ SAP SELECT ACTIVE TASKS FROM *P* FILE
01475 M01S01440.libtask +++| SX5 N
01476 M01S01441.libtask +++| RJ SDR SORT DIRECTORY
01477 M01S01442.libtask +++| EQ PIT1 COPY DIRECTORY
01478 M01S01443.libtask +++| PRH SPACE 4,20
01479 M01S01444.libtask +++|** PRH - PRINT REPORT HEADER.
01480 M01S01445.libtask +++|*
01481 M01S01446.libtask +++|* PRINTS THE HEADER FOR EITHER THE TASK NAME REPORT OR
01482 M01S01447.libtask +++|* THE TRANSACTION UNIT REPORT AND CALLS *ALC* TO ADVANCE
01483 M01S01448.libtask +++|* THE LINE COUNT.
01484 M01S01449.libtask +++|*
01485 M01S01450.libtask +++|* ENTRY (X2) = 0, PRINT TASK NAME REPORT HEADER.
01486 M01S01451.libtask +++|* 1, PRINT TRANSACTION UNIT REPORT HEADER.
01487 M01S01452.libtask +++|*
01488 M01S01453.libtask +++|* EXIT APPROPRIATE HEADER PRINTED.
01489 M01S01454.libtask +++|*
01490 M01S01455.libtask +++|* USES X - 2.
01491 M01S01456.libtask +++|*
01492 M01S01457.libtask +++|* CALLS ALC.
01493 M01S01458.libtask +++|*
01494 M01S01459.libtask +++|* MACROS WRITEW.
01495 M01S01460.libtask +++|
01496 M01S01461.libtask +++|
01497 M01S01462.libtask +++| PRH SUBR ENTRY/EXIT
01498 M01S01463.libtask +++| NZ X2,PRH1 IF TRANSACTION UNIT HEADER WANTED
01499 M01S01464.libtask +++| WRITEW O,BLINE,1
01500 M01S01465.libtask +++| WRITEW O,PLOA,PLOAL
01501 M01S01466.libtask +++| WRITEW O,PLOB,PLOBL
01502 M01S01467.libtask +++| WRITEW O,PLOC,PLOCL
01503 M01S01468.libtask +++| EQ PRH2 ADVANCE LINE COUNT
01504 M01S01469.libtask +++|
01505 M01S01470.libtask +++| PRH1 WRITEW O,BLINE,1
01506 M01S01471.libtask +++| WRITEW O,PLOD,PLODL
01507 M01S01472.libtask +++| WRITEW O,PLOE,PLOEL
01508 M01S01473.libtask +++| WRITEW O,PLOF,PLOFL
01509 M01S01474.libtask +++| PRH2 SX2 6
01510 M01S01475.libtask +++| RJ ALC ADVANCE LINE COUNT
01511 M01S01476.libtask +++| EQ PRHX RETURN
01512 M01S01477.libtask +++| PTT SPACE 4,15
01513 M01S01478.libtask +++|** PTT - PROCESS TELL *TAF* OPTION.
01514 M01S01479.libtask +++|*
01515 M01S01480.libtask +++|* ENTRY FILE INITIALIZED.
01516 M01S01481.libtask +++|*
01517 M01S01482.libtask +++|* EXIT FILE *N* UPDATED.
01518 M01S01483.libtask +++|*
01519 M01S01484.libtask +++|* USES A - 1.
01520 M01S01485.libtask +++|* X - 1, 5.
01521 M01S01486.libtask +++|*
01522 M01S01487.libtask +++|* CALLS CDR, RBF.
01523 M01S01488.libtask +++|*
01524 M01S01489.libtask +++|* MACROS RETURN, SYSTEM.
01525 M01S01490.libtask +++|
01526 M01S01491.libtask +++|
01527 M01S01492.libtask +++| PTT SUBR ENTRY/EXIT
01528 M01S01493.libtask +++| SX5 P
01529 M01S01494.libtask +++| RJ RBF READ BINARY FILE
01530 M01S01495.libtask +++| RJ CDR COPY DIRECTORY
01531 M01S01496.libtask +++| SA1 DA
01532 M01S01497.libtask +++| NZ X1,PTT1 IF *DA* SPECIFIED
01533 M01S01498.libtask +++| RETURN X5
01534 M01S01499.libtask +++| PTT1 SYSTEM SIC,R,LIBH,LIBI SEND MESSAGE TO *TAF*
01535 M01S01500.libtask +++| EQ PTTX RETURN
01536 M01S01501.libtask +++| RBF SPACE 4,30
01537 M01S01502.libtask +++|** RBF - READ BINARY FILE.
01538 M01S01503.libtask +++|*
01539 M01S01504.libtask +++|* 1. IF END OF BINARY FILE RETURN TO CALLER.
01540 M01S01505.libtask +++|* 2. READ 77 TABLE AND FIRST OF PROGRAM.
01541 M01S01506.libtask +++|* 3. IF END OF BINARY RETURN TO CALLER.
01542 M01S01507.libtask +++|* 4. IF BINARY TOO SHORT CALL ROUTINE *ERR* AND GO TO STEP 1.
01543 M01S01508.libtask +++|* 5. IF NOT A *54* TABLE CALL *ERR* AND GO TO STEP 1.
01544 M01S01509.libtask +++|* 6. IF FWA OF LOAD NOT A DEFAULT LOAD ADRESS,
01545 M01S01510.libtask +++|* CALL *ERR* AND GO TO STEP 1.
01546 M01S01511.libtask +++|* 7. SEARCH DIRECTORY, IF NOT A IGNORE TASK GO TO STEP 9.
01547 M01S01512.libtask +++|* 8. SKIP TO NEXT RECORD AND GO TO STEP 1.
01548 M01S01513.libtask +++|* 9. COPY BINARY TO NEW FILE AND BUILD A DIRECTORY ENTRY.
01549 M01S01514.libtask +++|* 10. GO TO STEP 1.
01550 M01S01515.libtask +++|*
01551 M01S01516.libtask +++|* ENTRY FILE *B* AND *N* INITIATED.
01552 M01S01517.libtask +++|* (X5) = FILE NAME TO COPY TO.
01553 M01S01518.libtask +++|*
01554 M01S01519.libtask +++|* EXIT FILE *B* PROCESSED AND TASK LIBRARY DIRECTORY BUILT.
01555 M01S01520.libtask +++|*
01556 M01S01521.libtask +++|* USES A - 1, 2, 3, 4, 5, 6, 7.
01557 M01S01522.libtask +++|* B - 2, 3, 5, 6.
01558 M01S01523.libtask +++|* X - ALL.
01559 M01S01524.libtask +++|*
01560 M01S01525.libtask +++|* CALLS ERR, SKR, STD.
01561 M01S01526.libtask +++|*
01562 M01S01527.libtask +++|* MACROS ADDWRD, MESSAGE, READW, RECALL, SEARCH, WRITER,
01563 M01S01528.libtask +++|* WRITEW.
01564 M01S01529.libtask +++|
01565 M01S01530.libtask +++|
01566 M01S01531.libtask +++| RBF SUBR ENTRY/EXIT
01567 M01S01532.libtask +++| BX7 X5 SAVE FILE NAME
01568 M01S01533.libtask +++| SA7 RBFA
01569 M01S01534.libtask +++| RBF1 SA1 EOFF
01570 M01S01535.libtask +++| NZ X1,RBFX IF END OF BINARY FILE
01571 M01S01536.libtask +++| SA1 B
01572 M01S01537.libtask +++| ZR X1,RBFX IF NO BINARIES
01573 M01S01538.libtask +++| READW B,HB,HBL READ 77 TABLE AND FIRST WORDS OF PROGRAM
01574 M01S01539.libtask +++| NG X1,RBFX IF FINISHED WITH BINARY FILE
01575 M01S01540.libtask +++| SX6 B1+
01576 M01S01541.libtask +++| NZ X1,RBF19 IF BINARY FILE TOO SHORT
01577 M01S01542.libtask +++| SA2 HB+1
01578 M01S01543.libtask +++| MX0 42
01579 M01S01544.libtask +++| BX7 X0*X2
01580 M01S01545.libtask +++| MX0 -6
01581 M01S01546.libtask +++| SB2 10
01582 M01S01547.libtask +++|
01583 M01S01548.libtask +++|* ZERO FILL TASK NAME.
01584 M01S01549.libtask +++|
01585 M01S01550.libtask +++| RBF2 LX7 6
01586 M01S01551.libtask +++| BX1 -X0*X7
01587 M01S01552.libtask +++| SX2 X1-1R
01588 M01S01553.libtask +++| SB2 B2-B1
01589 M01S01554.libtask +++| NZ X2,RBF3 IF NOT BLANK
01590 M01S01555.libtask +++| BX7 X0*X7 REMOVE BLANK
01591 M01S01556.libtask +++| RBF3 NZ B2,RBF2 IF NOT AT WORD BOUNDARY
01592 M01S01557.libtask +++| SA7 TSKNM TASK NAME LEFT JUSTIFIED
01593 M01S01558.libtask +++| SA7 LIBG+1 FOR DISPLAY PURPOSES
01594 M01S01559.libtask +++|
| Line S01560 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01595 M02S01560.v23l617 ---|* CHECK ILLEGAL BINARYS.
01596 M01S00020.v23l617 +++|* CHECK INCORRECT BINARYS.
01597 M01S01561.libtask +++|
01598 M01S01562.libtask +++| SA5 RBFA FILE NAME
01599 M01S01563.libtask +++| RECALL X5
01600 M01S01564.libtask +++| SA1 HB+17B
01601 M01S01565.libtask +++| MX2 12
01602 M01S01566.libtask +++| BX2 X2*X1
01603 M01S01567.libtask +++| SX6 B1+B1 ERROR FLAG
01604 M01S01568.libtask +++| LX2 12
01605 M01S01569.libtask +++| SX3 X2-5300B
01606 M01S01570.libtask +++| SX4 X2-5100B
01607 M01S01571.libtask +++| SX6 X2-5000B
01608 M01S01572.libtask +++| SX7 X2-5400B
01609 M01S01573.libtask +++| ZR X3,RBF4 IF *OVERLAY*
01610 M01S01574.libtask +++| ZR X4,RBF4 IF *ABS*
01611 M01S01575.libtask +++| ZR X6,RBF4 IF *ACPM*
01612 M01S01576.libtask +++| SB2 X1 NUMBER OF ENTRY POINTS
| Line S01577 Modification History |
M01 (Added by) | libtask |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01613 M02S01577.v23l617 ---| SX6 B1+B1 ILLEGAL RECORD TYPE
01614 M01S00021.v23l617 +++| SX6 B1+B1 INCORRECT RECORD TYPE
01615 M01S01578.libtask +++| NZ X7,RBF19 IF NOT *5400* TABLE
01616 M01S01579.libtask +++| SX6 3
01617 M01S01580.libtask +++| NE B2,B1,RBF19 IF MORE THAN ONE ENTRY POINT
01618 M01S01581.libtask +++| BX7 X7-X7
01619 M01S01582.libtask +++| EQ RBF5 COPY BINARY RECORD
01620 M01S01583.libtask +++|
01621 M01S01584.libtask +++| RBF4 LX1 -18
01622 M01S01585.libtask +++| SX3 X1-FWLD
01623 M01S01586.libtask +++| BX7 X7-X7
01624 M01S01587.libtask +++| SX6 4 ERROR FLAG
01625 M01S01588.libtask +++| NZ X3,RBF19 IF FWA OF LOAD NOT AT DEFAULT LOAD ADDRESS
01626 M01S01589.libtask +++|
01627 M01S01590.libtask +++|* CHECK IGNORE TASK.
01628 M01S01591.libtask +++|
01629 M01S01592.libtask +++| RBF5 SA1 TSKNM TASK NAME
01630 M01S01593.libtask +++| SEARCH DRTC,X1 SEARCH DIRECTORY
01631 M01S01594.libtask +++| ZR X2,RBF7 IF TASK NOT IN DIRECTORY
01632 M01S01595.libtask +++| SA3 TSKNM TASK NAME
01633 M01S01596.libtask +++| RBF6 SA1 A2+B1 SECOND WORD OF DIRECTORY
01634 M01S01597.libtask +++| PL X1,RBF8 IF NO IGNORE
01635 M01S01598.libtask +++|
01636 M01S01599.libtask +++|* IGNORE TASK.
01637 M01S01600.libtask +++|
01638 M01S01601.libtask +++| BX7 X3 TASK NAME
01639 M01S01602.libtask +++| SA7 LIBM+1
01640 M01S01603.libtask +++| ADDWRD TDIG,X3 IGNORE TASK
01641 M01S01604.libtask +++| MESSAGE LIBM,1 * IGNORE TASK.*
01642 M01S01605.libtask +++| RJ SKR SKIP TO NEXT RECORD
01643 M01S01606.libtask +++| EQ RBF1 PROCESS NEXT RECORD
01644 M01S01607.libtask +++|
01645 M01S01608.libtask +++| RBF7 SA1 TSKNM TASK NAME
01646 M01S01609.libtask +++| SEARCH TDCH,X1
01647 M01S01610.libtask +++| SA3 TSKNM
01648 M01S01611.libtask +++| EQ RBF6 CHECK IGNORE TASK
01649 M01S01612.libtask +++|
01650 M01S01613.libtask +++|* DISPLAY TASK NAME WHILE COPYING.
01651 M01S01614.libtask +++|
01652 M01S01615.libtask +++| RBF8 SA1 X5+6 MASK DISK INDEX
01653 M01S01616.libtask +++| MX6 30
01654 M01S01617.libtask +++| BX7 X6*X1
01655 M01S01618.libtask +++| SA7 TSKDI
01656 M01S01619.libtask +++| SX0 HBL
01657 M01S01620.libtask +++| SA5 RBFA FILE NAME
01658 M01S01621.libtask +++| WRITEW X5,HB,X0 WRITE OUT TASK
01659 M01S01622.libtask +++| MESSAGE LIBG,1 DISPLAY TASK NAME
01660 M01S01623.libtask +++|
01661 M01S01624.libtask +++|* COPY BINARY FILE RECORD TO LIBRARY FILE.
01662 M01S01625.libtask +++|
01663 M01S01626.libtask +++| BX5 X1-X1 INITIATE CALL
01664 M01S01627.libtask +++| RBF9 NZ X5,RBF12 IF RECORD COPY COMPLETE
01665 M01S01628.libtask +++| SX5 TBL
01666 M01S01629.libtask +++| READW B,TB,TBL READ IN NEXT BLOCK FROM BINARY FILE
01667 M01S01630.libtask +++| PL X1,RBF10 IF NOT EOF
01668 M01S01631.libtask +++| SA6 EOFF SET EOF FLAG
01669 M01S01632.libtask +++| EQ RBF12 PROCESS EOF
01670 M01S01633.libtask +++|
01671 M01S01634.libtask +++| RBF10 ZR X1,RBF11 IF NOT AT EOR
01672 M01S01635.libtask +++| SX5 X1-TB
01673 M01S01636.libtask +++| RBF11 SA1 RBFA
01674 M01S01637.libtask +++| WRITEW X1,TB,X5 WRITE BLOCK TO LIBRARY FILE
01675 M01S01638.libtask +++| IX0 X0+X5
01676 M01S01639.libtask +++| SX5 X5-TBL
01677 M01S01640.libtask +++| EQ RBF9 CONTINUE COPY
01678 M01S01641.libtask +++|
01679 M01S01642.libtask +++| RBF12 READ B REINITIALIZE READ ON BINARY FILE
01680 M01S01643.libtask +++| SA5 RBFA FILE NAME
01681 M01S01644.libtask +++| WRITER X5,R FLUSH BUFFER
01682 M01S01645.libtask +++| SX7 X0+177B
01683 M01S01646.libtask +++| SA1 RECN
01684 M01S01647.libtask +++| AX7 6
01685 M01S01648.libtask +++| SX6 X1+1 RECORD COUNT FOR BINARY FILE
01686 M01S01649.libtask +++| LX7 18
01687 M01S01650.libtask +++| SA6 A1+
01688 M01S01651.libtask +++| SA7 TSKFL TASK FIELD LENGTH
01689 M01S01652.libtask +++| SA4 TSKNM TASK NAME
01690 M01S01653.libtask +++| SA3 HB+17B+10B GET ENTRY POINT ADDRESS OF TASK
01691 M01S01654.libtask +++| SX3 X3
01692 M01S01655.libtask +++| BX7 X3+X4
01693 M01S01656.libtask +++| SA7 TSKNE FIRST WORD FOR TLD
01694 M01S01657.libtask +++|
01695 M01S01658.libtask +++|* CHECK FOR INSERTION OR DELETION.
01696 M01S01659.libtask +++|
01697 M01S01660.libtask +++| SA3 CR
01698 M01S01661.libtask +++| SA2 TSKNM
01699 M01S01662.libtask +++| SA1 LWTLD CURRENT LWA FOR TLD
01700 M01S01663.libtask +++| SB5 TLD START OF TLD
01701 M01S01664.libtask +++| NZ X3,RBF13 IF CREATION RUN
01702 M01S01665.libtask +++| SA1 LWOLD LWA ADDRESS OF BASE TLD
01703 M01S01666.libtask +++| RBF13 SX0 X1
01704 M01S01667.libtask +++| SB6 X0
01705 M01S01668.libtask +++| SB3 TLDLE TLD ENTRY LENGTH
01706 M01S01669.libtask +++| RJ STD CHECK IF TASK ALREADY IN DIRECTORY
01707 M01S01670.libtask +++| NZ X1,RBF15 IF TASK NOT IN DIRECTORY
01708 M01S01671.libtask +++| SX0 A1
01709 M01S01672.libtask +++| ADDWRD RREC,X2 RECORD REPLACED INDICATOR
01710 M01S01673.libtask +++| EQ RBF16 BUILD DIRECTORY
01711 M01S01674.libtask +++|
01712 M01S01675.libtask +++| RBF15 SB3 A1+
01713 M01S01676.libtask +++| SA3 FSLT FREE SPACE LEFT IN TLD
01714 M01S01677.libtask +++| SX7 X3-TLDLE DECREMENT FREE TLD SPACE COUNT
01715 M01S01678.libtask +++| SA7 A3
01716 M01S01679.libtask +++| BX1 X2
01717 M01S01680.libtask +++| SX6 5 ERROR FLAG
01718 M01S01681.libtask +++| NG X7,RBF19 IF DIRECTORY IS FULL
01719 M01S01682.libtask +++| ADDWRD IREC,X1 RECORD INSERTED INDICATOR
01720 M01S01683.libtask +++|
01721 M01S01684.libtask +++|* INSERT TASK AT END OF DIRECTORY.
01722 M01S01685.libtask +++|
01723 M01S01686.libtask +++| SA1 LWTLD
01724 M01S01687.libtask +++| SX7 X1+TLDLE ADVANCE LWA ADDRESS
01725 M01S01688.libtask +++| SA7 A1
01726 M01S01689.libtask +++| SX0 X1 PLACE TO INSERT
01727 M01S01690.libtask +++| SA7 LATLD
01728 M01S01691.libtask +++|
01729 M01S01692.libtask +++|* BUILD AND INSERT NEW ENTRY INTO TLD.
01730 M01S01693.libtask +++|
01731 M01S01694.libtask +++| RBF16 SA1 TSKNM TASK NAME
01732 M01S01695.libtask +++| SEARCH DRTC,X1 CHECK DIRECTIVES TABLE FOR NEW TASK
01733 M01S01696.libtask +++| NZ X2,RBF17 IF TASK IN DIRECTORY
01734 M01S01697.libtask +++| SA1 TSKNM
01735 M01S01698.libtask +++| SEARCH TDCH,X1 CHECK TABLE FOR TASK REPLACING DIRECTIVES
01736 M01S01699.libtask +++| ZR X2,RBF18 IF NO DIRECTIVES FOR TASK
01737 M01S01700.libtask +++| RBF17 SA1 A2+1 SECOND WORD OF DIRECTIVE ENTRY
01738 M01S01701.libtask +++| SA2 A2+2 THIRD WORD OF DIRECTIVE ENTRY
01739 M01S01702.libtask +++| MX7 -TLEFN-TLMPN GET EFL+MP
01740 M01S01703.libtask +++| BX7 -X7*X1
01741 M01S01704.libtask +++| LX6 X2
01742 M01S01705.libtask +++| SA7 LIBA USE DIRECTIVE ENTRIES FOR TASK DIRECTORY
01743 M01S01706.libtask +++| SA6 LIBA+1
01744 M01S01707.libtask +++| RBF18 SA1 TSKNE TASK NAME AND ENTRY POINT
01745 M01S01708.libtask +++| SA2 TSKDI LIBRARY FILE RANDOM INDEX FOR TASK
01746 M01S01709.libtask +++| BX6 X1
01747 M01S01710.libtask +++| SA3 TSKFL TASK FIELD LENGTH
01748 M01S01711.libtask +++| SA6 X0 FIRST WORD OF TLD
01749 M01S01712.libtask +++| BX7 X2+X3
01750 M01S01713.libtask +++| SA1 LIBA TASK PRIORITIES
01751 M01S01714.libtask +++| SA2 A1+B1 THIRD WORD FOR TLD ENTRY
01752 M01S01715.libtask +++| BX7 X7+X1
01753 M01S01716.libtask +++| SA7 X0+1 SECOND WORD OF TLD
01754 M01S01717.libtask +++| LX6 X2
01755 M01S01718.libtask +++| SA6 X0+2 THIRD WORD OF TLD
01756 M01S01719.libtask +++|
01757 M01S01720.libtask +++|* RESET DEFAULT PARAMETERS FOR NEXT TASK.
01758 M01S01721.libtask +++|
01759 M01S01722.libtask +++| SA1 LIBB RESTORE DEFAULT TASK VALUES
01760 M01S01723.libtask +++| SA2 A1+B1
01761 M01S01724.libtask +++| BX7 X1
01762 M01S01725.libtask +++| LX6 X2
01763 M01S01726.libtask +++| SA7 LIBA TASK VALUES
01764 M01S01727.libtask +++| SA6 A7+B1
01765 M01S01728.libtask +++| EQ RBF1 PROCESS NEXT TASK
01766 M01S01729.libtask +++|
01767 M01S01730.libtask +++|* PROCESS ERROR CASE.
01768 M01S01731.libtask +++|
01769 M01S01732.libtask +++| RBF19 RJ ERR PROCESS ERROR BINARY
01770 M01S01733.libtask +++| EQ RBF1 PROCESS NEXT TASK
01771 M01S01734.libtask +++|
01772 M01S01735.libtask +++| RBFA CON 0 TEMPORARY STORAGE FOR FILE NAME
01773 M01S01736.libtask +++| SAP SPACE 4,20
01774 M01S01737.libtask +++|** SAP - SELECT ACTIVE TASKS FROM *P* FILE.
01775 M01S01738.libtask +++|*
01776 M01S01739.libtask +++|* ENTRY INPUT DIRECTORY BUILD.
01777 M01S01740.libtask +++|*
01778 M01S01741.libtask +++|* EXIT ACTIVE TASKS WRITTEN ON *N* FILE.
01779 M01S01742.libtask +++|*
01780 M01S01743.libtask +++|* USES A - 1, 2, 3, 5, 6.
01781 M01S01744.libtask +++|* X - 0, 1, 2, 3, 4, 5, 6.
01782 M01S01745.libtask +++|*
01783 M01S01746.libtask +++|* MACROS READ, READW, REWIND, SEARCH, WRITER, WRITEW.
01784 M01S01747.libtask +++|
01785 M01S01748.libtask +++|
01786 M01S01749.libtask +++| SAP SUBR ENTRY/EXIT
01787 M01S01750.libtask +++| REWIND P,R
01788 M01S01751.libtask +++| SA5 TLD+1
01789 M01S01752.libtask +++| SAP1 SA1 A5-B1 TASK NAME
01790 M01S01753.libtask +++| MX6 42
01791 M01S01754.libtask +++| BX4 X6*X1
01792 M01S01755.libtask +++| SEARCH RREC,X4
01793 M01S01756.libtask +++| NZ X2,SAP5 IF RECORD REPLACED
01794 M01S01757.libtask +++| SEARCH IREC,X4
01795 M01S01758.libtask +++| NZ X2,SAP5 IF RECORD INSERED
01796 M01S01759.libtask +++| SA1 A5 WORD 2 OF AN ENTRY
01797 M01S01760.libtask +++| MX0 30
01798 M01S01761.libtask +++| BX3 X0*X1 ISOLATE DISK INDEX
01799 M01S01762.libtask +++| SA2 A1+B1 WORD 3 OF TLD
01800 M01S01763.libtask +++| LX3 30
01801 M01S01764.libtask +++| LX2 59-54 LEFT JUSTIFY DELETD FLAG
01802 M01S01765.libtask +++| SX4 B1 SET REQUEST BIT
01803 M01S01766.libtask +++| LX4 29
01804 M01S01767.libtask +++| SX6 3RZZZ
01805 M01S01768.libtask +++| NG X2,SAP4 IF DELETE TASK
01806 M01S01769.libtask +++| BX6 X4+X3 ADD DISK INDEX
01807 M01S01770.libtask +++| SA6 P+6 PUT IN FET
01808 M01S01771.libtask +++| SA2 P+1
01809 M01S01772.libtask +++| SX6 X2+
01810 M01S01773.libtask +++| SA6 A2+B1 FET+2
01811 M01S01774.libtask +++| SA6 A6+B1 FET+3
01812 M01S01775.libtask +++| SA2 N+6
01813 M01S01776.libtask +++| BX6 X0*X2 ISOLATE NEW INDEX
01814 M01S01777.libtask +++| BX3 -X0*X1 CLEAR OUT OLD ONE
01815 M01S01778.libtask +++| BX6 X6+X3
01816 M01S01779.libtask +++| SA6 A5
01817 M01S01780.libtask +++| READ P,R
01818 M01S01781.libtask +++|
01819 M01S01782.libtask +++|* COPY ACTIVE TASKS FROM *P* TO *N*.
01820 M01S01783.libtask +++|
01821 M01S01784.libtask +++| SAP2 SX5 TBL
01822 M01S01785.libtask +++| READW P,TB,X5 READ TASK BINARY FROM SCRATCH
01823 M01S01786.libtask +++| ZR X1,SAP3 IF NOT AT EOR
01824 M01S01787.libtask +++| SX5 X1-TB
01825 M01S01788.libtask +++| SAP3 WRITEW N,TB,X5 WRITE ON LIBRARY
01826 M01S01789.libtask +++| SX5 X5-TBL
01827 M01S01790.libtask +++| ZR X5,SAP2 IF RECORD COPY NOT COMPLETE
01828 M01S01791.libtask +++| WRITER N,R
01829 M01S01792.libtask +++| EQ SAP5 CONTINUE WITH NEXT TASK
01830 M01S01793.libtask +++|
01831 M01S01794.libtask +++|* TASK IS DELETED PLACE DUMMY NAME IN TLD.
01832 M01S01795.libtask +++|
01833 M01S01796.libtask +++| SAP4 LX6 -18
01834 M01S01797.libtask +++| SA6 A1-B1 REPLACE TASK NAME
01835 M01S01798.libtask +++| SA3 LATLD DECREMENT TASK LENGTH
01836 M01S01799.libtask +++| SX6 X3-3
01837 M01S01800.libtask +++| SA6 A3+
01838 M01S01801.libtask +++| SAP5 SA5 A5+TLDLE NEXT ENTRY
01839 M01S01802.libtask +++| SA1 LWTLD END OF DIRECTORY
01840 M01S01803.libtask +++| SX2 A5
01841 M01S01804.libtask +++| IX2 X1-X2
01842 M01S01805.libtask +++| PL X2,SAP1 IF NOT END OF DIRECTORY
01843 M01S01806.libtask +++| EQ SAPX RETURN
01844 M01S01807.libtask +++| SAT SPACE 4,10
01845 M01S01808.libtask +++|** SAT - SELECT ACTIVE TASKS.
01846 M01S01809.libtask +++|*
01847 M01S01810.libtask +++|* ENTRY INPUT DIRECTORY BUILD.
01848 M01S01811.libtask +++|*
01849 M01S01812.libtask +++|* EXIT ACTIVE TASKS WRITTEN ON *P* FILE.
01850 M01S01813.libtask +++|*
01851 M01S01814.libtask +++|* USES A - 1, 2, 5, 6.
01852 M01S01815.libtask +++|* X - 0, 1, 2, 3, 4, 5, 6.
01853 M01S01816.libtask +++|*
01854 M01S01817.libtask +++|* MACROS READ, READW, RECALL, REWIND, WRITEF, WRITER, WRITEW.
01855 M01S01818.libtask +++|
01856 M01S01819.libtask +++|
01857 M01S01820.libtask +++| SAT SUBR ENTRY/EXIT
01858 M01S01821.libtask +++| REWIND P,R
01859 M01S01822.libtask +++|
01860 M01S01823.libtask +++|* COPY TASK BINARIES FROM *P* TO SCRATCH.
01861 M01S01824.libtask +++|
01862 M01S01825.libtask +++| REWIND SF
01863 M01S01826.libtask +++| SAT1 READ P,R
01864 M01S01827.libtask +++| RECALL SF
01865 M01S01828.libtask +++| SAT2 SX5 TBL
01866 M01S01829.libtask +++| READW P,TB,TBL
01867 M01S01830.libtask +++| NG X1,SAT4 IF EOF
01868 M01S01831.libtask +++| ZR X1,SAT3 IF NOT AT EOR
01869 M01S01832.libtask +++| SX5 X1-TB
01870 M01S01833.libtask +++| SAT3 WRITEW SF,TB,X5 WRITE TO SCRATCH FILE
01871 M01S01834.libtask +++| SX5 X5-TBL
01872 M01S01835.libtask +++| ZR X5,SAT2 IF RECORD COPY NOT COMPLETE
01873 M01S01836.libtask +++| WRITER SF
01874 M01S01837.libtask +++| SA1 EOFF
01875 M01S01838.libtask +++| ZR X1,SAT1 IF NOT AT EOF
01876 M01S01839.libtask +++| SAT4 WRITEF SF
01877 M01S01840.libtask +++| SA1 P
01878 M01S01841.libtask +++| LX1 59-9
01879 M01S01842.libtask +++| PL X1,SAT1 IF NOT AT EOF
01880 M01S01843.libtask +++|
01881 M01S01844.libtask +++|* FLUSH BUFFER.
01882 M01S01845.libtask +++|
01883 M01S01846.libtask +++| WRITEF SF
01884 M01S01847.libtask +++| REWIND P,R
01885 M01S01848.libtask +++| RECALL SF
01886 M01S01849.libtask +++| REWIND SF,R
01887 M01S01850.libtask +++| SA5 TLD+1
01888 M01S01851.libtask +++|
01889 M01S01852.libtask +++|* SELECT ACTIVE TASKS FROM SCRATCH TO *P*.
01890 M01S01853.libtask +++|
01891 M01S01854.libtask +++| SAT5 SA1 A5 WORD 2 OF AN ENTRY
01892 M01S01855.libtask +++| MX0 30
01893 M01S01856.libtask +++| BX3 X0*X1 ISOLATE DISK INDEX
01894 M01S01857.libtask +++| SA2 A1+B1 WORD 3 OF TLD
01895 M01S01858.libtask +++| LX3 30
01896 M01S01859.libtask +++| LX2 59-54 LEFT JUSTIFY DELETE FLAG
01897 M01S01860.libtask +++| SX4 B1 SET REQUEST BIT
01898 M01S01861.libtask +++| LX4 29
01899 M01S01862.libtask +++| SX6 3RZZZ
01900 M01S01863.libtask +++| NG X2,SAT8 IF DELETE TASK
01901 M01S01864.libtask +++| BX6 X4+X3 ADD DISK INDEX
01902 M01S01865.libtask +++| SA6 SF+6 PUT IN FET
01903 M01S01866.libtask +++| SA2 SF+1
01904 M01S01867.libtask +++| SX6 X2
01905 M01S01868.libtask +++| SA6 A2+B1 FET+2
01906 M01S01869.libtask +++| SA6 A6+B1 FET+3
01907 M01S01870.libtask +++| SA2 P+6
01908 M01S01871.libtask +++| BX6 X0*X2 ISOLATE NEW INDEX
01909 M01S01872.libtask +++| BX3 -X0*X1 CLEAR OUT OLD ONE
01910 M01S01873.libtask +++| BX6 X6+X3
01911 M01S01874.libtask +++| SA6 A5+
01912 M01S01875.libtask +++| READ SF,R
01913 M01S01876.libtask +++| SAT6 SX5 TBL
01914 M01S01877.libtask +++| READW SF,TB,X5 READ TASK BINARY FROM SCRATCH
01915 M01S01878.libtask +++| ZR X1,SAT7 IF NOT AT EOR
01916 M01S01879.libtask +++| SX5 X1-TB
01917 M01S01880.libtask +++| SAT7 WRITEW P,TB,X5 WRITE ON LIBRARY
01918 M01S01881.libtask +++| SX5 X5-TBL
01919 M01S01882.libtask +++| ZR X5,SAT6 IF RECORD COPY NOT COMPLETE
01920 M01S01883.libtask +++| WRITER P,R
01921 M01S01884.libtask +++| EQ SAT9 CONTINUE WITH NEXT TASK
01922 M01S01885.libtask +++|
01923 M01S01886.libtask +++|* TASK IS DELETED PLACE DUMMY NAME IN TLD.
01924 M01S01887.libtask +++|
01925 M01S01888.libtask +++| SAT8 LX6 -18
01926 M01S01889.libtask +++| SA6 A1-B1 REPLACE TASK NAME