cdc:nos2.source:opl.opl871:deck:libtask
Deck LIBTASK
Library Member Format: MODIFY
Listing Sections
- Deck LIBTASK Start
- Deck LIBTASK Part 1 (Line 1874)
- Deck LIBTASK Part 2 (Line 3623)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.libtask +++| IDENT LIBTASK,FETS 00002 M00S00002.libtask +++| ABS 00003 M00S00003.libtask +++| SST LREC,MP 00004 M00S00004.libtask +++| ENTRY LIBTASK 00005 M00S00005.libtask +++| ENTRY RFL=
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00001.ns2523 +++| ENTRY SSJ= 00007 M00S00006.libtask +++| SYSCOM B1 00008 M00S00007.libtask +++| LIBTASK TITLE LIBTASK - TASK LIBRARY EDITING PROGRAM. 00009 M00S00008.libtask +++|*COMMENT LIBTASK - TASK LIBRARY EDITING PROGRAM.
| Line S00009 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1971.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M00S00010.libtask +++| LIBTASK SPACE 4,10 00013 M00S00011.libtask +++|***** LIBTASK - TASK LIBRARY BUILDING AND EDITING PROGRAM. 00014 M00S00012.libtask +++|* 00015 M00S00013.libtask +++|* J. R. HOGUE. 1971. 00016 M00S00014.libtask +++|* K. R. COMBS. 1972. 00017 M00S00015.libtask +++|* M. M. CHEN. 1978. 00018 M00S00016.libtask +++|* R. G. PARKHOUSE. 80/04/15. 00019 M00S00017.libtask +++|* E. D. REDIG. 81/03/06. 00020 M00S00018.libtask +++| SPACE 4 00021 M00S00019.libtask +++|*** *LIBTASK* BUILDS THE TASK LIBRARY USED BY THE TRANSACTION 00022 M00S00020.libtask +++|* EXECUTIVE AND PLACES BOTH A TASK DIRECTORY AND A TRANSACTION 00023 M00S00021.libtask +++|* DIRECTORY ON THE LAST RECORD OF THE LIBRARY. 00024 M00S00022.libtask +++|* 00025 M00S00023.libtask +++|* TO MAKE CHANGES TO THE LIBRARY WHILE THE TRANSACTION SYSTEM 00026 M00S00024.libtask +++|* IS RUNNING, *LIBTASK* ADDS THE NEW TASK BINARIES TO THE END 00027 M00S00025.libtask +++|* OF THE LIBRARY FILE AND REWRITES AN UPDATED DIRECTORY ON THE 00028 M00S00026.libtask +++|* LAST RECORD. THEN, VIA THE OPERATING SYSTEM *SIC* REQUEST, 00029 M00S00027.libtask +++|* *LIBTASK* INFORMS THE TRANSACTION EXECUTIVE THAT A CHANGE 00030 M00S00028.libtask +++|* WAS MADE AND THE EXECUTIVE READS IN THE NEW DIRECTORY. 00031 M00S00029.libtask +++|* 00032 M00S00030.libtask +++|* *LIBTASK* DOES NOT DEFINE THE INITIAL LIBRARY FILE. THIS 00033 M00S00031.libtask +++|* MUST BE DONE PRIOR TO A *LIBTASK* CREATION RUN. 00034 M00S00032.libtask +++| SPACE 4,10
| Line S00033 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00035 M01S00033.v23l617 ---|*** CONTROL STATEMENT CALL.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00036 M01S00001.v23l617 +++|*** THE COMMAND. 00037 M00S00034.libtask +++|* 00038 M00S00035.libtask +++|* LIBTASK(P1,P2,,PN) 00039 M00S00036.libtask +++|* 00040 M00S00037.libtask +++|* THE PARAMETERS P(I) MAY INCLUDE THE FOLLOWING (IN ANY ORDER) 00041 M00S00038.libtask +++|* AND MUST BE IN ONE OF THE FORMS 00042 M00S00039.libtask +++|* 00043 M00S00040.libtask +++|* * * - (NONE) ASSUME FIRST DEFAULT VALUE. 00044 M00S00041.libtask +++|* P - ASSUME ALTERNATE DEFAULT VALUE. 00045 M00S00042.libtask +++|* P=X - SUBSTITUTE *X* FOR ANY ASSUMED VALUE OF *P*. 00046 M00S00043.libtask +++|* 00047 M00S00044.libtask +++|* I - FILE CONTAINING INPUT DIRECTIVES.
| Line S00045 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00048 M01S00045.v23l617 ---|* Z - TAKE DIRECTIVES ONLY FROM CONTROL CARD.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00049 M01S00002.v23l617 +++|* Z - TAKE DIRECTIVES ONLY FROM COMMAND. 00050 M00S00046.libtask +++|* EXAMPLE - 00051 M00S00047.libtask +++|* LIBTASK(...,Z,...)XDDDDDXDDDDXDDD 00052 M00S00048.libtask +++|* WHERE X IS ANY CHARACTER NOT IN D. 00053 M00S00049.libtask +++|* D IS A LIBTASK DIRECTIVE. 00054 M00S00050.libtask +++|* B - FILE CONTAINING BINARIES TO ADD TO TASK LIBRARY FILE. 00055 M00S00051.libtask +++|* L - FILE CONTAINING LIST OF ACTIONS TAKEN. 00056 M00S00052.libtask +++|* P - TASK LIBRARY FILE. 00057 M00S00053.libtask +++|* N - NEW TASK LIBRARY FILE. 00058 M00S00054.libtask +++|* CR - CREATE A NEW LIBRARY FILE. 00059 M00S00055.libtask +++|* TT - SEND MESSAGE TO *TAF* TO READ NEW DIRECTORY. 00060 M00S00056.libtask +++|* PR - PURGE OLD BINARIES AND DIRECTORIES. 00061 M00S00057.libtask +++|* DA - DISABLE ATTACHES AND RETURNS. 00062 M00S00058.libtask +++|* LO - LIST OPTION FOR TASKS/TRANSACTIONS AND ATTRIBUTES. 00063 M00S00059.libtask +++|* TN - TASK OR TRANSACTION NAME USED IN CONJUNCTION WITH *LO*. 00064 M00S00060.libtask +++|* 00065 M00S00061.libtask +++|* DEFAULT PARAMETER SUBSTITUTION VALUES. 00066 M00S00062.libtask +++|* 00067 M00S00063.libtask +++|* EQUIVALENCED FIRST ALTERNATE 00068 M00S00064.libtask +++|* PARAMETERS DEFAULT DEFAULT - COMMENT - 00069 M00S00065.libtask +++|* 00070 M00S00066.libtask +++|* I *INPUT* *COMPILE* 00071 M00S00067.libtask +++|* B *LGOB* *LGO* TASK BINARY FILE. 00072 M00S00068.libtask +++|* L *OUTPUT* *OUTPUT* OUTPUT FILE. 00073 M00S00069.libtask +++|* P *TASKLIB* TASK LIBRARY FILE. 00074 M00S00070.libtask +++|* N *SCRATCH* *TASKLIB* NEW TASK LIBRARY FILE. 00075 M00S00071.libtask +++|* LO 0 *A* LIST OPTION. 00076 M00S00072.libtask +++|* TN 0 0 TASK OR TRANSACTION NAME. 00077 M00S00073.libtask +++|* 00078 M00S00074.libtask +++|* SINGLE FIRST ALTERNATE 00079 M00S00075.libtask +++|* PARAMETERS DEFAULT DEFAULT - COMMENT - 00080 M00S00076.libtask +++|*
| Line S00077 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00081 M01S00077.v23l617 ---|* Z *NOT Z* *Z* DIRECTIVES FROM CONTROL CARD.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00082 M01S00003.v23l617 +++|* Z *NOT Z* *Z* DIRECTIVES FROM COMMAND. 00083 M00S00078.libtask +++|* CR *NOT CR* *CR* CREATE A NEW LIBRARY FILE. 00084 M00S00079.libtask +++|* TT *NOT TT* *TT* TELL *TAF* ABOUT CHANGE. 00085 M00S00080.libtask +++|* PR *NOT PR* *PR* PURGE OLD RECORDS 00086 M00S00081.libtask +++|* DA *NOT DA* *DA* SKIP ATTACHES OF LIBRARY FILE 00087 M00S00082.libtask +++| SPACE 4,45 00088 M00S00083.libtask +++|*** DESCRIPTION OF PARAMETER OPTIONS. 00089 M00S00084.libtask +++|* 00090 M00S00085.libtask +++|* CR - THE CREATE OPTION IS USED TO CREATE A NEW TASK LIBRARY. 00091 M00S00086.libtask +++|* IF *TAF* IS RUNNING BUT DOES NOT HAVE A FILE ATTACHED BY THE 00092 M00S00087.libtask +++|* NEW TASK LIBRARY NAME, A CREATE MAY BE DONE. OTHERWISE, IT 00093 M00S00088.libtask +++|* MAY NOT BE USED WHILE *TAF* IS RUNNING. THE *P* FILE MUST 00094 M00S00089.libtask +++|* HAVE BEEN PREVIOUSLY DEFINED. LIBTASK READS ONE TASK 00095 M00S00090.libtask +++|* AT A TIME FROM THE *B* FILE, CHECKS FOR AN INPUT DIRECTIVE 00096 M00S00091.libtask +++|* FOR THE TASK, CONSTRUCTS A DIRECTORY ENTRY AND INSERTS THE 00097 M00S00092.libtask +++|* ENTRY IN ALPHABETICAL ORDER IN THE LIBRARY DIRECTORY. THE 00098 M00S00093.libtask +++|* DIRECTORY IS WRITTEN AT THE END OF THE LIBRARY. 00099 M00S00094.libtask +++|* 00100 M00S00095.libtask +++|* PR - THE PURGE OPTION IS USED TO REMOVE INACTIVE TASK 00101 M00S00096.libtask +++|* BINARIES AND OLD DIRECTORIES FROM THE TASK LIBRARY. 00102 M00S00097.libtask +++|* THIS OPTION MAY BE USED WHILE *TAF* IS RUNNING AND THE 00103 M00S00098.libtask +++|* TASK LIBRARY TO BE PURGED IS NOT ATTACHED BY *TAF*. 00104 M00S00099.libtask +++|* *LIBTASK* PROCESSES THE REPLACEMENT FILE *B* 00105 M00S00100.libtask +++|* AND THE INPUT DIRECTIVES NORMALLY, COPIES THE 00106 M00S00101.libtask +++|* ENTIRE LIBRARY TO A SCRATCH FILE, THEN TRANSFERS THE CURRENT 00107 M00S00102.libtask +++|* BINARY FOR EACH TASK IN THE LIBRARY TO THE SCRATCH FILE. 00108 M00S00103.libtask +++|* HOWEVER, IF THE *N* OPTION IS SPECIFIED, ONLY THE CURRENT 00109 M00S00104.libtask +++|* BINARIES ARE TRANSFERRED DIRECTLY TO THE SCRATCH FILE, 00110 M00S00105.libtask +++|* WHICH HAS BECOME THE NEWLY DEFINED TASK LIBRARY. THE 00111 M00S00106.libtask +++|* DIRECTORY IS UPDATED AND WRITTEN AT THE END IN EACH CASE. 00112 M00S00107.libtask +++|* THEREFORE, ONLY ONE COPY OF EACH TASK AND ONE DIRECTORY 00113 M00S00108.libtask +++|* REMAINS IN THE LIBRARY. 00114 M00S00109.libtask +++|* 00115 M00S00110.libtask +++|* TT - THE TELL *TAF* OPTION IS USED TO INFORM *TAF* THAT A 00116 M00S00111.libtask +++|* CHANGE HAS OCCURRED IN THE TASK LIBRARY WHEN A LIBTASK 00117 M00S00112.libtask +++|* TAKES PLACE WHILE *TAF* IS RUNNING. THE PARAMETER HAS 00118 M00S00113.libtask +++|* NO EFFECT IF *TAF* IS NOT RUNNING. NORMAL PROCESSING 00119 M00S00114.libtask +++|* OCCURS, AFTER WHICH INTERCONTROL POINT COMMUNICATION IS USED 00120 M00S00115.libtask +++|* TO INFORM *TAF* TO READ IN THE NEW DIRECTORY. 00121 M00S00116.libtask +++|* 00122 M00S00117.libtask +++|* DA - THE DISABLE ATTACH OPTION IS USED TO ALLOW A USER 00123 M00S00118.libtask +++|* COMPLETE CONTROL OF HIS PERMANENT FILES. THIS OPTION 00124 M00S00119.libtask +++|* DISABLES ALL ATTACHES AND RETURNS OF THE TASK LIBRARY FILES. 00125 M00S00120.libtask +++|* THE EXCEPTION TO THIS IS IF THE *TT* OPTION IS ALSO 00126 M00S00121.libtask +++|* SPECIFIED. LIBTASK WILL THEN RETURN THE TASK LIBRARY 00127 M00S00122.libtask +++|* FILE SO THAT *TAF* MAY REATTACH THE FILE TO UPDATE ITS 00128 M00S00123.libtask +++|* TABLES. 00129 M00S00124.libtask +++|* 00130 M00S00125.libtask +++|* LO - THE LIST OPTION PRODUCES A REPORT OF TASKS AND THEIR 00131 M00S00126.libtask +++|* ATTRIBUTES, TRANSACTION NAMES WITH ATTRIBUTES AND NAMES 00132 M00S00127.libtask +++|* OF MEMBER TASKS. WHEN LISTING TASK NAMES WITH TRANSACTION 00133 M00S00128.libtask +++|* NAMES, THOSE TASKS WHICH DO NOT EXIST IN THE DATA BASE 00134 M00S00129.libtask +++|* LIBRARY ARE FLAGGED. 00135 M00S00130.libtask +++| SPACE 4,70 00136 M00S00131.libtask +++|*** INPUT FILE DIRECTIVE FORMAT. 00137 M00S00132.libtask +++|* 00138 M00S00133.libtask +++|* 1. TASK DIRECTIVE. 00139 M00S00134.libtask +++|* 00140 M00S00135.libtask +++|* TO ENTER ALTERNATE VALUES FOR A TASK, A DIRECTIVE CARD MAY 00141 M00S00136.libtask +++|* BE ENTERED IN THE DIRECTIVE FILE. 00142 M00S00137.libtask +++|*
| Line S00138 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00143 M01S00138.v23l617 ---|* DIRECTORY CONTROL CARD FORMAT.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00144 M01S00004.v23l617 +++|* DIRECTORY COMMAND FORMAT. 00145 M00S00139.libtask +++|* 00146 M00S00140.libtask +++|* *NAME P1,P2,,,PN. 00147 M00S00141.libtask +++|* 00148 M00S00142.libtask +++|* NAME = TASK NAME OF TASK ON FILE *B*. 00149 M00S00143.libtask +++|* 00150 M00S00144.libtask +++|* THE PARAMETERS P(I) MAY INCLUDE THE FOLLOWING (IN ANY ORDER) 00151 M00S00145.libtask +++|* AND MUST BE IN ONE OF THE FORMS : 00152 M00S00146.libtask +++|* 00153 M00S00147.libtask +++|* * * - (NONE) ASSUME FIRST DEFAULT VALUE 00154 M00S00148.libtask +++|* P - ASSUME ALTERNATE DEFAULT VALUE 00155 M00S00149.libtask +++|* P=X - SUBSTITUTE *X* FOR ANY ASSUMED VALUE OF *P* 00156 M00S00150.libtask +++|* 00157 M00S00151.libtask +++|* BP - BEGINNING PRIORITY. 00158 M00S00152.libtask +++|* MP - MAXIMUM PRIORITY (FUTURE USE). 00159 M00S00153.libtask +++|* QL - QUEUE LIMIT. 00160 M00S00154.libtask +++|* S - SYSTEM TASK. 00161 M00S00155.libtask +++|* C - CORE RESIDENT. 00162 M00S00156.libtask +++|* SC - COMMUNICATION BLOCK SOLICITED FLAG. 00163 M00S00157.libtask +++|* D - DESTRUCTIVE CODE.
| Line S00158 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00164 M01S00158.v23l617 ---|* E - ECS RESIDENT (FUTURE USE).
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00165 M01S00005.v23l617 +++|* E - EXTENDED MEMORY RESIDENT (FUTURE USE). 00166 M00S00159.libtask +++|* O - TASK ON/OFF. 00167 M00S00160.libtask +++|* Q - QUEUING FORCED FOR ADDITIONAL ACTIVE COPIES OF TASK. 00168 M00S00161.libtask +++|* R - REDUCE FL (CM RESIDENT TASK ONLY). 00169 M00S00162.libtask +++|* 00170 M00S00163.libtask +++|* EQUIVALENCED FIRST ALTERNATE 00171 M00S00164.libtask +++|* PARAMETERS DEFAULT DEFAULT - COMMENT - 00172 M00S00165.libtask +++|* 00173 M00S00166.libtask +++|* BP 20B 25B BEGINNING TASK PRIORITY. 00174 M00S00167.libtask +++|* EF 0 0 DEFAULT EXPANDABLE FL. 00175 M00S00168.libtask +++|* MP 40B 50B MAXIMUM TASK PRIORITY. 00176 M00S00169.libtask +++|* QL 3B 5B QUEUE LIMIT FOR A TASK. 00177 M00S00170.libtask +++|* 00178 M00S00171.libtask +++|* SINGLE FIRST ALTERNATE 00179 M00S00172.libtask +++|* PARAMETERS DEFAULT DEFAULT - COMMENT - 00180 M00S00173.libtask +++|* 00181 M00S00174.libtask +++|* R 0 0 REDUCE FL 00182 M00S00175.libtask +++|* S *NOT S* *S* SYSTEM TASK. 00183 M00S00176.libtask +++|* C *DISK* *CORE* RESIDENCE OF TASK BINARY. 00184 M00S00177.libtask +++|* D *NOT D* *D* DESTRUCTIVE CODE INDICATOR.
| Line S00178 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00185 M01S00178.v23l617 ---|* E *NOT E* *E* ECS RESIDENT.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00186 M01S00006.v23l617 +++|* E *NOT E* *E* EXTENDED MEMORY RESIDENT. 00187 M00S00179.libtask +++|* O *ON* *OFF* TASK ON/OFF. 00188 M00S00180.libtask +++|* DL *NOT DL* *DL* DELETE TASK. 00189 M00S00181.libtask +++|* IG *NOT IG* *IG* IGNORE TASK. 00190 M00S00182.libtask +++|* SC *NOT SC* *SC* COM. BLK. SOLICITED 00191 M00S00183.libtask +++|* Q *NORMAL* *QUEUE* QUEUE FOR ADDITIONAL COPIES. 00192 M00S00184.libtask +++|* 00193 M00S00185.libtask +++|* 00194 M00S00186.libtask +++|* 2. TRANSACTION DIRECTIVE. 00195 M00S00187.libtask +++|* 00196 M00S00188.libtask +++|* TO NAME A TRANSACTION AND SPECIFY TASKS COMPRISING THE NAMED 00197 M00S00189.libtask +++|* TRANSACTION. TO SPECIFY DATA MANAGERS USED BY THE TRANSACTION 00198 M00S00190.libtask +++|* AND SPECIFY THE RECOVERABLE ATTRIBUTE. 00199 M00S00191.libtask +++|* 00200 M00S00192.libtask +++|* DIRECTIVE FORMAT. 00201 M00S00193.libtask +++|* 00202 M00S00194.libtask +++|* /TNAME,T1=TSK1,T2=TSK2,T3=TSK3,T4=TSK4,T5=TSK5,RC,DM=DMID,DL. 00203 M00S00195.libtask +++|* 00204 M00S00196.libtask +++|* TNAME = 1-7 ALPHANUMERIC CHARACTER TRANSACTION UNIT NAME. 00205 M00S00197.libtask +++|* TSK(I) = TASKS COMPRISING TRANSACTION. 00206 M00S00198.libtask +++|* RC = TRANSACTION IS RECOVERABLE. 00207 M00S00199.libtask +++|* DMID = DATA MANAGERS USED(C - *CRM*, D - *CDCS*, CD - BOTH) 00208 M00S00200.libtask +++|* DL = DELETE NAMED TRANSACTION. 00209 M00S00201.libtask +++| SPACE 4,10 00210 M00S00202.libtask +++|*** DOCUMENTATION CONVENTIONS. 00211 M00S00203.libtask +++|*
| Line S00204 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00212 M01S00204.v23l617 ---|* B FILE NAME DENOTED BY CONTROL STATEMENT *B* PARAMETER. 00213 M01S00205.v23l617 ---|* N FILE NAME DENOTED BY CONTROL STATEMENT *N* PARAMETER. 00214 M01S00206.v23l617 ---|* P FILE NAME DENOTED BY CONTROL STATEMENT *P* PARAMETER.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00207.libtask +++|* TLD TASK LIBRARY DIRECTORY. 00219 M00S00208.libtask +++|* TRD TRANSACTION DIRECTORY. 00220 M00S00209.libtask +++| SPACE 4,10 00221 M00S00210.libtask +++|*** DAYFILE MESSAGES. 00222 M00S00211.libtask +++|* 00223 M00S00212.libtask +++|* ERRA BINARY RECORD WAS LESS THAN 640 WORDS LONG. 00224 M00S00213.libtask +++|* ERRB BINARY RECORD WAS NETHER ABSOLUTE NOR OVERLAY FORMAT.
| Line S00214 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00225 M01S00214.v23l617 ---|* PRSB CONTROL CARD ARGUMENT ERRORS.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00226 M01S00010.v23l617 +++|* PRSB LIBTASK COMMAND ARGUMENT ERRORS. 00227 M00S00215.libtask +++|* ERCB CONFLICTING LIBTASK OPTIONS - CR, PR. 00228 M00S00216.libtask +++|* ERCC CONFLICTING LIBTASK OPTIONS - CR, TT. 00229 M00S00217.libtask +++|* ERCD CONFLICTING LIBTASK OPTIONS - PR, TT. 00230 M00S00218.libtask +++|* ERCF CONFLICTING LIBTASK OPTIONS - P=0, -N. 00231 M00S00219.libtask +++|* ERCH CONFLICTING LIBTASK OPTIONS - TT, N. 00232 M00S00220.libtask +++|* INPB DIRECTIVE ERRORS. 00233 M00S00221.libtask +++|* ERRF DIRECTORY IS FULL - NO MORE ADDITIONS ALLOWED. 00234 M00S00222.libtask +++|* LIBK FILE NOT ATTACHED - LFN.
| Line S00223 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00235 M01S00223.v23l617 ---|* ERRD ILLEGAL FWA FOR LOAD.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00236 M01S00011.v23l617 +++|* ERRD INCORRECT FWA FOR LOAD. 00237 M00S00224.libtask +++|* ATTD LIBRARY FILE TIME OUT. 00238 M00S00225.libtask +++|* ERRE LIBTASK ERROR CONDITION UNKNOWN. 00239 M00S00226.libtask +++|* LIBJ LIBTASK ERRORS. 00240 M00S00227.libtask +++|* ATTE LIBTASK - PFM ERROR DETECTED. 00241 M00S00228.libtask +++|* TOVA TABLE OVERFLOW - TOO MANY TASKS. 00242 M00S00229.libtask +++|* LIBF TASK EDITING COMPLETE. 00243 M00S00230.libtask +++|* PRSD TASK LIBRARY DIRECTORY EMPTY. 00244 M00S00231.libtask +++|* PRSE TASK LIBRARY DIRECTORY ERROR. 00245 M00S00232.libtask +++|* PRSC TASK LIBRARY DIRECTORY TOO LONG. 00246 M00S00233.libtask +++|* ERCO TASKLIB MUST NOT START WITH THE LETTER Z. 00247 M00S00234.libtask +++|* ERCL TN REQUIRES EITHER LO=T OR LO=X.
| Line S00235 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00248 M01S00235.v23l617 ---|* PRSF TT OPTION REQUIRES USER NUMBER.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00249 M01S00012.v23l617 +++|* PRSF TT OPTION REQUIRES USER NAME. 00250 M00S00236.libtask +++|* PRSG TRANSACTION DIRECTORY EMPTY. 00251 M00S00237.libtask +++|* PRSH TRANSACTION DIRECTORY TOO LONG. 00252 M00S00238.libtask +++|* PRSI TRANSACTION DIRECTORY ERROR.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 00253 M01S00002.ns2523 +++|* PRSJ USER NOT VALIDATED FOR ONLINE TASK LIBRARY UPDATES. 00254 M00S00239.libtask +++|* ERCM VALID LO OPTIONS ARE LO, LO=A, LO=T OR LO=X. 00255 M00S00240.libtask +++|* PLOG XXXXXXX NOT IN DIRECTORY. 00256 M00S00241.libtask +++| SPACE 4,10 00257 M00S00242.libtask +++| QUAL$ EQU 0 PROGRAM WILL HANDLE QUAL 00258 M00S00243.libtask +++|*CALL COMCMAC 00259 M00S00244.libtask +++|*CALL COMCMTM 00260 M00S00245.libtask +++| LIST X 00261 M00S00246.libtask +++|*CALL COMKFLD 00262 M00S00247.libtask +++|*CALL COMKTLD 00263 M00S00248.libtask +++| LIST -X 00264 M01S00003.ns2523 +++|*CALL COMSPRD 00265 M00S00249.libtask +++|*CALL COMSSSD 00266 M01S00004.ns2523 +++|*CALL COMSSSJ 00267 M00S00250.libtask +++|
| Line S00251 Modification History | |
|---|---|
M01 (Removed by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 00268 M01S00251.ns2523 ---| ORG 103B
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 00269 M01S00005.ns2523 +++| ORG 104B 00270 M00S00252.libtask +++| FETS TITLE FETS AND DATA STORAGE. 00271 M00S00253.libtask +++| FETS BSS 0 00272 M00S00254.libtask +++| 00273 M00S00255.libtask +++| I BSS 0 00274 M00S00256.libtask +++| INPUT FILEB IBUF,IBUFL,FET=7 DIRECTIVE INPUT FILE 00275 M00S00257.libtask +++| 00276 M00S00258.libtask +++| B BSS 0 00277 M00S00259.libtask +++| LGOB FILEB BBUF,BBUFL TASK BINARY FILE 00278 M00S00260.libtask +++| 00279 M00S00261.libtask +++| O BSS 0 00280 M00S00262.libtask +++| OUTPUT FILEC OBUF,OBUFL OUTPUT FILE 00281 M00S00263.libtask +++| 00282 M00S00264.libtask +++| P BSS 0 00283 M00S00265.libtask +++| TASKLIB RFILEB PBUF,PBUFL,EPR,FET=11 TASK LIBRARY FILE 00284 M00S00266.libtask +++| 00285 M00S00267.libtask +++| SF BSS 0 00286 M00S00268.libtask +++| N BSS 0 00287 M00S00269.libtask +++| SCRATCH RFILEB SBUF,SBUFL,EPR,FET=11 NEW/SCRATCH LIBRARY FILE 00288 M00S00270.libtask +++| 00289 M00S00271.libtask +++| LATLD BSS 1 ACTUAL LWA OF TLD 00290 M00S00272.libtask +++| LWTLD BSS 1 CURRENT LWA OF TLD 00291 M00S00273.libtask +++| LWOLD BSS 1 LWA OF BASE TLD FOR RUNNING SYSTEM 00292 M00S00274.libtask +++| TSKDI BSS 1 TASK DISK INDEX 00293 M00S00275.libtask +++| TSKNM BSS 1 TASK NAME 00294 M00S00276.libtask +++| TSKNE BSS 1 TASK NAME AND ENTRY POINT 00295 M00S00277.libtask +++| TSKFL BSS 1 TASK FIELD LENGTH 00296 M00S00278.libtask +++| EOFF CON 0 END OF BINARY FILE FLAG 00297 M00S00279.libtask +++| BFEF CON 0 BINARY FILE ERROR FLAG 00298 M00S00280.libtask +++| FSLT BSS 1 FREE SPACE LEFT IN TLD 00299 M00S00281.libtask +++| CRES CON 0 CORE RESIDENT TASK COUNT 00300 M00S00282.libtask +++| 00301 M00S00283.libtask +++| LATRD CON 0 LWA OF TRD BEFORE SORT 00302 M00S00284.libtask +++| LWTRD CON 0 LWA OF TRD 00303 M00S00285.libtask +++| FSTR CON 0 FREE SPACE LEFT IN TRD 00304 M00S00286.libtask +++| MTRD CON 0 TRD UPDATED FLAG 00305 M00S00287.libtask +++| TRDE CON 0 TRD EXISTS FLAG 00306 M00S00288.libtask +++|
| Line S00289 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00307 M01S00289.v23l617 ---| Z CON 0 TO TAKE DIRECTIVES FROM CONTROL STATEMENT
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00308 M01S00013.v23l617 +++| Z CON 0 TO TAKE DIRECTIVES FROM CONTROL COMMAND 00309 M00S00290.libtask +++| PR CON 0 TO PURGE OLD COPIES 00310 M00S00291.libtask +++| CR CON 0 TO CREATE A LIBRARY FILE OR NOT TO CREATE 00311 M00S00292.libtask +++| TT CON 0 TELL *TAF* ABOUT NEW DIRECTORY 00312 M00S00293.libtask +++| DA CON 0 DISABLE ATTACH AND RETURN 00313 M00S00294.libtask +++| AT CON 0 ATTACHED BY *TAF* FLAG 00314 M00S00295.libtask +++| PN CON 0 FILE *F* AND *N* NOT EQUAL FLAG 00315 M00S00296.libtask +++| LO CON 0 LIST OPTION 00316 M00S00297.libtask +++| XTN CON 0 TASK OR TRANSACTION UNIT NAME FOR *LO* 00317 M00S00298.libtask +++| 00318 M00S00299.libtask +++| FWLD EQU 111B FWA OF SINGLE ENTRY POINT PROGRAM 00319 M00S00300.libtask +++| RECN CON 0 RECORDS READ FROM BINARY FILE 00320 M00S00301.libtask +++| CBP EQU 3533B DEFAULT BEGINNING TASK PRIORITY 00321 M00S00302.libtask +++| ABP EQU 3540B ALTERNATE BEGINNING TASK PRIORITY 00322 M00S00303.libtask +++| MNBP EQU 10B MINIMUM BEGINNING PRIORITY 00323 M00S00304.libtask +++| MXBP EQU 70B MAXIMUM BEGINNING PRIORITY 00324 M00S00305.libtask +++| CMP EQU 3733B DEFAULT MAXIMUM TASK PRIORITY 00325 M00S00306.libtask +++| AMP EQU 4033B ALTERNATE MAXIMUM TASK PRIORITY 00326 M00S00307.libtask +++| MNMP EQU 10B MINIMUM MAXIMUM PRIORITY 00327 M00S00308.libtask +++| MXMP EQU 70B MAXIMUM MAXIMUM PRIORITY 00328 M00S00309.libtask +++| CQL EQU 3336B DEFAULT TASK QUEUE LIMIT 00329 M00S00310.libtask +++| AQL EQU 3340B ALTERNATE TASK QUEUE LIMIT 00330 M00S00311.libtask +++| MINQL EQU 1 MINIMUM QUEUE LIMIT 00331 M00S00312.libtask +++| MAXQL EQU 5 MAXIMUM QUEUE LIMIT 00332 M00S00313.libtask +++| EFL EQU 0 DEFAULT EXPANDABLE FIELD LENGTH BY TASK 00333 M00S00314.libtask +++| MAXEF EQU 300000B MAXIMUM EXPANDABLE FL 00334 M00S00315.libtask +++| CC EQU 0 DEFAULT CORE RESIDENCE VALUE 00335 M00S00316.libtask +++| CD EQU 1 DEFAULT FOR DESTRUCTIVE TASKS 00336 M00S00317.libtask +++| CS EQU 0 DEFAULT SYSTEM TASK INDICATOR 00337 M00S00318.libtask +++| CO EQU 0 DEFAULT ON/OFF INDICATOR 00338 M00S00319.libtask +++| CE EQU 0 DEFAULT ECS RESIDENCE INDICATOR 00339 M00S00320.libtask +++| CDL EQU 0 DEFAULT DELETE DIRECTORY 00340 M00S00321.libtask +++| CQ EQU 0 DEFAULT QUEUING CONTROL 00341 M00S00322.libtask +++| CRE EQU 0 DEFAULT REDUCE FL 00342 M00S00323.libtask +++| TLQUSM DECMIC TLQUS 00343 M00S00324.libtask +++| MLQU EQU 1S"TLQUSM" MULTIPLIER OF *CQ* 00344 M00S00325.libtask +++| BP VFD 12/CBP,48/0 BEGINNING PRIORITY FOR A TASK 00345 M00S00326.libtask +++| MP VFD 12/CMP,48/0 MAXIMUM TASK PRIORITY 00346 M00S00327.libtask +++| EF CON EFL EXPANDABLE FIELD LENGTH BY TASK 00347 M00S00328.libtask +++| QL VFD 12/CQL,48/0 TASK QUEUE LIMIT 00348 M00S00329.libtask +++| C CON CC*10B CORE RESIDENT DIRECTORY INFORMATION 00349 M00S00330.libtask +++| D CON CD*20B DESTRUCTIVE CODE DIRECTORY INFORMATION 00350 M00S00331.libtask +++| S CON CS*40B SYSTEM TASK DIRECTORY INFORMATION 00351 M00S00332.libtask +++| OO CON CO*02B ON/OFF BIT
| Line S00333 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00352 M01S00333.v23l617 ---| E CON CE*04B ECS RESIDENT BIT
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00353 M01S00014.v23l617 +++| E CON CE*04B EXTENDED MEMORY RESIDENT BIT 00354 M00S00334.libtask +++| DL CON CDL*01B DELETE BIT 00355 M00S00335.libtask +++| Q CON CQ*MLQU QUEUING CONTROL BIT 00356 M00S00336.libtask +++| R CON CRE REDUCE FL FLAG 00357 M00S00337.libtask +++| IG CON 0 IGNORE TASK 00358 M00S00338.libtask +++| SC CON 0 SOLICITED FLAG 00359 M00S00339.libtask +++| 00360 M00S00340.libtask +++| TSK1 CON 0 TASK 1 00361 M00S00341.libtask +++| TSK2 CON 0 TASK 2 00362 M00S00342.libtask +++| TSK3 CON 0 TASK 3 00363 M00S00343.libtask +++| TSK4 CON 0 TASK 4 00364 M00S00344.libtask +++| TSK5 CON 0 TASK 5 00365 M00S00345.libtask +++| RC CON 0 RECOVER TRANSACTION 00366 M00S00346.libtask +++| DM CON 0 DATA MANAGER(S) USED 00367 M00S00347.libtask +++| TDL CON 0 DELETE TRANSACTION 00368 M00S00348.libtask +++| 00369 M00S00349.libtask +++| JOBORG BSS 1 JOB ORIGIN CODE 00370 M00S00350.libtask +++| ENDH CON 10H0LAST MODI 00371 M00S00351.libtask +++| CON 10HFICATION 00372 M00S00352.libtask +++| CON 10H - 00373 M00S00353.libtask +++| LAST BSSZ 3 00374 M00S00354.libtask +++| ENDHL EQU *-ENDH 00375 M00S00355.libtask +++| 00376 M00S00356.libtask +++| 00377 M00S00357.libtask +++| LREC TABLE TASKS ON TASK LIBRARY 00378 M00S00358.libtask +++| 00379 M00S00359.libtask +++| RREC TABLE RECORDS REPLACED TABLE 00380 M00S00360.libtask +++| 00381 M00S00361.libtask +++| IREC TABLE RECORDS INSERTED TABLE 00382 M00S00362.libtask +++| 00383 M00S00363.libtask +++| DRTC TABLE INPUT DIRECTIVES 00384 M00S00364.libtask +++| 00385 M00S00365.libtask +++| TDCH TABLE DIRECTIVES CHANGED TABLE 00386 M00S00366.libtask +++| 00387 M00S00367.libtask +++| TDRC TABLE DIRECTIVES CHANGED 00388 M00S00368.libtask +++| 00389 M00S00369.libtask +++| TDIG TABLE IGNORE TASK 00390 M00S00370.libtask +++| 00391 M00S00371.libtask +++| TTIN TABLE TRANSACTION UNITS INSERTED 00392 M00S00372.libtask +++| 00393 M00S00373.libtask +++| TTCN TABLE TRANSACTION UNITS CHANGED 00394 M00S00374.libtask +++| 00395 M00S00375.libtask +++| TTNE TABLE TRANSACTION UNITS WITH NONEXISTENT TASKS
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2523 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00376.libtask +++| LIB TITLE MAIN PROGRAM. 00401 M00S00377.libtask +++|** LIB - LIBTASK MAIN PROGRAM. 00402 M00S00378.libtask +++|* 00403 M00S00379.libtask +++|* LIB READS THE BINARIES AND BUILDS NEW ENTRIES 00404 M00S00380.libtask +++|* AT THE END OF THE LIBRARY FILE. ONE BINARY RECORD (TASK) AT 00405 M00S00381.libtask +++|* A TIME IS READ FROM THE B FILE AND WRITTEN ON THE P FILE. A 00406 M00S00382.libtask +++|* NEW DIRECTORY ENTRY IS CREATED IF THIS IS A NEW TASK, OR THE 00407 M00S00383.libtask +++|* EXISTING ENTRY IS UPDATED. IF THE CR OPTION IS SET, THE 00408 M00S00384.libtask +++|* DIRECTORY ENTRIES ARE ARRANGED ALPHABETICALLY, ELSE NEW 00409 M00S00385.libtask +++|* ENTRIES ARE ADDED AT THE END OF THE DIRECTORY. 00410 M00S00386.libtask +++|* THE STORAGE AREAS OF *PRS* AND RELATED ROUTINES ARE USED 00411 M00S00387.libtask +++|* FOR TASK LIBRARY DIRECTORY RESIDENT AFTER *PRS* IS CALLED. 00412 M00S00388.libtask +++| 00413 M00S00389.libtask +++| 00414 M00S00390.libtask +++| LIBTASK RJ PRS INITIALIZE LIBTASK 00415 M00S00391.libtask +++| 00416 M00S00392.libtask +++|* CHECK CREATION RUN. 00417 M00S00393.libtask +++| 00418 M00S00394.libtask +++| SA1 B 00419 M00S00395.libtask +++| ZR X1,LIB0 IF NO BINARY FILE 00420 M00S00396.libtask +++| REWIND B,R 00421 M00S00397.libtask +++| READ B INITIATE READ 00422 M00S00398.libtask +++| LIB0 SA1 CR 00423 M00S00399.libtask +++| SA2 PR 00424 M00S00400.libtask +++| ZR X1,LIB1 IF NOT A CREATION RUN 00425 M00S00401.libtask +++| RJ PCR CREATE A NEW LIBRARY 00426 M00S00402.libtask +++| EQ LIB4 PROCESS OUTPUT 00427 M00S00403.libtask +++| 00428 M00S00404.libtask +++|* CHECK PURGE RUN. 00429 M00S00405.libtask +++| 00430 M00S00406.libtask +++| LIB1 SA3 TT 00431 M00S00407.libtask +++| ZR X2,LIB2 IF NOT A PURGE RUN 00432 M00S00408.libtask +++| RJ PIT PURGE INACTIVE TASKS 00433 M00S00409.libtask +++| EQ LIB4 PROCESS OUTPUT 00434 M00S00410.libtask +++| 00435 M00S00411.libtask +++|* CHECK TELL *TAF* RUN. 00436 M00S00412.libtask +++| 00437 M00S00413.libtask +++| LIB2 ZR X3,LIB3 IF NOT A TELL *TAF* RUN 00438 M00S00414.libtask +++| RJ PTT TELL *TAF* 00439 M00S00415.libtask +++| EQ LIB4 PROCESS OUTPUT 00440 M00S00416.libtask +++| 00441 M00S00417.libtask +++| LIB3 RJ PNP PROCESS NO PARAMETERS 00442 M00S00418.libtask +++| LIB4 SA1 JOBORG 00443 M00S00419.libtask +++| ZR X1,LIB5 IF INTERACTIVE INPUT 00444 M00S00420.libtask +++| SA1 L.LREC 00445 M00S00421.libtask +++| ZR X1,LIB5 IF NO TASKS ON OLD DIRECTORY 00446 M00S00422.libtask +++| 00447 M00S00423.libtask +++|* WRITE NAMES OF TASKS ON OLD DIRECTORY. 00448 M00S00424.libtask +++| 00449 M00S00425.libtask +++| WRITEW O,LIBE,LIBEL 00450 M00S00426.libtask +++| SX2 2 00451 M00S00427.libtask +++| RJ ALC ADVANCE LINE COUNT 00452 M00S00428.libtask +++| SA1 F.LREC START OF NAMES 00453 M00S00429.libtask +++| SA5 L.LREC COUNT OF NAMES 00454 M00S00430.libtask +++| SB7 X1 00455 M00S00431.libtask +++| SX1 X5 00456 M00S00432.libtask +++| RJ /COMCSST/SST SORT TABLE 00457 M00S00433.libtask +++| SA1 F.LREC START OF NAMES 00458 M00S00434.libtask +++| RJ LRL LIST RECORD LIST 00459 M00S00435.libtask +++| LIB5 SA1 L.IREC 00460 M00S00436.libtask +++| ZR X1,LIB6 IF NO RECORDS INSERTED 00461 M00S00437.libtask +++| 00462 M00S00438.libtask +++|* WRITE NAMES OF RECORDS INSERTED. 00463 M00S00439.libtask +++| 00464 M00S00440.libtask +++| WRITEW O,LIBC,LIBCL 00465 M00S00441.libtask +++| SX2 2 00466 M00S00442.libtask +++| RJ ALC ADVANCE LINE COUNT 00467 M00S00443.libtask +++| SA1 F.IREC START OF INSERTED RECORD NAMES 00468 M00S00444.libtask +++| SA5 L.IREC COUNT OF INSERTED RECORD NAMES 00469 M00S00445.libtask +++| SB7 X1 00470 M00S00446.libtask +++| SX1 X5 00471 M00S00447.libtask +++| RJ /COMCSST/SST SORT TABLE 00472 M00S00448.libtask +++| SA1 F.IREC START OF INSERTED RECORD NAMES 00473 M00S00449.libtask +++| RJ LRL LIST RECORD LIST 00474 M00S00450.libtask +++| LIB6 SA1 L.RREC 00475 M00S00451.libtask +++| ZR X1,LIB7 IF NO RECORDS REPLACED 00476 M00S00452.libtask +++| 00477 M00S00453.libtask +++|* WRITE NAMES OF RECORDS REPLACED. 00478 M00S00454.libtask +++| 00479 M00S00455.libtask +++| WRITEW O,LIBD,LIBDL 00480 M00S00456.libtask +++| SX2 2 00481 M00S00457.libtask +++| RJ ALC ADVANCE LINE COUNT 00482 M00S00458.libtask +++| SA1 F.RREC START OF REPLACED RECORD NAMES 00483 M00S00459.libtask +++| SA5 L.RREC COUNT OF RECORD NAMES 00484 M00S00460.libtask +++| SB7 X1 00485 M00S00461.libtask +++| SX1 X5 00486 M00S00462.libtask +++| RJ /COMCSST/SST SORT TABLE 00487 M00S00463.libtask +++| SA1 F.RREC START OF REPLACED RECORD NAMES 00488 M00S00464.libtask +++| RJ LRL LIST RECORD LIST 00489 M00S00465.libtask +++| LIB7 SA1 L.TDRC 00490 M00S00466.libtask +++| ZR X1,LIB8 IF NO DIRECTIVES CHANGED 00491 M00S00467.libtask +++| 00492 M00S00468.libtask +++|* WRITE NAMES OF DIRECTIVES CHANGED. 00493 M00S00469.libtask +++| 00494 M00S00470.libtask +++| WRITEW O,LIBL,LIBLL 00495 M00S00471.libtask +++| SX2 2 00496 M00S00472.libtask +++| RJ ALC ADVANCE LINE COUNT 00497 M00S00473.libtask +++| SA1 F.TDRC START OF DIRECTIVE CHANGE NAMES 00498 M00S00474.libtask +++| SA5 L.TDRC COUNT OF NAMES 00499 M00S00475.libtask +++| SB7 X1 00500 M00S00476.libtask +++| SX1 X5 00501 M00S00477.libtask +++| RJ /COMCSST/SST SORT TABLE 00502 M00S00478.libtask +++| SA1 F.TDRC START OF DIRECTIVE CHANGE NAMES 00503 M00S00479.libtask +++| RJ LRL LIST RECORD LIST 00504 M00S00480.libtask +++| LIB8 SA1 L.TTIN 00505 M00S00481.libtask +++| ZR X1,LIB9 IF NO TRANSACTION UNITS INSERTED 00506 M00S00482.libtask +++| 00507 M00S00483.libtask +++|* WRITE NAMES OF TRANSACTION UNITS INSERTED. 00508 M00S00484.libtask +++| 00509 M00S00485.libtask +++| WRITEW O,LIBN,LIBNL 00510 M00S00486.libtask +++| SX2 2 00511 M00S00487.libtask +++| RJ ALC ADVANCE LINE COUNT 00512 M00S00488.libtask +++| SB2 B1 WORDS PER ENTRY 00513 M00S00489.libtask +++| SA1 F.TTIN 00514 M00S00490.libtask +++| SB6 X1 FWA OF TABLE 00515 M00S00491.libtask +++| SA1 L.TTIN LENGTH OF TABLE 00516 M00S00492.libtask +++| SB3 LIBQ TEMPORARY BUFFER 00517 M00S00493.libtask +++| MX0 42 MASK 00518 M00S00494.libtask +++| RJ SSR SORT TABLE 00519 M00S00495.libtask +++| SA1 F.TTIN 00520 M00S00496.libtask +++| SA5 L.TTIN 00521 M00S00497.libtask +++| RJ LRL LIST RECORD LIST 00522 M00S00498.libtask +++| LIB9 SA1 L.TTCN 00523 M00S00499.libtask +++| ZR X1,LIB10 IF NO TRANSACTION UNITS CHANGED 00524 M00S00500.libtask +++| 00525 M00S00501.libtask +++|* WRITE NAMES OF TRANSACTION UNITS CHANGED. 00526 M00S00502.libtask +++| 00527 M00S00503.libtask +++| WRITEW O,LIBO,LIBOL 00528 M00S00504.libtask +++| SX2 2 00529 M00S00505.libtask +++| RJ ALC ADVANCE LINE COUNT 00530 M00S00506.libtask +++| SB2 B1 WORDS PER ENTRY 00531 M00S00507.libtask +++| SA1 F.TTCN 00532 M00S00508.libtask +++| SB6 X1 FWA OF TABLE 00533 M00S00509.libtask +++| SA1 L.TTCN LENGTH OF TABLE 00534 M00S00510.libtask +++| SB3 LIBQ TEMPORARY BUFFER 00535 M00S00511.libtask +++| MX0 42 MASK 00536 M00S00512.libtask +++| RJ SSR SORT TABLE 00537 M00S00513.libtask +++| SA1 F.TTCN 00538 M00S00514.libtask +++| SA5 L.TTCN 00539 M00S00515.libtask +++| RJ LRL LIST RECORD LIST 00540 M00S00516.libtask +++| LIB10 SA1 L.TTNE 00541 M00S00517.libtask +++| ZR X1,LIB11 IF NO TRANSACTION UNITS WITH NONEXISTENT 00542 M00S00518.libtask +++| 00543 M00S00519.libtask +++|* WRITE NAMES OF TRANSACTION UNITS WITH NONEXISTENT TASKS. 00544 M00S00520.libtask +++| 00545 M00S00521.libtask +++| WRITEW O,LIBP,LIBPL 00546 M00S00522.libtask +++| SX2 2 00547 M00S00523.libtask +++| RJ ALC ADVANCE LINE COUNT 00548 M00S00524.libtask +++| SB2 B1 WORDS PER ENTRY 00549 M00S00525.libtask +++| SA1 F.TTNE 00550 M00S00526.libtask +++| SB6 X1 FWA OF TABLE 00551 M00S00527.libtask +++| SA1 L.TTNE LENGTH OF TABLE 00552 M00S00528.libtask +++| SB3 LIBQ TEMPORARY BUFFER 00553 M00S00529.libtask +++| MX0 42 MASK 00554 M00S00530.libtask +++| RJ SSR SORT TABLE 00555 M00S00531.libtask +++| SA1 F.TTNE 00556 M00S00532.libtask +++| SA5 L.TTNE 00557 M00S00533.libtask +++| RJ LRL LIST RECORD LIST 00558 M00S00534.libtask +++| 00559 M00S00535.libtask +++|* PROCESS LIST OPTION IF USED. 00560 M00S00536.libtask +++| 00561 M00S00537.libtask +++| LIB11 SA1 LO 00562 M00S00538.libtask +++| ZR X1,LIB12 IF NO *LO* OPTION 00563 M00S00539.libtask +++| RJ PLO PROCESS LIST OPTION 00564 M00S00540.libtask +++| 00565 M00S00541.libtask +++|* WRITE TIME AND DATE OF MOST RECENT LIBRARY MODIFICATION. 00566 M00S00542.libtask +++| 00567 M00S00543.libtask +++| LIB12 SA1 RECN 00568 M00S00544.libtask +++| NZ X1,LIB13 IF *B* FILE USED 00569 M00S00545.libtask +++| SA1 TLDHD PLACE DIRECTORY DATE IN OUTPUT LINE 00570 M00S00546.libtask +++| BX6 X1 00571 M00S00547.libtask +++| SA6 LAST 00572 M00S00548.libtask +++| SA1 TLDHT PLACE DIRECTORY TIME IN OUTPUT LINE 00573 M00S00549.libtask +++| BX6 X1 00574 M00S00550.libtask +++| SA6 LAST+1 00575 M00S00551.libtask +++| LIB13 WRITEW O,ENDH,ENDHL WRITE DATE AND TIME OF LAST MODIFICATION 00576 M00S00552.libtask +++| WRITER O FLUSH OUTPUT FILE 00577 M01S00010.ns2523 +++| SETFS O,0 PREVENT RETURN OF OUTPUT FILE 00578 M00S00553.libtask +++| SA1 BFEF 00579 M00S00554.libtask +++| ZR X1,LIB14 IF NO ERRORS ON *B* OR *PLO* 00580 M00S00555.libtask +++| MESSAGE LIBJ * LIBTASK ERRORS.* 00581 M00S00556.libtask +++| ABORT 00582 M00S00557.libtask +++| 00583 M00S00558.libtask +++| LIB14 MESSAGE LIBF * TASK EDITING COMPLETE.* 00584 M00S00559.libtask +++| ENDRUN 00585 M00S00560.libtask +++| 00586 M00S00561.libtask +++|* TLD VALUES FOR CURRENT TASK. 00587 M00S00562.libtask +++| 00588 M00S00563.libtask +++| LIBA VFD 48/0,6/0,6/0 WORD 2 OF TLD 00589 M00S00564.libtask +++| VFD 1/CS,1/CD,1/CC,3/0,18/0,18/0,18/0 00590 M00S00565.libtask +++| 00591 M00S00566.libtask +++|* DEFAULT VALUES FOR ALL TASKS. 00592 M00S00567.libtask +++| 00593 M00S00568.libtask +++| LIBB VFD 48/0,6/0,6/0 WORD 2 OF TLD 00594 M00S00569.libtask +++| VFD 1/CS,1/CD,1/CC,3/0,18/0,18/0,18/0 00595 M00S00570.libtask +++| LIBC DATA C* RECORDS INSERTED INTO LIBRARY FILE - * 00596 M00S00571.libtask +++| LIBCL EQU *-LIBC 00597 M00S00572.libtask +++| LIBD DATA C* RECORDS REPLACED IN LIBRARY FILE - * 00598 M00S00573.libtask +++| LIBDL EQU *-LIBD 00599 M00S00574.libtask +++| LIBE DATA C* RECORDS ON OLD TASK LIBRARY FILE - * 00600 M00S00575.libtask +++| CON 8L 00601 M00S00576.libtask +++| LIBEL EQU *-LIBE 00602 M00S00577.libtask +++| LIBF DATA C* TASK EDITING COMPLETE.* 00603 M00S00578.libtask +++| LIBG DATA C* COPYING * 00604 M00S00579.libtask +++| LIBH VFD 18/0,12/TRSI,30/0 REPLY WORD FOR *SIC* MACRO 00605 M00S00580.libtask +++| LIBI VFD 12/2002B,30/0,18/LIBIL 00606 M00S00581.libtask +++| VFD 42/0,18/0 00607 M00S00582.libtask +++| CON 0 TASK LIBRARY NAME 00608 M00S00583.libtask +++| LIBIL EQU *-LIBI LENGTH OF PARAMETER BLOCK 00609 M00S00584.libtask +++| LIBJ DATA C* LIBTASK ERRORS.* 00610 M00S00585.libtask +++| LIBK DATA C* FILE NOT ATTACHED - * 00611 M00S00586.libtask +++| LIBL DATA C* DIRECTIVE ENTRIES CHANGED IN TASK LIBRARY DIRECTORY. 00612 M00S00587.libtask +++|,* 00613 M00S00588.libtask +++| CON 8L 00614 M00S00589.libtask +++| LIBLL EQU *-LIBL 00615 M00S00590.libtask +++| LIBM DATA C*IGNORING * 00616 M00S00591.libtask +++| LIBN DATA C* TRANSACTION NAMES INSERTED.* 00617 M00S00592.libtask +++| CON 8L 00618 M00S00593.libtask +++| LIBNL EQU *-LIBN 00619 M00S00594.libtask +++| LIBO DATA C* TRANSACTION NAMES CHANGED.* 00620 M00S00595.libtask +++| CON 8L 00621 M00S00596.libtask +++| LIBOL EQU *-LIBO 00622 M00S00597.libtask +++| LIBP DATA C* TRANSACTION NAMES CONTAINING NONEXISTENT TASKS.* 00623 M00S00598.libtask +++| CON 8L 00624 M00S00599.libtask +++| LIBPL EQU *-LIBP 00625 M00S00600.libtask +++| LIBQ CON 0 TEMPORARY BUFFER FOR *SSR* 00626 M00S00601.libtask +++| TITLE SUBROUTINES. 00627 M00S00602.libtask +++| ALC SPACE 4,15 00628 M00S00603.libtask +++|** ALC - ADVANCE LINE COUNT. 00629 M00S00604.libtask +++|* 00630 M00S00605.libtask +++|* ADVANCE THE LINE COUNT FOR THE OUTPUT FILE PAGE AND 00631 M00S00606.libtask +++|* CHECK FOR END OF PAGE. 00632 M00S00607.libtask +++|* 00633 M00S00608.libtask +++|* ENTRY (X2) = LINE COUNT IF NOT 1. 00634 M00S00609.libtask +++|* 00635 M00S00610.libtask +++|* EXIT LINE COUNT ADVANCED. 00636 M00S00611.libtask +++|* 00637 M00S00612.libtask +++|* USES A - 1, 6, 7. 00638 M00S00613.libtask +++|* B - 2. 00639 M00S00614.libtask +++|* X - 1, 2, 4, 6, 7. 00640 M00S00615.libtask +++|* 00641 M00S00616.libtask +++|* CALLS CDD, STL. 00642 M00S00617.libtask +++| 00643 M00S00618.libtask +++| 00644 M00S00619.libtask +++| ALC SUBR ENTRY/EXIT 00645 M00S00620.libtask +++| SA1 ALCA LINE COUNT 00646 M00S00621.libtask +++| IX7 X1+X2 00647 M00S00622.libtask +++| SA7 A1 LINE COUNT ADVANCED 00648 M00S00623.libtask +++| SB2 X1-58 00649 M00S00624.libtask +++| NG B2,ALCX IF NOT AT END OF PAGE 00650 M00S00625.libtask +++| SA1 ALCB 00651 M00S00626.libtask +++| SX7 X1+1 ADVANCE PAGE COUNT 00652 M00S00627.libtask +++| SA7 ALCB 00653 M00S00628.libtask +++| RJ CDD CONVERT TO DECIMAL DISPLAY CODE 00654 M00S00629.libtask +++| MX4 30 00655 M00S00630.libtask +++| SA1 STLAP HEADER PAGE WORD 00656 M00S00631.libtask +++| BX2 X4*X1 00657 M00S00632.libtask +++| BX6 -X4*X6 00658 M00S00633.libtask +++| BX6 X6+X2 00659 M00S00634.libtask +++| SA6 A1+ NEW PAGE NUMBER INSERTED 00660 M00S00635.libtask +++| RJ STL SET NEW TITLE LINE 00661 M00S00636.libtask +++| EQ ALCX RETURN 00662 M00S00637.libtask +++| 00663 M00S00638.libtask +++| ALCA CON 3 LINE COUNT 00664 M00S00639.libtask +++| ALCB CON 2 PAGE COUNT 00665 M00S00640.libtask +++| CDR SPACE 4,15 00666 M00S00641.libtask +++|** CDR - COPY DIRECTORY TO TASK LIBRARY. 00667 M00S00642.libtask +++|* 00668 M00S00643.libtask +++|* ENTRY FILE INITIALIZED. 00669 M00S00644.libtask +++|* (X5) = FILE NAME TO WHICH TLD IS TO BE COPIED. 00670 M00S00645.libtask +++|* 00671 M00S00646.libtask +++|* EXIT TASK AND TRANSACTION DIRECTORIES COPIED 00672 M00S00647.libtask +++|* TO THE LIBRARY FILE. 00673 M00S00648.libtask +++|* 00674 M00S00649.libtask +++|* USES A - 1, 2, 3, 4, 6, 7. 00675 M00S00650.libtask +++|* X - 1, 2, 3, 4, 6, 7. 00676 M00S00651.libtask +++|* 00677 M00S00652.libtask +++|* CALLS STN, STR. 00678 M00S00653.libtask +++|* 00679 M00S00654.libtask +++|* MACROS RECALL, WRITEF, WRITER, WRITEW. 00680 M00S00655.libtask +++| 00681 M00S00656.libtask +++| 00682 M00S00657.libtask +++| CDR SUBR ENTRY/EXIT 00683 M00S00658.libtask +++| RJ STN FIND TRANSACTIONS WITH NONEXISTENT TASKS 00684 M00S00659.libtask +++| RECALL X5 WAIT FOR FILE NOT BUSY 00685 M00S00660.libtask +++| SA1 STLAD PLACE DATE IN DIRECTORY 00686 M00S00661.libtask +++| SA2 STLAT PLACE TIME IN DIRECTORY HEADER 00687 M00S00662.libtask +++| BX6 X1 00688 M00S00663.libtask +++| BX7 X2 00689 M00S00664.libtask +++| SA6 LAST 00690 M00S00665.libtask +++| SA7 LAST+1 00691 M00S00666.libtask +++| SA6 TLDHD 00692 M00S00667.libtask +++| SA7 TLDHT 00693 M00S00668.libtask +++| SA1 TRDE 00694 M00S00669.libtask +++| ZR X1,CDR1 IF TRD DOES NOT EXIST 00695 M00S00670.libtask +++| SA1 MTRD 00696 M00S00671.libtask +++| ZR X1,CDR1 IF TRD NOT MODIFIED 00697 M00S00672.libtask +++| SA1 LWTRD 00698 M00S00673.libtask +++| SX2 X1-TRD LENGTH OF TRD 00699 M00S00674.libtask +++| NZ X2,CDR0 IF TRD NOT EMPTY 00700 M00S00675.libtask +++| SA1 TLDH+TLTRW CLEAR PRU OF TRD IN TLD HEADER 00701 M00S00676.libtask +++| MX3 60-TLTRN 00702 M00S00677.libtask +++| BX6 X3*X1 00703 M00S00678.libtask +++| SA6 A1+ 00704 M00S00679.libtask +++| EQ CDR1 PROCESS TLD 00705 M00S00680.libtask +++| 00706 M00S00681.libtask +++| CDR0 SA6 TRDH+2 DATE 00707 M00S00682.libtask +++| SA7 A6+1 TIME 00708 M00S00683.libtask +++| RJ STR SORT TRANSACTION DIRECTORY 00709 M00S00684.libtask +++| SA2 X5+6 00710 M00S00685.libtask +++| MX3 TLTRN 00711 M00S00686.libtask +++| ERRNZ TLTRN-30 *CRI* AND PRU OF TRD LENGTHS DIFFERENT 00712 M00S00687.libtask +++| BX6 X3*X2 EXTRACT CURRENT RANDOM INDEX FROM FET 00713 M00S00688.libtask +++| SA2 TLDH+TLTRW 00714 M00S00689.libtask +++| LX6 TLTRS-59 00715 M00S00690.libtask +++| BX3 X3*X2 CLEAR OLD PRU 00716 M00S00691.libtask +++| BX6 X6+X3 00717 M00S00692.libtask +++| SA6 A2 PRU OF TRD IN TLD HEADER 00718 M00S00693.libtask +++| SA1 LWTRD 00719 M00S00694.libtask +++| SX7 X1-TRD LENGTH OF TRD 00720 M00S00695.libtask +++| MX3 -18 00721 M00S00696.libtask +++| LX3 18 00722 M00S00697.libtask +++| LX7 18 00723 M00S00698.libtask +++| SA2 TRDH+1 00724 M00S00699.libtask +++| BX2 X3*X2 00725 M00S00700.libtask +++| BX7 X2+X7 00726 M00S00701.libtask +++| SA7 A2 TRD LENGTH IN TRD HEADER 00727 M00S00702.libtask +++| WRITEW X5,TRDH,X1-TRDH WRITE TRD TO FILE 00728 M00S00703.libtask +++| WRITER X5,R FLUSH BUFFER 00729 M00S00704.libtask +++| CDR1 SA1 CRES NUMBER OF CM RESIDENT TASKS 00730 M00S00705.libtask +++| SA3 TT 00731 M00S00706.libtask +++| SA4 LWTLD LWA OF TLD 00732 M00S00707.libtask +++| ZR X3,CDR2 IF NOT *TT* RUN 00733 M00S00708.libtask +++| SA4 LWOLD LWA OF BASE TLD 00734 M00S00709.libtask +++| CDR2 SA2 TLDH+1 00735 M00S00710.libtask +++| MX3 18 00736 M00S00711.libtask +++| BX2 X3*X2 00737 M00S00712.libtask +++| SX6 X4-TLD LENGTH OF TLD 00738 M00S00713.libtask +++| BX7 X1+X2 STORE CORE RESIDENT COUNT IN HEADER WORD 00739 M00S00714.libtask +++| LX6 18 00740 M00S00715.libtask +++| BX7 X7+X6 ADD TLD LENGTH 00741 M00S00716.libtask +++| SA7 TLDH+1 UPDATE DIRECTORY HEADER 00742 M00S00717.libtask +++| SA4 LWTLD LWA OF TLD 00743 M00S00718.libtask +++| WRITEW X5,TLDH,X4-TLDH 00744 M00S00719.libtask +++| WRITER X5 FLUSH BUFFER 00745 M00S00720.libtask +++| WRITEF X5 WRITE EOF ON LIBRARY FILE 00746 M00S00721.libtask +++| EQ CDRX 00747 M00S00722.libtask +++| ERR SPACE 4,25 00748 M00S00723.libtask +++|** ERR - PROCESS ERRORS ENCOUNTERED IN BINARY OR INPUT 00749 M00S00724.libtask +++|* DIRECTIVE FILE. 00750 M00S00725.libtask +++|* 00751 M00S00726.libtask +++|* THE FOLLOWING BLOCKS OF CODE HANDLE VARIOUS ERROR CONDITIONS 00752 M00S00727.libtask +++|* WHICH MAY OCCUR WHILE PROCESSING THE *B* OR *I* FILE. 00753 M00S00728.libtask +++|* 00754 M00S00729.libtask +++|* ENTRY (X6) = 1 - RECORD LESS THAN 64D WORDS.
| Line S00730 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00755 M01S00730.v23l617 ---|* 2 - ILLEGAL RECORD TYPE ON BINARY.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00756 M01S00015.v23l617 +++|* 2 - INCORRECT RECORD TYPE ON BINARY. 00757 M00S00731.libtask +++|* 3 - MULTIPLE ENTRY POINT. 00758 M00S00732.libtask +++|* 4 - ERROR IN *54* TABLE. 00759 M00S00733.libtask +++|* 5 - TLD IS FULL. 00760 M00S00734.libtask +++|* 6 - TRD IS FULL. 00761 M00S00735.libtask +++|* 00762 M00S00736.libtask +++|* EXIT (BFEF) = 1 IF ERROR PROCESSED. 00763 M00S00737.libtask +++|* 00764 M00S00738.libtask +++|* USES A - 1, 6, 7. 00765 M00S00739.libtask +++|* B - 3. 00766 M00S00740.libtask +++|* X - 1, 2, 6, 7. 00767 M00S00741.libtask +++|* 00768 M00S00742.libtask +++|* CALLS ALC, SEH, SFN, SKR. 00769 M00S00743.libtask +++|* 00770 M00S00744.libtask +++|* MACROS ABORT, MESSAGE, READ, WRITEW. 00771 M00S00745.libtask +++| 00772 M00S00746.libtask +++| 00773 M00S00747.libtask +++| ERR9 SX7 B1+ INDICATE ERROR ENCOUNTERED 00774 M00S00748.libtask +++| SA7 BFEF 00775 M00S00749.libtask +++| 00776 M00S00750.libtask +++| ERR SUBR ENTRY/EXIT 00777 M00S00751.libtask +++| LX6 -1 00778 M00S00752.libtask +++| SX2 X6-TERRL 00779 M00S00753.libtask +++| SB3 X6 00780 M00S00754.libtask +++| PL X2,ERR7 IF UNKNOWN ERROR CONDITION 00781 M00S00755.libtask +++| JP B3+TERR JUMP THROUGH TABLE 00782 M00S00756.libtask +++| 00783 M00S00757.libtask +++| TERR PL X6,ERR7 UNKNOWN ERROR CONDITION 00784 M00S00758.libtask +++| EQ ERR1 RECORD LESS THAN 64D WORDS
| Line S00759 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00785 M01S00759.v23l617 ---| PL X6,ERR4 ILLEGAL RECORD TYPE
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00786 M01S00016.v23l617 +++| PL X6,ERR4 IF INCORRECT RECORD TYPE 00787 M00S00760.libtask +++| EQ ERR5 MULTIPLE ENTRY POINT 00788 M00S00761.libtask +++| PL X6,ERR6 ERRORS IN *54* TABLE 00789 M00S00762.libtask +++| EQ ERR8 TLD FULL 00790 M00S00763.libtask +++| PL X6,ERR10 TRD FULL 00791 M00S00764.libtask +++| EQ ERR7 UNKNOWN ERROR CONDITION 00792 M00S00765.libtask +++| TERRL EQU *-TERR LENGTH OF ERROR JUMP TABLE 00793 M00S00766.libtask +++| 00794 M00S00767.libtask +++|* BINARY RECORD LESS THAN 64D WORDS LONG. 00795 M00S00768.libtask +++| 00796 M00S00769.libtask +++| ERR1 SX2 X1-HB 00797 M00S00770.libtask +++| NZ X2,ERR2 IF NOT A BLANK RECORD 00798 M00S00771.libtask +++| READ B REINITIATE READ ON BINARY FILE 00799 M00S00772.libtask +++| EQ ERRX RETURN 00800 M00S00773.libtask +++| 00801 M00S00774.libtask +++| ERR2 SX2 X1-HB-1 00802 M00S00775.libtask +++| PL X2,ERR3 IF MORE THAN ONE WORD ON RECORD 00803 M00S00776.libtask +++| SX6 B0+ 00804 M00S00777.libtask +++| SA6 HB+1 NO TASK NAME 00805 M00S00778.libtask +++| ERR3 READ B INITIATE READ ON BINARY FILE 00806 M00S00779.libtask +++| RJ SEH SET ERROR HEADER 00807 M00S00780.libtask +++| MX7 42 00808 M00S00781.libtask +++| SA1 HB+1 TASK NAME - HOPEFULLY 00809 M00S00782.libtask +++| BX1 X7*X1 00810 M00S00783.libtask +++| RJ SFN SPACE FILL NAME 00811 M00S00784.libtask +++| SA6 ERRA+1 00812 M00S00785.libtask +++| WRITEW O,ERRA,ERRAL 00813 M00S00786.libtask +++| SX2 B1+B1 00814 M00S00787.libtask +++| RJ ALC ADVANCE LINE COUNT 00815 M00S00788.libtask +++| EQ ERR9 RETURN 00816 M00S00789.libtask +++|
| Line S00790 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00817 M01S00790.v23l617 ---|* ILLEGAL RECORD TYPE ON BINARY FILE.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00818 M01S00017.v23l617 +++|* INCORRECT RECORD TYPE ON BINARY FILE. 00819 M00S00791.libtask +++| 00820 M00S00792.libtask +++| ERR4 RJ SKR ADVANCE TO NEXT RECORD 00821 M00S00793.libtask +++| RJ SEH SET ERROR HEADER 00822 M00S00794.libtask +++| MX7 42 00823 M00S00795.libtask +++| SA1 TSKNM TASK NAME 00824 M00S00796.libtask +++| RJ SFN SPACE FILL NAME 00825 M00S00797.libtask +++| SA6 ERRB+1 00826 M00S00798.libtask +++| WRITEW O,ERRB,ERRBL 00827 M00S00799.libtask +++| SX2 B1+B1 00828 M00S00800.libtask +++| RJ ALC ADVANCE LINE COUNT 00829 M00S00801.libtask +++| EQ ERR9 RETURN 00830 M00S00802.libtask +++| 00831 M00S00803.libtask +++|* MORE THAN ONE ENTRY POINT GIVEN ON A *54* TABLE. 00832 M00S00804.libtask +++| 00833 M00S00805.libtask +++| ERR5 RJ SKR SKIP TO NEXT RECORD 00834 M00S00806.libtask +++| RJ SEH SET ERROR HEADER 00835 M00S00807.libtask +++| MX7 42 00836 M00S00808.libtask +++| SA1 TSKNM TASK NAME 00837 M00S00809.libtask +++| RJ SFN SPACE FILL NAME 00838 M00S00810.libtask +++| SA6 ERRC+1 00839 M00S00811.libtask +++| WRITEW O,ERRC,ERRCL 00840 M00S00812.libtask +++| SX2 B1+B1 00841 M00S00813.libtask +++| RJ ALC ADVANCE LINE COUNT 00842 M00S00814.libtask +++| EQ ERR9 RETURN 00843 M00S00815.libtask +++| 00844 M00S00816.libtask +++|* FWA FOR A NON *54* TABLE BINARY WAS NOT EQUAL TO THE 00845 M00S00817.libtask +++|* DEFAULT FWA OF A *54* TABLE. 00846 M00S00818.libtask +++| 00847 M00S00819.libtask +++| ERR6 RJ SKR SKIP TO NEXT RECORD 00848 M00S00820.libtask +++| RJ SEH SET ERROR HEADER 00849 M00S00821.libtask +++| MX7 42 00850 M00S00822.libtask +++| SA1 TSKNM TASK NAME 00851 M00S00823.libtask +++| RJ SFN SPACE FILL NAME 00852 M00S00824.libtask +++| SA6 ERRD+1 00853 M00S00825.libtask +++| WRITEW O,ERRD,ERRDL 00854 M00S00826.libtask +++| SX2 B1+B1 00855 M00S00827.libtask +++| RJ ALC ADVANCE LINE COUNT 00856 M00S00828.libtask +++| EQ ERR9 RETURN 00857 M00S00829.libtask +++| 00858 M00S00830.libtask +++|* UNKNOWN ERROR CONDITION. 00859 M00S00831.libtask +++| 00860 M00S00832.libtask +++| ERR7 MESSAGE ERRE * LIBTASK ERROR CONDITION UNKNOWN.* 00861 M00S00833.libtask +++| ABORT 00862 M00S00834.libtask +++| 00863 M00S00835.libtask +++|* TLD IS FULL. 00864 M00S00836.libtask +++| 00865 M00S00837.libtask +++| ERR8 RJ SEH SET ERROR HEADER 00866 M00S00838.libtask +++| MX7 42 00867 M00S00839.libtask +++| SA1 TSKNM TASK NAME 00868 M00S00840.libtask +++| RJ SFN SPACE FILL NAME 00869 M00S00841.libtask +++| SA6 ERRF+1 00870 M00S00842.libtask +++| WRITEW O,ERRF,ERRFL 00871 M00S00843.libtask +++| SX2 2 00872 M00S00844.libtask +++| RJ ALC ADVANCE LINE COUNT 00873 M00S00845.libtask +++| EQ ERR9 RETURN 00874 M00S00846.libtask +++| 00875 M00S00847.libtask +++|* TRD IS FULL. 00876 M00S00848.libtask +++| 00877 M00S00849.libtask +++| ERR10 RJ SEH SET ERROR HEADING 00878 M00S00850.libtask +++| MX7 42 00879 M00S00851.libtask +++| SA1 INPT TRANSACTION NAME 00880 M00S00852.libtask +++| RJ SFN SPACE FILL NAME 00881 M00S00853.libtask +++| SA6 ERRG+1 00882 M00S00854.libtask +++| WRITEW O,ERRG,ERRGL 00883 M00S00855.libtask +++| SX2 B1+B1 00884 M00S00856.libtask +++| RJ ALC ADVANCE LINE COUNT 00885 M00S00857.libtask +++| EQ ERR9 RETURN 00886 M00S00858.libtask +++| 00887 M00S00859.libtask +++| ERRA DATA 20H0 00888 M00S00860.libtask +++| DATA C* BINARY RECORD WAS LESS THAN 64D WORDS LONG.* 00889 M00S00861.libtask +++| ERRAL EQU *-ERRA LENGTH OF MESSAGE 00890 M00S00862.libtask +++| ERRB DATA 20H0 00891 M00S00863.libtask +++| DATA C* BINARY RECORD WAS NETHER ABSOLUTE NOR OVERLAY.* 00892 M00S00864.libtask +++| ERRBL EQU *-ERRB LENGTH OF MESSAGE 00893 M00S00865.libtask +++| ERRC DATA 20H0 00894 M00S00866.libtask +++| DATA C/ MORE THAN ONE ENTRY POINT ON A *54* TABLE./ 00895 M00S00867.libtask +++| ERRCL EQU *-ERRC LENGTH OF MESSAGE 00896 M00S00868.libtask +++| ERRD DATA 20H0
| Line S00869 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00897 M01S00869.v23l617 ---| DATA C* ILLEGAL FWA FOR LOAD.*
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00898 M01S00018.v23l617 +++| DATA C* INCORRECT FWA FOR LOAD.* 00899 M00S00870.libtask +++| ERRDL EQU *-ERRD LENGTH OF MESSAGE 00900 M00S00871.libtask +++| ERRE DATA C* LIBTASK ERROR CONDITION UNKNOWN.* 00901 M00S00872.libtask +++| ERRF DATA 20H0 00902 M00S00873.libtask +++| DATA C* DIRECTORY IS FULL - NO MORE ADDITIONS ALLOWED.* 00903 M00S00874.libtask +++| ERRFL EQU *-ERRF LENGTH OF MESSAGE 00904 M00S00875.libtask +++| ERRG DATA 20H0 00905 M00S00876.libtask +++| DATA C* TRD IS FULL - NO MORE ADDITIONS ALLOWED.* 00906 M00S00877.libtask +++| ERRGL EQU *-ERRG 00907 M00S00878.libtask +++| FPL SPACE 4,20 00908 M00S00879.libtask +++|** FPL - FORMAT PRINT LINE. 00909 M00S00880.libtask +++|* 00910 M00S00881.libtask +++|* FORMATS THE PRINT LINE FOR EITHER THE TASK NAME REPORT 00911 M00S00882.libtask +++|* OR THE TRANSACTION UNIT REPORT, PRINTS THE LINE, AND 00912 M00S00883.libtask +++|* CALLS *ALC* TO ADVANCE THE LINE COUNT. 00913 M00S00884.libtask +++|* 00914 M00S00885.libtask +++|* ENTRY (A1) = FWA OF TLD/TRD ENTRY. 00915 M00S00886.libtask +++|* (FPLC) = 0, IF TLD IS BEING FORMATTED. 00916 M00S00887.libtask +++|* = 1, IF TRD IS BEING FORMATTED. 00917 M00S00888.libtask +++|* 00918 M00S00889.libtask +++|* EXIT LINE PRINTED. 00919 M00S00890.libtask +++|* 00920 M00S00891.libtask +++|* USES X - 0, 1, 2, 3, 4, 5, 6, 7. 00921 M00S00892.libtask +++|* A - 1, 2, 4, 5, 6. 00922 M00S00893.libtask +++|* B - 2, 3, 4, 5, 6, 7. 00923 M00S00894.libtask +++|* 00924 M00S00895.libtask +++|* CALLS ALC, COD, PRH, SFN, STD. 00925 M00S00896.libtask +++|* 00926 M00S00897.libtask +++|* MACROS WRITEC, WRITEW. 00927 M00S00898.libtask +++| 00928 M00S00899.libtask +++| 00929 M00S00900.libtask +++| FPL SUBR ENTRY/EXIT 00930 M00S00901.libtask +++| SA2 FPLC FORMAT FLAG 00931 M00S00902.libtask +++| NZ X2,FPL7 IF FORMATTING TRANSACTION UNITS 00932 M00S00903.libtask +++| SA2 A1+TLTNW FIRST WORD OF TLD 00933 M00S00904.libtask +++| MX4 TLTNN 00934 M00S00905.libtask +++| BX1 X4*X2 TASK NAME 00935 M00S00906.libtask +++| RJ SFN SPACE FILL NAME 00936 M00S00907.libtask +++| LX6 -6 00937 M00S00908.libtask +++| SA6 FPLB SET IN FIRST WORD OF PRINT LINE 00938 M00S00909.libtask +++| SA2 A1+B1 SECOND WORD OF TLD 00939 M00S00910.libtask +++| MX0 -TLMPN 00940 M00S00911.libtask +++| BX1 -X0*X2 MAXIMUM PRIORITY 00941 M00S00912.libtask +++| RJ COD CONVERT TO DISPLAY CODE 00942 M00S00913.libtask +++| SA2 A2+B1 THIRD WORD OF TLD 00943 M00S00914.libtask +++| BX5 X6 SAVE MAXIMUM PRIORITY 00944 M00S00915.libtask +++| LX2 TLBPN-1-TLBPS 00945 M00S00916.libtask +++| BX1 -X0*X2 BEGINNING PRIORITY 00946 M00S00917.libtask +++| MX0 -36 00947 M00S00918.libtask +++| BX5 -X0*X5 CLEAR OUT BEGINNING PRIORITY 00948 M00S00919.libtask +++| RJ COD CONVERT TO DISPLAY CODE 00949 M00S00920.libtask +++| LX6 59-23 00950 M00S00921.libtask +++| BX6 X0*X6 BEGINNING PRIORITY 00951 M00S00922.libtask +++| BX6 X6+X5 ADD MAXIMUM TO BEGINNING PRIORITY 00952 M00S00923.libtask +++| MX4 -TLQLN 00953 M00S00924.libtask +++| SA2 A2 THIRD WORD OF TLD 00954 M00S00925.libtask +++| SA6 A6+1 SET IN SECOND WORD OF PRINT LINE 00955 M00S00926.libtask +++| BX1 -X4*X2 QUEUE LIMIT 00956 M00S00927.libtask +++| RJ COD CONVERT TO DISPLAY CODE 00957 M00S00928.libtask +++| LX6 24 00958 M00S00929.libtask +++| MX0 -TLFLN 00959 M00S00930.libtask +++| SA6 A6+1 SET IN THIRD WORD OF PRINT LINE 00960 M00S00931.libtask +++| SA2 A1+TLFLW SECOND WORD OF TLD 00961 M00S00932.libtask +++| BX5 X2 00962 M00S00933.libtask +++| LX2 TLFLN-1-TLFLS 00963 M00S00934.libtask +++| BX1 -X0*X2 00964 M00S00935.libtask +++| LX1 6 FIELD LENGTH*100B 00965 M00S00936.libtask +++| RJ COD CONVERT TO DISPLAY CODE 00966 M00S00937.libtask +++| LX6 24 00967 M00S00938.libtask +++| SA6 A6+1 SET IN FOURTH WORD OF PRINT LINE 00968 M00S00939.libtask +++| LX5 TLEFN-1-TLEFS 00969 M00S00940.libtask +++| ERRNZ TLFLW-TLEFW 00970 M00S00941.libtask +++| BX1 -X0*X5 00971 M00S00942.libtask +++| LX1 6 EXTRA FL*100B 00972 M00S00943.libtask +++| RJ COD CONVERT TO DISPLAY CODE 00973 M00S00944.libtask +++| LX6 24 00974 M00S00945.libtask +++| SA6 A6+B1 SET IN FIFTH WORD OF PRINT LINE 00975 M00S00946.libtask +++| SA5 FPLA 00976 M00S00947.libtask +++| BX6 X5 00977 M00S00948.libtask +++| SA4 A1+TLNDW THIRD WORD OF TLD 00978 M00S00949.libtask +++| BX1 X4 00979 M00S00950.libtask +++| SA6 A6+1 SET SPACES IN SIXTH WORD OF PRINT LINE 00980 M00S00951.libtask +++| SB2 1R- 00981 M00S00952.libtask +++| BX0 X4 00982 M00S00953.libtask +++| LX1 59-TLNDS 00983 M00S00954.libtask +++| SX2 B2+ 00984 M00S00955.libtask +++| NG X1,FPL1 IF NOT DESTRUCTIVE CODE 00985 M00S00956.libtask +++| SX2 1RD ADD IN *D* 00986 M00S00957.libtask +++| FPL1 BX1 X4 00987 M00S00958.libtask +++| LX2 6 00988 M00S00959.libtask +++| SX3 B2 00989 M00S00960.libtask +++| LX1 59-TLCMS 00990 M00S00961.libtask +++| PL X1,FPL2 IF NO CM RESIDENT 00991 M00S00962.libtask +++| SX3 1RC 00992 M00S00963.libtask +++| FPL2 BX2 X2+X3 ADD IN *C* OR *-* 00993 M00S00964.libtask +++| LX1 59-TLECS-59+TLCMS 00994 M00S00965.libtask +++| SX3 B2 00995 M00S00966.libtask +++| LX2 6
| Line S00967 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00996 M01S00967.v23l617 ---| PL X1,FPL3 IF NOT ECS RESIDENT
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00997 M01S00019.v23l617 +++| PL X1,FPL3 IF NOT EXTENDED MEMORY RESIDENT 00998 M00S00968.libtask +++| SX3 1RE 00999 M00S00969.libtask +++| FPL3 BX2 X2+X3 ADD IN *E* OR *-* 01000 M00S00970.libtask +++| LX0 59-TLTOS 01001 M00S00971.libtask +++| SX3 B2 01002 M00S00972.libtask +++| LX2 6 01003 M00S00973.libtask +++| PL X0,FPL4 IF TASK IS NOT OFF 01004 M00S00974.libtask +++| SX3 1RO 01005 M00S00975.libtask +++| FPL4 BX2 X2+X3 ADD IN *O* OR *-* 01006 M00S00976.libtask +++| LX4 59-TLSCS 01007 M00S00977.libtask +++| SX3 B2 01008 M00S00978.libtask +++| LX2 6 01009 M00S00979.libtask +++| PL X4,FPL5 IF NO SOLICITED COMMUNICATION BLOCK 01010 M00S00980.libtask +++| SX3 1RR 01011 M00S00981.libtask +++| FPL5 BX2 X2+X3 ADD IN *R* OR *-* 01012 M00S00982.libtask +++| LX4 59-TLQUS-59+TLSCS 01013 M00S00983.libtask +++| SX3 B2 01014 M00S00984.libtask +++| LX2 6 01015 M00S00985.libtask +++| PL X4,FPL6 IF QUEUEING NOT ENFORCED 01016 M00S00986.libtask +++| SX3 1RQ 01017 M00S00987.libtask +++| FPL6 BX2 X2+X3 ADD IN *Q* OR *-* 01018 M00S00988.libtask +++| MX4 -24 01019 M00S00989.libtask +++| LX2 24 01020 M00S00990.libtask +++| BX6 -X4*X5 01021 M00S00991.libtask +++| BX6 X6+X2 ADD ATTRIBUTES TO SPACES 01022 M00S00992.libtask +++| SA6 A6+B1 SET IN SEVENTH WORD OF PRINT LINE 01023 M00S00993.libtask +++| EQ FPL14 PRINT OUT LINE 01024 M00S00994.libtask +++| 01025 M00S00995.libtask +++|* FORMAT THE PRINT LINE FOR THE TRANSACTION UNIT REPORT. 01026 M00S00996.libtask +++| 01027 M00S00997.libtask +++| FPL7 MX0 TDTNN 01028 M00S00998.libtask +++| SA2 A1 FIRST WORD OF TRD 01029 M00S00999.libtask +++| SB4 A1 01030 M00S01000.libtask +++| BX1 X0*X2 TRANSACTION NAME 01031 M00S01001.libtask +++| SB7 4 01032 M00S01002.libtask +++| RJ SFN SPACE FILL NAME 01033 M00S01003.libtask +++| LX6 -6 01034 M00S01004.libtask +++| SA6 FPLB SET IN FIRST WORD OF PRINT LINE 01035 M00S01005.libtask +++| SA5 A6-B1 GET SPACES 01036 M00S01006.libtask +++| FPL8 SA2 A2+1 GET NEXT WORD IN TRD 01037 M00S01007.libtask +++| BX6 X5 01038 M00S01008.libtask +++| BX1 X0*X2 01039 M00S01009.libtask +++| ZR X1,FPL10 IF NO TASK 01040 M00S01010.libtask +++| RJ SFN SPACE FILL NAME 01041 M00S01011.libtask +++| SB3 TLDLE LENGTH OF TLD ENTRY 01042 M00S01012.libtask +++| SB5 TLD START OF TLD 01043 M00S01013.libtask +++| BX2 X1 01044 M00S01014.libtask +++| SA1 LWOLD 01045 M00S01015.libtask +++| SB6 X1 LWA OF TLD 01046 M00S01016.libtask +++| RJ STD SEARCH TLD 01047 M00S01017.libtask +++| ZR X1,FPL10 IF TASK NAME IN TLD 01048 M00S01018.libtask +++| LX6 -6 01049 M00S01019.libtask +++| MX3 -54 01050 M00S01020.libtask +++| BX1 -X3*X6 01051 M00S01021.libtask +++| SX4 1R( 01052 M00S01022.libtask +++| LX4 -6 01053 M00S01023.libtask +++| BX6 X1+X4 ADD IN LEFT PARENTHESIS 01054 M00S01024.libtask +++| SB5 -6 01055 M00S01025.libtask +++| MX1 -6 01056 M00S01026.libtask +++| SX4 1R 01057 M00S01027.libtask +++| SB6 6 01058 M00S01028.libtask +++| FPL9 LX6 -6 01059 M00S01029.libtask +++| BX3 -X1*X6 01060 M00S01030.libtask +++| IX7 X3-X4 01061 M00S01031.libtask +++| SB5 B5+B6 01062 M00S01032.libtask +++| ZR X7,FPL9 IF BLANK 01063 M00S01033.libtask +++| LX6 B6 01064 M00S01034.libtask +++| MX1 54 01065 M00S01035.libtask +++| BX2 X1*X6 01066 M00S01036.libtask +++| SX1 1R) 01067 M00S01037.libtask +++| BX6 X2+X1 ADD IN RIGHT PARENTHESIS 01068 M00S01038.libtask +++| LX6 B5 POSITION NAME 01069 M00S01039.libtask +++| FPL10 SB7 B7-B1 01070 M00S01040.libtask +++| SA6 A6+B1 SET NAME IN PRINT LINE 01071 M00S01041.libtask +++| PL B7,FPL8 IF MORE TASKS 01072 M00S01042.libtask +++| MX4 -48 01073 M00S01043.libtask +++| SA2 B4+TDDCW FIRST WORD OF TRD 01074 M00S01044.libtask +++| BX6 -X4*X5 CLEAR OUT *CRM* AND *CDCS* USAGE 01075 M00S01045.libtask +++| BX0 X2 01076 M00S01046.libtask +++| LX2 59-TDDCS 01077 M00S01047.libtask +++| SX3 1R- 01078 M00S01048.libtask +++| PL X2,FPL11 IF NOT *CDCS* USAGE 01079 M00S01049.libtask +++| SX3 1RD 01080 M00S01050.libtask +++| FPL11 LX3 -6 01081 M00S01051.libtask +++| BX6 X6+X3 ADD IN *D* OR *-* 01082 M00S01052.libtask +++| SX3 1R- 01083 M00S01053.libtask +++| LX2 59-TDRMS-59+TDDCS 01084 M00S01054.libtask +++| PL X2,FPL12 IF NOT *CRM* USAGE 01085 M00S01055.libtask +++| SX3 1RC 01086 M00S01056.libtask +++| FPL12 LX3 -12 01087 M00S01057.libtask +++| BX6 X6+X3 ADD IN *C* OR *-* 01088 M00S01058.libtask +++| MX4 54 01089 M00S01059.libtask +++| LX0 59-TDRCS 01090 M00S01060.libtask +++| SX3 1RN 01091 M00S01061.libtask +++| LX4 12 01092 M00S01062.libtask +++| BX6 X4*X6 CLEAR OUT RECOVER FLAG 01093 M00S01063.libtask +++| PL X0,FPL13 IF NOT RECOVERABLE 01094 M00S01064.libtask +++| SX3 1RY 01095 M00S01065.libtask +++| FPL13 LX3 12 01096 M00S01066.libtask +++| BX6 X6+X3 ADD IN *N* OR *Y* 01097 M00S01067.libtask +++| SA6 A6+1 SET IN SEVENTH WORD OF PRINT LINE 01098 M00S01068.libtask +++| 01099 M00S01069.libtask +++|* PRINT OUTPUT LINE. 01100 M00S01070.libtask +++| 01101 M00S01071.libtask +++| FPL14 WRITEC O,FPLB PRINT OUT LINE 01102 M00S01072.libtask +++| SX2 B1+ 01103 M00S01073.libtask +++| RJ ALC ADVANCE LINE COUNT 01104 M00S01074.libtask +++| SA4 ALCA GET LINE COUNT 01105 M00S01075.libtask +++| SA2 FPLC 01106 M00S01076.libtask +++| SA5 PLOH 01107 M00S01077.libtask +++| SX4 X4-3 01108 M00S01078.libtask +++| SA5 X5+TLDLE GET NEXT TLD ENTRY 01109 M00S01079.libtask +++| ZR X2,FPL15 IF TLD FORMAT 01110 M00S01080.libtask +++| SA5 PLOH 01111 M00S01081.libtask +++| SA5 X5+TRDLE1 GET NEXT TRD ENTRY 01112 M00S01082.libtask +++| FPL15 ZR X5,FPLX IF NO MORE ENTRIES RETURN 01113 M00S01083.libtask +++| NZ X4,FPLX IF NOT NEW PAGE RETURN 01114 M00S01084.libtask +++| RJ PRH PRINT REPORT HEADER 01115 M00S01085.libtask +++| EQ FPLX RETURN 01116 M00S01086.libtask +++| 01117 M00S01087.libtask +++| FPLA CON 1H SPACES 01118 M00S01088.libtask +++| FPLB BSS 7 PRINT LINE BUFFER 01119 M00S01089.libtask +++| CON 8L 01120 M00S01090.libtask +++| FPLC CON 0 FORMAT FLAG 01121 M00S01091.libtask +++| LRL SPACE 4,20 01122 M00S01092.libtask +++|** LRL - WRITE RECORD LIST. 01123 M00S01093.libtask +++|* 01124 M00S01094.libtask +++|* WRITE A LIST OF TASK NAMES ONTO THE OUTPUT FILE, EIGHT NAMES 01125 M00S01095.libtask +++|* ON EACH LINE, AND UPDATE THE LINE COUNT. IF THERE ARE NO 01126 M00S01096.libtask +++|* TASK NAMES IN THE LIST, *NONE* IS WRITTEN. 01127 M00S01097.libtask +++|* 01128 M00S01098.libtask +++|* ENTRY (X1) = FWA OF RECORD LIST. 01129 M00S01099.libtask +++|* (X5) = NUMBER OF RECORDS IN LIST 01130 M00S01100.libtask +++|* 01131 M00S01101.libtask +++|* EXIT - RECORDS WRITTEN ON OUTPUT FILE. 01132 M00S01102.libtask +++|* 01133 M00S01103.libtask +++|* USES A - 0, 1, 2, 6. 01134 M00S01104.libtask +++|* B - 2, 3, 5, 6. 01135 M00S01105.libtask +++|* X - ALL. 01136 M00S01106.libtask +++|* 01137 M00S01107.libtask +++|* CALLS ALC, SFN. 01138 M00S01108.libtask +++|* 01139 M00S01109.libtask +++|* MACROS WRITEC, WRITEW. 01140 M00S01110.libtask +++| 01141 M00S01111.libtask +++| 01142 M00S01112.libtask +++| LRL SUBR ENTRY/EXIT 01143 M00S01113.libtask +++| SX7 X5-23 01144 M00S01114.libtask +++| SA0 11 TASKS PER LINE 01145 M00S01115.libtask +++| SB5 X1 ADDRESS OF FIRST TASK NAME 01146 M00S01116.libtask +++| SB6 A0 01147 M00S01117.libtask +++| SX0 B1 01148 M00S01118.libtask +++| SB3 B0 01149 M00S01119.libtask +++| PL X7,LRL2 IF MORE THAN 23 TASKS TO LIST 01150 M00S01120.libtask +++| SX6 X5-9 01151 M00S01121.libtask +++| NG X6,LRL4 IF 8 TASKS ON ONE LINE 01152 M00S01122.libtask +++| SX3 X5 01153 M00S01123.libtask +++| LX3 -1 DIVIDE COUNT BY TWO 01154 M00S01124.libtask +++| SA0 X3 01155 M00S01125.libtask +++| SB6 A0 01156 M00S01126.libtask +++| PL X3,LRL2 IF EVEN NUMBER OF TASKS 01157 M00S01127.libtask +++| SB6 B6+1 01158 M00S01128.libtask +++| LRL2 SX3 X5 01159 M00S01129.libtask +++| SX4 A0 01160 M00S01130.libtask +++| IX0 X3/X4 NUMBER OF LINES 01161 M00S01131.libtask +++| SB2 A0 01162 M00S01132.libtask +++| NE B2,B6,LRL3 IF FORCED ODD COUNT LINES 01163 M00S01133.libtask +++| SX2 X0 01164 M00S01134.libtask +++| SX4 A0 01165 M00S01135.libtask +++| IX2 X2*X4 CHECK FOR REMAINDER 01166 M00S01136.libtask +++| IX4 X5-X2 01167 M00S01137.libtask +++| ZR X4,LRL3 IF NO ODD COUNT LINES 01168 M00S01138.libtask +++| SB3 X4+B1 01169 M00S01139.libtask +++| SX0 X0+B1 01170 M00S01140.libtask +++| LRL3 SX1 B5+ 01171 M00S01141.libtask +++| LX1 18 01172 M00S01142.libtask +++| BX0 X1+X0 01173 M00S01143.libtask +++| SX2 B3+ 01174 M00S01144.libtask +++| LX2 36 01175 M00S01145.libtask +++| BX0 X0+X2 01176 M00S01146.libtask +++| LRL4 SA2 STLAB BLANKS 01177 M00S01147.libtask +++| MX4 42 MASK FOR TASK NAMES 01178 M00S01148.libtask +++| BX6 X2 01179 M00S01149.libtask +++| SA6 WBUF 01180 M00S01150.libtask +++| LRL5 ZR X5,LRL7 IF DONE LISTING TASK NAMES 01181 M00S01151.libtask +++| SA1 B5 TASK NAME 01182 M00S01152.libtask +++| BX1 X4*X1 01183 M00S01153.libtask +++| ZR B3,LRL6 IF NO EXTRA LINES IN THIS COLUMN 01184 M00S01154.libtask +++| SB3 B3-1 01185 M00S01155.libtask +++| NZ B3,LRL6 IF EXTRA LINES REMAIN 01186 M00S01156.libtask +++| SX2 B1 01187 M00S01157.libtask +++| IX0 X0-X2 REMOVE EXTRA COLUMN COUNT 01188 M00S01158.libtask +++| LRL6 SX5 X5-1 01189 M00S01159.libtask +++| RJ SFN SPACE FILL NAME 01190 M00S01160.libtask +++| SB6 B6-B1 01191 M00S01161.libtask +++| SA6 A6+1 STORE TASK NAME IN OUTPUT BUFFER 01192 M00S01162.libtask +++| SB5 B5+X0 01193 M00S01163.libtask +++| NZ B6,LRL5 IF MORE NAMES TO PRINT ON THIS LINE 01194 M00S01164.libtask +++| LRL7 BX6 X6-X6 01195 M00S01165.libtask +++| SA6 A6+B1 TERMINATE LINE 01196 M00S01166.libtask +++| WRITEC O,WBUF,WBUFL 01197 M00S01167.libtask +++| SX2 B1 01198 M00S01168.libtask +++| RJ ALC ADVANCE LINE COUNT 01199 M00S01169.libtask +++| SB6 A0 NAMES TO LIST ON NEXT LINE 01200 M00S01170.libtask +++| LX0 -18 01201 M00S01171.libtask +++| SX1 B1 01202 M00S01172.libtask +++| SB5 X0+B1 01203 M00S01173.libtask +++| IX0 X0+X1 01204 M00S01174.libtask +++| LX0 -18 01205 M00S01175.libtask +++| SB3 X0 01206 M00S01176.libtask +++| LX0 36 01207 M00S01177.libtask +++| ZR B3,LRL8 IF NO EXTRA LINES 01208 M00S01178.libtask +++| IX0 X0+X1 01209 M00S01179.libtask +++| LRL8 NZ X5,LRL4 IF NOT END OF LISTING 01210 M00S01180.libtask +++| WRITEW O,BLINE,1 SKIP ONE LINE 01211 M00S01181.libtask +++| SX2 B1+ 01212 M00S01182.libtask +++| RJ ALC ADVANCE LINE COUNT 01213 M00S01183.libtask +++| EQ LRLX RETURN 01214 M00S01184.libtask +++| 01215 M00S01185.libtask +++| LRLA DATA C/ *NONE*/ 01216 M00S01186.libtask +++| LRLAL EQU *-LRLA 01217 M00S01187.libtask +++| PCR SPACE 4,15 01218 M00S01188.libtask +++|** PCR - PROCESS CREATION RUN. 01219 M00S01189.libtask +++|* 01220 M00S01190.libtask +++|* ENTRY FILE INITIALIZED. 01221 M00S01191.libtask +++|* 01222 M00S01192.libtask +++|* EXIT NEW TASK LIBRARY CREATED. 01223 M00S01193.libtask +++|* 01224 M00S01194.libtask +++|* USES A - 1. 01225 M00S01195.libtask +++|* X - 1, 5. 01226 M00S01196.libtask +++|* 01227 M00S01197.libtask +++|* CALLS CDR, RBF, SDR. 01228 M00S01198.libtask +++|* 01229 M00S01199.libtask +++|* MACROS REWIND. 01230 M00S01200.libtask +++| 01231 M00S01201.libtask +++| 01232 M00S01202.libtask +++| PCR SUBR ENTRY/EXIT 01233 M00S01203.libtask +++| SA1 PN 01234 M00S01204.libtask +++| SX5 P 01235 M00S01205.libtask +++| ZR X1,PCR1 IF *P* AND *N* ARE IDENTICAL 01236 M00S01206.libtask +++| SX5 N 01237 M00S01207.libtask +++| PCR1 REWIND X5 01238 M00S01208.libtask +++| RJ RBF READ BINARY FILE 01239 M00S01209.libtask +++| RJ SDR SORT DIRECTORY 01240 M00S01210.libtask +++| RJ CDR COPY DIRECTORY TO NEW TASK LIBRARY 01241 M00S01211.libtask +++| EQ PCRX RETURN 01242 M00S01212.libtask +++| PLO SPACE 4,20 01243 M00S01213.libtask +++|** PLO - PROCESS LIST OPTION. 01244 M00S01214.libtask +++|* 01245 M00S01215.libtask +++|* READ TASK AND TRANSACTION DIRECTORIES AND PRODUCE A 01246 M00S01216.libtask +++|* FORMATTED LISTING OF ALL TASKS AND THEIR ATTRIBUTES 01247 M00S01217.libtask +++|* AND ALL TRANSACTIONS WITH THEIR ATTRIBUTES. 01248 M00S01218.libtask +++|* 01249 M00S01219.libtask +++|* ENTRY TLD = FWA OF TASK LIBRARY DIRECTORY. 01250 M00S01220.libtask +++|* TRD = FWA OF TRANSACTION UNIT DIRECTORY. 01251 M00S01221.libtask +++|* 01252 M00S01222.libtask +++|* EXIT *PLO* PROCESSSING COMPLETE. 01253 M00S01223.libtask +++|* 01254 M00S01224.libtask +++|* ERROR (BFEF) NON ZERO IF NAME NOT IN DIRECTORY. 01255 M00S01225.libtask +++|* 01256 M00S01226.libtask +++|* USES X - 1, 2, 3, 6, 7. 01257 M00S01227.libtask +++|* A - 1, 2, 6, 7. 01258 M00S01228.libtask +++|* B - 2, 3, 5, 6. 01259 M00S01229.libtask +++|* 01260 M00S01230.libtask +++|* CALLS FPL, PRH, SNM, STD, STL. 01261 M00S01231.libtask +++|* 01262 M00S01232.libtask +++|* MACROS WRITEW. 01263 M00S01233.libtask +++| 01264 M00S01234.libtask +++| 01265 M00S01235.libtask +++| PLO SUBR ENTRY/EXIT 01266 M00S01236.libtask +++| SA1 ALCA GET LINE COUNT 01267 M00S01237.libtask +++| SX1 X1-3 01268 M00S01238.libtask +++| ZR X1,PLO1 IF PAGE EJECT NOT NEEDED 01269 M00S01239.libtask +++| RJ STL SET NEW TITLE PAGE 01270 M00S01240.libtask +++| PLO1 SX2 1RT 01271 M00S01241.libtask +++| SA1 LO 01272 M00S01242.libtask +++| LX2 -6 01273 M00S01243.libtask +++| IX3 X2-X1 01274 M00S01244.libtask +++| ZR X3,PLO6 IF *LO=T* 01275 M00S01245.libtask +++| SX2 1RX 01276 M00S01246.libtask +++| LX2 -6 01277 M00S01247.libtask +++| IX3 X2-X1 01278 M00S01248.libtask +++| ZR X3,PLO7 IF *LO=X* 01279 M00S01249.libtask +++| PLO1.1 SA1 LWTLD 01280 M00S01250.libtask +++| SX1 X1-TLD LENGTH OF TLD 01281 M00S01251.libtask +++| ZR X1,PLO3 IF NO TLD ENTRIES 01282 M00S01252.libtask +++| SX2 B0+ 01283 M00S01253.libtask +++| RJ PRH PRINT HEADER FOR TASK NAME REPORT 01284 M00S01254.libtask +++| SX6 B0+ 01285 M00S01255.libtask +++| SA1 TLD 01286 M00S01256.libtask +++| SA6 FPLC FORMAT TLD 01287 M00S01257.libtask +++| PLO2 SX7 A1+ 01288 M00S01258.libtask +++| SA7 PLOH SAVE LAST TLD ENTRY 01289 M00S01259.libtask +++| RJ FPL FORMAT PRINT LINE 01290 M00S01260.libtask +++| SA1 PLOH 01291 M00S01261.libtask +++| SA1 X1+TLDLE GET NEXT TLD ENTRY 01292 M00S01262.libtask +++| SA2 LWTLD 01293 M00S01263.libtask +++| SX3 A1 01294 M00S01264.libtask +++| IX1 X2-X3 01295 M00S01265.libtask +++| ZR X1,PLO3 IF NO MORE TLD ENTRIES 01296 M00S01266.libtask +++| EQ PLO2 LOOP FOR NEXT ENTRY 01297 M00S01267.libtask +++| 01298 M00S01268.libtask +++| PLO3 SA2 PLOI 01299 M00S01269.libtask +++| NZ X2,PLOX IF *LO=T* 01300 M00S01270.libtask +++| SA2 ALCA GET LINE COUNT 01301 M00S01271.libtask +++| SX2 X2-3 01302 M00S01272.libtask +++| ZR X2,PLO4 IF PAGE EJECT NOT NEEDED 01303 M00S01273.libtask +++| RJ STL SET NEW TITLE PAGE 01304 M00S01274.libtask +++| PLO4 SA1 LWTRD 01305 M00S01275.libtask +++| SX1 X1-TRD LENGTH OF TRD 01306 M00S01276.libtask +++| ZR X1,PLOX IF NO TRD ENTRIES 01307 M00S01277.libtask +++| SX2 B1+ 01308 M00S01278.libtask +++| RJ PRH PRINT HEADER FOR TRANSACTION UNIT REPORT 01309 M00S01279.libtask +++| SX6 B1+ 01310 M00S01280.libtask +++| SA1 TRD 01311 M00S01281.libtask +++| SA6 FPLC FORMAT TRD 01312 M00S01282.libtask +++| PLO5 SX7 A1+ 01313 M00S01283.libtask +++| SA7 PLOH SAVE LAST TRD ENTRY 01314 M00S01284.libtask +++| RJ FPL FORMAT PRINT LINE 01315 M00S01285.libtask +++| SA1 PLOH 01316 M00S01286.libtask +++| SA1 X1+TRDLE1 GET NEXT TRD ENTRY 01317 M00S01287.libtask +++| SA2 LWTRD 01318 M00S01288.libtask +++| SX3 A1 01319 M00S01289.libtask +++| IX1 X2-X3 01320 M00S01290.libtask +++| ZR X1,PLOX IF NO MORE TRD ENTRIES 01321 M00S01291.libtask +++| EQ PLO5 LOOP FOR NEXT ENTRY 01322 M00S01292.libtask +++| 01323 M00S01293.libtask +++|* PROCESS *LO=T* OPTION. 01324 M00S01294.libtask +++| 01325 M00S01295.libtask +++| PLO6 SA2 XTN GET TASK NAME 01326 M00S01296.libtask +++| SX7 B1+ 01327 M00S01297.libtask +++| SA7 PLOI SET *LO=T* 01328 M00S01298.libtask +++| ZR X2,PLO1.1 IF *LO=T* WITH NO *TN* 01329 M00S01299.libtask +++| SB3 TLDLE LENGTH OF TLD ENTRY 01330 M00S01300.libtask +++| SB5 TLD START OF TLD 01331 M00S01301.libtask +++| SA1 LWOLD LWA OF BASE TLD 01332 M00S01302.libtask +++| SB6 X1+ 01333 M00S01303.libtask +++| RJ STD SEARCH TLD 01334 M00S01304.libtask +++| NZ X1,PLO8 IF ENTRY NOT FOUND 01335 M00S01305.libtask +++| SX7 A1 01336 M00S01306.libtask +++| SX2 B0 01337 M00S01307.libtask +++| SA7 PLOH SAVE FWA OF ENTRY 01338 M00S01308.libtask +++| RJ PRH PRINT TASK NAME REPORT HEADER 01339 M00S01309.libtask +++| SX6 B0 01340 M00S01310.libtask +++| SA1 PLOH 01341 M00S01311.libtask +++| SA1 X1 FWA OF TLD ENTRY 01342 M00S01312.libtask +++| SA6 FPLC FORMAT TLD 01343 M00S01313.libtask +++| RJ FPL FORMAT PRINT LINE 01344 M00S01314.libtask +++| EQ PLOX RETURN 01345 M00S01315.libtask +++| 01346 M00S01316.libtask +++|* PROCESS *LO=X* OPTION. 01347 M00S01317.libtask +++| 01348 M00S01318.libtask +++| PLO7 SA2 XTN GET TRANSACTION NAME 01349 M00S01319.libtask +++| ZR X2,PLO3 IF *LO=X* WITH NO *TN* 01350 M00S01320.libtask +++| SB3 TRDLE1 LENGTH OF TRD ENTRY 01351 M00S01321.libtask +++| SB5 TRD START OF TRD 01352 M00S01322.libtask +++| SA1 LWTRD LWA OF TRD 01353 M00S01323.libtask +++| SB6 X1+ 01354 M00S01324.libtask +++| RJ STD SEARCH TRD 01355 M00S01325.libtask +++| NZ X1,PLO8 IF ENTRY NOT FOUND 01356 M00S01326.libtask +++| SX7 A1 01357 M00S01327.libtask +++| SX2 B1 01358 M00S01328.libtask +++| SA7 PLOH SAVE FWA OF ENTRY 01359 M00S01329.libtask +++| RJ PRH PRINT TRANSACTION UNIT REPORT HEADER 01360 M00S01330.libtask +++| SX6 B1 01361 M00S01331.libtask +++| SA1 PLOH 01362 M00S01332.libtask +++| SA1 X1 FWA OF TRD ENTRY 01363 M00S01333.libtask +++| SA6 FPLC FORMAT TRD 01364 M00S01334.libtask +++| RJ FPL FORMAT PRINT LINE 01365 M00S01335.libtask +++| EQ PLOX RETURN 01366 M00S01336.libtask +++| 01367 M00S01337.libtask +++| PLO8 SA1 XTN ENTRY NOT FOUND 01368 M00S01338.libtask +++| SB2 1RX 01369 M00S01339.libtask +++| SB5 PLOG ERROR MESSAGE 01370 M00S01340.libtask +++| RJ SNM SET NAME IN MESSAGE 01371 M00S01341.libtask +++| WRITEW O,BLINE,1 01372 M00S01342.libtask +++| WRITEW O,PLOG,PLOGL 01373 M00S01343.libtask +++| SA1 BFEF 01374 M00S01344.libtask +++| SX6 X1+1 INCREMENT ERROR FLAG 01375 M00S01345.libtask +++| SA6 A1+ 01376 M00S01346.libtask +++| EQ PLOX RETURN 01377 M00S01347.libtask +++| 01378 M00S01348.libtask +++| PLOA DATA C* TASK NAME REPORT* 01379 M00S01349.libtask +++| CON 8L 01380 M00S01350.libtask +++| PLOAL EQU *-PLOA 01381 M00S01351.libtask +++| PLOB DATA C* TASK PRIORITY FIELD EXTRA 01382 M00S01352.libtask +++|, ATTR* 01383 M00S01353.libtask +++| PLOBL EQU *-PLOB 01384 M00S01354.libtask +++| PLOC DATA C* NAME BEG MAX QL LENGTH FL 01385 M00S01355.libtask +++|, DCEORQ* 01386 M00S01356.libtask +++| CON 8L 01387 M00S01357.libtask +++| PLOCL EQU *-PLOC 01388 M00S01358.libtask +++| PLOD DATA C* TRANSACTION NAME REPORT* 01389 M00S01359.libtask +++| CON 8L 01390 M00S01360.libtask +++| PLODL EQU *-PLOD 01391 M00S01361.libtask +++| PLOE DATA C* TRANSACTION TASKS 01392 M00S01362.libtask +++|, D.M.* 01393 M00S01363.libtask +++| PLOEL EQU *-PLOE 01394 M00S01364.libtask +++| PLOF DATA C* NAME 1ST 2ND 3RD 4TH 5 01395 M00S01365.libtask +++|,TH DC RECOVER* 01396 M00S01366.libtask +++| CON 8L 01397 M00S01367.libtask +++| PLOFL EQU *-PLOF 01398 M00S01368.libtask +++| PLOG DATA C* XXXXXXX NOT IN DIRECTORY.* 01399 M00S01369.libtask +++| PLOGL EQU *-PLOG 01400 M00S01370.libtask +++| PLOH CON 0 FWA OF ENTRY 01401 M00S01371.libtask +++| PLOI CON 0 *LO*/*TN* FLAG 01402 M00S01372.libtask +++| PNP SPACE 4,15 01403 M00S01373.libtask +++|** PNP - PROCESS NO PARAMETERS. 01404 M00S01374.libtask +++|* 01405 M00S01375.libtask +++|* ENTRY FILE INITIALIZED. 01406 M00S01376.libtask +++|* 01407 M00S01377.libtask +++|* EXIT NEW TASK LIBRARY CREATED OR UPDATED. 01408 M00S01378.libtask +++|* 01409 M00S01379.libtask +++|* USES A - 1, 2. 01410 M00S01380.libtask +++|* X - 1, 2, 5. 01411 M00S01381.libtask +++|* 01412 M00S01382.libtask +++|* CALLS CDR, PCR, PIT, RBF, SDR. 01413 M00S01383.libtask +++|* 01414 M00S01384.libtask +++|* MACROS SKIPEI. 01415 M00S01385.libtask +++| 01416 M00S01386.libtask +++| 01417 M00S01387.libtask +++| PNP SUBR ENTRY/EXIT 01418 M00S01388.libtask +++| SA1 AT 01419 M00S01389.libtask +++| SA2 P 01420 M00S01390.libtask +++| NZ X2,PNP1 IF NOT *P=0* 01421 M00S01391.libtask +++| RJ PCR PROCESS CREATE OPTION 01422 M00S01392.libtask +++| EQ PNPX RETURN 01423 M00S01393.libtask +++|
| Line S01394 Modification History | |
|---|---|
M01 (Removed by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 01424 M01S01394.libta1 ---| PNP1 NZ X1,PNP2 IF FILE N ATTACHED BY *TAF*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 01425 M01S00001.libta1 +++| PNP1 ZR X1,PNP2 IF ATTACHED IN *MODIFY* MODE 01426 M00S01395.libtask +++| RJ PIT PURGE INACTIVE TASKS 01427 M00S01396.libtask +++| EQ PNPX RETURN 01428 M00S01397.libtask +++|
| Line S01398 Modification History | |
|---|---|
M01 (Removed by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 01429 M01S01398.libta1 ---| PNP2 SKIPEI P,,R SKIP TO EOI
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | libta1 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01399.libtask +++| SX5 P 01435 M00S01400.libtask +++| RJ RBF READ BINARY FILE 01436 M00S01401.libtask +++| RJ SDR SORT DIRECTORY 01437 M00S01402.libtask +++| RJ CDR COPY DIRECTORY 01438 M00S01403.libtask +++| EQ PNPX RETURN 01439 M00S01404.libtask +++| PIT SPACE 4,15 01440 M00S01405.libtask +++|** PIT - PURGE INACTIVE TASKS (*PR* OPTION). 01441 M00S01406.libtask +++|* 01442 M00S01407.libtask +++|* ENTRY FILE INITIALIZED. 01443 M00S01408.libtask +++|* 01444 M00S01409.libtask +++|* EXIT NEW FILE CREATED FROM *P* AND *B*. 01445 M00S01410.libtask +++|* 01446 M00S01411.libtask +++|* USES A - 1, 6. 01447 M00S01412.libtask +++|* X - 1, 5, 6. 01448 M00S01413.libtask +++|* 01449 M00S01414.libtask +++|* CALLS CDR, RBF, SAT, SAP, SDR. 01450 M00S01415.libtask +++| 01451 M00S01416.libtask +++| 01452 M00S01417.libtask +++| PIT SUBR ENTRY/EXIT 01453 M00S01418.libtask +++| SA1 LWTLD SAVE LWA OF TLD 01454 M00S01419.libtask +++| BX6 X1 01455 M00S01420.libtask +++| SA6 LATLD 01456 M00S01421.libtask +++| SA1 PN 01457 M00S01422.libtask +++| NZ X1,PIT2 IF *P* AND *N* ARE NOT EQUAL 01458 M00S01423.libtask +++| SX5 P COPY TO *P* FILE 01459 M00S01424.libtask +++| RJ RBF READ BINARY FILE 01460 M00S01425.libtask +++| RJ SAT SELECT ALL ACTIVE TASKS 01461 M00S01426.libtask +++| SX5 P COPY TO P FILE 01462 M00S01427.libtask +++| RJ SDR SORT DIRECTORY 01463 M00S01428.libtask +++| PIT1 SA1 LATLD COPY ACTUAL LENGTH OF TLD 01464 M00S01429.libtask +++| BX6 X1 01465 M00S01430.libtask +++| SA6 LWTLD 01466 M00S01431.libtask +++| SX6 B1 01467 M00S01432.libtask +++| SA6 MTRD FORCE COPY OF TRD IF IT EXISTS 01468 M00S01433.libtask +++| RJ CDR COPY DIRECTORY 01469 M00S01434.libtask +++| EQ PITX RETURN 01470 M00S01435.libtask +++| 01471 M00S01436.libtask +++| PIT2 REWIND N 01472 M00S01437.libtask +++| SX5 N 01473 M00S01438.libtask +++| RJ RBF READ BINARY FILE 01474 M00S01439.libtask +++| RJ SAP SELECT ACTIVE TASKS FROM *P* FILE 01475 M00S01440.libtask +++| SX5 N 01476 M00S01441.libtask +++| RJ SDR SORT DIRECTORY 01477 M00S01442.libtask +++| EQ PIT1 COPY DIRECTORY 01478 M00S01443.libtask +++| PRH SPACE 4,20 01479 M00S01444.libtask +++|** PRH - PRINT REPORT HEADER. 01480 M00S01445.libtask +++|* 01481 M00S01446.libtask +++|* PRINTS THE HEADER FOR EITHER THE TASK NAME REPORT OR 01482 M00S01447.libtask +++|* THE TRANSACTION UNIT REPORT AND CALLS *ALC* TO ADVANCE 01483 M00S01448.libtask +++|* THE LINE COUNT. 01484 M00S01449.libtask +++|* 01485 M00S01450.libtask +++|* ENTRY (X2) = 0, PRINT TASK NAME REPORT HEADER. 01486 M00S01451.libtask +++|* 1, PRINT TRANSACTION UNIT REPORT HEADER. 01487 M00S01452.libtask +++|* 01488 M00S01453.libtask +++|* EXIT APPROPRIATE HEADER PRINTED. 01489 M00S01454.libtask +++|* 01490 M00S01455.libtask +++|* USES X - 2. 01491 M00S01456.libtask +++|* 01492 M00S01457.libtask +++|* CALLS ALC. 01493 M00S01458.libtask +++|* 01494 M00S01459.libtask +++|* MACROS WRITEW. 01495 M00S01460.libtask +++| 01496 M00S01461.libtask +++| 01497 M00S01462.libtask +++| PRH SUBR ENTRY/EXIT 01498 M00S01463.libtask +++| NZ X2,PRH1 IF TRANSACTION UNIT HEADER WANTED 01499 M00S01464.libtask +++| WRITEW O,BLINE,1 01500 M00S01465.libtask +++| WRITEW O,PLOA,PLOAL 01501 M00S01466.libtask +++| WRITEW O,PLOB,PLOBL 01502 M00S01467.libtask +++| WRITEW O,PLOC,PLOCL 01503 M00S01468.libtask +++| EQ PRH2 ADVANCE LINE COUNT 01504 M00S01469.libtask +++| 01505 M00S01470.libtask +++| PRH1 WRITEW O,BLINE,1 01506 M00S01471.libtask +++| WRITEW O,PLOD,PLODL 01507 M00S01472.libtask +++| WRITEW O,PLOE,PLOEL 01508 M00S01473.libtask +++| WRITEW O,PLOF,PLOFL 01509 M00S01474.libtask +++| PRH2 SX2 6 01510 M00S01475.libtask +++| RJ ALC ADVANCE LINE COUNT 01511 M00S01476.libtask +++| EQ PRHX RETURN 01512 M00S01477.libtask +++| PTT SPACE 4,15 01513 M00S01478.libtask +++|** PTT - PROCESS TELL *TAF* OPTION. 01514 M00S01479.libtask +++|* 01515 M00S01480.libtask +++|* ENTRY FILE INITIALIZED. 01516 M00S01481.libtask +++|* 01517 M00S01482.libtask +++|* EXIT FILE *N* UPDATED. 01518 M00S01483.libtask +++|* 01519 M00S01484.libtask +++|* USES A - 1. 01520 M00S01485.libtask +++|* X - 1, 5. 01521 M00S01486.libtask +++|* 01522 M00S01487.libtask +++|* CALLS CDR, RBF. 01523 M00S01488.libtask +++|* 01524 M00S01489.libtask +++|* MACROS RETURN, SYSTEM. 01525 M00S01490.libtask +++| 01526 M00S01491.libtask +++| 01527 M00S01492.libtask +++| PTT SUBR ENTRY/EXIT 01528 M00S01493.libtask +++| SX5 P 01529 M00S01494.libtask +++| RJ RBF READ BINARY FILE 01530 M00S01495.libtask +++| RJ CDR COPY DIRECTORY 01531 M00S01496.libtask +++| SA1 DA 01532 M00S01497.libtask +++| NZ X1,PTT1 IF *DA* SPECIFIED 01533 M00S01498.libtask +++| RETURN X5 01534 M00S01499.libtask +++| PTT1 SYSTEM SIC,R,LIBH,LIBI SEND MESSAGE TO *TAF* 01535 M00S01500.libtask +++| EQ PTTX RETURN 01536 M00S01501.libtask +++| RBF SPACE 4,30 01537 M00S01502.libtask +++|** RBF - READ BINARY FILE. 01538 M00S01503.libtask +++|* 01539 M00S01504.libtask +++|* 1. IF END OF BINARY FILE RETURN TO CALLER. 01540 M00S01505.libtask +++|* 2. READ 77 TABLE AND FIRST OF PROGRAM. 01541 M00S01506.libtask +++|* 3. IF END OF BINARY RETURN TO CALLER. 01542 M00S01507.libtask +++|* 4. IF BINARY TOO SHORT CALL ROUTINE *ERR* AND GO TO STEP 1. 01543 M00S01508.libtask +++|* 5. IF NOT A *54* TABLE CALL *ERR* AND GO TO STEP 1. 01544 M00S01509.libtask +++|* 6. IF FWA OF LOAD NOT A DEFAULT LOAD ADRESS, 01545 M00S01510.libtask +++|* CALL *ERR* AND GO TO STEP 1. 01546 M00S01511.libtask +++|* 7. SEARCH DIRECTORY, IF NOT A IGNORE TASK GO TO STEP 9. 01547 M00S01512.libtask +++|* 8. SKIP TO NEXT RECORD AND GO TO STEP 1. 01548 M00S01513.libtask +++|* 9. COPY BINARY TO NEW FILE AND BUILD A DIRECTORY ENTRY. 01549 M00S01514.libtask +++|* 10. GO TO STEP 1. 01550 M00S01515.libtask +++|* 01551 M00S01516.libtask +++|* ENTRY FILE *B* AND *N* INITIATED. 01552 M00S01517.libtask +++|* (X5) = FILE NAME TO COPY TO. 01553 M00S01518.libtask +++|* 01554 M00S01519.libtask +++|* EXIT FILE *B* PROCESSED AND TASK LIBRARY DIRECTORY BUILT. 01555 M00S01520.libtask +++|* 01556 M00S01521.libtask +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 01557 M00S01522.libtask +++|* B - 2, 3, 5, 6. 01558 M00S01523.libtask +++|* X - ALL. 01559 M00S01524.libtask +++|* 01560 M00S01525.libtask +++|* CALLS ERR, SKR, STD. 01561 M00S01526.libtask +++|* 01562 M00S01527.libtask +++|* MACROS ADDWRD, MESSAGE, READW, RECALL, SEARCH, WRITER, 01563 M00S01528.libtask +++|* WRITEW. 01564 M00S01529.libtask +++| 01565 M00S01530.libtask +++| 01566 M00S01531.libtask +++| RBF SUBR ENTRY/EXIT 01567 M00S01532.libtask +++| BX7 X5 SAVE FILE NAME 01568 M00S01533.libtask +++| SA7 RBFA 01569 M00S01534.libtask +++| RBF1 SA1 EOFF 01570 M00S01535.libtask +++| NZ X1,RBFX IF END OF BINARY FILE 01571 M00S01536.libtask +++| SA1 B 01572 M00S01537.libtask +++| ZR X1,RBFX IF NO BINARIES 01573 M00S01538.libtask +++| READW B,HB,HBL READ 77 TABLE AND FIRST WORDS OF PROGRAM 01574 M00S01539.libtask +++| NG X1,RBFX IF FINISHED WITH BINARY FILE 01575 M00S01540.libtask +++| SX6 B1+ 01576 M00S01541.libtask +++| NZ X1,RBF19 IF BINARY FILE TOO SHORT 01577 M00S01542.libtask +++| SA2 HB+1 01578 M00S01543.libtask +++| MX0 42 01579 M00S01544.libtask +++| BX7 X0*X2 01580 M00S01545.libtask +++| MX0 -6 01581 M00S01546.libtask +++| SB2 10 01582 M00S01547.libtask +++| 01583 M00S01548.libtask +++|* ZERO FILL TASK NAME. 01584 M00S01549.libtask +++| 01585 M00S01550.libtask +++| RBF2 LX7 6 01586 M00S01551.libtask +++| BX1 -X0*X7 01587 M00S01552.libtask +++| SX2 X1-1R 01588 M00S01553.libtask +++| SB2 B2-B1 01589 M00S01554.libtask +++| NZ X2,RBF3 IF NOT BLANK 01590 M00S01555.libtask +++| BX7 X0*X7 REMOVE BLANK 01591 M00S01556.libtask +++| RBF3 NZ B2,RBF2 IF NOT AT WORD BOUNDARY 01592 M00S01557.libtask +++| SA7 TSKNM TASK NAME LEFT JUSTIFIED 01593 M00S01558.libtask +++| SA7 LIBG+1 FOR DISPLAY PURPOSES 01594 M00S01559.libtask +++|
| Line S01560 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01595 M01S01560.v23l617 ---|* CHECK ILLEGAL BINARYS.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01596 M01S00020.v23l617 +++|* CHECK INCORRECT BINARYS. 01597 M00S01561.libtask +++| 01598 M00S01562.libtask +++| SA5 RBFA FILE NAME 01599 M00S01563.libtask +++| RECALL X5 01600 M00S01564.libtask +++| SA1 HB+17B 01601 M00S01565.libtask +++| MX2 12 01602 M00S01566.libtask +++| BX2 X2*X1 01603 M00S01567.libtask +++| SX6 B1+B1 ERROR FLAG 01604 M00S01568.libtask +++| LX2 12 01605 M00S01569.libtask +++| SX3 X2-5300B 01606 M00S01570.libtask +++| SX4 X2-5100B 01607 M00S01571.libtask +++| SX6 X2-5000B 01608 M00S01572.libtask +++| SX7 X2-5400B 01609 M00S01573.libtask +++| ZR X3,RBF4 IF *OVERLAY* 01610 M00S01574.libtask +++| ZR X4,RBF4 IF *ABS* 01611 M00S01575.libtask +++| ZR X6,RBF4 IF *ACPM* 01612 M00S01576.libtask +++| SB2 X1 NUMBER OF ENTRY POINTS
| Line S01577 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01613 M01S01577.v23l617 ---| SX6 B1+B1 ILLEGAL RECORD TYPE
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01614 M01S00021.v23l617 +++| SX6 B1+B1 INCORRECT RECORD TYPE 01615 M00S01578.libtask +++| NZ X7,RBF19 IF NOT *5400* TABLE 01616 M00S01579.libtask +++| SX6 3 01617 M00S01580.libtask +++| NE B2,B1,RBF19 IF MORE THAN ONE ENTRY POINT 01618 M00S01581.libtask +++| BX7 X7-X7 01619 M00S01582.libtask +++| EQ RBF5 COPY BINARY RECORD 01620 M00S01583.libtask +++| 01621 M00S01584.libtask +++| RBF4 LX1 -18 01622 M00S01585.libtask +++| SX3 X1-FWLD 01623 M00S01586.libtask +++| BX7 X7-X7 01624 M00S01587.libtask +++| SX6 4 ERROR FLAG 01625 M00S01588.libtask +++| NZ X3,RBF19 IF FWA OF LOAD NOT AT DEFAULT LOAD ADDRESS 01626 M00S01589.libtask +++| 01627 M00S01590.libtask +++|* CHECK IGNORE TASK. 01628 M00S01591.libtask +++| 01629 M00S01592.libtask +++| RBF5 SA1 TSKNM TASK NAME 01630 M00S01593.libtask +++| SEARCH DRTC,X1 SEARCH DIRECTORY 01631 M00S01594.libtask +++| ZR X2,RBF7 IF TASK NOT IN DIRECTORY 01632 M00S01595.libtask +++| SA3 TSKNM TASK NAME 01633 M00S01596.libtask +++| RBF6 SA1 A2+B1 SECOND WORD OF DIRECTORY 01634 M00S01597.libtask +++| PL X1,RBF8 IF NO IGNORE 01635 M00S01598.libtask +++| 01636 M00S01599.libtask +++|* IGNORE TASK. 01637 M00S01600.libtask +++| 01638 M00S01601.libtask +++| BX7 X3 TASK NAME 01639 M00S01602.libtask +++| SA7 LIBM+1 01640 M00S01603.libtask +++| ADDWRD TDIG,X3 IGNORE TASK 01641 M00S01604.libtask +++| MESSAGE LIBM,1 * IGNORE TASK.* 01642 M00S01605.libtask +++| RJ SKR SKIP TO NEXT RECORD 01643 M00S01606.libtask +++| EQ RBF1 PROCESS NEXT RECORD 01644 M00S01607.libtask +++| 01645 M00S01608.libtask +++| RBF7 SA1 TSKNM TASK NAME 01646 M00S01609.libtask +++| SEARCH TDCH,X1 01647 M00S01610.libtask +++| SA3 TSKNM 01648 M00S01611.libtask +++| EQ RBF6 CHECK IGNORE TASK 01649 M00S01612.libtask +++| 01650 M00S01613.libtask +++|* DISPLAY TASK NAME WHILE COPYING. 01651 M00S01614.libtask +++| 01652 M00S01615.libtask +++| RBF8 SA1 X5+6 MASK DISK INDEX 01653 M00S01616.libtask +++| MX6 30 01654 M00S01617.libtask +++| BX7 X6*X1 01655 M00S01618.libtask +++| SA7 TSKDI 01656 M00S01619.libtask +++| SX0 HBL 01657 M00S01620.libtask +++| SA5 RBFA FILE NAME 01658 M00S01621.libtask +++| WRITEW X5,HB,X0 WRITE OUT TASK 01659 M00S01622.libtask +++| MESSAGE LIBG,1 DISPLAY TASK NAME 01660 M00S01623.libtask +++| 01661 M00S01624.libtask +++|* COPY BINARY FILE RECORD TO LIBRARY FILE. 01662 M00S01625.libtask +++| 01663 M00S01626.libtask +++| BX5 X1-X1 INITIATE CALL 01664 M00S01627.libtask +++| RBF9 NZ X5,RBF12 IF RECORD COPY COMPLETE 01665 M00S01628.libtask +++| SX5 TBL 01666 M00S01629.libtask +++| READW B,TB,TBL READ IN NEXT BLOCK FROM BINARY FILE 01667 M00S01630.libtask +++| PL X1,RBF10 IF NOT EOF 01668 M00S01631.libtask +++| SA6 EOFF SET EOF FLAG 01669 M00S01632.libtask +++| EQ RBF12 PROCESS EOF 01670 M00S01633.libtask +++| 01671 M00S01634.libtask +++| RBF10 ZR X1,RBF11 IF NOT AT EOR 01672 M00S01635.libtask +++| SX5 X1-TB 01673 M00S01636.libtask +++| RBF11 SA1 RBFA 01674 M00S01637.libtask +++| WRITEW X1,TB,X5 WRITE BLOCK TO LIBRARY FILE 01675 M00S01638.libtask +++| IX0 X0+X5 01676 M00S01639.libtask +++| SX5 X5-TBL 01677 M00S01640.libtask +++| EQ RBF9 CONTINUE COPY 01678 M00S01641.libtask +++| 01679 M00S01642.libtask +++| RBF12 READ B REINITIALIZE READ ON BINARY FILE 01680 M00S01643.libtask +++| SA5 RBFA FILE NAME 01681 M00S01644.libtask +++| WRITER X5,R FLUSH BUFFER 01682 M00S01645.libtask +++| SX7 X0+177B 01683 M00S01646.libtask +++| SA1 RECN 01684 M00S01647.libtask +++| AX7 6 01685 M00S01648.libtask +++| SX6 X1+1 RECORD COUNT FOR BINARY FILE 01686 M00S01649.libtask +++| LX7 18 01687 M00S01650.libtask +++| SA6 A1+ 01688 M00S01651.libtask +++| SA7 TSKFL TASK FIELD LENGTH 01689 M00S01652.libtask +++| SA4 TSKNM TASK NAME 01690 M00S01653.libtask +++| SA3 HB+17B+10B GET ENTRY POINT ADDRESS OF TASK 01691 M00S01654.libtask +++| SX3 X3 01692 M00S01655.libtask +++| BX7 X3+X4 01693 M00S01656.libtask +++| SA7 TSKNE FIRST WORD FOR TLD 01694 M00S01657.libtask +++| 01695 M00S01658.libtask +++|* CHECK FOR INSERTION OR DELETION. 01696 M00S01659.libtask +++| 01697 M00S01660.libtask +++| SA3 CR 01698 M00S01661.libtask +++| SA2 TSKNM 01699 M00S01662.libtask +++| SA1 LWTLD CURRENT LWA FOR TLD 01700 M00S01663.libtask +++| SB5 TLD START OF TLD 01701 M00S01664.libtask +++| NZ X3,RBF13 IF CREATION RUN 01702 M00S01665.libtask +++| SA1 LWOLD LWA ADDRESS OF BASE TLD 01703 M00S01666.libtask +++| RBF13 SX0 X1 01704 M00S01667.libtask +++| SB6 X0 01705 M00S01668.libtask +++| SB3 TLDLE TLD ENTRY LENGTH 01706 M00S01669.libtask +++| RJ STD CHECK IF TASK ALREADY IN DIRECTORY 01707 M00S01670.libtask +++| NZ X1,RBF15 IF TASK NOT IN DIRECTORY 01708 M00S01671.libtask +++| SX0 A1 01709 M00S01672.libtask +++| ADDWRD RREC,X2 RECORD REPLACED INDICATOR 01710 M00S01673.libtask +++| EQ RBF16 BUILD DIRECTORY 01711 M00S01674.libtask +++| 01712 M00S01675.libtask +++| RBF15 SB3 A1+ 01713 M00S01676.libtask +++| SA3 FSLT FREE SPACE LEFT IN TLD 01714 M00S01677.libtask +++| SX7 X3-TLDLE DECREMENT FREE TLD SPACE COUNT 01715 M00S01678.libtask +++| SA7 A3 01716 M00S01679.libtask +++| BX1 X2 01717 M00S01680.libtask +++| SX6 5 ERROR FLAG 01718 M00S01681.libtask +++| NG X7,RBF19 IF DIRECTORY IS FULL 01719 M00S01682.libtask +++| ADDWRD IREC,X1 RECORD INSERTED INDICATOR 01720 M00S01683.libtask +++| 01721 M00S01684.libtask +++|* INSERT TASK AT END OF DIRECTORY. 01722 M00S01685.libtask +++| 01723 M00S01686.libtask +++| SA1 LWTLD 01724 M00S01687.libtask +++| SX7 X1+TLDLE ADVANCE LWA ADDRESS 01725 M00S01688.libtask +++| SA7 A1 01726 M00S01689.libtask +++| SX0 X1 PLACE TO INSERT 01727 M00S01690.libtask +++| SA7 LATLD 01728 M00S01691.libtask +++| 01729 M00S01692.libtask +++|* BUILD AND INSERT NEW ENTRY INTO TLD. 01730 M00S01693.libtask +++| 01731 M00S01694.libtask +++| RBF16 SA1 TSKNM TASK NAME 01732 M00S01695.libtask +++| SEARCH DRTC,X1 CHECK DIRECTIVES TABLE FOR NEW TASK 01733 M00S01696.libtask +++| NZ X2,RBF17 IF TASK IN DIRECTORY 01734 M00S01697.libtask +++| SA1 TSKNM 01735 M00S01698.libtask +++| SEARCH TDCH,X1 CHECK TABLE FOR TASK REPLACING DIRECTIVES 01736 M00S01699.libtask +++| ZR X2,RBF18 IF NO DIRECTIVES FOR TASK 01737 M00S01700.libtask +++| RBF17 SA1 A2+1 SECOND WORD OF DIRECTIVE ENTRY 01738 M00S01701.libtask +++| SA2 A2+2 THIRD WORD OF DIRECTIVE ENTRY 01739 M00S01702.libtask +++| MX7 -TLEFN-TLMPN GET EFL+MP 01740 M00S01703.libtask +++| BX7 -X7*X1 01741 M00S01704.libtask +++| LX6 X2 01742 M00S01705.libtask +++| SA7 LIBA USE DIRECTIVE ENTRIES FOR TASK DIRECTORY 01743 M00S01706.libtask +++| SA6 LIBA+1 01744 M00S01707.libtask +++| RBF18 SA1 TSKNE TASK NAME AND ENTRY POINT 01745 M00S01708.libtask +++| SA2 TSKDI LIBRARY FILE RANDOM INDEX FOR TASK 01746 M00S01709.libtask +++| BX6 X1 01747 M00S01710.libtask +++| SA3 TSKFL TASK FIELD LENGTH 01748 M00S01711.libtask +++| SA6 X0 FIRST WORD OF TLD 01749 M00S01712.libtask +++| BX7 X2+X3 01750 M00S01713.libtask +++| SA1 LIBA TASK PRIORITIES 01751 M00S01714.libtask +++| SA2 A1+B1 THIRD WORD FOR TLD ENTRY 01752 M00S01715.libtask +++| BX7 X7+X1 01753 M00S01716.libtask +++| SA7 X0+1 SECOND WORD OF TLD 01754 M00S01717.libtask +++| LX6 X2 01755 M00S01718.libtask +++| SA6 X0+2 THIRD WORD OF TLD 01756 M00S01719.libtask +++| 01757 M00S01720.libtask +++|* RESET DEFAULT PARAMETERS FOR NEXT TASK. 01758 M00S01721.libtask +++| 01759 M00S01722.libtask +++| SA1 LIBB RESTORE DEFAULT TASK VALUES 01760 M00S01723.libtask +++| SA2 A1+B1 01761 M00S01724.libtask +++| BX7 X1 01762 M00S01725.libtask +++| LX6 X2 01763 M00S01726.libtask +++| SA7 LIBA TASK VALUES 01764 M00S01727.libtask +++| SA6 A7+B1 01765 M00S01728.libtask +++| EQ RBF1 PROCESS NEXT TASK 01766 M00S01729.libtask +++| 01767 M00S01730.libtask +++|* PROCESS ERROR CASE. 01768 M00S01731.libtask +++| 01769 M00S01732.libtask +++| RBF19 RJ ERR PROCESS ERROR BINARY 01770 M00S01733.libtask +++| EQ RBF1 PROCESS NEXT TASK 01771 M00S01734.libtask +++| 01772 M00S01735.libtask +++| RBFA CON 0 TEMPORARY STORAGE FOR FILE NAME 01773 M00S01736.libtask +++| SAP SPACE 4,20 01774 M00S01737.libtask +++|** SAP - SELECT ACTIVE TASKS FROM *P* FILE. 01775 M00S01738.libtask +++|* 01776 M00S01739.libtask +++|* ENTRY INPUT DIRECTORY BUILD. 01777 M00S01740.libtask +++|* 01778 M00S01741.libtask +++|* EXIT ACTIVE TASKS WRITTEN ON *N* FILE. 01779 M00S01742.libtask +++|* 01780 M00S01743.libtask +++|* USES A - 1, 2, 3, 5, 6. 01781 M00S01744.libtask +++|* X - 0, 1, 2, 3, 4, 5, 6. 01782 M00S01745.libtask +++|* 01783 M00S01746.libtask +++|* MACROS READ, READW, REWIND, SEARCH, WRITER, WRITEW. 01784 M00S01747.libtask +++| 01785 M00S01748.libtask +++| 01786 M00S01749.libtask +++| SAP SUBR ENTRY/EXIT 01787 M00S01750.libtask +++| REWIND P,R 01788 M00S01751.libtask +++| SA5 TLD+1 01789 M00S01752.libtask +++| SAP1 SA1 A5-B1 TASK NAME 01790 M00S01753.libtask +++| MX6 42 01791 M00S01754.libtask +++| BX4 X6*X1 01792 M00S01755.libtask +++| SEARCH RREC,X4 01793 M00S01756.libtask +++| NZ X2,SAP5 IF RECORD REPLACED 01794 M00S01757.libtask +++| SEARCH IREC,X4 01795 M00S01758.libtask +++| NZ X2,SAP5 IF RECORD INSERED 01796 M00S01759.libtask +++| SA1 A5 WORD 2 OF AN ENTRY 01797 M00S01760.libtask +++| MX0 30 01798 M00S01761.libtask +++| BX3 X0*X1 ISOLATE DISK INDEX 01799 M00S01762.libtask +++| SA2 A1+B1 WORD 3 OF TLD 01800 M00S01763.libtask +++| LX3 30 01801 M00S01764.libtask +++| LX2 59-54 LEFT JUSTIFY DELETD FLAG 01802 M00S01765.libtask +++| SX4 B1 SET REQUEST BIT 01803 M00S01766.libtask +++| LX4 29 01804 M00S01767.libtask +++| SX6 3RZZZ 01805 M00S01768.libtask +++| NG X2,SAP4 IF DELETE TASK 01806 M00S01769.libtask +++| BX6 X4+X3 ADD DISK INDEX 01807 M00S01770.libtask +++| SA6 P+6 PUT IN FET 01808 M00S01771.libtask +++| SA2 P+1 01809 M00S01772.libtask +++| SX6 X2+ 01810 M00S01773.libtask +++| SA6 A2+B1 FET+2 01811 M00S01774.libtask +++| SA6 A6+B1 FET+3 01812 M00S01775.libtask +++| SA2 N+6 01813 M00S01776.libtask +++| BX6 X0*X2 ISOLATE NEW INDEX 01814 M00S01777.libtask +++| BX3 -X0*X1 CLEAR OUT OLD ONE 01815 M00S01778.libtask +++| BX6 X6+X3 01816 M00S01779.libtask +++| SA6 A5 01817 M00S01780.libtask +++| READ P,R 01818 M00S01781.libtask +++| 01819 M00S01782.libtask +++|* COPY ACTIVE TASKS FROM *P* TO *N*. 01820 M00S01783.libtask +++| 01821 M00S01784.libtask +++| SAP2 SX5 TBL 01822 M00S01785.libtask +++| READW P,TB,X5 READ TASK BINARY FROM SCRATCH 01823 M00S01786.libtask +++| ZR X1,SAP3 IF NOT AT EOR 01824 M00S01787.libtask +++| SX5 X1-TB 01825 M00S01788.libtask +++| SAP3 WRITEW N,TB,X5 WRITE ON LIBRARY 01826 M00S01789.libtask +++| SX5 X5-TBL 01827 M00S01790.libtask +++| ZR X5,SAP2 IF RECORD COPY NOT COMPLETE 01828 M00S01791.libtask +++| WRITER N,R 01829 M00S01792.libtask +++| EQ SAP5 CONTINUE WITH NEXT TASK 01830 M00S01793.libtask +++| 01831 M00S01794.libtask +++|* TASK IS DELETED PLACE DUMMY NAME IN TLD. 01832 M00S01795.libtask +++| 01833 M00S01796.libtask +++| SAP4 LX6 -18 01834 M00S01797.libtask +++| SA6 A1-B1 REPLACE TASK NAME 01835 M00S01798.libtask +++| SA3 LATLD DECREMENT TASK LENGTH 01836 M00S01799.libtask +++| SX6 X3-3 01837 M00S01800.libtask +++| SA6 A3+ 01838 M00S01801.libtask +++| SAP5 SA5 A5+TLDLE NEXT ENTRY 01839 M00S01802.libtask +++| SA1 LWTLD END OF DIRECTORY 01840 M00S01803.libtask +++| SX2 A5 01841 M00S01804.libtask +++| IX2 X1-X2 01842 M00S01805.libtask +++| PL X2,SAP1 IF NOT END OF DIRECTORY 01843 M00S01806.libtask +++| EQ SAPX RETURN 01844 M00S01807.libtask +++| SAT SPACE 4,10 01845 M00S01808.libtask +++|** SAT - SELECT ACTIVE TASKS. 01846 M00S01809.libtask +++|* 01847 M00S01810.libtask +++|* ENTRY INPUT DIRECTORY BUILD. 01848 M00S01811.libtask +++|* 01849 M00S01812.libtask +++|* EXIT ACTIVE TASKS WRITTEN ON *P* FILE. 01850 M00S01813.libtask +++|* 01851 M00S01814.libtask +++|* USES A - 1, 2, 5, 6. 01852 M00S01815.libtask +++|* X - 0, 1, 2, 3, 4, 5, 6. 01853 M00S01816.libtask +++|* 01854 M00S01817.libtask +++|* MACROS READ, READW, RECALL, REWIND, WRITEF, WRITER, WRITEW. 01855 M00S01818.libtask +++| 01856 M00S01819.libtask +++| 01857 M00S01820.libtask +++| SAT SUBR ENTRY/EXIT 01858 M00S01821.libtask +++| REWIND P,R 01859 M00S01822.libtask +++| 01860 M00S01823.libtask +++|* COPY TASK BINARIES FROM *P* TO SCRATCH. 01861 M00S01824.libtask +++| 01862 M00S01825.libtask +++| REWIND SF 01863 M00S01826.libtask +++| SAT1 READ P,R 01864 M00S01827.libtask +++| RECALL SF 01865 M00S01828.libtask +++| SAT2 SX5 TBL 01866 M00S01829.libtask +++| READW P,TB,TBL 01867 M00S01830.libtask +++| NG X1,SAT4 IF EOF 01868 M00S01831.libtask +++| ZR X1,SAT3 IF NOT AT EOR 01869 M00S01832.libtask +++| SX5 X1-TB 01870 M00S01833.libtask +++| SAT3 WRITEW SF,TB,X5 WRITE TO SCRATCH FILE 01871 M00S01834.libtask +++| SX5 X5-TBL 01872 M00S01835.libtask +++| ZR X5,SAT2 IF RECORD COPY NOT COMPLETE 01873 M00S01836.libtask +++| WRITER SF
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/libtask.txt · Last modified: (external edit)