User Tools

Site Tools


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

Deck BAAML

3 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.baaml   +++|          IDENT  BAAML
00002  M01S00002.baaml   +++|          SST
00003  M01S00003.baaml   +++|          ENTRY  CLOSE
00004  M01S00004.baaml   +++|          ENTRY  DBCOMIT
00005  M01S00005.baaml   +++|          ENTRY  DBEGIN
00006  M01S00006.baaml   +++|          ENTRY  DBFREE
00007  M01S00007.baaml   +++|          ENTRY  DBSTAT
00008  M01S00008.baaml   +++|          ENTRY  DELETE
00009  M01S00009.baaml   +++|          ENTRY  FLOCK
00010  M01S00010.baaml   +++|          ENTRY  LOCK
00011  M01S00011.baaml   +++|          ENTRY  OPEN
00012  M01S00012.baaml   +++|          ENTRY  READ
00013  M01S00013.baaml   +++|          ENTRY  READL
00014  M01S00014.baaml   +++|          ENTRY  READM
00015  M01S00015.baaml   +++|          ENTRY  READNL
00016  M01S00016.baaml   +++|          ENTRY  READN
00017  M01S00017.baaml   +++|          ENTRY  REWIND
00018  M01S00018.baaml   +++|          ENTRY  REWRITE
00019  M01S00019.baaml   +++|          ENTRY  SKIPBL
00020  M01S00020.baaml   +++|          ENTRY  SKIPFL
00021  M01S00021.baaml   +++|          ENTRY  START
00022  M01S00022.baaml   +++|          ENTRY  UNFLOCK
00023  M01S00023.baaml   +++|          ENTRY  UNLOCK
00024  M01S00024.baaml   +++|          ENTRY  WRITE
00025  M01S00025.baaml   +++|          SYSCOM B1
00026  M01S00026.baaml   +++|          TITLE  BAAML - OBJECT TIME BATCH CONCURRENCY.
00027  M01S00027.baaml   +++|*COMMENT BAAML -  OBJECT TIME BATCH CONCURRENCY.
Line S00028 Modification History
M01 (Added by) baaml
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00028.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1981.
00029  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00030  M01S00029.baaml   +++| BAAML    SPACE  4,10
00031  M01S00030.baaml   +++|***       BAAML - OBJECT TIME BATCH CONCURRENCY.
00032  M01S00031.baaml   +++|*
00033  M01S00032.baaml   +++|*         P. H. PETERSEN.          81/01/13.
00034  M01S00033.baaml   +++|          SPACE  4,10
00035  M01S00034.baaml   +++|***       BAAML IS AN USER LIBRARY INTERFACE FOR COBOL5 AND FORTRAN
00036  M01S00035.baaml   +++|*         BATCH USER PROGRAMS TO MAKE ADVANCED ACCESS METHOD CYBER
00037  M01S00036.baaml   +++|*         RECORD MANAGER REQUESTS OF THE TRANSACTION FACILITY.  DECK
00038  M01S00037.baaml   +++|*         *BAAML*  IS PLACED ON THE SYSTEM AS LIBRARY *BAAML*.  COBOL5
Line S00038 Modification History
M01 (Added by) baaml
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00038.v23l617 ---|*         *ENTER* VERB AND FORTRAN *CALL* STATEMENT INTERFACE THE
00040  M01S00001.v23l617 +++|*         *ENTER* VERB AND FORTRAN *CALL* COMMAND INTERFACE THE
00041  M01S00039.baaml   +++|*         USER BATCH PROGRAMS TO THE TRANSACTION FACILITY.
00042  M01S00040.baaml   +++|*
00043  M01S00041.baaml   +++|*         THE REQUESTS FOR *TAF CMR* ARE AS FOLLOWS -
00044  M01S00042.baaml   +++|*
00045  M01S00043.baaml   +++|*         TO CLOSE A FILE FOR A DATA BASE -
00046  M01S00044.baaml   +++|*         ENTER "CLOSE" USING FILE,TSTAT,CSTAT.
00047  M01S00045.baaml   +++|*         CALL CLOSE (FILE,TSTAT,CSTAT).
00048  M01S00046.baaml   +++|*
00049  M01S00047.baaml   +++|*         TO MARK THE END OF AN UPDATE SEQUENCE -
00050  M01S00048.baaml   +++|*         ENTER "DBCOMIT" USING TSTAT.
00051  M01S00049.baaml   +++|*         CALL DBCOMIT (TSTAT).
00052  M01S00050.baaml   +++|*
00053  M01S00051.baaml   +++|*         TO ESTABLISH A DATA BASE AS RECOVERABLE -
00054  M01S00052.baaml   +++|*         ENTER "DBEGIN" USING UBEGIN, TSTAT.
00055  M01S00053.baaml   +++|*         CALL DBEGIN (UBEGIN, TSTAT).
00056  M01S00054.baaml   +++|*
00057  M01S00055.baaml   +++|*         TO ROLLBACK UPDATES TO A DATA BASE -
00058  M01S00056.baaml   +++|*         ENTER "DBFREE" USING TSTAT.
00059  M01S00057.baaml   +++|*         CALL DBFREE (TSTAT).
00060  M01S00058.baaml   +++|*
00061  M01S00059.baaml   +++|*         TO FIND LAST IDENTIFIER OF LAST SUCCESSFULL BEGIN/COMMIT -
00062  M01S00060.baaml   +++|*         ENTER "DBSTAT" USING UBEGIN, TSTAT, PBEGIN.
00063  M01S00061.baaml   +++|*         CALL DBSTAT (UBEGIN, TSTAT, PBEGIN).
00064  M01S00062.baaml   +++|*
00065  M01S00063.baaml   +++|*         TO DELETE A RECORD -
00066  M01S00064.baaml   +++|*         ENTER "DELETE" USING FILE,TSTAT,CSTAT,KEYN,KEYP.
00067  M01S00065.baaml   +++|*         CALL DELETE (FILE,TSTAT,CSTAT,KEYN,KEYP).
00068  M01S00066.baaml   +++|*
00069  M01S00067.baaml   +++|*         TO LOCK A RECORD -
00070  M01S00068.baaml   +++|*         ENTER "LOCK" USING FILE,TSTAT,KEYN,KEYP.
00071  M01S00069.baaml   +++|*         CALL LOCK (FILE,TSTAT,KEYN,KEYP).
00072  M01S00070.baaml   +++|*
00073  M01S00071.baaml   +++|*         TO LOCK A FILE -
00074  M01S00072.baaml   +++|*         ENTER "FLOCK" USING FILE,TSTAT.
00075  M01S00073.baaml   +++|*         CALL FLOCK (FILE,TSTAT).
00076  M01S00074.baaml   +++|*
00077  M01S00075.baaml   +++|*         TO OPEN A FILE FOR A DATA BASE -
00078  M01S00076.baaml   +++|*         ENTER "OPEN" USING FILE,TSTAT,CSTAT.
00079  M01S00077.baaml   +++|*         CALL OPEN (FILE,TSTAT,CSTAT).
00080  M01S00078.baaml   +++|*
00081  M01S00079.baaml   +++|*         TO READ A RECORD BY KEY -
00082  M01S00080.baaml   +++|*         ENTER "READ" USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYN,KEYP,
00083  M01S00081.baaml   +++|*                KSTAT,KEYID,KEYA,KEYL.
00084  M01S00082.baaml   +++|*         CALL READ (FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYN,KEYP,
00085  M01S00083.baaml   +++|*                KSTAT,KEYID,KEYA,KEYL).
00086  M01S00084.baaml   +++|*
00087  M01S00085.baaml   +++|*         TO READ A RECORD BY KEY WITH LOCK -
00088  M01S00086.baaml   +++|*         ENTER "READL" USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYN,KEYP,
00089  M01S00087.baaml   +++|*                KSTAT,KEYID,KEYA,KEYL.
00090  M01S00088.baaml   +++|*         CALL READL (FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYN,KEYP,
00091  M01S00089.baaml   +++|*                KSTAT,KEYID,KEYA,KEYL).
00092  M01S00090.baaml   +++|*
00093  M01S00091.baaml   +++|*         TO READ A RECORD BY MAJOR KEY -
00094  M01S00092.baaml   +++|*         ENTER "READM" USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,
00095  M01S00093.baaml   +++|*                KEYRL,KEYN,KEYP,MKEYL,KSTAT,KEYID.
00096  M01S00094.baaml   +++|*         CALL READM (FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,
00097  M01S00095.baaml   +++|*                KEYRL,KEYN,KEYP,MKEYL,KSTAT,KEYID).
00098  M01S00096.baaml   +++|*
00099  M01S00097.baaml   +++|*         TO READ NEXT RECORD -
00100  M01S00098.baaml   +++|*         ENTER "READN" USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL,
00101  M01S00099.baaml   +++|*                KSTAT.
00102  M01S00100.baaml   +++|*         CALL READN (FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL,KSTAT).
00103  M01S00101.baaml   +++|*
00104  M01S00102.baaml   +++|*         TO READ NEXT RECORD WITH LOCK -
00105  M01S00103.baaml   +++|*         ENTER "READNL" USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL,
00106  M01S00104.baaml   +++|*                 KSTAT.
00107  M01S00105.baaml   +++|*         CALL READNL (FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL,KSTAT).
00108  M01S00106.baaml   +++|*
00109  M01S00107.baaml   +++|*         TO REWIND A FILE -
00110  M01S00108.baaml   +++|*         ENTER "REWIND" USING FILE,TSTAT,CSTAT.
00111  M01S00109.baaml   +++|*         CALL REWIND (FILE,TSTAT,CSTAT).
00112  M01S00110.baaml   +++|*
00113  M01S00111.baaml   +++|*         TO REWRITE A RECORD -
00114  M01S00112.baaml   +++|*         ENTER "REWRITE" USING FILE,TSTAT,CSTAT,WSA,RL,KEYN,KEYP.
00115  M01S00113.baaml   +++|*         CALL REWRITE (FILE,TSTAT,CSTAT,WSA,RL,KEYN,KEYP).
00116  M01S00114.baaml   +++|*
00117  M01S00115.baaml   +++|*         TO SKIP A LOGICAL RECORD BACKWARD -
00118  M01S00116.baaml   +++|*         ENTER "SKIPBL" USING FILE,TSTAT,CSTAT,COUNT.
00119  M01S00117.baaml   +++|*         CALL SKIPBL (FILE,TSTAT,CSTAT,COUNT).
00120  M01S00118.baaml   +++|*
00121  M01S00119.baaml   +++|*         TO SKIP A LOGICAL RECORD FORWARD -
00122  M01S00120.baaml   +++|*         ENTER "SKIPFL" USING FILE,TSTAT,CSTAT,COUNT.
00123  M01S00121.baaml   +++|*         CALL SKIPFL (FILE,TSTAT,CSTAT,COUNT).
00124  M01S00122.baaml   +++|*
00125  M01S00123.baaml   +++|*         TO ESTABLISH A POSITION ON A FILE -
00126  M01S00124.baaml   +++|*         ENTER "START" USING FILE,TSTAT,CSTAT,RELOP,KEYN,KEYP,KSTAT,
00127  M01S00125.baaml   +++|*                KEYID,MKEYL.
00128  M01S00126.baaml   +++|*         CALL START (FILE,TSTAT,CSTAT,RELOP,KEYN,KEYP,KSTAT,
00129  M01S00127.baaml   +++|*                KEYID,MKEYL.
00130  M01S00128.baaml   +++|*
00131  M01S00129.baaml   +++|*         TO UNLOCK A RECORD -
00132  M01S00130.baaml   +++|*         ENTER "UNLOCK" USING FILE,TSTAT,KEYN,KEYP.
00133  M01S00131.baaml   +++|*         CALL UNLOCK (FILE,TSTAT,KEYN,KEYP).
00134  M01S00132.baaml   +++|*
00135  M01S00133.baaml   +++|*         TO UNLOCK A FILE -
00136  M01S00134.baaml   +++|*         ENTER "UNFLOCK" USING FILE,TSTAT.
00137  M01S00135.baaml   +++|*         CALL UNFLOCK (FILE,TSTAT).
00138  M01S00136.baaml   +++|*
00139  M01S00137.baaml   +++|*         TO WRITE A RECORD -
00140  M01S00138.baaml   +++|*         ENTER "WRITE" USING FILE,TSTAT,CSTAT,WSA,RL,KEYN,KEYP.
00141  M01S00139.baaml   +++|*         CALL WRITE (FILE,TSTAT,CSTAT,WSA,RL,KEYN,KEYP).
00142  M01S00140.baaml   +++|*
00143  M01S00141.baaml   +++|*         THE PARAMETERS FOR *TAF CRM* REQUESTS ARE DEFINED BELOW -
00144  M01S00142.baaml   +++|*
00145  M01S00143.baaml   +++|*         XXPFNI (FILE) - FILE NAME SELECTED BY DATA BASE ADMINIS-
00146  M01S00144.baaml   +++|*                TRATOR.  THE FILE NAME MUST BEGIN ON A WORD BOUNDARY
00147  M01S00145.baaml   +++|*                AND CONSIST OF 2-7 CHARACTERS WITH BLANK OR BINARY
00148  M01S00146.baaml   +++|*                ZERO FILL.
00149  M01S00147.baaml   +++|*                COBOL5 - 01 LEVEL DATA NAME.
00150  M01S00148.baaml   +++|*                FORTRAN - INTEGER.
00151  M01S00149.baaml   +++|*
00152  M01S00150.baaml   +++|*         TAF-STATUS (TSTAT) - TRANSACTION FACILTY STATUS.
00153  M01S00151.baaml   +++|*                SEE DECK *COMKTER.
00154  M01S00152.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00155  M01S00153.baaml   +++|*                FORTRAN - INTEGER.
00156  M01S00154.baaml   +++|*
00157  M01S00155.baaml   +++|*         CRM-STATUS (STAT) - ERROR CODE STATUS FOR *CRM*.
00158  M01S00156.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00159  M01S00157.baaml   +++|*                FORTRAN - INTEGER.
00160  M01S00158.baaml   +++|*
00161  M01S00159.baaml   +++|*         WSA-NAME (WSA) - SPECIFIES THE AREA TO CONTAIN THE RECORD.
00162  M01S00160.baaml   +++|*                COBOL5 - 01 LEVEL DATA NAME.
00163  M01S00161.baaml   +++|*                FORTRAN - INTEGER ARRAY.
00164  M01S00162.baaml   +++|*
00165  M01S00163.baaml   +++|*
00166  M01S00164.baaml   +++|*         WSA-LENGTH (WSAL) - SPECIFIES THE LENGTH OF THE AREA
00167  M01S00165.baaml   +++|*                IDENTIFIED BY THE WSA-NAME.
00168  M01S00166.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00169  M01S00167.baaml   +++|*                FORTRAN - INTEGER.
00170  M01S00168.baaml   +++|*
00171  M01S00169.baaml   +++|*         KEY-AREA (KEYA) - SPECIFIES THE FIELD TO CONTAIN THE
00172  M01S00170.baaml   +++|*                PRIMARY KEY RETURNED ON A READ REQUEST.
00173  M01S00171.baaml   +++|*                COBOL5 - 01 LEVEL DATA NAME.
00174  M01S00172.baaml   +++|*                FORTRAN - INTEGER.
00175  M01S00173.baaml   +++|*
00176  M01S00174.baaml   +++|*         KEY-AREA-LENGTH (KEYAL) - THE LENGTH OF THE FIELD IDENTIFIED
00177  M01S00175.baaml   +++|*                BY THE KEY-AREA PARAMETER.
00178  M01S00176.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00179  M01S00177.baaml   +++|*                FORTRAN - INTEGER.
00180  M01S00178.baaml   +++|*
00181  M01S00179.baaml   +++|*         MAJOR-KEY-LENGTH (MKEYL) - THE  LENGTH OF THE MAJOR KEY.
00182  M01S00180.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00183  M01S00181.baaml   +++|*                FORTRAN - INTEGER.
00184  M01S00182.baaml   +++|*
00185  M01S00183.baaml   +++|*         KEY-OFFSET (KEYP) - THE BEGINNING POSITION OF THE
00186  M01S00184.baaml   +++|*                PRIMARY KEY.
00187  M01S00185.baaml   +++|*                COBOL5 - 01 COMPUTATIONAL-1  DATA NAME.
00188  M01S00186.baaml   +++|*                FORTRAN - INTEGER.
00189  M01S00187.baaml   +++|*
00190  M01S00188.baaml   +++|*         KEY-NAME (KEYN) - DATA NAME THE CONTAINS THE PRIMARY KEY.
00191  M01S00189.baaml   +++|*                COBOL5 - 01 LEVEL DATA NAME.
00192  M01S00190.baaml   +++|*                FORTRAN - INTEGER.
00193  M01S00191.baaml   +++|*
00194  M01S00192.baaml   +++|*         RECORD-LENGTH (RL) - DATA NAME THE SPECIFIES THE LENGTH
00195  M01S00193.baaml   +++|*                OF THE RECORD RETURNED BY *TAF* AFTER ISSUING
00196  M01S00194.baaml   +++|*                A READ REQUEST.  ALSO, THE LENGTH OF THE RECORD
00197  M01S00195.baaml   +++|*                TO BE WRITTEN TO THE DATA BASE FROM THE AREA
00198  M01S00196.baaml   +++|*                IDENTIFIED BY THE WSA-NAME PARAMETER.
00199  M01S00197.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00200  M01S00198.baaml   +++|*                FORTRAN - INTEGER.
00201  M01S00199.baaml   +++|*
00202  M01S00200.baaml   +++|*         COUNT - COUNT OF LOGICAL RECORDS TO SKIP.
00203  M01S00201.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00204  M01S00202.baaml   +++|*                FORTRAN - INTEGER.
00205  M01S00203.baaml   +++|*
00206  M01S00204.baaml   +++|*         KEY-STATUS (KSTAT) - DATA NAME THAT SPECIFIES THE FIELD TO
00207  M01S00205.baaml   +++|*                CONTAIN A KEY STATUS CODE RETURNED BY *TAF*.
00208  M01S00206.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00209  M01S00207.baaml   +++|*                FORTRAN - INTEGER.
00210  M01S00208.baaml   +++|*
00211  M01S00209.baaml   +++|*         KEY-IDENTIFIER (KEYID) - A DATA NAME THE SPECIFIES
00212  M01S00210.baaml   +++|*                THE KEY, ALTERNATE OR PRIMARY, FOR ACCESS.
00213  M01S00211.baaml   +++|*
00214  M01S00212.baaml   +++|*                NEGATIVE -  NO CHANGE IN KEY ACCESS.
00215  M01S00213.baaml   +++|*                       0 -  PRIMARY KEY.
00216  M01S00214.baaml   +++|*                       N -  VALUE ASSOCIATED WITH THE
Line S00215 Modification History
M01 (Added by) baaml
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00217  M02S00215.v23l617 ---|*                           KEY BY AN *AKY* CARD.
00218  M01S00002.v23l617 +++|*                           KEY BY AN *AKY* COMMAND.
00219  M01S00216.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTIONAL DATA NAME.
00220  M01S00217.baaml   +++|*                FORTRAN - INTEGER.
00221  M01S00218.baaml   +++|*
00222  M01S00219.baaml   +++|*         RELATION-OPERATOR (RELOP) - VALUES EQ, GT, OR GE.
00223  M01S00220.baaml   +++|*                A DATA NAME THAT SPECIFIES THE POSITION RELATIVE
00224  M01S00221.baaml   +++|*                TO THE GIVEN KEY AFTER THE OPERATION.
00225  M01S00222.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTATION-1 DATA NAME.
00226  M01S00223.baaml   +++|*                FORTRAN - INTEGER.
00227  M01S00224.baaml   +++|*
00228  M01S00225.baaml   +++|*         UBEGIN - A JOB SUPPLIED VALUE TO DEFINE A
00229  M01S00226.baaml   +++|*                RESTART POSITION.
00230  M01S00227.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTIONAL-1 DATA NAME.
00231  M01S00228.baaml   +++|*                FORTRAN - INTEGER.
00232  M01S00229.baaml   +++|*
00233  M01S00230.baaml   +++|*         PBEGIN - THE BEGINNING IDENTIFIER OF THE
00234  M01S00231.baaml   +++|*                PREVIOUS *DBEGIN* REQUEST.
00235  M01S00232.baaml   +++|*                COBOL5 - 01 LEVEL COMPUTIONAL-1 DATA NAME.
00236  M01S00233.baaml   +++|*                FORTRAN - INTEGER.
00237  M01S00234.baaml   +++|*
00238  M01S00235.baaml   +++|          SPACE  4,20
00239  M01S00236.baaml   +++|***       DAYFILE MESSAGES.
00240  M01S00237.baaml   +++|*
00241  M01S00238.baaml   +++|*         TAF FUNCTION CODE NOT VALID.
00242  M01S00239.baaml   +++|*                TAF CANNOT PROCESS THE REQUEST ISSUED BECAUSE
00243  M01S00240.baaml   +++|*                IT IS AN UNRECOGNIZABLE FUNCTION CODE.  THIS IS
00244  M01S00241.baaml   +++|*                AN INTERNAL ERROR.
00245  M01S00242.baaml   +++|*
00246  M01S00243.baaml   +++|*
00247  M01S00244.baaml   +++|*         TAF TWO OUTSTANDING REQUEST.
00248  M01S00245.baaml   +++|*                TAF RECIEVED ANOTHER REQUEST FROM A USER PROGRAM
00249  M01S00246.baaml   +++|*                BEFORE THE PREVIOUS REQUEST WAS SATISFIED.  THIS
00250  M01S00247.baaml   +++|*                IS AN INTERNAL ERROR.
00251  M01S00248.baaml   +++|*
00252  M01S00249.baaml   +++|*
00253  M01S00250.baaml   +++|*         TAF SUBSYSTEM BUSY.
00254  M01S00251.baaml   +++|*                TAF WAS BUSY AND COULD NOT ACCEPT THE BATCH REQUEST.
00255  M01S00252.baaml   +++|*
00256  M01S00253.baaml   +++|*
00257  M01S00254.baaml   +++|*         TAF/CRM FUNCTION CODE NOT VALID.
00258  M01S00255.baaml   +++|*                *TAF/CRM* CANNOT PROCESS THE REQUEST ISSUED BECAUSE
00259  M01S00256.baaml   +++|*                IT IS AN UNRECOGNIZABLE FUNCTION CODE.  THIS
00260  M01S00257.baaml   +++|*                IS AN INTERNAL ERROR.
00261  M01S00258.baaml   +++|*
00262  M01S00259.baaml   +++|*
00263  M01S00260.baaml   +++|*         TAF USER NOT VALID FOR TAF ACCESS.
00264  M01S00261.baaml   +++|*                BATCH USER WAS NOT VALIDATED TO USE *TAF*.
00265  M01S00262.baaml   +++|*
00266  M01S00263.baaml   +++|*
Line S00264 Modification History
M01 (Added by) baaml
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00267  M02S00264.v23l617 ---|*         TAF USER NUMBER ACTIVE.
00268  M01S00003.v23l617 +++|*         TAF USER NAME ACTIVE.
00269  M01S00265.baaml   +++|*                SOME OTHER BATCH OR TERMINAL JOB IS CURRENTLY
Line S00266 Modification History
M01 (Added by) baaml
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00266.v23l617 ---|*                ACCESSING *TAF/CRM* UNDER THIS USER NUMBER.
00271  M01S00004.v23l617 +++|*                ACCESSING *TAF/CRM* UNDER THIS USER NAME.
00272  M01S00267.baaml   +++|*
00273  M01S00268.baaml   +++|*
00274  M01S00269.baaml   +++|*         TAF DATA NOT WITHIN UCP FL.
00275  M01S00270.baaml   +++|*                TAF CANNOT READ (WRITE) DATA FROM USER PROGRAM
00276  M01S00271.baaml   +++|*                BECAUSE THE ADDRESS SPECIFIED IS OUTSIDE THE
00277  M01S00272.baaml   +++|*                *UCP* (USER CONTROL POINT) *FL* (FIELD LENGTH).
00278  M01S00273.baaml   +++|*
00279  M01S00274.baaml   +++|*
00280  M01S00275.baaml   +++|*         TAF/CRM TAF STATUS ERROR XXXX IN FUNCTION YYYYYYY.
00281  M01S00276.baaml   +++|*                AN TAF-STATUS ERROR CODE NNN WAS RETURNED TO
00282  M01S00277.baaml   +++|*                THE PROGRAM FROM FUNCTION XXXXXXX.
00283  M01S00278.baaml   +++|*
00284  M01S00279.baaml   +++|*
00285  M01S00280.baaml   +++|*         TAF/CRM CRM STATUS ERROR XXXX IN FUNCTION YYYYYYY.
00286  M01S00281.baaml   +++|*                AN CRM-STATUS ERROR CODE NNN WAS RETURNED TO
00287  M01S00282.baaml   +++|*                THE PROGRAM FROM FUNCTION XXXXXXX.
00288  M01S00283.baaml   +++|*
00289  M01S00284.baaml   +++|*         TAF USER CONFLICT IN ACCESS TYPE.
00290  M01S00285.baaml   +++|*                BATCH JOB TRIED TO ACCESS AS INTERACTIVE.
00291  M01S00286.baaml   +++|*
00292  M01S00287.baaml   +++|*         TAF ERROR CODE NOT DEFINED.
00293  M01S00288.baaml   +++|*                *BAAML* COULD NOT FIND PROPER ERROR CODE.
00294  M01S00289.baaml   +++|*
00295  M01S00290.baaml   +++|*         TAF RECOVERY REQUEST ERROR.
00296  M01S00291.baaml   +++|*                TAF DETECTED AN ERROR IN THE RECOVERY REQUEST.
00297  M01S00292.baaml   +++|*
00298  M01S00293.baaml   +++|*         BATCH CONCURRENCY DISABLED.
00299  M01S00294.baaml   +++|*                TAF WAS NOT INITIALIZED WITH BATCH CONCURRENCY
00300  M01S00295.baaml   +++|*                ENABLED.
00301  M01S00296.baaml   +++|*
00302  M01S00297.baaml   +++|*         TAF/CRM DATA MANAGER NOT LOADED IN TAF.
00303  M01S00298.baaml   +++|*                THE CRM DATA MANAGER WAS NOT LOADED WHEN
00304  M01S00299.baaml   +++|*                TAF WAS INITIALIZED.
00305  M01S00300.baaml   +++|          SPACE  4,10
00306  M01S00301.baaml   +++|***       OPERATOR MESSAGES.
00307  M01S00302.baaml   +++|*
00308  M01S00303.baaml   +++|*         TAF IDLE (GO OR DROP).
00309  M01S00304.baaml   +++|*                ACCESS TO *TAF* DENIED BECAUSE IT IS IDLING DOWN.
00310  M01S00305.baaml   +++|*
00311  M01S00306.baaml   +++|*         TAF SUBSYSTEM NOT PRESENT (GO OR DROP).
00312  M01S00307.baaml   +++|*                THE *TAF* SUBSYSTEM WAS NOT PRESENT WHEN A BATCH
00313  M01S00308.baaml   +++|*                JOB TRIED TO CONNECT TO IT.
00314  M01S00309.baaml   +++|          SPACE  4,10
00315  M01S00310.baaml   +++|**        FCTM - FUNCTION CODE TABLE ERROR.
00316  M01S00311.baaml   +++|*
00317  M01S00312.baaml   +++|*         *FCTM* IS A MACRO THAT IS USED TO BUILD A TABLE
00318  M01S00313.baaml   +++|*         FOR PROCESSING THE RESPONSE FROM *TAF/CRM*.
00319  M01S00314.baaml   +++|*
00320  M01S00315.baaml   +++|*         ENTRY  FCTM  MSG,RUT,DSP,ERC
00321  M01S00316.baaml   +++|*                MSG - MESSAGE TO BE ISSUED.
00322  M01S00317.baaml   +++|*                RUT - ROUTINE TO DO THE PROCESSING.
00323  M01S00318.baaml   +++|*                DSP - DISPLAY MESSAGE TO PROPER DAYFILE.
00324  M01S00319.baaml   +++|*                ERC - ERROR CODE RESPONSE.
00325  M01S00320.baaml   +++|
00326  M01S00321.baaml   +++|
00327  M01S00322.baaml   +++| FCTM     MACRO  MSG,RUT,DSP,ERC
00328  M01S00323.baaml   +++|          VFD    18/MSG,18/RUT,6/DSP,18/ERC
00329  M01S00324.baaml   +++| FCTM     ENDM
00330  M01S00325.baaml   +++|          SPACE  4,10
00331  M01S00326.baaml   +++|***       COMMON DECKS.
00332  M01S00327.baaml   +++|
00333  M01S00328.baaml   +++|
00334  M01S00329.baaml   +++|*CALL     COMCMAC
00335  M01S00330.baaml   +++|*CALL     COMKTRN
00336  M01S00331.baaml   +++|*CALL     COMKTDM
00337  M01S00332.baaml   +++|*CALL     COMKIPR
00338  M01S00333.baaml   +++|          LIST   X
00339  M01S00334.baaml   +++|*CALL     COMKFLD
00340  M01S00335.baaml   +++|*CALL     COMKTSC
00341  M01S00336.baaml   +++| BEGNX    BSS    0
00342  M01S00337.baaml   +++|*CALL     COMKCRM
00343  M01S00338.baaml   +++|*CALL     COMKTER
00344  M01S00339.baaml   +++|          ORG    BEGNX       DO NOT RESERVE SPACE FOR *TAF/CRM* TABLES
00345  M01S00340.baaml   +++|          QUAL   SCP
00346  M01S00341.baaml   +++|*CALL     COMSSCP
00347  M01S00342.baaml   +++|          QUAL   SSD
00348  M01S00343.baaml   +++|*CALL     COMSSSD
00349  M01S00344.baaml   +++|          QUAL
00350  M01S00345.baaml   +++|          LIST   -X
00351  M01S00346.baaml   +++|          TITLE  SUB-FUNCTION FOR *CRM* CALLS.
00352  M01S00347.baaml   +++|          SPACE  4,10
00353  M01S00348.baaml   +++|****      ASSEMBLY CONSTANTS.
00354  M01S00349.baaml   +++|
00355  M01S00350.baaml   +++|
00356  M01S00351.baaml   +++| TCHL     EQU    10          NUMBER OF CHARACTERS IN A WORD
00357  M01S00352.baaml   +++|
00358  M01S00353.baaml   +++| TMKL     EQU    255         MAXIMUN LENGTH OF A KEY IN CHARACTERS
00359  M01S00354.baaml   +++|
00360  M01S00355.baaml   +++| TMKW     EQU    24          MAXIMIN LENGTH OF A KEY IN WORDS
00361  M01S00356.baaml   +++|
00362  M01S00357.baaml   +++| THRL     EQU    2           LENGTH OF PACKET HEADER
00363  M01S00358.baaml   +++|          EJECT
00364  M01S00359.baaml   +++| CLOSE    SPACE  4,15
00365  M01S00360.baaml   +++|**        CLOSE - CLOSE A FILE.
00366  M01S00361.baaml   +++|*
00367  M01S00362.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00368  M01S00363.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00369  M01S00364.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00370  M01S00365.baaml   +++|*
00371  M01S00366.baaml   +++|*         EXIT   *TAF* AND *CRM* STATUS RETURNED.
00372  M01S00367.baaml   +++|*
00373  M01S00368.baaml   +++|*         USES   X - 7.
00374  M01S00369.baaml   +++|*                B - 2.
00375  M01S00370.baaml   +++|*
00376  M01S00371.baaml   +++|*         CALLS  PRT, RQS, RTS.
00377  M01S00372.baaml   +++|
00378  M01S00373.baaml   +++|
00379  M01S00374.baaml   +++| CLOSE    SUBR               ENTRY/EXIT
00380  M01S00375.baaml   +++|          SB2    TPCLL       MAXIMUM NUMBER OF PARAMETERS
00381  M01S00376.baaml   +++|          SX7    TRCL        CLOSE SUB-FUNCTION CODE
00382  M01S00377.baaml   +++|          RJ     PRT         PRESET
00383  M01S00378.baaml   +++|          RJ     RQS         ISSUE *TAF/CRM* REQUEST
00384  M01S00379.baaml   +++|          RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
00385  M01S00380.baaml   +++|          EQ     CLOSEX      RETURN
00386  M01S00381.baaml   +++| DBCOMIT  SPACE  4,15
00387  M01S00382.baaml   +++|**        DBCOMIT - MARK END OF UPDATE SEQUENCE.
00388  M01S00383.baaml   +++|*
00389  M01S00384.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00390  M01S00385.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00391  M01S00386.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00392  M01S00387.baaml   +++|*
00393  M01S00388.baaml   +++|*         EXIT   FUNCTION COMPLETE.
00394  M01S00389.baaml   +++|*
00395  M01S00390.baaml   +++|*         USES   X - 1, 2, 7.
00396  M01S00391.baaml   +++|*                A - 1, 2, 7.
00397  M01S00392.baaml   +++|*                B - 2.
00398  M01S00393.baaml   +++|*
00399  M01S00394.baaml   +++|*         CALLS  PRT, DCF.
00400  M01S00395.baaml   +++|
00401  M01S00396.baaml   +++|
00402  M01S00397.baaml   +++| DBCOMIT  SUBR               ENTRY/EXIT
00403  M01S00398.baaml   +++|          SB2    TPDCL       MAXIMUM NUMBER OF PARAMETERS
00404  M01S00399.baaml   +++|          SX7    TRDC        SUB-FUNCTION CODE
00405  M01S00400.baaml   +++|          RJ     DCF         PROCESS REQUEST
00406  M01S00401.baaml   +++|          EQ     DBCOMITX    RETURN
00407  M01S00402.baaml   +++| DBEGIN   SPACE  4,15
00408  M01S00403.baaml   +++|**        DBEGIN - DESIGNATE A DATA BASE AS RECOVERABLE.
00409  M01S00404.baaml   +++|*
00410  M01S00405.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00411  M01S00406.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00412  M01S00407.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00413  M01S00408.baaml   +++|*
00414  M01S00409.baaml   +++|*         EXIT   FUNCTION COMPLETE AND STATUS RETURNED.
00415  M01S00410.baaml   +++|*
00416  M01S00411.baaml   +++|*         USES   X - 1, 2, 7.
00417  M01S00412.baaml   +++|*                A - 1, 2, 7.
00418  M01S00413.baaml   +++|*                B - 2.
00419  M01S00414.baaml   +++|*
00420  M01S00415.baaml   +++|*         CALLS  PRT, RQS, RTT.
00421  M01S00416.baaml   +++|
00422  M01S00417.baaml   +++|
00423  M01S00418.baaml   +++| DBEGIN   SUBR               ENTRY/EXIT
00424  M01S00419.baaml   +++|          SB2    TPDBL       MAXIMUM NUMBER OF PARAMETERS
00425  M01S00420.baaml   +++|          SX7    TRDB        SUB-FUNCTION CODE
00426  M01S00421.baaml   +++|          RJ     PRT         PRESET
00427  M01S00422.baaml   +++|          RJ     RQS         ISSUE *TAF/CRM* REQUEST
00428  M01S00423.baaml   +++|          SA2    TPKT+THRL+TPTS  TAF-STATUS FROM AAMI
00429  M01S00424.baaml   +++|          ZR     X2,DBN1     IF NO ERRORS
00430  M01S00425.baaml   +++|          BX1    X2
00431  M01S00426.baaml   +++|          RJ     RTT         ISSUE ERROR MESSAGE
00432  M01S00427.baaml   +++| DBN1     SX7    B6-TPDBL    NUMBER OF PARAMTERS
00433  M01S00428.baaml   +++|          NG     X7,DBEGINX  IF NOT ENOUGH PARAMTERS
00434  M01S00429.baaml   +++|          SA2    A1+TPTS     ADDRESS TO PUT TAF-STATUS
00435  M01S00430.baaml   +++|          SA1    TPKT+THRL+TPTS  TAF-STATUS
00436  M01S00431.baaml   +++|          BX7    X1
00437  M01S00432.baaml   +++|          SA7    X2          SET TAF-STATUS
00438  M01S00433.baaml   +++|          EQ     DBEGINX     RETURN
00439  M01S00434.baaml   +++| DBFREE   SPACE  4,15
00440  M01S00435.baaml   +++|**        DBFREE - ROLLBACK ALL UPDATES TO A FILE.
00441  M01S00436.baaml   +++|*
00442  M01S00437.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00443  M01S00438.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00444  M01S00439.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00445  M01S00440.baaml   +++|*
00446  M01S00441.baaml   +++|*         EXIT   FUNCTION COMPLETE AND STATUS RETURNED.
00447  M01S00442.baaml   +++|*
00448  M01S00443.baaml   +++|*         USES   X - 1, 2, 7.
00449  M01S00444.baaml   +++|*                A - 1, 2, 7.
00450  M01S00445.baaml   +++|*                B - 2.
00451  M01S00446.baaml   +++|*
00452  M01S00447.baaml   +++|*         CALLS  PRT, DCF.
00453  M01S00448.baaml   +++|
00454  M01S00449.baaml   +++|
00455  M01S00450.baaml   +++| DBFREE   SUBR               ENTRY/EXIT
00456  M01S00451.baaml   +++|          SB2    TPDFL       MAXIMUM NUMBER OF PARAMETERS
00457  M01S00452.baaml   +++|          SX7    TRDF        SUB-FUNCTION CODE
00458  M01S00453.baaml   +++|          RJ     DCF         PROCESS REQUEST
00459  M01S00454.baaml   +++|          EQ     DBFREEX     RETURN
00460  M01S00455.baaml   +++| DBSTAT   SPACE  4,15
00461  M01S00456.baaml   +++|**        DBSTAT - FIND LAST BEGIN/COMMIT SEQUENCE.
00462  M01S00457.baaml   +++|*
00463  M01S00458.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00464  M01S00459.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00465  M01S00460.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00466  M01S00461.baaml   +++|*
00467  M01S00462.baaml   +++|*         EXIT   FUNCTION COMPLETE AND STATUS RETURNED.
00468  M01S00463.baaml   +++|*
00469  M01S00464.baaml   +++|*         USES   X - 1, 2, 3, 7.
00470  M01S00465.baaml   +++|*                A - 2, 3, 7.
00471  M01S00466.baaml   +++|*                B - 2.
00472  M01S00467.baaml   +++|*
00473  M01S00468.baaml   +++|*         CALLS  PRT, RQS, RTT.
00474  M01S00469.baaml   +++|
00475  M01S00470.baaml   +++|
00476  M01S00471.baaml   +++| DBSTAT   SUBR               ENTRY/EXIT
00477  M01S00472.baaml   +++|          SB2    TPDSL       MAXIMUM NUMBER OF PARAMETERS
00478  M01S00473.baaml   +++|          SX7    TRDS        SUB-FUNCTION CODE
00479  M01S00474.baaml   +++|          RJ     PRT         PRESET
00480  M01S00475.baaml   +++|          SX7    B6-TPDSL    PARAMETERS
00481  M01S00476.baaml   +++|          NG     X7,DBS1     IF NOT ENOUGH PARAMETERS
00482  M01S00477.baaml   +++|          SA2    A1+TPPI     PREVIOUS DBCOMIT STATUS
00483  M01S00478.baaml   +++|          SA2    X2          VALUE
00484  M01S00479.baaml   +++|          BX7    X2
00485  M01S00480.baaml   +++|          SA7    TPKT+THRL+TPPI  PREVIOUS DBCOMIT STATUS
00486  M01S00481.baaml   +++| DBS1     RJ     RQS         ISSUE *TAF/CRM* REQUEST
00487  M01S00482.baaml   +++|          SA2    TPKT+THRL+TPTS  TAF-STATUS FROM AAMI
00488  M01S00483.baaml   +++|          ZR     X2,DBS2     IF NO ERRORS
00489  M01S00484.baaml   +++|          BX1    X2
00490  M01S00485.baaml   +++|          RJ     RTT         ISSUE ERROR MESSAGE
00491  M01S00486.baaml   +++| DBS2     SX7    B6-TPDSL    MINIMUM NUMBER OF PARAMETERS
00492  M01S00487.baaml   +++|          NG     X7,DBSTATX  IF NOT ENOUGH PARAMETERS
00493  M01S00488.baaml   +++|          SA3    TPKT+THRL+TPCI  DBSTAT FROM *TAF/CRM*
00494  M01S00489.baaml   +++|          SA2    A1+TPCI     DBSTAT ADDRESS
00495  M01S00490.baaml   +++|          BX7    X3
00496  M01S00491.baaml   +++|          SA7    X2
00497  M01S00492.baaml   +++|          SA3    TPKT+THRL+TPTS  TAF-STATUS
00498  M01S00493.baaml   +++|          SA2    A1+TPTS     TAF-STATUS ADDRESS
00499  M01S00494.baaml   +++|          BX7    X3
00500  M01S00495.baaml   +++|          SA7    X2
00501  M01S00496.baaml   +++|          SA3    TPKT+THRL+TPPI  DBSTAT FROM *TAF/CRM*
00502  M01S00497.baaml   +++|          SA2    A1+TPPI     DBSTAT ADDRESS
00503  M01S00498.baaml   +++|          BX7    X3
00504  M01S00499.baaml   +++|          SA7    X2
00505  M01S00500.baaml   +++|          EQ     DBSTATX     RETURN
00506  M01S00501.baaml   +++| DELETE   SPACE  4,15
00507  M01S00502.baaml   +++|**        DELETE - DELETE A RECORD.
00508  M01S00503.baaml   +++|*
00509  M01S00504.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00510  M01S00505.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00511  M01S00506.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00512  M01S00507.baaml   +++|*
00513  M01S00508.baaml   +++|*         EXIT   FUNCTION COMPLETED AND ADDRESS RETURNED.
00514  M01S00509.baaml   +++|*
00515  M01S00510.baaml   +++|*         USES   X - 7.
00516  M01S00511.baaml   +++|*                A - 7.
00517  M01S00512.baaml   +++|*                B - 2, 4.
00518  M01S00513.baaml   +++|*
00519  M01S00514.baaml   +++|*         CALLS  CKF, PRT, RQS, RTS.
00520  M01S00515.baaml   +++|
00521  M01S00516.baaml   +++|
00522  M01S00517.baaml   +++| DELETE   SUBR               ENTRY/EXIT
00523  M01S00518.baaml   +++|          SB2    TPDEL       MAXIMUM NUMBER OF PARAMETERS
00524  M01S00519.baaml   +++|          SX7    TRDE        SUB-FUNCTION CODE
00525  M01S00520.baaml   +++|          RJ     PRT         PRESET
00526  M01S00521.baaml   +++|          SX7    B6-TPDEL    MINIMUM NUMBER OF PARAMETERS
00527  M01S00522.baaml   +++|          NG     X7,DEL1     IF NOT ENOUGH PARAMETERS
00528  M01S00523.baaml   +++|          SB4    0           SET NO MAJOR KEY-LENGTH
00529  M01S00524.baaml   +++|          SB2    TPDK        INDEX TO KEY-AREA IN PATAMERER LIST
00530  M01S00525.baaml   +++|          RJ     CKF         CHECK AND TRANSFER KEY
00531  M01S00526.baaml   +++|          NZ     X7,DEL2     IF KEY-OFFSET ERROR
00532  M01S00527.baaml   +++| DEL1     RJ     RQS         ISSUE *TAF/CRM* REQUEST
00533  M01S00528.baaml   +++| DEL2     RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
00534  M01S00529.baaml   +++|          EQ     DELETEX     RETURN
00535  M01S00530.baaml   +++| FLOCK    SPACE  4,15
00536  M01S00531.baaml   +++|**        FLOCK - LOCK A FILE.
00537  M01S00532.baaml   +++|*
00538  M01S00533.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00539  M01S00534.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00540  M01S00535.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00541  M01S00536.baaml   +++|*
00542  M01S00537.baaml   +++|*         EXIT   FUNCTION COMPLETE AND STATUS RETURNED.
00543  M01S00538.baaml   +++|*
00544  M01S00539.baaml   +++|*         USES   X - 7.
00545  M01S00540.baaml   +++|*                B - 2.
00546  M01S00541.baaml   +++|*
00547  M01S00542.baaml   +++|*         CALLS  PRT, RQS, RTS.
00548  M01S00543.baaml   +++|
00549  M01S00544.baaml   +++|
00550  M01S00545.baaml   +++| FLOCK    SUBR               ENTRY/EXIT
00551  M01S00546.baaml   +++|          SB2    TPLFL       MAXIMUM NUMBER OF PARAMETERS
00552  M01S00547.baaml   +++|          SX7    TRLF        SUB-FUNCTION CODE
00553  M01S00548.baaml   +++|          RJ     PRT         PRESET
00554  M01S00549.baaml   +++|          RJ     RQS         ISSUE *TAF/CRM* REQUEST
00555  M01S00550.baaml   +++|          RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
00556  M01S00551.baaml   +++|          EQ     FLOCKX      RETURN
00557  M01S00552.baaml   +++| LOCK     SPACE  4,15
00558  M01S00553.baaml   +++|**        LOCK - LOCK RECORD.
00559  M01S00554.baaml   +++|*
00560  M01S00555.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00561  M01S00556.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00562  M01S00557.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00563  M01S00558.baaml   +++|*
00564  M01S00559.baaml   +++|*         EXIT   FUNCTION COMPLETE AND STATUS RETURNED.
00565  M01S00560.baaml   +++|*
00566  M01S00561.baaml   +++|*         USES   X - 1, 2, 7.
00567  M01S00562.baaml   +++|*                A - 1, 2, 7.
00568  M01S00563.baaml   +++|*                B - 2, 4.
00569  M01S00564.baaml   +++|*
00570  M01S00565.baaml   +++|*         CALLS  PRT, RQS, CKF, RTT.
00571  M01S00566.baaml   +++|
00572  M01S00567.baaml   +++|
00573  M01S00568.baaml   +++| LOCK     SUBR               ENTRY/EXIT
00574  M01S00569.baaml   +++|          SB2    TPLCL       MAXIMUM NUMBER OF PARAMETERS
00575  M01S00570.baaml   +++|          SX7    TRLC        SUB-FUNCTION CODE
00576  M01S00571.baaml   +++|          RJ     PRT         PRESET
00577  M01S00572.baaml   +++|          SX7    B6-TPLCL    MINIMUM NUMBER OF PARAMETERS
00578  M01S00573.baaml   +++|          NG     X7,LOK1     IF NOT ENOUGH PARAMETERS
00579  M01S00574.baaml   +++|          SB2    TPKL        INDEX FOR KEY-NAME TO PARAMETER LIST
00580  M01S00575.baaml   +++|          SB4    0           SET NO MAJOR-KEY-LENGTH
00581  M01S00576.baaml   +++|          RJ     CKF         CHECK AND TRANSFER KEY
00582  M01S00577.baaml   +++|          NZ     X7,LOK2     IF KEY-OFFSET ERRORS
00583  M01S00578.baaml   +++| LOK1     RJ     RQS         ISSUE *TAF/CRM* REQUEST
00584  M01S00579.baaml   +++| LOK2     SA2    TPKT+THRL+TPTS  TAF-STATUS FROM AAMI
00585  M01S00580.baaml   +++|          ZR     X2,LOK3     IF NO ERRORS
00586  M01S00581.baaml   +++|          BX1    X2
00587  M01S00582.baaml   +++|          RJ     RTT         ISSUE ERROR MESSAGE
00588  M01S00583.baaml   +++| LOK3     SX7    B6-TPPI     MINIMUM NUMBER OF PARAMETERS
00589  M01S00584.baaml   +++|          NG     X7,LOCKX    IF NOT ENOUGH PARAMETERS
00590  M01S00585.baaml   +++|          SA2    A1+TPTS     ADDRESS TO RETURN DBSTAT
00591  M01S00586.baaml   +++|          SA1    TPKT+THRL+TPTS  TAF-STATUS FROM DBSTAT
00592  M01S00587.baaml   +++|          BX7    X1
00593  M01S00588.baaml   +++|          SA7    X2          TAF-STATUS TO PROGRAM
00594  M01S00589.baaml   +++|          EQ     LOCKX       RETURN
00595  M01S00590.baaml   +++| OPEN     SPACE  4,15
00596  M01S00591.baaml   +++|**        OPEN - OPEN DATA BASE.
00597  M01S00592.baaml   +++|*
00598  M01S00593.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00599  M01S00594.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00600  M01S00595.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00601  M01S00596.baaml   +++|*
00602  M01S00597.baaml   +++|*         EXIT    FUNCTION COMPLETE AND STATUS RETURNED.
00603  M01S00598.baaml   +++|*
00604  M01S00599.baaml   +++|*         USES   X - 7.
00605  M01S00600.baaml   +++|*                B - 2.
00606  M01S00601.baaml   +++|*
00607  M01S00602.baaml   +++|*         CALLS  PRT, RQS, RTS.
00608  M01S00603.baaml   +++|
00609  M01S00604.baaml   +++|
00610  M01S00605.baaml   +++| OPEN     SUBR               ENTRY/EXIT
00611  M01S00606.baaml   +++|          SB2    TPOPL       MAXIMUM NUMBER OF PARAMETERS
00612  M01S00607.baaml   +++|          SX7    TROP        SUB-FUNCTION CODE
00613  M01S00608.baaml   +++|          RJ     PRT         PRESET
00614  M01S00609.baaml   +++|          RJ     RQS         ISSUES *TAF/CRM* REQUEST
00615  M01S00610.baaml   +++|          RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
00616  M01S00611.baaml   +++|          EQ     OPENX       RETURN
00617  M01S00612.baaml   +++| READ     SPACE  4,15
00618  M01S00613.baaml   +++|**        READ - READ BY KEY.
00619  M01S00614.baaml   +++|*
00620  M01S00615.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00621  M01S00616.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00622  M01S00617.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00623  M01S00618.baaml   +++|*
00624  M01S00619.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00625  M01S00620.baaml   +++|*
00626  M01S00621.baaml   +++|*         EXIT   READ FUNCTIN COMPLETE AND STATUS RETURNED.
00627  M01S00622.baaml   +++|*
00628  M01S00623.baaml   +++|*         USES   X - 7.
00629  M01S00624.baaml   +++|*                B - 2.
00630  M01S00625.baaml   +++|*
00631  M01S00626.baaml   +++|*         CALLS  RAD.
00632  M01S00627.baaml   +++|
00633  M01S00628.baaml   +++|
00634  M01S00629.baaml   +++| READ     SUBR               ENTRY/EXIT
00635  M01S00630.baaml   +++|          SB2    TPRDL       MAXIMIM NUMBER OF PARAMETERS
00636  M01S00631.baaml   +++|          SX7    TRRD        SUB-FUNCTION CODE
00637  M01S00632.baaml   +++|          RJ     RAD         PROCESS READ AND READL FUNCTIONS
00638  M01S00633.baaml   +++|          EQ     READX       RETURN
00639  M01S00634.baaml   +++| READL    SPACE  4,15
00640  M01S00635.baaml   +++|**        READL -  READ AND LOCK RECORD.
00641  M01S00636.baaml   +++|*
00642  M01S00637.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00643  M01S00638.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00644  M01S00639.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00645  M01S00640.baaml   +++|*
00646  M01S00641.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00647  M01S00642.baaml   +++|*
00648  M01S00643.baaml   +++|*         USES   X - 7.
00649  M01S00644.baaml   +++|*                B - 2.
00650  M01S00645.baaml   +++|*
00651  M01S00646.baaml   +++|*         CALLS   RAD.
00652  M01S00647.baaml   +++|
00653  M01S00648.baaml   +++|
00654  M01S00649.baaml   +++| READL    SUBR               ENTRY/EXIT
00655  M01S00650.baaml   +++|          SB2    TPRLL       MAXIMUM PARAMETERS FOR READ
00656  M01S00651.baaml   +++|          SX7    TRRL        SUB-FUNCTION CODE
00657  M01S00652.baaml   +++|          RJ     RAD         PROCESS READ AND READL FUNCTIONS
00658  M01S00653.baaml   +++|          EQ     READLX      RETURN
00659  M01S00654.baaml   +++| READM    SPACE  4,15
00660  M01S00655.baaml   +++|**        READM - READ BY MAJOR KEY.
00661  M01S00656.baaml   +++|*
00662  M01S00657.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00663  M01S00658.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00664  M01S00659.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00665  M01S00660.baaml   +++|*
00666  M01S00661.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00667  M01S00662.baaml   +++|*
00668  M01S00663.baaml   +++|*         USES   X - 0, 7.
00669  M01S00664.baaml   +++|*                B - 2.
00670  M01S00665.baaml   +++|*
00671  M01S00666.baaml   +++|*         CALLS RDM.
00672  M01S00667.baaml   +++|
00673  M01S00668.baaml   +++|
00674  M01S00669.baaml   +++| READM    SUBR               ENTRY/EXIT
00675  M01S00670.baaml   +++|          SB2    TPRML       MAXIMUM NUMBER OF PARAMETERS
00676  M01S00671.baaml   +++|          SX7    TRRM        SUB-FUNCTION CODE
00677  M01S00672.baaml   +++|          SX0    TRRM        SET SWITCH FOR CALL BY READM
00678  M01S00673.baaml   +++|          RJ     RDM         PROCESS READM FUNCTION
00679  M01S00674.baaml   +++|          EQ     READMX      RETURN
00680  M01S00675.baaml   +++| READNL   SPACE  4,15
00681  M01S00676.baaml   +++|**        READNL - READ NEXT RECORD WITH LOCK.
00682  M01S00677.baaml   +++|*
00683  M01S00678.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00684  M01S00679.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00685  M01S00680.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00686  M01S00681.baaml   +++|*
00687  M01S00682.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00688  M01S00683.baaml   +++|*
00689  M01S00684.baaml   +++|*         USES   X - 0, 7.
00690  M01S00685.baaml   +++|*                B - 2.
00691  M01S00686.baaml   +++|*
00692  M01S00687.baaml   +++|*         CALLS  RDM.
00693  M01S00688.baaml   +++|
00694  M01S00689.baaml   +++|
00695  M01S00690.baaml   +++| READNL   SUBR               ENTRY/EXIT
00696  M01S00691.baaml   +++|          SX7    TRRO        SUB-FUNCTION CODE
00697  M01S00692.baaml   +++|          SB2    TPROL       MAXIMUM NUMBER OF PARAMETERS
00698  M01S00693.baaml   +++|          SX0    0           INDICATE NOT CALLED BY READM
00699  M01S00694.baaml   +++|          RJ     RDM         PROCESS READNL FUNCTION
00700  M01S00695.baaml   +++|          EQ     READNLX     RETURN
00701  M01S00696.baaml   +++| READN    SPACE  4,15
00702  M01S00697.baaml   +++|**        READN - READ NEXT RECORD.
00703  M01S00698.baaml   +++|*
00704  M01S00699.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00705  M01S00700.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00706  M01S00701.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00707  M01S00702.baaml   +++|*
00708  M01S00703.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00709  M01S00704.baaml   +++|*
00710  M01S00705.baaml   +++|*         USES   X - 0, 7.
00711  M01S00706.baaml   +++|*                B - 2.
00712  M01S00707.baaml   +++|*
00713  M01S00708.baaml   +++|*         CALLS  RDM.
00714  M01S00709.baaml   +++|
00715  M01S00710.baaml   +++|
00716  M01S00711.baaml   +++| READN    SUBR               ENTRY/EXIT
00717  M01S00712.baaml   +++|          SB2    TPRNL       MAXIMUM NUMBER OF PARAMETERS
00718  M01S00713.baaml   +++|          SX7    TRRN        SUB-FUNCTION CODE
00719  M01S00714.baaml   +++|          SX0    0           INDICATE NOT CALLED BY READM
00720  M01S00715.baaml   +++|          RJ     RDM         PROCESS READN FUNCTION
00721  M01S00716.baaml   +++|          EQ     READNX      RETURN
00722  M01S00717.baaml   +++| REWIND   SPACE  4,15
00723  M01S00718.baaml   +++|**        REWIND - REWIND FILE.
00724  M01S00719.baaml   +++|*
00725  M01S00720.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00726  M01S00721.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00727  M01S00722.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00728  M01S00723.baaml   +++|*
00729  M01S00724.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00730  M01S00725.baaml   +++|*
00731  M01S00726.baaml   +++|*         USES   X - 7.
00732  M01S00727.baaml   +++|*                B - 2.
00733  M01S00728.baaml   +++|*
00734  M01S00729.baaml   +++|*         CALLS   PRT, RQS, RTS.
00735  M01S00730.baaml   +++|
00736  M01S00731.baaml   +++|
00737  M01S00732.baaml   +++| REWIND   SUBR               ENTRY/EXIT
00738  M01S00733.baaml   +++|          SB2    TPRPL       MAXIMUM NUMBER OF PARAMETERS
00739  M01S00734.baaml   +++|          SX7    TRRP        SUB-FUNCTION CODE
00740  M01S00735.baaml   +++|          RJ     PRT         PRESET
00741  M01S00736.baaml   +++|          RJ     RQS         ISSUE *TAF/CRM* REQUEST
00742  M01S00737.baaml   +++|          RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
00743  M01S00738.baaml   +++|          EQ     REWINDX     RETURN
00744  M01S00739.baaml   +++| REWRITE  SPACE  4,15
00745  M01S00740.baaml   +++|**        REWRITE - REWRITE RECORD.
00746  M01S00741.baaml   +++|*
00747  M01S00742.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00748  M01S00743.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00749  M01S00744.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00750  M01S00745.baaml   +++|*
00751  M01S00746.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00752  M01S00747.baaml   +++|*
00753  M01S00748.baaml   +++|*         USES   X - 7.
00754  M01S00749.baaml   +++|*                B - 2.
00755  M01S00750.baaml   +++|*
00756  M01S00751.baaml   +++|*         CALLS    WRR.
00757  M01S00752.baaml   +++|
00758  M01S00753.baaml   +++|
00759  M01S00754.baaml   +++| REWRITE  SUBR               ENTRY/EXIT
00760  M01S00755.baaml   +++|          SB2    TPRWL       MAXIMUM NUMBER OF PARAMETER
00761  M01S00756.baaml   +++|          SX7    TRRW        SUB-FUNCTION
00762  M01S00757.baaml   +++|          RJ     WRR         REWRITE RECORD
00763  M01S00758.baaml   +++|          EQ     REWRITEX    RETURN
00764  M01S00759.baaml   +++| SKIPBL   SPACE  4,15
00765  M01S00760.baaml   +++|**        SKIPBL - SKIP BACKWARD LOGICAL RECORDS.
00766  M01S00761.baaml   +++|*
00767  M01S00762.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00768  M01S00763.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00769  M01S00764.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00770  M01S00765.baaml   +++|*
00771  M01S00766.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00772  M01S00767.baaml   +++|*
00773  M01S00768.baaml   +++|*         USES   X - 7.
00774  M01S00769.baaml   +++|*                B - 2.
00775  M01S00770.baaml   +++|*
00776  M01S00771.baaml   +++|*         CALLS   SKP.
00777  M01S00772.baaml   +++|
00778  M01S00773.baaml   +++|
00779  M01S00774.baaml   +++| SKIPBL   SUBR               ENTRY/EXIT
00780  M01S00775.baaml   +++|          SB2    TPSBL       MAXIMUM NUMBER OF PARAMETERS
00781  M01S00776.baaml   +++|          SX7    TRSB        SUB-FUNCTION CODE
00782  M01S00777.baaml   +++|          RJ     SKP         PROCESS SKIP FUNCTION
00783  M01S00778.baaml   +++|          EQ     SKIPBLX     RETURN
00784  M01S00779.baaml   +++| SKIPFL   SPACE  4,15
00785  M01S00780.baaml   +++|**        SKIPFL - SKIP FORWARD LOGICAL RECORDS.
00786  M01S00781.baaml   +++|*
00787  M01S00782.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00788  M01S00783.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00789  M01S00784.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00790  M01S00785.baaml   +++|*
00791  M01S00786.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00792  M01S00787.baaml   +++|*
00793  M01S00788.baaml   +++|*         USES   X - 7.
00794  M01S00789.baaml   +++|*                B - 2.
00795  M01S00790.baaml   +++|*
00796  M01S00791.baaml   +++|*         CALLS   SKP.
00797  M01S00792.baaml   +++|
00798  M01S00793.baaml   +++|
00799  M01S00794.baaml   +++| SKIPFL   SUBR               ENTRY/EXIT
00800  M01S00795.baaml   +++|          SB2    TPSFL       MAXIMUM NUMBER OF PARAMETERS
00801  M01S00796.baaml   +++|          SX7    TRSF        SUB-FUNCTION FOR *TAF/CRM*
00802  M01S00797.baaml   +++|          RJ     SKP         PROCESS SKIP FUNCTION
00803  M01S00798.baaml   +++|          EQ     SKIPFLX     RETURN
00804  M01S00799.baaml   +++| START    SPACE  4,15
00805  M01S00800.baaml   +++|**        START - POSITION A FILE AT OR AFTER A GIVEN KEY.
00806  M01S00801.baaml   +++|*
00807  M01S00802.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00808  M01S00803.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00809  M01S00804.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00810  M01S00805.baaml   +++|*
00811  M01S00806.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00812  M01S00807.baaml   +++|*
00813  M01S00808.baaml   +++|*         USES   X - 1, 2, 3, 7.
00814  M01S00809.baaml   +++|*                A - 2, 3, 7.
00815  M01S00810.baaml   +++|*                B - 4.
00816  M01S00811.baaml   +++|*
00817  M01S00812.baaml   +++|*         CALLS   CKF, PRT, RQS, RTS.
00818  M01S00813.baaml   +++|
00819  M01S00814.baaml   +++|
00820  M01S00815.baaml   +++| START    SUBR               ENTRY/EXIT
00821  M01S00816.baaml   +++|          SB2    TPSTL       MAXIMUM NUMBER OF PARAMETERS
00822  M01S00817.baaml   +++|          SX7    TRST        SUB-FUNCTION CODE
00823  M01S00818.baaml   +++|          RJ     PRT         PRESET
00824  M01S00819.baaml   +++|          SX1    B6-TPSTF    REQUIRED NUMBER OF PPARAMETERS
00825  M01S00820.baaml   +++|          NG     X1,SRT2     IF NOT ENOUGH PARAMETERS
00826  M01S00821.baaml   +++|          SA2    A1+TPSR     RELATION-OPERATOR
00827  M01S00822.baaml   +++|          SB4    0
00828  M01S00823.baaml   +++|          SA2    X2          VALUE OF RELATION-OPERATOR
00829  M01S00824.baaml   +++|          BX7    X2
00830  M01S00825.baaml   +++|          SX1    B6-TPSM     PARAMETERS
00831  M01S00826.baaml   +++|          SA7    TPKT+THRL+TPSR  RELATION-OPERATOR TO PACKET
00832  M01S00827.baaml   +++|          NG     X1,SRT1     IF END OF PARAMETERS
00833  M01S00828.baaml   +++|          SA2    A1+TPSO     KEY-IDENTIFIER
00834  M01S00829.baaml   +++|          SA2    X2          VALUE
00835  M01S00830.baaml   +++|          BX7    X2
00836  M01S00831.baaml   +++|          SA7    TPKT+THRL+TPSO  KEY-IDENTIFIER TO PACKET
00837  M01S00832.baaml   +++|          ZR     X1,SRT1     IF END OF PARAMETERS
00838  M01S00833.baaml   +++|          SA2    A1+TPSM     MAJOR-KEY-INDEX
00839  M01S00834.baaml   +++|          SA2    X2
00840  M01S00835.baaml   +++|          BX7    X2
00841  M01S00836.baaml   +++|          SB4    X2+
00842  M01S00837.baaml   +++|          SA7    TPKT+THRL+TPSM  MAJOR-KEY-LENGTH TO PACKET
00843  M01S00838.baaml   +++| SRT1     SB2    TPSK        KEY-AREA INDEX
00844  M01S00839.baaml   +++|          RJ     CKF         TRANSFER KEY
00845  M01S00840.baaml   +++|          NZ     X7,SRT3     IF KEY-OFFSET ERROR
00846  M01S00841.baaml   +++| SRT2     RJ     RQS         ISSUE *TAF/CRM* REQUEST
00847  M01S00842.baaml   +++| SRT3     RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
00848  M01S00843.baaml   +++|          SX2    B6-TPSTF    REQUIRED PARAMETER
00849  M01S00844.baaml   +++|          NG     X2,STARTX   IF NOT ENOUGH PARAMETERS
00850  M01S00845.baaml   +++|          ZR     X2,STARTX   IF END OF PARAMETERS
00851  M01S00846.baaml   +++|          SA2    A1+TPSF     KEY-STATUS ADDRESS
00852  M01S00847.baaml   +++|          SA3    TPKT+THRL+TPSF  KEY-STATUS
00853  M01S00848.baaml   +++|          BX7    X3
00854  M01S00849.baaml   +++|          SA7    X2
00855  M01S00850.baaml   +++|          EQ     STARTX      RETURN
00856  M01S00851.baaml   +++| UNFLOCK  SPACE  4,15
00857  M01S00852.baaml   +++|**        UNFLOCK - UNLOCK FILE.
00858  M01S00853.baaml   +++|*
00859  M01S00854.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00860  M01S00855.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00861  M01S00856.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00862  M01S00857.baaml   +++|*
00863  M01S00858.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00864  M01S00859.baaml   +++|*
00865  M01S00860.baaml   +++|*         USES   X - 7.
00866  M01S00861.baaml   +++|*                B - 2.
00867  M01S00862.baaml   +++|*
00868  M01S00863.baaml   +++|*         CALLS   PRT, RQS, RTS.
00869  M01S00864.baaml   +++|
00870  M01S00865.baaml   +++|
00871  M01S00866.baaml   +++| UNFLOCK  SUBR               ENTRY/EXIT
00872  M01S00867.baaml   +++|          SB2    TPUFL       MAXIMUM NUMBER OF PARAMETERS
00873  M01S00868.baaml   +++|          SX7    TRUF        SUB-FUNCTION CODE
00874  M01S00869.baaml   +++|          RJ     PRT         PRESET
00875  M01S00870.baaml   +++|          RJ     RQS         ISSUE *TAF/CRM* REQUEST
00876  M01S00871.baaml   +++|          RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
00877  M01S00872.baaml   +++|          EQ     UNFLOCKX    RETURN
00878  M01S00873.baaml   +++| UNLOCK   SPACE  4,15
00879  M01S00874.baaml   +++|**        UNLOCK - UNLOCK RECORD.
00880  M01S00875.baaml   +++|*
00881  M01S00876.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00882  M01S00877.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00883  M01S00878.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00884  M01S00879.baaml   +++|*
00885  M01S00880.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00886  M01S00881.baaml   +++|*
00887  M01S00882.baaml   +++|*         USES   X - 1, 2, 7.
00888  M01S00883.baaml   +++|*                A - 1, 2, 7.
00889  M01S00884.baaml   +++|*                B - 2, 4.
00890  M01S00885.baaml   +++|*
00891  M01S00886.baaml   +++|*         CALLS  PRT, CKF, RQS, RTT.
00892  M01S00887.baaml   +++|
00893  M01S00888.baaml   +++| UNLOCK   SUBR               ENTRY/EXIT
00894  M01S00889.baaml   +++|          SB2    TPUCL       MAXIMUM NUMBER OF PARAMETERS
00895  M01S00890.baaml   +++|          SX7    TRUC        SUB-FUNCTION CODE
00896  M01S00891.baaml   +++|          RJ     PRT         PRESET
00897  M01S00892.baaml   +++|          SX7    B6-TPUCL    CHECK NUMBER OF PARAMETERS
00898  M01S00893.baaml   +++|          NG     X7,UNL1     IF NOT ENOUGH PARAMETERS
00899  M01S00894.baaml   +++|          SB2    TPKL        KEY POSITION
00900  M01S00895.baaml   +++|          SB4    0           SET NO MAJOR-KEY-LENGTH
00901  M01S00896.baaml   +++|          RJ     CKF         TRANSFER KEY
00902  M01S00897.baaml   +++|          NZ     X7,UNL2     IF KEY-OFFSET ERRORS
00903  M01S00898.baaml   +++| UNL1     RJ     RQS         ISSUE *TAF/CRM* REQUEST
00904  M01S00899.baaml   +++| UNL2     SA2    TPKT+THRL+TPTS  TAF-STATUS FROM AAMI
00905  M01S00900.baaml   +++|          ZR     X2,UNL3     IF NO ERRORS
00906  M01S00901.baaml   +++|          BX1    X2
00907  M01S00902.baaml   +++|          RJ     RTT         ISSUE ERROR MESSAGE
00908  M01S00903.baaml   +++| UNL3     SX7    B6-TPPI     MINIMUM NUMBER OF PARAMETERS
00909  M01S00904.baaml   +++|          NG     X7,UNLOCKX  IF NOT ENOUGH PARAMETERS
00910  M01S00905.baaml   +++|          SA2    A1+TPTS     ADDRESS TO RETURN DBSTAT
00911  M01S00906.baaml   +++|          SA1    TPKT+THRL+TPTS  TAF-STATUS FROM DBSTAT
00912  M01S00907.baaml   +++|          BX7    X1
00913  M01S00908.baaml   +++|          SA7    X2          TAF-STATUS TO PROGRAM
00914  M01S00909.baaml   +++|          EQ     UNLOCKX     RETURN
00915  M01S00910.baaml   +++| WRITE    SPACE  4,15
00916  M01S00911.baaml   +++|**        WRITE - WRITE RECORD.
00917  M01S00912.baaml   +++|*
00918  M01S00913.baaml   +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
00919  M01S00914.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
00920  M01S00915.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
00921  M01S00916.baaml   +++|*
00922  M01S00917.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
00923  M01S00918.baaml   +++|*
00924  M01S00919.baaml   +++|*         USES   X - 7.
00925  M01S00920.baaml   +++|*                B - 2.
00926  M01S00921.baaml   +++|*
00927  M01S00922.baaml   +++|*         CALLS    WRR.
00928  M01S00923.baaml   +++|
00929  M01S00924.baaml   +++|
00930  M01S00925.baaml   +++| WRITE    SUBR               ENTRY/EXIT
00931  M01S00926.baaml   +++|          SB2    TPWRL       MAXIMUM NUMBER OF PARAMETERS
00932  M01S00927.baaml   +++|          SX7    TRWR        SUB-FUNCTION CODE
00933  M01S00928.baaml   +++|          RJ     WRR         WRITE A RECORD
00934  M01S00929.baaml   +++|          EQ     WRITEX      RETURN
00935  M01S00930.baaml   +++|          TITLE  UTILITIES FOR *CRM* FUNCTIONS.
00936  M01S00931.baaml   +++| CKF      SPACE  4,20
00937  M01S00932.baaml   +++|**        CKF - CHECK KEY FIELD LENGTH.
00938  M01S00933.baaml   +++|*
00939  M01S00934.baaml   +++|*         ENTRY  (TSA1) = POINTER TO PARAMETER LIST.
00940  M01S00935.baaml   +++|*                (A1) = ADDRESS OF PARAMETER LIST.
00941  M01S00936.baaml   +++|*                (B2) = INDEX OF PARAMETER LIST FOR KEY-NAME.
00942  M01S00937.baaml   +++|*                (B3) = INDEX OF PACKET FOR KEY-NAME ADDRESS.
00943  M01S00938.baaml   +++|*                (B4) = MAJOR-KEY-LENGTH IF NON-ZERO.
00944  M01S00939.baaml   +++|*
00945  M01S00940.baaml   +++|*         EXIT   (TPKT+15) = KEY.
00946  M01S00941.baaml   +++|*                (X7) - ZERO, NO ERRORS.
00947  M01S00942.baaml   +++|*                (X7) - NON-ZERO, IF ERROR IN KEY-OFFSET.
00948  M01S00943.baaml   +++|*
00949  M01S00944.baaml   +++|*         USES   X - 1, 2, 3, 6, 7.
00950  M01S00945.baaml   +++|*                A - 2, 3, 6, 7.
00951  M01S00946.baaml   +++|*                B - 2, 4.
00952  M01S00947.baaml   +++|*
00953  M01S00948.baaml   +++|*         MACRO  GETFLC.
00954  M01S00949.baaml   +++|*
00955  M01S00950.baaml   +++|*         CALL   MST.
00956  M01S00951.baaml   +++|
00957  M01S00952.baaml   +++|
00958  M01S00953.baaml   +++| CKF      SUBR               ENTRY/EXIT
00959  M01S00954.baaml   +++|          SA3    A1+B2       KEY-NAME ADDRESS
00960  M01S00955.baaml   +++|          SA2    A3+B1       KEY-OFFSET
00961  M01S00956.baaml   +++|          SA2    X2          VALUE OF KEY-OFFSET
00962  M01S00957.baaml   +++|          SX3    X3          ADDRESS ONLY
00963  M01S00958.baaml   +++|          ZR     X2,CKF3     IF KEY-OFFSET ZERO
00964  M01S00959.baaml   +++|          NG     X2,CKF3     IF KEY-OFFSET IS NEGATIVE
00965  M01S00960.baaml   +++|          SX1    TCHL        NUMBER OF CHARACTERS IN A WORD
00966  M01S00961.baaml   +++|          BX7    X1
00967  M01S00962.baaml   +++|          BX6    X2
00968  M01S00963.baaml   +++|          IX6    X6/X7       NUMBER OF WORDS TO KEY-NAME
00969  M01S00964.baaml   +++|          IX7    X6+X3       ADDRESS PLUS NUMBER OF WORDS
00970  M01S00965.baaml   +++|          IX1    X1*X6       NUMBER OF CHARACTERS TO KEY-OFFSET
00971  M01S00966.baaml   +++|          IX2    X2-X1       KEY-OFFSET
00972  M01S00967.baaml   +++|          SX6    B1
00973  M01S00968.baaml   +++|          SA7    TPKT+THRL+B2  KEY-NAME ADDRESS
00974  M01S00969.baaml   +++|          SA6    A7+B1       SET KEY-OFF TO ONE FOR *TAF/CRM*
00975  M01S00970.baaml   +++|          SB2    X2          KEY-OFFSET FOR MOVE
00976  M01S00971.baaml   +++|          SX3    X7+         KEY-NAME ADDRESS FOR MOVE
00977  M01S00972.baaml   +++|          GETFLC CKFA        FIELD LENGTH OF JOB
00978  M01S00973.baaml   +++|          SA2    CKFA        MEMORY VALUE
00979  M01S00974.baaml   +++|          MX1    12          MASK FOR FIELD CENTRAL MEMORY
00980  M01S00975.baaml   +++|          BX2    X2*X1
00981  M01S00976.baaml   +++|          SX7    X7+TMKW     ADDRESS OF KEY-NAME PLUS KEY
00982  M01S00977.baaml   +++|          LX2    17-59       POSITION FIELD LENGTH
00983  M01S00978.baaml   +++|          IX7    X7-X2       SUBTRACT KEY-NAME PLUS KEY SIZE
00984  M01S00979.baaml   +++|          NE     B4,CKF1     IF NOT MAJOR-KEY-LENGTH
00985  M01S00980.baaml   +++|          SB4    TMKL        MAXIMUM LENGTH OF KEY
00986  M01S00981.baaml   +++| CKF1     NG     X7,CKF2     IF KEY-NAME ADDRESS NOT TO LARGE
00987  M01S00982.baaml   +++|          SB4    TCHL        REDUCE KEY MOVE TO ONE WORD
00988  M01S00983.baaml   +++| CKF2     SB5    TKEY        ADDRESS TO TRANSFER KEY
00989  M01S00984.baaml   +++|          SA2    X3          KEY-NAME TRANSFER
00990  M01S00985.baaml   +++|          SB2    B2-B1
00991  M01S00986.baaml   +++|          RJ     MST         MOVE KEY INTO PACKET
00992  M01S00987.baaml   +++|          BX7    X7-X7       SET NO ERRORS
00993  M01S00988.baaml   +++|          EQ     CKFX        RETURN
00994  M01S00989.baaml   +++|
00995  M01S00990.baaml   +++| CKF3     SX7    TERQ        INVALID KEY-OFFSET
00996  M01S00991.baaml   +++|          SA7    TPKT+THRL+TPCS  *TAF/CRM* ERROR STATUS SET
00997  M01S00992.baaml   +++|          EQ     CKFX        RETURN
00998  M01S00993.baaml   +++|
00999  M01S00994.baaml   +++|
01000  M01S00995.baaml   +++| CKFA     BSSZ   1           FIELD LENGTH OF PROGRAM
01001  M01S00996.baaml   +++| CWS      SPACE  4,15
01002  M01S00997.baaml   +++|**        CWS - CALCULATE *WSA* LENGTH.
01003  M01S00998.baaml   +++|*
01004  M01S00999.baaml   +++|*         ENTRY  (A1) = PARAMETER LIST ADDRESS.
01005  M01S01000.baaml   +++|*
01006  M01S01001.baaml   +++|*         EXIT   (LWRA) = *LWA* OF LAST *WSA*.
01007  M01S01002.baaml   +++|*                (LWRB) = MASK FOR LAST *WSA*.
01008  M01S01003.baaml   +++|*                (LWRC) = CONTENTS OF *LWA* OF *WSA*.
01009  M01S01004.baaml   +++|*
01010  M01S01005.baaml   +++|*         USES   X - 2, 3, 5, 6, 7.
01011  M01S01006.baaml   +++|*                A - 2, 3, 6, 7.
01012  M01S01007.baaml   +++|*                B - 4.
01013  M01S01008.baaml   +++|
01014  M01S01009.baaml   +++|
01015  M01S01010.baaml   +++| CWS      SUBR               ENTRY/EXIT
01016  M01S01011.baaml   +++|          SX7    0
01017  M01S01012.baaml   +++|          SX5    TCHL        NUMBER OF CHARACTER IN A WORD
01018  M01S01013.baaml   +++|          SA3    A1+TPWL     WSA-LENGTH ADDRESS
01019  M01S01014.baaml   +++|          SA7    LWRB        VALUE OF MASK MUST BE ZERO
01020  M01S01015.baaml   +++|          SA2    A3-B1       WSA-NAME ADDRESS
01021  M01S01016.baaml   +++|          SA3    X3          VALUE OF LENGTH
01022  M01S01017.baaml   +++|          SX6    X2
01023  M01S01018.baaml   +++|          BX7    X3          VALUE OF WSA-LENGTH
01024  M01S01019.baaml   +++|          SA6    TPKT+THRL+TPWS  ADDRESS OF WSA INTO PACKET
01025  M01S01020.baaml   +++|          PX5    X5          PACK CHARACTERS IN WORD
01026  M01S01021.baaml   +++|          SA7    A6+B1       LENGTH OF WSA INTO PACKET
01027  M01S01022.baaml   +++|          PX7    X7          PACK WSA-LENGTH
01028  M01S01023.baaml   +++|          NX5    X5          NORMALIZE VALUE
01029  M01S01024.baaml   +++|          FX7    X7/X5       DIVIDE LENGTH BY 10
01030  M01S01025.baaml   +++|          UX7    B4,X7       UNPACK LENGTH IN WORDS
01031  M01S01026.baaml   +++|          SX5    TCHL        RESTORE CHARACTERS IN WORD
01032  M01S01027.baaml   +++|          LX7    X7,B4       ADJUST LENGTH IN WORDS
01033  M01S01028.baaml   +++|          SB4    X7          ADJUST WORD COUNT
01034  M01S01029.baaml   +++|          SA2    X6+B4       ADDRESS AND VALUE OF LAST WORD
01035  M01S01030.baaml   +++|          IX6    X5*X7       NUMBER OF CHARACTERS IN LAST WORD
01036  M01S01031.baaml   +++|          BX7    X2          VALUE OF LAST WORD
01037  M01S01032.baaml   +++|          IX5    X3-X6       NUMBER OF CHARACTERS IN LAST WORD
01038  M01S01033.baaml   +++|          ZR     X5,CWSX     IF END ON WORD BOUNDRY
01039  M01S01034.baaml   +++|          SX6    A2+         ADDRESS OF LAST WORD
01040  M01S01035.baaml   +++|          SA7    LWRC        VALUES OF LAST WORD
01041  M01S01036.baaml   +++|          SA6    LWRA        ADDRESS OF LAST WORD
01042  M01S01037.baaml   +++|          LX7    X5,B1       THE NEXT LINES OF CODE WILL MULTIPLY BY 6
01043  M01S01038.baaml   +++|          MX2    1
01044  M01S01039.baaml   +++|
01045  M01S01040.baaml   +++|*         THE NEXT LINES OF CODE WILL MULITIPLY THE NUMBER IN
01046  M01S01041.baaml   +++|*         X5 BY 6.  THE VALUES IN X5 WILL BE 1 THROUGH 9 WILL
01047  M01S01042.baaml   +++|*         RESULT IN VALUSE OF 6 THROUGH 56 RESPECTIVELY.
01048  M01S01043.baaml   +++|
01049  M01S01044.baaml   +++|          LX5    X7,B1
01050  M01S01045.baaml   +++|          SB4    X5-1
01051  M01S01046.baaml   +++|          SB4    B4+X7
01052  M01S01047.baaml   +++|          AX7    X2,B4       FORM MASK
01053  M01S01048.baaml   +++|          BX7    -X7
01054  M01S01049.baaml   +++|          SA7    LWRB        SAVE MASK
01055  M01S01050.baaml   +++|          EQ     CWSX        RETURN
01056  M01S01051.baaml   +++| DCF      SPACE  4,15
01057  M01S01052.baaml   +++|**        DCF - DBCOMIT AND DBFREE PROCESSOR.
01058  M01S01053.baaml   +++|*
01059  M01S01054.baaml   +++|*         ENTRY  (B2) - NUMBER FOR PARAMETERS.
01060  M01S01055.baaml   +++|*                (X7) - VALUE OF SUBFUNCTION.
01061  M01S01056.baaml   +++|*
01062  M01S01057.baaml   +++|*         EXIT   FUNCTION PROCESSED AND STATUS RETURNED.
01063  M01S01058.baaml   +++|*
01064  M01S01059.baaml   +++|*         USES   X - 1, 2, 7.
01065  M01S01060.baaml   +++|*                A - 2, 7.
01066  M01S01061.baaml   +++|*
01067  M01S01062.baaml   +++|*         CALLS  PRT, RTT.
01068  M01S01063.baaml   +++|
01069  M01S01064.baaml   +++|
01070  M01S01065.baaml   +++| DCF      SUBR               ENTRY/EXIT
01071  M01S01066.baaml   +++|          RJ     PRT         PRESET
01072  M01S01067.baaml   +++|          SX7    0           CLEAR OUT LFN IN PACKET AREA
01073  M01S01068.baaml   +++|          SA7    TPKT+THRL+TPSX  CLEARED
01074  M01S01069.baaml   +++|          RJ     RQS         ISSUE *TAF/CRM* REQUEST
01075  M01S01070.baaml   +++|          SA2    TPKT+THRL+TPSX  TAF-STATUS FROM AAMI
01076  M01S01071.baaml   +++|          ZR     X2,DCF1     IF NO ERRORS
01077  M01S01072.baaml   +++|          BX1    X2
01078  M01S01073.baaml   +++|          RJ     RTT         ISSUE ERROR MESSAGE
01079  M01S01074.baaml   +++| DCF1     SX7    B6-TPDCL    NUMBER OF PARAMETERS
01080  M01S01075.baaml   +++|          NG     X7,DCFX     IF NOT ENOUGH PARAMETERS
01081  M01S01076.baaml   +++|          SA2    TPKT+THRL+TPSX  TAF-STATUS
01082  M01S01077.baaml   +++|          BX7    X2
01083  M01S01078.baaml   +++|          SA7    X1          SET TAF-STATUS
01084  M01S01079.baaml   +++|          EQ     DCFX        RETURN
01085  M01S01080.baaml   +++| LWR      SPACE  4,15
01086  M01S01081.baaml   +++|**        LWR - LAST WORD AND RECORD LENGTH RESTORED.
01087  M01S01082.baaml   +++|*
01088  M01S01083.baaml   +++|*         ENTRY  (LWRB) = MASK FOR LAST WORD.
01089  M01S01084.baaml   +++|*                (LWRA) = ADDRESS OF LAST WORD.
01090  M01S01085.baaml   +++|*                (LWRC) = VALUE OF LAST WORD.
01091  M01S01086.baaml   +++|*                (TPKT+7) = RECORD LENGTH OF READ.
01092  M01S01087.baaml   +++|*                (A1) = POINTER TO PARAMETER LIST.
01093  M01S01088.baaml   +++|*
01094  M01S01089.baaml   +++|*         (B2) = LENGTH TO PACKET HEADER
01095  M01S01090.baaml   +++|*
01096  M01S01091.baaml   +++|*         EXIT   RECORD LENGTH AND LAST WORD OF RECORD AREA
01097  M01S01092.baaml   +++|*                RESTORED.
01098  M01S01093.baaml   +++|*
01099  M01S01094.baaml   +++|*         USES   X - 2, 3, 4, 6.
01100  M01S01095.baaml   +++|*                A - 2, 3, 4, 6.
01101  M01S01096.baaml   +++|*
01102  M01S01097.baaml   +++|*         NOTE   (LWRA), (LWRB), AND (LWRC) ARE CONSECUTIVE
01103  M01S01098.baaml   +++|*                LOCATIONS.
01104  M01S01099.baaml   +++|
01105  M01S01100.baaml   +++|
01106  M01S01101.baaml   +++| LWR      SUBR               ENTRY/EXIT
01107  M01S01102.baaml   +++|          SA3    TPKT+THRL+TPRL  NUMBER OF CHARACTERS FROM PACKET
01108  M01S01103.baaml   +++|          SA2    A1+TPRL     RECORD LENGTH
01109  M01S01104.baaml   +++|          ZR     X3,LWRX     IF NO RECORD RETURNED
01110  M01S01105.baaml   +++|          BX6    X3
01111  M01S01106.baaml   +++|          SA6    X2          LENGTH OF RECORD READ
01112  M01S01107.baaml   +++|          SA3    LWRA        ADDRESS OF LAST WORD OF RECORD
01113  M01S01108.baaml   +++|          SA2    A3+B1       MASK FOR LAST WORD IN RECORD
01114  M01S01109.baaml   +++|          SA4    A2+B1       VALUE OF LAST WORD
01115  M01S01110.baaml   +++|          SA3    X3+
01116  M01S01111.baaml   +++|          ZR     X2,LWRX     IF END ON WORD BOUNDRY
01117  M01S01112.baaml   +++|          BX4    X2*X4       LAST WORD
01118  M01S01113.baaml   +++|          BX3    -X2*X3      CHARACTERS TO TRANSFER
01119  M01S01114.baaml   +++|          BX6    X3+X4       VALUE OF OLD LAST WORD PLUS NEW
01120  M01S01115.baaml   +++|          SA6    A3          RESTORE LAST WORD OF RECORD
01121  M01S01116.baaml   +++|          EQ     LWRX        RETURN
01122  M01S01117.baaml   +++|
01123  M01S01118.baaml   +++|
01124  M01S01119.baaml   +++| LWRA     BSSZ   1           ADDRESS OF LAST WORD OF WORKING STORAGE
01125  M01S01120.baaml   +++| LWRB     BSSZ   1           MASK OF LAST WORD IN WORD STORAGE
01126  M01S01121.baaml   +++| LWRC     BSSZ   1           VALUE OF LAST WORD IN RECORD
01127  M01S01122.baaml   +++| MST      SPACE  4,15
01128  M01S01123.baaml   +++|**        MST -  TO MOVE THE KEY TO PACKET AREA.
01129  M01S01124.baaml   +++|*
01130  M01S01125.baaml   +++|*         ENTRY  (B2) = CHARACTER POSITION OF GOOD DATA.
01131  M01S01126.baaml   +++|*                (B5) = ADDRESS TO RECIEVE TEXT.
01132  M01S01127.baaml   +++|*                (A2) = ADDRESS OF DATA STRING TO TRANSFER.
01133  M01S01128.baaml   +++|*                (X2) = FIRST WORD OF DATA.
01134  M01S01129.baaml   +++|*                (B4) = TOTAL NUMBER OF CHARACTERS TO TRANSFER.
01135  M01S01130.baaml   +++|*
01136  M01S01131.baaml   +++|*         EXIT   DATA TRANSFERED COMPLETE.
01137  M01S01132.baaml   +++|*                (B6) - RESTORED TO NUMBER OF PARAMETERS.
01138  M01S01133.baaml   +++|*
01139  M01S01134.baaml   +++|*         USES   X - 1, 2, 3, 6, 7.
01140  M01S01135.baaml   +++|*                A - 2, 6.
01141  M01S01136.baaml   +++|*                B - 2, 3, 4, 5, 6.
01142  M01S01137.baaml   +++|
01143  M01S01138.baaml   +++|
01144  M01S01139.baaml   +++| MST2     MX1    1
01145  M01S01140.baaml   +++|          LX7    X1,B4       SHIFT TO FORM MASK
01146  M01S01141.baaml   +++|          LX1    X7,B1
01147  M01S01142.baaml   +++|          BX1    X1*X7
01148  M01S01143.baaml   +++|          BX6    X1*X6
01149  M01S01144.baaml   +++|          SA2    TNPR        NUMBER OF PARAMETERS IN CALL
01150  M01S01145.baaml   +++|          SA6    B5
01151  M01S01146.baaml   +++|          SB6    X2+         RESTORE NUMBER OF PARAMETERS
01152  M01S01147.baaml   +++|
01153  M01S01148.baaml   +++| MST      SUBR               ENTRY/EXIT
01154  M01S01149.baaml   +++|          SB3    B2+B2       CHANGE CHARACTER COUNT TO BIT COUNT
01155  M01S01150.baaml   +++|          SB2    B3+B3
01156  M01S01151.baaml   +++|          SB2    B2+B3
01157  M01S01152.baaml   +++|          SB3    B4+B4       CHANGE NUMBER OF CHARACTERS
01158  M01S01153.baaml   +++|          SB4    B3+B3
01159  M01S01154.baaml   +++|          SB4    B4+B3
01160  M01S01155.baaml   +++|          SB4    -B4         CHANGE TO MINUS BIT COUNT
01161  M01S01156.baaml   +++|          SB3    B2-60
01162  M01S01157.baaml   +++|          MX1    1
01163  M01S01158.baaml   +++|          LX7    X1,B3
01164  M01S01159.baaml   +++|          LX1    X7,B1
01165  M01S01160.baaml   +++|          BX1    X1*X7
01166  M01S01161.baaml   +++|          LX2    B2          POSITION STRING BEGINNING
01167  M01S01162.baaml   +++|          BX3    X1*X2
01168  M01S01163.baaml   +++|          BX6    X3
01169  M01S01164.baaml   +++|          SB6    B3-B2
01170  M01S01165.baaml   +++|          LT     B3,B4,MST2  IF LAST WORD
01171  M01S01166.baaml   +++| MST1     SA2    A2+B1
01172  M01S01167.baaml   +++|          LX2    B2
01173  M01S01168.baaml   +++|          BX6    -X1*X2
01174  M01S01169.baaml   +++|          BX6    X3+X6
01175  M01S01170.baaml   +++|          BX3    X1*X2
01176  M01S01171.baaml   +++|          GE     B4,B6,MST2  IF LAST WORD
01177  M01S01172.baaml   +++|          SB4    B4-B6
01178  M01S01173.baaml   +++|          SA6    B5          STORE FIRST/NEXT WORD
01179  M01S01174.baaml   +++|          SB5    B5+B1
01180  M01S01175.baaml   +++|          EQ     MST1        CONTINUE MOVE
01181  M01S01176.baaml   +++| MTS      SPACE  4,15
01182  M01S01177.baaml   +++|**        MTS -  TO MOVE TEXT TO STRING.
01183  M01S01178.baaml   +++|*
01184  M01S01179.baaml   +++|*         ENTRY  (A1) = ADDRESS TO TRANSMIT DATA.
01185  M01S01180.baaml   +++|*                (X1) = FIRST DATA TO TRANSMIT.
01186  M01S01181.baaml   +++|*                (A2) = ADDRESS TO RECIEVE DATA.
01187  M01S01182.baaml   +++|*                (B2) = CHARACTER POSITION.
01188  M01S01183.baaml   +++|*                (B4) = NUMBER OF CHARACTERS TO TRANSMIT.
01189  M01S01184.baaml   +++|*
01190  M01S01185.baaml   +++|*         EXIT   DATA TRANSFERED.
01191  M01S01186.baaml   +++|*
01192  M01S01187.baaml   +++|*         USES   X - 0, 2, 3, 4, 6, 7.
01193  M01S01188.baaml   +++|*                A - 2, 6.
01194  M01S01189.baaml   +++|*                B - 2, 3, 4.
01195  M01S01190.baaml   +++|
01196  M01S01191.baaml   +++|
01197  M01S01192.baaml   +++| MTS2     SA2    A6+1        FETCH RESERVED FIELD
01198  M01S01193.baaml   +++| MTS3     SB2    B4-60       REMAINING BITS TO TRANSFER
01199  M01S01194.baaml   +++|          MX0    1
01200  M01S01195.baaml   +++|          SB2    -B2
01201  M01S01196.baaml   +++|          AX7    X0,B2
01202  M01S01197.baaml   +++|          LX0    X7,B1
01203  M01S01198.baaml   +++|          BX0    X0*X7
01204  M01S01199.baaml   +++|          BX6    X0*X6       MERGE NEW RESERVED FIELD
01205  M01S01200.baaml   +++|          BX2    -X0*X2
01206  M01S01201.baaml   +++|          BX6    X2+X6
01207  M01S01202.baaml   +++|          SA6    A2+         SET FIRST/LAST STRING WORD
01208  M01S01203.baaml   +++|
01209  M01S01204.baaml   +++| MTS      SUBR               ENTRY/EXIT
01210  M01S01205.baaml   +++|          SB3    B2-B1       CHANGE CHARACTERS TO BITS
01211  M01S01206.baaml   +++|          SB3    B3+B3
01212  M01S01207.baaml   +++|          SB2    B3+B3
01213  M01S01208.baaml   +++|          SB2    B3+B2       STARTING BIT POSITION TO TRANSFER
01214  M01S01209.baaml   +++|          SB3    B4+B4       CHANGE CHARACTERS TO BITS
01215  M01S01210.baaml   +++|          SB4    B3+B3
01216  M01S01211.baaml   +++|          SB4    B3+B4       NUMBER OF BITS TO TRANSFER
01217  M01S01212.baaml   +++|          SB4    -B4         NEGATIVE BITS
01218  M01S01213.baaml   +++|          SB3    B2-60
01219  M01S01214.baaml   +++|          MX0    1
01220  M01S01215.baaml   +++|          AX7    X0,B2
01221  M01S01216.baaml   +++|          LX0    X7,B1
01222  M01S01217.baaml   +++|          BX0    X0*X7
01223  M01S01218.baaml   +++|          AX1    B3          POSITION TEXT
01224  M01S01219.baaml   +++|          BX4    -X0*X1
01225  M01S01220.baaml   +++|          BX3    X0*X1
01226  M01S01221.baaml   +++|          SA1    A1+B1       FETCH NEXT WORD OF TEXT
01227  M01S01222.baaml   +++|          BX6    X0*X2
01228  M01S01223.baaml   +++|          BX6    X4+X6
01229  M01S01224.baaml   +++|          SB4    B4-B3
01230  M01S01225.baaml   +++|          PL     B4,MTS3     IF MOVE IS COMPLETE
01231  M01S01226.baaml   +++|          SA6    A2          STORE FIRST STRING WORD
01232  M01S01227.baaml   +++| MTS1     AX1    B3
01233  M01S01228.baaml   +++|          BX4    -X0*X1
01234  M01S01229.baaml   +++|          BX6    X3+X4
01235  M01S01230.baaml   +++|          BX3    X0*X1
01236  M01S01231.baaml   +++|          SB4    B4+60
01237  M01S01232.baaml   +++|          PL     B4,MTS2     IF MOVE IS COMPLETED
01238  M01S01233.baaml   +++|          SA1    A1+B1
01239  M01S01234.baaml   +++|          SA6    A6+B1       STORE NEXT STRING WORD
01240  M01S01235.baaml   +++|          EQ     MTS1        CONTINUE MOVE
01241  M01S01236.baaml   +++| PRT      SPACE  4,20
01242  M01S01237.baaml   +++|**        PRT -  PRESET PACKET AND HEADER WORDS.
01243  M01S01238.baaml   +++|*
01244  M01S01239.baaml   +++|*         ENTRY  (A1) = ADDRESS TO PARAMETER LIST.
01245  M01S01240.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
01246  M01S01241.baaml   +++|*                (X7) = SUB-FUNCTION CODE.
01247  M01S01242.baaml   +++|*
01248  M01S01243.baaml   +++|*         EXIT   (TSA1) = ADDRESS OF PARAMETER LIST.
01249  M01S01244.baaml   +++|*                (RQSB) = HEADER WORD  SET FOR *TAF/CRM*.
01250  M01S01245.baaml   +++|*                (TPKT) = INITIALIZED TO ZERO.
01251  M01S01246.baaml   +++|*                (TPKT+2) = VALUE OF FIRST PARAMETER.
01252  M01S01247.baaml   +++|*                (TNPR) = NUMBER OF PARAMETERS.
01253  M01S01248.baaml   +++|*                (TFCD) = NAME CURRENT SUB-FUNCTION.
01254  M01S01249.baaml   +++|*                (A1) = ADDRESS TO PARAMETER LIST.
01255  M01S01250.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
01256  M01S01251.baaml   +++|*                (B1) = 1.
01257  M01S01252.baaml   +++|*                (B6) = NUMBER OF PARAMETERS.
01258  M01S01253.baaml   +++|*
01259  M01S01254.baaml   +++|*         USES   X - 2, 6, 7.
01260  M01S01255.baaml   +++|*                A - 2, 6, 7.
01261  M01S01256.baaml   +++|*                B - 1, 6.
01262  M01S01257.baaml   +++|
01263  M01S01258.baaml   +++|
01264  M01S01259.baaml   +++| PRT      SUBR               ENTRY/EXIT
01265  M01S01260.baaml   +++|          SA2    PRTA+X7     FUNCTION NAME OF CALLING
01266  M01S01261.baaml   +++|          SB1    1
01267  M01S01262.baaml   +++|          BX6    X2
01268  M01S01263.baaml   +++|          SB6    BUFE-1-TPKT LAST ADDRESS MINUS THE STARTING ADDRESS
01269  M01S01264.baaml   +++|          SA6    TFCD        SET FUNCTION CODE NAME
01270  M01S01265.baaml   +++|          SX6    0
01271  M01S01266.baaml   +++| PRT1     SA6    TPKT+B6     CLEAR CELLS
01272  M01S01267.baaml   +++|          SB6    B6-1
01273  M01S01268.baaml   +++|          PL     B6,PRT1     IF NOT LAST CELL
01274  M01S01269.baaml   +++|          SX6    A1+
01275  M01S01270.baaml   +++|          SA2    X1+         VALUE OF FIRST
01276  M01S01271.baaml   +++|          SA6    TSA1        SAVE PARAMETER LIST ADDRESS
01277  M01S01272.baaml   +++|          BX6    X2
01278  M01S01273.baaml   +++|          SB6    B0
01279  M01S01274.baaml   +++|          SA6    TPKT+THRL+TPFN  FIRST PARAMETER VALUE
01280  M01S01275.baaml   +++| PRT2     SA2    A1+B6       NEXT PARAMETER ADDRESS
01281  M01S01276.baaml   +++|          ZR     X2,PRT3     IF END OF PARAMETER LIST
01282  M01S01277.baaml   +++|          SB6    B6+B1       PARAMETER COUNT
01283  M01S01278.baaml   +++|          LT     B6,B2,PRT2  IF NOT MAXIMUM PARAMETERS
01284  M01S01279.baaml   +++| PRT3     SX6    B6          PARAMETER COUNT
01285  M01S01280.baaml   +++|          SX2    B6
01286  M01S01281.baaml   +++|          LX7    35-11       POSITION SUB-FUNCTION
01287  M01S01282.baaml   +++|          LX2    23-5        POSITION COUNT
01288  M01S01283.baaml   +++|          SA6    TNPR        SET NUMBER OF PARAMETER PASSED
01289  M01S01284.baaml   +++|          BX7    X2+X7       MASK SUB-FUNCTION AND PARAMETER COUNT
01290  M01S01285.baaml   +++|          PX7    X7          PUT FUNCTION CODE INTO POSITION
01291  M01S01286.baaml   +++|          SA7    RQSB        HEADER WORD (TPKT+1) FOR *TAF/CRM* CALL
01292  M01S01287.baaml   +++|          EQ     PRTX        RETURN
01293  M01S01288.baaml   +++|
01294  M01S01289.baaml   +++| PRTA     DATA   C*CLOSE*
01295  M01S01290.baaml   +++|          DATA   C*DELETE*
01296  M01S01291.baaml   +++|          DATA   C*LOCK*
01297  M01S01292.baaml   +++|          DATA   C*FLOCK*
01298  M01S01293.baaml   +++|          DATA   C*OPEN*
01299  M01S01294.baaml   +++|          DATA   C*READ*
01300  M01S01295.baaml   +++|          DATA   C*READL*
01301  M01S01296.baaml   +++|          DATA   C*READM*
01302  M01S01297.baaml   +++|          DATA   C*READN*
01303  M01S01298.baaml   +++|          DATA   C*READNL*
01304  M01S01299.baaml   +++|          DATA   C*REWIND*
01305  M01S01300.baaml   +++|          DATA   C*REWRITE*
01306  M01S01301.baaml   +++|          DATA   C*SKIPBL*
01307  M01S01302.baaml   +++|          DATA   C*SKIPFL*
01308  M01S01303.baaml   +++|          DATA   C*UNLOCK*
01309  M01S01304.baaml   +++|          DATA   C*UNFLOCK*
01310  M01S01305.baaml   +++|          DATA   C*WRITE*
01311  M01S01306.baaml   +++|          DATA   C*START*
01312  M01S01307.baaml   +++|          DATA   C*DBEGIN*
01313  M01S01308.baaml   +++|          DATA   C*DBCOMIT*
01314  M01S01309.baaml   +++|          DATA   C*DBFREE*
01315  M01S01310.baaml   +++|          DATA   C*DBSTAT*
01316  M01S01311.baaml   +++| RTT      SPACE  4,20
01317  M01S01312.baaml   +++| RAD      SPACE  4,20
01318  M01S01313.baaml   +++|**        RAD - READ AND READL PROCESSOR.
01319  M01S01314.baaml   +++|*
01320  M01S01315.baaml   +++|*         ENTRY  (X2) = MAXIMUM PARAMTER COUNT.
01321  M01S01316.baaml   +++|*                (X7) = SUB-FUNCION CODE.
01322  M01S01317.baaml   +++|*
01323  M01S01318.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
01324  M01S01319.baaml   +++|*
01325  M01S01320.baaml   +++|*         USES   X - 1, 2, 3, 7.
01326  M01S01321.baaml   +++|*                A - 1, 2, 3, 7.
01327  M01S01322.baaml   +++|*                B - 2, 4.
01328  M01S01323.baaml   +++|*
01329  M01S01324.baaml   +++|*         CALLS   CWS, CKF, PRT, RQS, RTS, RKA, LWR.
01330  M01S01325.baaml   +++|
01331  M01S01326.baaml   +++|
01332  M01S01327.baaml   +++| RAD      SUBR               ENTRY/EXIT
01333  M01S01328.baaml   +++|          RJ     PRT         PRESET
01334  M01S01329.baaml   +++|          SX7    B6-TPRDF    REQUIRED NUMBER OF PARAMETERS
01335  M01S01330.baaml   +++|          NG     X7,RAD2     IF NOT ENOUGH PARAMETERS
01336  M01S01331.baaml   +++|          RJ     CWS         CALCULATE LENGTH OF RECORD
01337  M01S01332.baaml   +++|          SX7    B6-TPRK     PARAMETERS REQUIRED FOR KEY-IDENTIFIER
01338  M01S01333.baaml   +++|          NG     X7,RAD1     IF END OF PARAMETER LIST
01339  M01S01334.baaml   +++|          SA2    A1+TPRO     KEY-IDENTIFIER
01340  M01S01335.baaml   +++|          SA2    X2          VALUE OF KEY-IDENTIFIER
01341  M01S01336.baaml   +++|          BX7    X2
01342  M01S01337.baaml   +++|          SA7    TPKT+THRL+TPRO  KEY-IDENTIFER INTO PACKET
01343  M01S01338.baaml   +++|          SX2    B6-TPRLL
01344  M01S01339.baaml   +++|          NG     X2,RAD1     IF END OF PARAMETER LIST
01345  M01S01340.baaml   +++|          SA3    A1+TPRR     ADDRESS OF KEY-AREA-LENGTH
01346  M01S01341.baaml   +++|          SA2    A3-B1       ADDRESS OF KEY-AREA
01347  M01S01342.baaml   +++|          SA3    X3          VALUE
01348  M01S01343.baaml   +++|          SX7    X2+         ADDRESS OF KEY-AREA
01349  M01S01344.baaml   +++|          SA7    TPKT+THRL+TPRK  KEY-AREA ADDRESS TO PACKET
01350  M01S01345.baaml   +++|          BX7    X3
01351  M01S01346.baaml   +++|          SA7    A7+B1       KEY-AREA-LENGTH INTO PACKET
01352  M01S01347.baaml   +++| RAD1     SB2    TPKA        KEY-AREA
01353  M01S01348.baaml   +++|          SB4    0           SET NO MAJOR-KEY-LENGTH
01354  M01S01349.baaml   +++|          RJ     CKF         CHECK FIELD LENGTH AND MOVE KEY
01355  M01S01350.baaml   +++|          NZ     X7,RAD3     IF KEY-OFFSET ERROR
01356  M01S01351.baaml   +++| RAD2     RJ     RQS         ISSUE *TAF/CRM* REQUEST
01357  M01S01352.baaml   +++| RAD3     RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
01358  M01S01353.baaml   +++|          SA2    TPKT+THRL+TPCS  *TAF/CRM* STATUS
01359  M01S01354.baaml   +++|          NZ     X2,RADX     IF ERROR RETURN
01360  M01S01355.baaml   +++|          RJ     LWR         RESTORE LAST WORD AND RECORD LENGTH
01361  M01S01356.baaml   +++|          SX2    B6-TPRDF    REQUIRED NUMBER OF PARAMETERS
01362  M01S01357.baaml   +++|          NG     X2,RADX     IF LESS THEN REQUIRED
01363  M01S01358.baaml   +++|          ZR     X2,RADX     IF END OF LIST
01364  M01S01359.baaml   +++|          SA3    TPKT+THRL+TPRDF  KEY-STATUS RESULTS
01365  M01S01360.baaml   +++|          SA2    A1+TPRDF    KEY-STATUS ADDRESS
01366  M01S01361.baaml   +++|          BX7    X3
01367  M01S01362.baaml   +++|          SA7    X2          SET KEY-STATUS
01368  M01S01363.baaml   +++|          SX2    B6-TPRDL    PARAMETERS REQUIRED FOR LOCK STATUS
01369  M01S01364.baaml   +++|          NG     X2,RAD4     IF END OF PARAMETER LIST
01370  M01S01365.baaml   +++|          SA2    TPKT+THRL+TPLB
01371  M01S01366.baaml   +++|          SA3    A1+TPLB     LOCK STATUS ADDRESS
01372  M01S01367.baaml   +++|          BX7    X2
01373  M01S01368.baaml   +++|          SA7    X3          RETURN LOCK STATUS
01374  M01S01369.baaml   +++| RAD4     SX3    B6-TPRLL    PARAMETERS REQUIRED FOR KEY-AREA
01375  M01S01370.baaml   +++|          NG     X3,RADX     IF END OF PARAMETER LIST
01376  M01S01371.baaml   +++|          SA2    A1+TPRK     KEY-AREA ADDRESS
01377  M01S01372.baaml   +++|          RJ     RKA         RETURN KEY-AREA
01378  M01S01373.baaml   +++|          EQ     RADX        RETURN
01379  M01S01374.baaml   +++| RDM      SPACE  4,20
01380  M01S01375.baaml   +++|**        RDM - READM/READNL/READN PROCESSOR.
01381  M01S01376.baaml   +++|*
01382  M01S01377.baaml   +++|*         ENTRY  (B2) = MAXIMUM NUMBER OF PARAMETERS.
01383  M01S01378.baaml   +++|*                (X0) = NONZERO IF CALLED BY READM FUNCTION.
01384  M01S01379.baaml   +++|*                (X7) = SUB-FUNCTION CODE.
01385  M01S01380.baaml   +++|*
01386  M01S01381.baaml   +++|*         EXIT   FUNCTION COMPLETED AND STATUS RETURNED.
01387  M01S01382.baaml   +++|*
01388  M01S01383.baaml   +++|*         USES   X - 1, 2, 3, 6, 7.
01389  M01S01384.baaml   +++|*                A - 1, 2, 3, 6, 7.
01390  M01S01385.baaml   +++|*                B - 2, 4.
01391  M01S01386.baaml   +++|*
01392  M01S01387.baaml   +++|*         CALLS   CWS, CKF, PRT, RKA, RQS, RTS.
01393  M01S01388.baaml   +++|
01394  M01S01389.baaml   +++|
01395  M01S01390.baaml   +++| RDM      SUBR               ENTRY/EXIT
01396  M01S01391.baaml   +++|          RJ     PRT         PRESET
01397  M01S01392.baaml   +++|          SX1    B6-TPRL     PARAMETERS REQUIRED FOR *CWS*
01398  M01S01393.baaml   +++|          NG     X1,RDM2     IF NOT ENOUGH PARAMETERS
01399  M01S01394.baaml   +++|          RJ     CWS         WSA-NAME AND WSA-LENGTH
01400  M01S01395.baaml   +++|          SB4    0           SET NO MAJOR-KEY-LENGTH
01401  M01S01396.baaml   +++|          SX1    B6-TPRNF    REQUIRED NUMBER OF PARAMETERS
01402  M01S01397.baaml   +++|          NG     X1,RDM2     IF NOT ENOUGH PARAMETERS
01403  M01S01398.baaml   +++|          SA2    A1+TPKW     KEY-AREA ADDRESS
01404  M01S01399.baaml   +++|          SA3    A2+B1       KEY-AREA-LENGTH ADDRESS
01405  M01S01400.baaml   +++|          SX7    X2          ADDRESS OF KEY-AREA
01406  M01S01401.baaml   +++|          SA3    X3          VALUE OF KEY-AREA-LENGTH
01407  M01S01402.baaml   +++|          SX6    X3          VALUE
01408  M01S01403.baaml   +++|          SA7    TPKT+THRL+TPKW  KEY-AREA ADDRESS TO PACKET
01409  M01S01404.baaml   +++|          SA6    TPKT+THRL+TPLN  VALUE OF KEY-AREA-LENGTH
01410  M01S01405.baaml   +++|          ZR     X1,RDM2     IF END OF PARAMETERS
01411  M01S01406.baaml   +++|          ZR     X0,RDM2     IF CALLED BY READN OR READNL
01412  M01S01407.baaml   +++|          SX1    B6-TPRMF    PARAMETERS REQUIRED FOR READM
01413  M01S01408.baaml   +++|          NG     X1,RDM2     IF NOT PARAMETERS FOR READM
01414  M01S01409.baaml   +++|          SA2    A1+TPMM     ADDRESS OF MAJOR-KEY-LENGTH
01415  M01S01410.baaml   +++|          SA2    X2+         VALUE OF MAJOR-KEY-LENGTH
01416  M01S01411.baaml   +++|          SB4    X2
01417  M01S01412.baaml   +++|          BX7    X2
01418  M01S01413.baaml   +++|          SA7    TPKT+THRL+TPMM  MAJOR-KEY-LENGTH INTO PACKET
01419  M01S01414.baaml   +++|          ZR     X1,RDM1     IF END OF PARAMETER LIST
01420  M01S01415.baaml   +++|          SX1    B6-TPRDL    PARAMETERS REQUIRED FOR KEY-IDENTIFIER
01421  M01S01416.baaml   +++|          NZ     X1,RDM1     IF NO KEY-IDENTIFIER
01422  M01S01417.baaml   +++|          SA3    A1+TPMO     ADDRESS OF KEY-IDENTIFIER
01423  M01S01418.baaml   +++|          SA3    X3          VALUE
01424  M01S01419.baaml   +++|          BX7    X3
01425  M01S01420.baaml   +++|          SA7    TPKT+THRL+TPMO  VALUE OF KEY-IDENTIFIER INTO PACKET
01426  M01S01421.baaml   +++| RDM1     SB2    TPYM        INDEX TO PARAMETER LIST FOR KEY-NAME
01427  M01S01422.baaml   +++|          RJ     CKF         CHECK AND TRANSFER KEY INTO PACKET
01428  M01S01423.baaml   +++|          NZ     X7,RDM3     IF KEY-OFFSET ERRORS
01429  M01S01424.baaml   +++| RDM2     RJ     RQS         ISSUE *TAF/CRM* REQUEST
01430  M01S01425.baaml   +++| RDM3     RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
01431  M01S01426.baaml   +++|          SX7    B6-TPRNF    REQUIRED NUMBER OF PARAMETERS
01432  M01S01427.baaml   +++|          SA2    TPKT+THRL+TPCS  *CRM* STATUS
01433  M01S01428.baaml   +++|          NG     X7,RDMX     IF NOT ENOUGH PARAMETERS
01434  M01S01429.baaml   +++|          NZ     X2,RDMX     IF ERROR RETURN
01435  M01S01430.baaml   +++|          RJ     LWR         LAST WORD OF RECORD AND RECORD LENGTH
01436  M01S01431.baaml   +++|          NZ     X0,RDM4     IF NOT CALLED BY READN OR READNL
01437  M01S01432.baaml   +++|          ZR     X7,RDM6     IF END OF PARAMETER LIST
01438  M01S01433.baaml   +++|          SA3    TPKT+THRL+TPRNF  KEY-STATUS RESULTS
01439  M01S01434.baaml   +++|          SA2    A1+TPRNF    ADDRESS OF KEY-STATUS FOR READN OR READNL
01440  M01S01435.baaml   +++|          BX7    X3          KEY-STATUS
01441  M01S01436.baaml   +++|          SA7    X2          SAVE KEY-STATUS
01442  M01S01437.baaml   +++|          SX2    B6-TPRNL
01443  M01S01438.baaml   +++|          NG     X2,RDM6     IF END OF PARAMETER LIST
01444  M01S01439.baaml   +++|          SA3    TPKT+THRL+TPLA  GET LOCK STATUS
01445  M01S01440.baaml   +++|          SA2    A1+TPLA     LOCK STATUS ADDRESS
01446  M01S01441.baaml   +++|          EQ     RDM5        PROCESS LOCK STATUS
01447  M01S01442.baaml   +++|
01448  M01S01443.baaml   +++| RDM4     SX7    B6-TPRMF    REQUIRED PARAMETERS FOR READM
01449  M01S01444.baaml   +++|          NG     X7,RDMX     IF NOT ENOUGH PARAMETERS
01450  M01S01445.baaml   +++|          ZR     X7,RDM6     IF NOT KEY-STATUS
01451  M01S01446.baaml   +++|          SA3    TPKT+THRL+TPMS  KEY-STATUS FROM PACKET
01452  M01S01447.baaml   +++|          SA2    A1+TPMS     ADDRESS OF KEY-STATUS
01453  M01S01448.baaml   +++|          BX7    X3          KEY-STATUS
01454  M01S01449.baaml   +++|          SA7    X2          SAVE KEY-STATUS
01455  M01S01450.baaml   +++|          SX2    B6-TPRML    PARAMETERS REQUIRED FOR LOCK STATUS
01456  M01S01451.baaml   +++|          NG     X2,RDM6     IF END OF PARAMETER LIST
01457  M01S01452.baaml   +++|          SA3    TPKT+THRL+TPLC  LOCK STATUS
01458  M01S01453.baaml   +++|          SA2    A1+TPLC     GET LOCK STATUS ADDRESS
01459  M01S01454.baaml   +++| RDM5     BX7    X3
01460  M01S01455.baaml   +++|          SA7    X2+
01461  M01S01456.baaml   +++| RDM6     SA2    A1+TPKW     KEY-AREA ADDRESS
01462  M01S01457.baaml   +++|          RJ     RKA         RETURN KEY-AREA
01463  M01S01458.baaml   +++|          EQ     RDMX        RETURN
01464  M01S01459.baaml   +++| RKA      SPACE  4,15
01465  M01S01460.baaml   +++|**        RKA - RETURN KEY-AREA.
01466  M01S01461.baaml   +++|*
01467  M01S01462.baaml   +++|*         ENTRY  (TPKT) = RESULTS OF *TAF/CRM* REQUEST.
01468  M01S01463.baaml   +++|*                (A1) = POINTER TO PARAMETER LIST.
01469  M01S01464.baaml   +++|*                (A2) = POINTER TO KEY-AREA ADDRESS.
01470  M01S01465.baaml   +++|*                (X2) = ADDRESS OF KEY-AREA.
01471  M01S01466.baaml   +++|*
01472  M01S01467.baaml   +++|*         EXIT   KEY-AREA (PRIMARY KEY) PROCESSED.
01473  M01S01468.baaml   +++|*
01474  M01S01469.baaml   +++|*         USES   X - 1, 2, 3, 7.
01475  M01S01470.baaml   +++|*                A - 1, 2, 3.
01476  M01S01471.baaml   +++|*                B - 2, 3, 4, 6.
01477  M01S01472.baaml   +++|*
01478  M01S01473.baaml   +++|*         CALLS  MTS.
01479  M01S01474.baaml   +++|
01480  M01S01475.baaml   +++|
01481  M01S01476.baaml   +++| RKA      SUBR               ENTRY/EXIT
01482  M01S01477.baaml   +++|          SA1    A1+TPWS     WORKING-STORGE-ADDRESS (WSA)
01483  M01S01478.baaml   +++|          SB2    X1          ADDRESS OF WSA
01484  M01S01479.baaml   +++|          SB3    X2          ADDRESS OF KEY-AREA
01485  M01S01480.baaml   +++|          EQ     B2,B3,RKAX  IF SAME ADDRESS RETURN
01486  M01S01481.baaml   +++|          SX1    TCHL        LENGTH OF WORD IN CHARACTERS
01487  M01S01482.baaml   +++|          SA3    TPKT+THRL+TPRL  RECORD LENGTH FROM PACKET
01488  M01S01483.baaml   +++|          SA2    A2+B1       KEY-AREA-LENGTH ADDRESS
01489  M01S01484.baaml   +++|          SA2    X2          VALUE
01490  M01S01485.baaml   +++|          SX7    X1-1        LENGTH OF WORD MINUS ONE (1)
01491  M01S01486.baaml   +++|          SB4    X2+         LENGTH OF KEY-AREA IN CHARACTERS
01492  M01S01487.baaml   +++|          GT     B3,B2,RKA1  IF KEY-AREA ADDRESS IS BELOW WSA
01493  M01S01488.baaml   +++|
01494  M01S01489.baaml   +++|*         KEY-AREA ADDRESS IS ABOVE WORKING-STORAGE ADDRESS.
01495  M01S01490.baaml   +++|
01496  M01S01491.baaml   +++|          IX2    X2+X7       ROUND UP CHARACTERS
01497  M01S01492.baaml   +++|          IX2    X2/X1       CHANGE CHARACTERS TO WORDS
01498  M01S01493.baaml   +++|          SB6    X2+B3       KEY-AREA ADDRESS PLUS KEY-AREA-LENGTH
01499  M01S01494.baaml   +++|          SB6    B6-1        ADJUST FOR INDEX
01500  M01S01495.baaml   +++|          LT     B6,B2,RKA2  IF KEY-AREA DOES NOT GO INTO RECORD
01501  M01S01496.baaml   +++|          SX1    TCHL        LENGTH OF WORD IN CHARACTERS
01502  M01S01497.baaml   +++|          SX3    B2-B3       DIFFERENCE IN KEY-AREA AND WSA
01503  M01S01498.baaml   +++|          IX3    X3*X1       NUMBER OF CHARACTERS
01504  M01S01499.baaml   +++|          SB4    X3+         ADJUSTED KEY-LENGTH
01505  M01S01500.baaml   +++|          EQ     RKA2        GO MOVE PART OF KEY
01506  M01S01501.baaml   +++|
01507  M01S01502.baaml   +++|*         KEY-AREA ADDRESS IS BELOW WORKING-STORAGE ADDRESS.
01508  M01S01503.baaml   +++|
01509  M01S01504.baaml   +++| RKA1     IX3    X3+X7       ROUND UP CHARACTERS OF RECORD LENGTH
01510  M01S01505.baaml   +++|          IX3    X3/X1       NUMBER OF WORD
01511  M01S01506.baaml   +++|          SB6    X3          NUMBER OF WORD MINUS ONE (1)
01512  M01S01507.baaml   +++|          SB6    B2+B6       END OF RECORD AREA
01513  M01S01508.baaml   +++|          SB6    B6-B1       ADJUST ADDRESS
01514  M01S01509.baaml   +++|          LE     B3,B6,RKAX  IF KEY-AREA IS IN RECORD AREA
01515  M01S01510.baaml   +++|
01516  M01S01511.baaml   +++| RKA2     SB2    B1          STARTING POSITION
01517  M01S01512.baaml   +++|          SA2    B3          KEY-AREA ADDRESS
01518  M01S01513.baaml   +++|          SA1    TKEY        KEY-AREA IN PACKET
01519  M01S01514.baaml   +++|          RJ     MTS         TRANSFER KEY TO KEY-AREA
01520  M01S01515.baaml   +++|          EQ     RKAX        RETURN
01521  M01S01516.baaml   +++| RTS      SPACE  4,20
01522  M01S01517.baaml   +++|**        RTS - RETURN STATUS CODES.
01523  M01S01518.baaml   +++|*
01524  M01S01519.baaml   +++|*         ENTRY  (TPKT+2) = TAF STATUS RETURNED.
01525  M01S01520.baaml   +++|*                (A1) = POINTER TO PARAMETER LIST.
01526  M01S01521.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
01527  M01S01522.baaml   +++|*                (B6) = NUMBER OF PARAMETERS.
01528  M01S01523.baaml   +++|*
01529  M01S01524.baaml   +++|*         EXIT   *TAF* AND *CRM* STATUS SET IN PROGRAM.
01530  M01S01525.baaml   +++|*                (A1) = POINTER TO ADDRESS LIST.
01531  M01S01526.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
01532  M01S01527.baaml   +++|*
01533  M01S01528.baaml   +++|*         USES   X - 1, 2, 3, 6.
01534  M01S01529.baaml   +++|*                A - 1, 2, 3, 6.
01535  M01S01530.baaml   +++|*
01536  M01S01531.baaml   +++|*         MACROS MESSAGE.
01537  M01S01532.baaml   +++|*
01538  M01S01533.baaml   +++|*         CALLS  COD, RTT, SNM.
01539  M01S01534.baaml   +++|
01540  M01S01535.baaml   +++|
01541  M01S01536.baaml   +++| RTS      SUBR               ENTRY/EXIT
01542  M01S01537.baaml   +++|          SA1    TPKT+THRL+TPTS  VALUE OF TAF-STATUS FROM TAF
01543  M01S01538.baaml   +++|          ZR     X1,RTS1     IF NO ERROR
01544  M01S01539.baaml   +++|          RJ     RTT         TAF-STATUS CODE
01545  M01S01540.baaml   +++| RTS1     SA1    TPKT+THRL+TPCS  VALUE OF CRM-STATUS FROM AAMI
01546  M01S01541.baaml   +++|          ZR     X1,RTS2     IF STATUS OF ZERO
01547  M01S01542.baaml   +++|          RJ     COD         CONVERT ERROR CODE TO DISPLAY
01548  M01S01543.baaml   +++|          MX3    24          MASK FOR ERROR CODE
01549  M01S01544.baaml   +++|          SB2    1RX         REPLACEMENT CHARACTER
01550  M01S01545.baaml   +++|          BX1    X3*X4       ERROR CODE
01551  M01S01546.baaml   +++|          SB3    RTCB        ASSEMBLY AREA
01552  M01S01547.baaml   +++|          SB5    -RTCA       FWA OF MESSAGE
01553  M01S01548.baaml   +++|          RJ     SNM         SET NAME IN MESSAGE
01554  M01S01549.baaml   +++|          SA1    TFCD        FUNCTION CODE NAME
01555  M01S01550.baaml   +++|          SB2    1RY         REPLACEMENT CHARACTER
01556  M01S01551.baaml   +++|          SB5    RTCB        FWA OF MESSAGE
01557  M01S01552.baaml   +++|          RJ     SNM         SET NAME IN MESSAGE
01558  M01S01553.baaml   +++|          MESSAGE  RTCB,0,R
01559  M01S01554.baaml   +++| RTS2     SA1    TSA1        RESTORE ADDRESS TO PARAMETER LIST
01560  M01S01555.baaml   +++|          SA1    X1+
01561  M01S01556.baaml   +++|          LE     B6,B1,RTSX  IF NOT ENOUGH PARAMETERS
01562  M01S01557.baaml   +++|          SA3    TPKT+THRL+TPTS  VALUE OF TAF-STATUS FROM AAMI
01563  M01S01558.baaml   +++|          SA2    A1+TPTS
01564  M01S01559.baaml   +++|          BX6    X3
01565  M01S01560.baaml   +++|          SA6    X2          STORE TAF-STATUS
01566  M01S01561.baaml   +++|          SX3    B6-TPOPL    PARAMETERS FOR *TAF/CRM* STATUS
01567  M01S01562.baaml   +++|          NG     X3,RTSX     IF END OF PARAMETER LIST
01568  M01S01563.baaml   +++|          SA2    A1+TPCS     ADDRESS OF CRM-STATUS
01569  M01S01564.baaml   +++|          SA3    TPKT+THRL+TPCS  CRM-STATUS FROM AAMI
01570  M01S01565.baaml   +++|          BX6    X3
01571  M01S01566.baaml   +++|          SA6    X2
01572  M01S01567.baaml   +++|          EQ     RTSX        RETURN
01573  M01S01568.baaml   +++|
01574  M01S01569.baaml   +++| RTCA     DATA   C* TAF/CRM CRM STATUS XXXXB IN FUNCTION YYYYYYY.*
01575  M01S01570.baaml   +++| RTCB     BSSZ   *+1-RTCA    ASSEMBLY AREA FOR *SNM*
01576  M01S01571.baaml   +++| RTT      SPACE  4,15
01577  M01S01572.baaml   +++|**        RTT - RETURN TAF-STATUS.
01578  M01S01573.baaml   +++|*
01579  M01S01574.baaml   +++|*         ENTRY  (X1) - TAF-STATUS FORM *TAF/CRM* REQUEST (TPKT).
01580  M01S01575.baaml   +++|*                (RTTB) - LOCATION TO PUT MESSAGE ERROR CODE.
01581  M01S01576.baaml   +++|*                (RTTC) - LOCATION TO PUT FUNCTION NAME.
01582  M01S01577.baaml   +++|*                (TFCD) - NAME OF FUNCTION.
01583  M01S01578.baaml   +++|*
01584  M01S01579.baaml   +++|*         EXIT - ERROR MESSAGE ISSUED TO DAYFILE.
01585  M01S01580.baaml   +++|*                (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE
01586  M01S01581.baaml   +++|*                WORDS FOLLOWED BY A WORD OF BINARY ZEROS.
01587  M01S01582.baaml   +++|*                (X1) = ADDRESS OF FIRST PARAMETER.
01588  M01S01583.baaml   +++|*
01589  M01S01584.baaml   +++|*         USES   X - 1, 2, 3, 5, 6.
01590  M01S01585.baaml   +++|*                A - 1, 2, 3, 6.
01591  M01S01586.baaml   +++|*
01592  M01S01587.baaml   +++|*         MACROS MESSAGE, ABORT.
01593  M01S01588.baaml   +++|*
01594  M01S01589.baaml   +++|*         CALLS  CDD, SNM.
01595  M01S01590.baaml   +++|
01596  M01S01591.baaml   +++|
01597  M01S01592.baaml   +++| RTT      SUBR               ENTRY/EXIT
01598  M01S01593.baaml   +++|          SX5    X1-TTENL    FATAL ERROR STATUS FROM AAMI
01599  M01S01594.baaml   +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY CODE
01600  M01S01595.baaml   +++|          MX3    24          MASK FOR ERROR CODE
01601  M01S01596.baaml   +++|          SB2    1RX         REPLACEMENT CHARACTER
01602  M01S01597.baaml   +++|          BX1    X3*X4       ERROR CODE
01603  M01S01598.baaml   +++|          SB3    RTCB        ASSEMBLY AREA
01604  M01S01599.baaml   +++|          SB5    -RTTA       FWA OF MESSAGE
01605  M01S01600.baaml   +++|          RJ     SNM         SET NAME IN MESSAGE
01606  M01S01601.baaml   +++|          SA1    TFCD        FUNCTION CODE NAME
01607  M01S01602.baaml   +++|          SB2    1RY         REPLACEMENT CHARACTER
01608  M01S01603.baaml   +++|          SB5    RTCB        FWA OF MESSAGE
01609  M01S01604.baaml   +++|          RJ     SNM         SET NAME IN MESSAGE
01610  M01S01605.baaml   +++|          MESSAGE  RTCB,0,R
01611  M01S01606.baaml   +++|          SA1    TSA1        RESTORE PARAMETER LIST ADDRESS
01612  M01S01607.baaml   +++|          SA1    X1+
01613  M01S01608.baaml   +++|          NG     X5,RTTX     IF NOT A FATAL ERROR
01614  M01S01609.baaml   +++|          ABORT              ABORT DUE TO FATAL *TAF/CRM* ERRORS
01615  M01S01610.baaml   +++|
01616  M01S01611.baaml   +++| RTTA     DATA   C* TAF/CRM TAF STATUS XXXX IN FUNCTION YYYYYYY.*
01617  M01S01612.baaml   +++| RQS      SPACE  4,20
01618  M01S01613.baaml   +++|**        RQS - REQUEST *TAF/CRM* SUBSYSTEM.
01619  M01S01614.baaml   +++|*
01620  M01S01615.baaml   +++|*         ENTRY  (RQSA) = HEADER WORD ONE.
01621  M01S01616.baaml   +++|*                (RQSB) = HEADER WORD TWO.
01622  M01S01617.baaml   +++|*                (TPKT) = FUNCTION PARAMETERS.
01623  M01S01618.baaml   +++|*
01624  M01S01619.baaml   +++|*         EXIT   (TPKT) = RESULTS FROM *TAF/CRM*.
01625  M01S01620.baaml   +++|*
01626  M01S01621.baaml   +++|*         USES   X - 1, 2, 6, 7.
01627  M01S01622.baaml   +++|*                A - 1, 2, 6, 7.
01628  M01S01623.baaml   +++|*                B - 4.
01629  M01S01624.baaml   +++|*
01630  M01S01625.baaml   +++|*         MACROS CALLSS, ABORT, MESSAGE, RECALL.
01631  M01S01626.baaml   +++|
01632  M01S01627.baaml   +++|
01633  M01S01628.baaml   +++| RQS      SUBR               ENTRY/EXIT
01634  M01S01629.baaml   +++| RQS1     SA1    RQSA        FIRST WORD OF HEADER
01635  M01S01630.baaml   +++|          SA2    RQSB        SECOND HEADER WORD FOR *TAF/CRM*
01636  M01S01631.baaml   +++|          BX7    X1
01637  M01S01632.baaml   +++|          BX6    X2
01638  M01S01633.baaml   +++|          SA7    TPKT        FIRST WORD OF PACKET AREA
01639  M01S01634.baaml   +++|          SA6    A7+B1       *UPC* INTERFACE WORD
01640  M01S01635.baaml   +++|          CALLSS /SSD/TRSI,TPKT,R  *UCP* CALL TO TAF VIA MONITOR
01641  M01S01636.baaml   +++| RQS2     SA1    A7          CHECK FOR RESPONSE
01642  M01S01637.baaml   +++|          LX1    59-0        RESPONSE IN BIT (0)
01643  M01S01638.baaml   +++|          NG     X1,RQS3     IF CALL TO *TAF/CRM* COMPLETE
01644  M01S01639.baaml   +++|          RECALL
01645  M01S01640.baaml   +++|          EQ     RQS2        IF COMPLETE NOT SET
01646  M01S01641.baaml   +++|
01647  M01S01642.baaml   +++| RQS3     SX2    7776B       MASK FOR ERRORS
01648  M01S01643.baaml   +++|          LX1    0-0-59+0    SHIFT RESPONSE
01649  M01S01644.baaml   +++|          SB4    B0          TABLE INCREMENT COUNT TO ZERO
01650  M01S01645.baaml   +++|          BX2    X1*X2
01651  M01S01646.baaml   +++|          ZR     X2,RQS5     IF NO ERRORS
01652  M01S01647.baaml   +++| RQS4     SA1    RQSS+B4     SUBSYSTEM ERROR CODES
01653  M01S01648.baaml   +++|          SX7    X1
01654  M01S01649.baaml   +++|          IX7    X2-X7       SUBTRACT CODES
01655  M01S01650.baaml   +++|          SB4    B4+1        INCREMENT TABLE INDEX
01656  M01S01651.baaml   +++|          ZR     X7,RQS7     IF MATCH OF ERROR CODES
01657  M01S01652.baaml   +++|          ZR     X1,RQS11    IF END OF TABLE
01658  M01S01653.baaml   +++|          EQ     RQS4        LOOK AT NEXT
01659  M01S01654.baaml   +++|
01660  M01S01655.baaml   +++| RQS5     SA1    TPKT+1      LOOK AT SECOND WORD OF HEADER FOR ERRORS
01661  M01S01656.baaml   +++|          MX2    -12         MASK FOR ERROR CODES
01662  M01S01657.baaml   +++|          BX2    -X2*X1      MASK OFF RESPONSE
01663  M01S01658.baaml   +++|          ZR     X2,RQS1     IF NO RESPONSE
01664  M01S01659.baaml   +++| RQS6     SA1    RQST+B4     LOOK AT ALL ERROR CODES
01665  M01S01660.baaml   +++|          SX7    X1
01666  M01S01661.baaml   +++|          IX7    X7-X2       SUBTRACT OFF ERROR CODES
01667  M01S01662.baaml   +++|          SB4    B4+1        INCREMENT TABLE INDEX
01668  M01S01663.baaml   +++|          ZR     X7,RQS7     IF MATCH OF ERROR CODES
01669  M01S01664.baaml   +++|          ZR     X2,RQS11    IF NO MATCH OF ERROR CODES
01670  M01S01665.baaml   +++|          EQ     RQS6        GET NEXT ERROR CODE
01671  M01S01666.baaml   +++|
01672  M01S01667.baaml   +++| RQS7     LX1    17-59       SHIFT ADDRESS OF MESSAGE
01673  M01S01668.baaml   +++|          SX2    X1          ADDRESS OF MESSAGE
01674  M01S01669.baaml   +++|          LX1    17-41-17+59 ADDRESS OF ROUTINE
01675  M01S01670.baaml   +++|          SB4    X1
01676  M01S01671.baaml   +++|          ZR     X2,RQS8     IF NOT ERROR MESSAGE
01677  M01S01672.baaml   +++|          MX7    -6          MASK FOR DISPLAY DAYFILE
01678  M01S01673.baaml   +++|          LX1    5-23-17+41  SHIFT DISPLAY MESSAGE AREA
01679  M01S01674.baaml   +++|          BX7    -X7*X1      MASK OFF DISPLAY VALUE
01680  M01S01675.baaml   +++|          MESSAGE  X2,X7,R   ISSUE ERROR MESSAGE
01681  M01S01676.baaml   +++| RQS8     SA1    TSA1        RESTORE TO PARAMETER LIST ADDRESS
01682  M01S01677.baaml   +++|          SA1    X1+
01683  M01S01678.baaml   +++|          JP     B4          GO TO ROUTINE FOR PROCESSING
01684  M01S01679.baaml   +++|
01685  M01S01680.baaml   +++| RQS9     SA1    0           LOCATION ZERO OF *CP* RA+0
01686  M01S01681.baaml   +++|          SX7    1
01687  M01S01682.baaml   +++|          LX7    12-0        SHIFT *PAUSE* BIT
01688  M01S01683.baaml   +++|          BX7    X1+X7
01689  M01S01684.baaml   +++|          SA7    0           SET IN RA+0
01690  M01S01685.baaml   +++| RQS10    RECALL             RECALL BEFOR RETRY
01691  M01S01686.baaml   +++|          SA1    B0          RA+0
01692  M01S01687.baaml   +++|          LX1    59-12       SHIFT TO POSITION FOR TEST
01693  M01S01688.baaml   +++|          NG     X1,RQS10    IF *PAUSE* BIT NOT CLEARED
01694  M01S01689.baaml   +++|          EQ     RQS1        *GO* ENTERED REISSUE REQUEST
01695  M01S01690.baaml   +++|
01696  M01S01691.baaml   +++| RQS11    MESSAGE  RQML,0,R  TAF ERROR NOT DEFINED
01697  M01S01692.baaml   +++| RQS12    ABORT              TERMINATE PROCESSING
01698  M01S01693.baaml   +++|
01699  M01S01694.baaml   +++|
01700  M01S01695.baaml   +++| RQSA     VFD    24/0LTAF,12/0,6/40,4/0,2/3,11/0,1/0
01701  M01S01696.baaml   +++| RQSB     BSSZ   1           SECOND WORD OF HEADER
01702  M01S01697.baaml   +++|
01703  M01S01698.baaml   +++|
01704  M01S01699.baaml   +++|*         ERROR MESSAGES FOR *RQS*  FROM *TAF/CRM*.
01705  M01S01700.baaml   +++|
01706  M01S01701.baaml   +++|
01707  M01S01702.baaml   +++| RQST     EQU    *                  SECOND HEADER WORD ERROR CODE
01708  M01S01703.baaml   +++|          FCTM   ,RQSX,,JSRC        REQUEST COMPLETE
01709  M01S01704.baaml   +++|          FCTM   RQMA,RQS9,0,JSNU   *TAF* SUBSYSTEM NOT UP
01710  M01S01705.baaml   +++|          FCTM   RQMB,RQS1,1,JSTB   *TAF* SUBSYSTEM BUSY
01711  M01S01706.baaml   +++|          FCTM   RQMJ,RQS12,0,JSND  SUBSYSTEM NOT DEFINED AS *SCP*
01712  M01S01707.baaml   +++|          FCTM   RQMI,RQS9,0,JSTI   *TAF* DEFINED - *TAF* IDLE
01713  M01S01708.baaml   +++|          FCTM   RQMD,RQS12,0,JSNV  USER NOT VALID FOR *TAF* ACCESS
Line S01709 Modification History
M01 (Added by) baaml
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01714  M02S01709.v23l617 ---|          FCTM   RQME,RQS12,0,JSUA  USER NUMBER ACTIVE
01715  M01S00005.v23l617 +++|          FCTM   RQME,RQS12,0,JSUA  USER NAME ACTIVE
01716  M01S01710.baaml   +++|          FCTM   RQMK,RQS12,0,JSAT  CONFLICT IN ACCESS TYPE
01717  M01S01711.baaml   +++|          FCTM   RQMG,RQS12,0,JSFL  DATA NOT WITHIN *UCP* FL
01718  M01S01712.baaml   +++|          FCTM   RQMF,RQS12,0,JSOR  TWO OUTSTANDING REQUEST
01719  M01S01713.baaml   +++|          FCTM   RQMC,RQS12,0,JSFC  *TAF* FUNCTION CODE NOT VALID
01720  M01S01714.baaml   +++|          FCTM   RQMM,RQS12,0,JSRE  RECOVERY REQUEST ERROR
01721  M01S01715.baaml   +++|          FCTM   RQMN,RQS12,0,JSDC  BATCH CONCURRENCY DISABLED
01722  M01S01716.baaml   +++|          FCTM   RQMO,RQS12,0,JSNC  TAF/CRM DATA MANAGER NOT IN TAF
01723  M01S01717.baaml   +++|          CON    0                  END OF LIST
01724  M01S01718.baaml   +++|
01725  M01S01719.baaml   +++|
01726  M01S01720.baaml   +++| RQSS     EQU    *                      FIRST HEADER WORD ERROR CODES
01727  M01S01721.baaml   +++|          FCTM   RQMA,RQS9,0,/SCP/ES1   SUBSYSTEM NOT PRESENT
01728  M01S01722.baaml   +++|          FCTM   RQMB,RQS1,1,/SCP/ES2   SUBSYSTEM BUSY
Line S01723 Modification History
M01 (Added by) baaml
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01729  M02S01723.v23l617 ---|          FCTM   RQMJ,RQS12,0,/SCP/ES3  SSID ILLEGAL
01730  M01S00006.v23l617 +++|          FCTM   RQMJ,RQS12,0,/SCP/ES3  SSID INCORRECT
01731  M01S01724.baaml   +++|          CON    0                      END OF LIST
01732  M01S01725.baaml   +++|
01733  M01S01726.baaml   +++|
01734  M01S01727.baaml   +++| RQMA     DATA   C* TAF NOT PRESENT (GO OR DROP).*
01735  M01S01728.baaml   +++|
01736  M01S01729.baaml   +++| RQMB     DATA   C* TAF SUBSYSTEM BUSY. *
01737  M01S01730.baaml   +++|
01738  M01S01731.baaml   +++| RQMC     DATA   C* TAF FUNCTION CODE NOT VALID.*
01739  M01S01732.baaml   +++|
01740  M01S01733.baaml   +++| RQMD     DATA   C* TAF USER NOT VALID FOR TAF ACCESS.*
01741  M01S01734.baaml   +++|
Line S01735 Modification History
M01 (Added by) baaml
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01742  M02S01735.v23l617 ---| RQME     DATA   C* TAF USER NUMBER ACTIVE.*
01743  M01S00007.v23l617 +++| RQME     DATA   C* TAF USER NAME ACTIVE.*
01744  M01S01736.baaml   +++|
01745  M01S01737.baaml   +++| RQMF     DATA   C* TAF TWO OUTSTANDING REQUESTS.*
01746  M01S01738.baaml   +++|
01747  M01S01739.baaml   +++| RQMG     DATA   C* TAF DATA NOT WITHIN UCP FL.*
01748  M01S01740.baaml   +++|
Line S01741 Modification History
M01 (Added by) baaml
M02 (Updated by) baaml1
Seq #  *Modification Id* Act 
----------------------------+
01749  M02S01741.baaml1  ---| RQMH     DATA   C* TAF SUBSYSTEM NOT DEFINED.*
Line S01742 Modification History
M01 (Added by) baaml
M02 (Updated by) baaml1
Seq #  *Modification Id* Act 
----------------------------+
01750  M02S01742.baaml1  ---|
01751  M01S01743.baaml   +++| RQMI     DATA   C* TAF IDLE (GO OR DROP).*
01752  M01S01744.baaml   +++|
01753  M01S01745.baaml   +++| RQMJ     DATA   C* TAF SUBSYSTEM NOT DEFINED AS A SCP.*
01754  M01S01746.baaml   +++|
01755  M01S01747.baaml   +++| RQMK     DATA   C* TAF USER CONFLICT IN ACCESS TYPE.*
01756  M01S01748.baaml   +++|
01757  M01S01749.baaml   +++| RQML     DATA   C* TAF ERROR CODE NOT DEFINED.*
01758  M01S01750.baaml   +++|
01759  M01S01751.baaml   +++| RQMM     DATA   C* TAF RECOVERY REQUEST ERROR.*
01760  M01S01752.baaml   +++|
01761  M01S01753.baaml   +++| RQMN     DATA   C* BATCH CONCURRENCY DISABLED.*
01762  M01S01754.baaml   +++|
01763  M01S01755.baaml   +++| RQMO     DATA   C* TAF/CRM DATA MANAGER NOT LOADED IN TAF.*
01764  M01S01756.baaml   +++| SKP      SPACE  4,15
01765  M01S01757.baaml   +++|**        SKP - SKIP FUNCTION PROCESSOR.
01766  M01S01758.baaml   +++|*
01767  M01S01759.baaml   +++|*         ENTRY  (B2) = NUMBER OF PARAMETERS.
01768  M01S01760.baaml   +++|*                (X7) = SUB-FUNCTION CODE.
01769  M01S01761.baaml   +++|*
01770  M01S01762.baaml   +++|*         EXIT   FUNCTION COMPETED AND STATUS RETURNED.
01771  M01S01763.baaml   +++|*
01772  M01S01764.baaml   +++|*         USES   X - 2, 7.
01773  M01S01765.baaml   +++|*                A - 2, 7.
01774  M01S01766.baaml   +++|*                B - 2.
01775  M01S01767.baaml   +++|*
01776  M01S01768.baaml   +++|*         CALLS  PRT, RQS, RTS.
01777  M01S01769.baaml   +++|
01778  M01S01770.baaml   +++|
01779  M01S01771.baaml   +++| SKP      SUBR               ENTRY/EXIT
01780  M01S01772.baaml   +++|          RJ     PRT         PRESET
01781  M01S01773.baaml   +++|          SB2    TPSBL       NUMBER OF PARAMETERS
01782  M01S01774.baaml   +++|          LT     B6,B2,SKP1  IF NOT ENOUGH PARAMETERS
01783  M01S01775.baaml   +++|          SA2    A1+TPCT     COUNT ADDRESS
01784  M01S01776.baaml   +++|          SA2    X2          VALUE OF COUNT
01785  M01S01777.baaml   +++|          BX7    X2
01786  M01S01778.baaml   +++|          SA7    TPKT+THRL+TPCT  PUT COUNT IN PACKET
01787  M01S01779.baaml   +++| SKP1     RJ     RQS         ISSUE *TAF/CRM* REQUEST
01788  M01S01780.baaml   +++|          RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
01789  M01S01781.baaml   +++|          EQ     SKPX        RETURN
01790  M01S01782.baaml   +++| WRR      SPACE  4,15
01791  M01S01783.baaml   +++|**        WRR - WRITE AND REWRITE A RECORD.
01792  M01S01784.baaml   +++|*
01793  M01S01785.baaml   +++|*         ENTRY  (B2) - MAXIMUM NUMBER OF PARAMETERS.
01794  M01S01786.baaml   +++|*                (X7) - FUNCTION CODE.
01795  M01S01787.baaml   +++|*
01796  M01S01788.baaml   +++|*         EXIT FUNCTION COMPLETED AND STATUS RETURNED.
01797  M01S01789.baaml   +++|*
01798  M01S01790.baaml   +++|*         USES   X - 1, 2, 3, 7.
01799  M01S01791.baaml   +++|*                A - 1, 2, 3, 7.
01800  M01S01792.baaml   +++|*                B - 2, 4.
01801  M01S01793.baaml   +++|*
01802  M01S01794.baaml   +++|*         CALLS  CKF, MTS, PRT, RQS, RTS.
01803  M01S01795.baaml   +++|
01804  M01S01796.baaml   +++|
01805  M01S01797.baaml   +++|
01806  M01S01798.baaml   +++| WRR      SUBR               ENTRY/EXIT
01807  M01S01799.baaml   +++|          RJ     PRT         PRESET
01808  M01S01800.baaml   +++|          SB2    TPWRF       PARAMETERS NEEDED
01809  M01S01801.baaml   +++|          LT     B6,B2,WRR2  IF NOT ENOUGH PARAMETERS
01810  M01S01802.baaml   +++|          SA3    A1+TPWR     ADDRESS OF RECORD LENGTH
01811  M01S01803.baaml   +++|          SA2    A1+TPWS     ADDRESS OF WSA-NAME
01812  M01S01804.baaml   +++|          SX7    X2
01813  M01S01805.baaml   +++|          SA3    X3          VALUE OF RECORD LENGTH
01814  M01S01806.baaml   +++|          SA7    TPKT+THRL+TPWS  STORE ADDRESS INTO PACKET
01815  M01S01807.baaml   +++|          BX7    X3
01816  M01S01808.baaml   +++|          SB4    TPWRL       NUMBER OF PARAMETERS NEEDED FOR KEY-AREA
01817  M01S01809.baaml   +++|          SA7    TPKT+THRL+TPWR  RECORD LENGTH INTO PACKET
01818  M01S01810.baaml   +++|          EQ     B6,B2,WRR1  IF END OF PARAMETER LIST
01819  M01S01811.baaml   +++|          LT     B6,B4,WRR1  IF NO KEY-AREA AND KEY-AREA-LENGTH
01820  M01S01812.baaml   +++|          SA3    A1+TPWY     ADDRESS OF KEY-AREA-LENGTH
01821  M01S01813.baaml   +++|          SA2    A1+TPWX     ADDRESS OF KEY-AREA
01822  M01S01814.baaml   +++|          SX7    X2          ADDRESS OF KEY-AREA
01823  M01S01815.baaml   +++|          SA3    X3          VALUE OF KEY-AREA-LENGTH
01824  M01S01816.baaml   +++|          SA7    TPKT+THRL+TPWX  KEY-AREA ADDRESS INTO PACKET
01825  M01S01817.baaml   +++|          BX7    X3
01826  M01S01818.baaml   +++|          SA7    TPKT+THRL+TPWY  KEY-AREA-LENGTH INTO PACKET
01827  M01S01819.baaml   +++| WRR1     SB2    TPWK        PARAMETER POSITION OF KEY-AREA
01828  M01S01820.baaml   +++|          SB4    0           SET NO MAJOR KEY
01829  M01S01821.baaml   +++|          RJ     CKF         CHECK AND TRANSFER KEY INTO PACKET
01830  M01S01822.baaml   +++|          NZ     X7,WRR3     IF KEY-POSITION ERRORS
01831  M01S01823.baaml   +++| WRR2     RJ     RQS         ISSUE *TAF/CRM* REQUEST
01832  M01S01824.baaml   +++| WRR3     RJ     RTS         TAF-STATUS AND CRM-STATUS RETURNED
01833  M01S01825.baaml   +++|          SA2    TPKT+THRL+TPCS  *TAF/CRM* STATUS
01834  M01S01826.baaml   +++|          NZ     X2,WRRX     IF ERROR
01835  M01S01827.baaml   +++|          SB2    TPRWL       MINIMUM NUMBER OF PARAMETERS
01836  M01S01828.baaml   +++|          LE     B6,B2,WRRX  IF NO KEY-AREA AND KEY-AREA-LENGTH
01837  M01S01829.baaml   +++|          SA3    A1+TPWY     ADDRESS OF KEY-AREA-LENGTH
01838  M01S01830.baaml   +++|          SA2    A1+TPWX     ADDRESS OF KEY-AREA
01839  M01S01831.baaml   +++|          SA3    X3          VALUE OF KEY-AREA-LENGTH
01840  M01S01832.baaml   +++|          SB2    B1          KEY-POSITION
01841  M01S01833.baaml   +++|          SA2    X2          ADDRESS OF KEY-AREA
01842  M01S01834.baaml   +++|          SB4    X3          NUMBERS OF CHARACTERS TO MOVE
01843  M01S01835.baaml   +++|          SA1    TKEY        ADDRESS OF KEY IN PACKET
01844  M01S01836.baaml   +++|          RJ     MTS         MOVE KEY TO KEY-AREA
01845  M01S01837.baaml   +++|          EQ     WRRX        RETURN
01846  M01S01838.baaml   +++| COMMON   SPACE  4,10
01847  M01S01839.baaml   +++|**        COMMON DECKS.
01848  M01S01840.baaml   +++|
01849  M01S01841.baaml   +++|
01850  M01S01842.baaml   +++|*CALL     COMCSYS
01851  M01S01843.baaml   +++|*CALL     COMCCDD
01852  M01S01844.baaml   +++|*CALL     COMCCOD
01853  M01S01845.baaml   +++|*CALL     COMCSNM
01854  M01S01846.baaml   +++| COMMON   SPACE  4,65
01855  M01S01847.baaml   +++|**        COMMON WORK STORAGE.
01856  M01S01848.baaml   +++|*
01857  M01S01849.baaml   +++|*T   W+0  24/ RSS,  12/ RIN, 6/ WC, 4/ RCD, 2/ R, 11/ ES, 1/ C
Figure W+0

01111213141718232429 C ES R RCD WC RIN30353659 RIN RSS

01858  M01S01850.baaml   +++|*
01859  M01S01851.baaml   +++|*         RSS = RESERVED FOR *TAF* USE; = THE CHARACTERS "TAF".
01860  M01S01852.baaml   +++|*         RIN = RESERVED FOR INSTALLATION.
01861  M01S01853.baaml   +++|*         WC  = WORD COUNT (COUNT-1) OF REQUEST PACKET.
01862  M01S01854.baaml   +++|*         RCD = RESERVED FOR OPERATING SYSTEM.
01863  M01S01855.baaml   +++|*         R   = RETURN CODE.
01864  M01S01856.baaml   +++|*         ES  = ERROR STATUS.
01865  M01S01857.baaml   +++|*         C   = COMPLETE BIT, SET TO ZERO (0) BY OBJECT-TIME
01866  M01S01858.baaml   +++|*               PRIOR TO FUNCTION OR MACRO CALL.
01867  M01S01859.baaml   +++|*
01868  M01S01860.baaml   +++|*T,  W+1  6/ FC, 18/ ADDR, 6/ AC, 30/ 0
Figure W+1

029 0303536535459 AC ADDR FC

01869  M01S01861.baaml   +++|*
01870  M01S01862.baaml   +++|*         FC   = *TAF/CRM* FUNCTION CODE
01871  M01S01863.baaml   +++|*         ADDR =  ADDRESS WITHIN THE CALLING OBJECT-TIME, WHERE
01872  M01S01864.baaml   +++|*                *TAF* IS TO WRITE THE RESPONSE PACKET.
01873  M01S01865.baaml   +++|*         AC   = PARAMETER COUNT (NUMBER OF PARAMETER PASSED).
01874  M01S01866.baaml   +++|*
01875  M01S01867.baaml   +++|*    W+2  6O/  FILE NAME OR UBEGIN-ID FOR REQUEST
01876  M01S01868.baaml   +++|*              TAF-STATUS FOR DBCOMIT/DBSTAT/DBFREE REQUEST
01877  M01S01869.baaml   +++|*
01878  M01S01870.baaml   +++|*
01879  M01S01871.baaml   +++|*    W+3  60/  TAF-STATUS
01880  M01S01872.baaml   +++|*
01881  M01S01873.baaml   +++|*    W+4  60/  KEY-NAME FOR SKIP REQUEST OR CRM-STATUS
01882  M01S01874.baaml   +++|*
01883  M01S01875.baaml   +++|*    W+5  60/  COUNT FOR SKIP REQUEST  OR
01884  M01S01876.baaml   +++|*              KEY-NAME FOR DELETE REQUEST OR
01885  M01S01877.baaml   +++|*              KEY-OFFSET FOR LOCK REQUEST OR
01886  M01S01878.baaml   +++|*              WSA-NAME
01887  M01S01879.baaml   +++|*
01888  M01S01880.baaml   +++|*    W+6  60/  KEY-OFFSET FOR DELETE REQUEST OR
01889  M01S01881.baaml   +++|*              RECORD LENGTH FOR WRITE REQUEST OR
01890  M01S01882.baaml   +++|*              WSA-LENGTH
01891  M01S01883.baaml   +++|*
01892  M01S01884.baaml   +++|*    W+7  60/  KEY-NAME FOR WRITE REQUEST OR
01893  M01S01885.baaml   +++|*              RECORD LENGTH
01894  M01S01886.baaml   +++|*
01895  M01S01887.baaml   +++|*    W+10 60/  KEY-AREA FOR READM/READN/READNL REQUEST  OR
01896  M01S01888.baaml   +++|*              KEY-NAME
01897  M01S01889.baaml   +++|*
01898  M01S01890.baaml   +++|*    W+11 60/  KEY-AREA-LENGTH FOR READM REQUEST OR
01899  M01S01891.baaml   +++|*              KEY-AREA-LENGTH FOR READN REQUEST OR
01900  M01S01892.baaml   +++|*              KEY-AREA-LENGTH FOR READNL REQUEST OR
01901  M01S01893.baaml   +++|*              KEY-OFFSET
01902  M01S01894.baaml   +++|*
01903  M01S01895.baaml   +++|*    W+12 60/  KEY-NAME FOR READM REQUEST
01904  M01S01896.baaml   +++|*              MAJOR-KEY-LENGTH FOR START
01905  M01S01897.baaml   +++|*              KEY-AREA-LENGTH FOR WRITE
01906  M01S01898.baaml   +++|*              KEY-STATUS
01907  M01S01899.baaml   +++|*
01908  M01S01900.baaml   +++|*    W+13 60/  KEY-OFFSET FOR READM REQUEST OR
01909  M01S01901.baaml   +++|*              KEY-IDENTIFIER FOR READ/READL REQUEST OR
01910  M01S01902.baaml   +++|*              LOCK STATUS FOR READN
01911  M01S01903.baaml   +++|*
01912  M01S01904.baaml   +++|*    W+14 60/  MAJOR-KEY-LENGTH FOR READM REQUEST OR
01913  M01S01905.baaml   +++|*              KEY-AREA FOR READ/READL REQUEST
01914  M01S01906.baaml   +++|*
01915  M01S01907.baaml   +++|*    W+15 60/  KEY-STATUS FOR READM REQUEST OR
01916  M01S01908.baaml   +++|*              KEY-AREA-LENGTH FOR READ/READL REQUEST
01917  M01S01909.baaml   +++|*
01918  M01S01910.baaml   +++|*    W+16 60/  KEY-IDENTIFIER FOR READM REQUEST OR
01919  M01S01911.baaml   +++|*              LOCK STATUS FOR READ
01920  M01S01912.baaml   +++|*
01921  M01S01913.baaml   +++|*    W+17 60/  LOCK STATUS FOR READM
01922  M01S01914.baaml   +++|*
01923  M01S01915.baaml   +++|*    W+20 60/  KEY
01924  M01S01916.baaml   +++|*
01925  M01S01917.baaml   +++|*
01926  M01S01918.baaml   +++|*
01927  M01S01919.baaml   +++|*
01928  M01S01920.baaml   +++|*    W+52
01929  M01S01921.baaml   +++|
01930  M01S01922.baaml   +++|          USE    BUFFERS
01931  M01S01923.baaml   +++|
01932  M01S01924.baaml   +++|
01933  M01S01925.baaml   +++| BUFA     BSS    0           STARTING ADDRESS OF LITERAL AREA
01934  M01S01926.baaml   +++| BEGIN    BSSN   BUFA        START OF BUFFER AREA
01935  M01S01927.baaml   +++| TNPR     BSSN   1           MAXIMUM NUMBER OF PARAMETER FOR FUNCTION
01936  M01S01928.baaml   +++| TFCD     BSSN   1           NAME OF CALLING FUNCTION
01937  M01S01929.baaml   +++| TSA1     BSSN   1           PARAMETER LIST ADDRESS
01938  M01S01930.baaml   +++| TPKT     BSSN   43          PACKET TO AND FROM *TAF/CRM*
01939  M01S01931.baaml   +++| TKST     EQU    TPKT+THRL+TPSF  KEY STATUS FOR PACKET AREA
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/baaml.txt ยท Last modified: by 127.0.0.1