User Tools

Site Tools


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

Deck LIBTASK

9 Modifications

Listing Sections

Source

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