cdc:nos2.source:opl.opl871:deck:baaml
Deck BAAML
3 Modifications
Listing Sections
- Deck BAAML Start
- Deck BAAML Part 1 (Line 1940)
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
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
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