Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:baaml
Deck BAAML
Library Member Format: MODIFY
Listing Sections
- Deck BAAML Start
- Deck BAAML Part 1 (Line 1929)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.baaml +++| IDENT BAAML 00002 M00S00002.baaml +++| SST 00003 M00S00003.baaml +++| ENTRY CLOSE 00004 M00S00004.baaml +++| ENTRY DBCOMIT 00005 M00S00005.baaml +++| ENTRY DBEGIN 00006 M00S00006.baaml +++| ENTRY DBFREE 00007 M00S00007.baaml +++| ENTRY DBSTAT 00008 M00S00008.baaml +++| ENTRY DELETE 00009 M00S00009.baaml +++| ENTRY FLOCK 00010 M00S00010.baaml +++| ENTRY LOCK 00011 M00S00011.baaml +++| ENTRY OPEN 00012 M00S00012.baaml +++| ENTRY READ 00013 M00S00013.baaml +++| ENTRY READL 00014 M00S00014.baaml +++| ENTRY READM 00015 M00S00015.baaml +++| ENTRY READNL 00016 M00S00016.baaml +++| ENTRY READN 00017 M00S00017.baaml +++| ENTRY REWIND 00018 M00S00018.baaml +++| ENTRY REWRITE 00019 M00S00019.baaml +++| ENTRY SKIPBL 00020 M00S00020.baaml +++| ENTRY SKIPFL 00021 M00S00021.baaml +++| ENTRY START 00022 M00S00022.baaml +++| ENTRY UNFLOCK 00023 M00S00023.baaml +++| ENTRY UNLOCK 00024 M00S00024.baaml +++| ENTRY WRITE 00025 M00S00025.baaml +++| SYSCOM B1 00026 M00S00026.baaml +++| TITLE BAAML - OBJECT TIME BATCH CONCURRENCY. 00027 M00S00027.baaml +++|*COMMENT BAAML - OBJECT TIME BATCH CONCURRENCY.
| Line S00028 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00028 M01S00028.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00029 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00030 M00S00029.baaml +++| BAAML SPACE 4,10 00031 M00S00030.baaml +++|*** BAAML - OBJECT TIME BATCH CONCURRENCY. 00032 M00S00031.baaml +++|* 00033 M00S00032.baaml +++|* P. H. PETERSEN. 81/01/13. 00034 M00S00033.baaml +++| SPACE 4,10 00035 M00S00034.baaml +++|*** BAAML IS AN USER LIBRARY INTERFACE FOR COBOL5 AND FORTRAN 00036 M00S00035.baaml +++|* BATCH USER PROGRAMS TO MAKE ADVANCED ACCESS METHOD CYBER 00037 M00S00036.baaml +++|* RECORD MANAGER REQUESTS OF THE TRANSACTION FACILITY. DECK 00038 M00S00037.baaml +++|* *BAAML* IS PLACED ON THE SYSTEM AS LIBRARY *BAAML*. COBOL5
| Line S00038 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00039 M01S00038.v23l617 ---|* *ENTER* VERB AND FORTRAN *CALL* STATEMENT INTERFACE THE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00040 M01S00001.v23l617 +++|* *ENTER* VERB AND FORTRAN *CALL* COMMAND INTERFACE THE 00041 M00S00039.baaml +++|* USER BATCH PROGRAMS TO THE TRANSACTION FACILITY. 00042 M00S00040.baaml +++|* 00043 M00S00041.baaml +++|* THE REQUESTS FOR *TAF CMR* ARE AS FOLLOWS - 00044 M00S00042.baaml +++|* 00045 M00S00043.baaml +++|* TO CLOSE A FILE FOR A DATA BASE - 00046 M00S00044.baaml +++|* ENTER "CLOSE" USING FILE,TSTAT,CSTAT. 00047 M00S00045.baaml +++|* CALL CLOSE (FILE,TSTAT,CSTAT). 00048 M00S00046.baaml +++|* 00049 M00S00047.baaml +++|* TO MARK THE END OF AN UPDATE SEQUENCE - 00050 M00S00048.baaml +++|* ENTER "DBCOMIT" USING TSTAT. 00051 M00S00049.baaml +++|* CALL DBCOMIT (TSTAT). 00052 M00S00050.baaml +++|* 00053 M00S00051.baaml +++|* TO ESTABLISH A DATA BASE AS RECOVERABLE - 00054 M00S00052.baaml +++|* ENTER "DBEGIN" USING UBEGIN, TSTAT. 00055 M00S00053.baaml +++|* CALL DBEGIN (UBEGIN, TSTAT). 00056 M00S00054.baaml +++|* 00057 M00S00055.baaml +++|* TO ROLLBACK UPDATES TO A DATA BASE - 00058 M00S00056.baaml +++|* ENTER "DBFREE" USING TSTAT. 00059 M00S00057.baaml +++|* CALL DBFREE (TSTAT). 00060 M00S00058.baaml +++|* 00061 M00S00059.baaml +++|* TO FIND LAST IDENTIFIER OF LAST SUCCESSFULL BEGIN/COMMIT - 00062 M00S00060.baaml +++|* ENTER "DBSTAT" USING UBEGIN, TSTAT, PBEGIN. 00063 M00S00061.baaml +++|* CALL DBSTAT (UBEGIN, TSTAT, PBEGIN). 00064 M00S00062.baaml +++|* 00065 M00S00063.baaml +++|* TO DELETE A RECORD - 00066 M00S00064.baaml +++|* ENTER "DELETE" USING FILE,TSTAT,CSTAT,KEYN,KEYP. 00067 M00S00065.baaml +++|* CALL DELETE (FILE,TSTAT,CSTAT,KEYN,KEYP). 00068 M00S00066.baaml +++|* 00069 M00S00067.baaml +++|* TO LOCK A RECORD - 00070 M00S00068.baaml +++|* ENTER "LOCK" USING FILE,TSTAT,KEYN,KEYP. 00071 M00S00069.baaml +++|* CALL LOCK (FILE,TSTAT,KEYN,KEYP). 00072 M00S00070.baaml +++|* 00073 M00S00071.baaml +++|* TO LOCK A FILE - 00074 M00S00072.baaml +++|* ENTER "FLOCK" USING FILE,TSTAT. 00075 M00S00073.baaml +++|* CALL FLOCK (FILE,TSTAT). 00076 M00S00074.baaml +++|* 00077 M00S00075.baaml +++|* TO OPEN A FILE FOR A DATA BASE - 00078 M00S00076.baaml +++|* ENTER "OPEN" USING FILE,TSTAT,CSTAT. 00079 M00S00077.baaml +++|* CALL OPEN (FILE,TSTAT,CSTAT). 00080 M00S00078.baaml +++|* 00081 M00S00079.baaml +++|* TO READ A RECORD BY KEY - 00082 M00S00080.baaml +++|* ENTER "READ" USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYN,KEYP, 00083 M00S00081.baaml +++|* KSTAT,KEYID,KEYA,KEYL. 00084 M00S00082.baaml +++|* CALL READ (FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYN,KEYP, 00085 M00S00083.baaml +++|* KSTAT,KEYID,KEYA,KEYL). 00086 M00S00084.baaml +++|* 00087 M00S00085.baaml +++|* TO READ A RECORD BY KEY WITH LOCK - 00088 M00S00086.baaml +++|* ENTER "READL" USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYN,KEYP, 00089 M00S00087.baaml +++|* KSTAT,KEYID,KEYA,KEYL. 00090 M00S00088.baaml +++|* CALL READL (FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYN,KEYP, 00091 M00S00089.baaml +++|* KSTAT,KEYID,KEYA,KEYL). 00092 M00S00090.baaml +++|* 00093 M00S00091.baaml +++|* TO READ A RECORD BY MAJOR KEY - 00094 M00S00092.baaml +++|* ENTER "READM" USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA, 00095 M00S00093.baaml +++|* KEYRL,KEYN,KEYP,MKEYL,KSTAT,KEYID. 00096 M00S00094.baaml +++|* CALL READM (FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA, 00097 M00S00095.baaml +++|* KEYRL,KEYN,KEYP,MKEYL,KSTAT,KEYID). 00098 M00S00096.baaml +++|* 00099 M00S00097.baaml +++|* TO READ NEXT RECORD - 00100 M00S00098.baaml +++|* ENTER "READN" USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL, 00101 M00S00099.baaml +++|* KSTAT. 00102 M00S00100.baaml +++|* CALL READN (FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL,KSTAT). 00103 M00S00101.baaml +++|* 00104 M00S00102.baaml +++|* TO READ NEXT RECORD WITH LOCK - 00105 M00S00103.baaml +++|* ENTER "READNL" USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL, 00106 M00S00104.baaml +++|* KSTAT. 00107 M00S00105.baaml +++|* CALL READNL (FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL,KSTAT). 00108 M00S00106.baaml +++|* 00109 M00S00107.baaml +++|* TO REWIND A FILE - 00110 M00S00108.baaml +++|* ENTER "REWIND" USING FILE,TSTAT,CSTAT. 00111 M00S00109.baaml +++|* CALL REWIND (FILE,TSTAT,CSTAT). 00112 M00S00110.baaml +++|* 00113 M00S00111.baaml +++|* TO REWRITE A RECORD - 00114 M00S00112.baaml +++|* ENTER "REWRITE" USING FILE,TSTAT,CSTAT,WSA,RL,KEYN,KEYP. 00115 M00S00113.baaml +++|* CALL REWRITE (FILE,TSTAT,CSTAT,WSA,RL,KEYN,KEYP). 00116 M00S00114.baaml +++|* 00117 M00S00115.baaml +++|* TO SKIP A LOGICAL RECORD BACKWARD - 00118 M00S00116.baaml +++|* ENTER "SKIPBL" USING FILE,TSTAT,CSTAT,COUNT. 00119 M00S00117.baaml +++|* CALL SKIPBL (FILE,TSTAT,CSTAT,COUNT). 00120 M00S00118.baaml +++|* 00121 M00S00119.baaml +++|* TO SKIP A LOGICAL RECORD FORWARD - 00122 M00S00120.baaml +++|* ENTER "SKIPFL" USING FILE,TSTAT,CSTAT,COUNT. 00123 M00S00121.baaml +++|* CALL SKIPFL (FILE,TSTAT,CSTAT,COUNT). 00124 M00S00122.baaml +++|* 00125 M00S00123.baaml +++|* TO ESTABLISH A POSITION ON A FILE - 00126 M00S00124.baaml +++|* ENTER "START" USING FILE,TSTAT,CSTAT,RELOP,KEYN,KEYP,KSTAT, 00127 M00S00125.baaml +++|* KEYID,MKEYL. 00128 M00S00126.baaml +++|* CALL START (FILE,TSTAT,CSTAT,RELOP,KEYN,KEYP,KSTAT, 00129 M00S00127.baaml +++|* KEYID,MKEYL. 00130 M00S00128.baaml +++|* 00131 M00S00129.baaml +++|* TO UNLOCK A RECORD - 00132 M00S00130.baaml +++|* ENTER "UNLOCK" USING FILE,TSTAT,KEYN,KEYP. 00133 M00S00131.baaml +++|* CALL UNLOCK (FILE,TSTAT,KEYN,KEYP). 00134 M00S00132.baaml +++|* 00135 M00S00133.baaml +++|* TO UNLOCK A FILE - 00136 M00S00134.baaml +++|* ENTER "UNFLOCK" USING FILE,TSTAT. 00137 M00S00135.baaml +++|* CALL UNFLOCK (FILE,TSTAT). 00138 M00S00136.baaml +++|* 00139 M00S00137.baaml +++|* TO WRITE A RECORD - 00140 M00S00138.baaml +++|* ENTER "WRITE" USING FILE,TSTAT,CSTAT,WSA,RL,KEYN,KEYP. 00141 M00S00139.baaml +++|* CALL WRITE (FILE,TSTAT,CSTAT,WSA,RL,KEYN,KEYP). 00142 M00S00140.baaml +++|* 00143 M00S00141.baaml +++|* THE PARAMETERS FOR *TAF CRM* REQUESTS ARE DEFINED BELOW - 00144 M00S00142.baaml +++|* 00145 M00S00143.baaml +++|* XXPFNI (FILE) - FILE NAME SELECTED BY DATA BASE ADMINIS- 00146 M00S00144.baaml +++|* TRATOR. THE FILE NAME MUST BEGIN ON A WORD BOUNDARY 00147 M00S00145.baaml +++|* AND CONSIST OF 2-7 CHARACTERS WITH BLANK OR BINARY 00148 M00S00146.baaml +++|* ZERO FILL. 00149 M00S00147.baaml +++|* COBOL5 - 01 LEVEL DATA NAME. 00150 M00S00148.baaml +++|* FORTRAN - INTEGER. 00151 M00S00149.baaml +++|* 00152 M00S00150.baaml +++|* TAF-STATUS (TSTAT) - TRANSACTION FACILTY STATUS. 00153 M00S00151.baaml +++|* SEE DECK *COMKTER. 00154 M00S00152.baaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00155 M00S00153.baaml +++|* FORTRAN - INTEGER. 00156 M00S00154.baaml +++|* 00157 M00S00155.baaml +++|* CRM-STATUS (STAT) - ERROR CODE STATUS FOR *CRM*. 00158 M00S00156.baaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00159 M00S00157.baaml +++|* FORTRAN - INTEGER. 00160 M00S00158.baaml +++|* 00161 M00S00159.baaml +++|* WSA-NAME (WSA) - SPECIFIES THE AREA TO CONTAIN THE RECORD. 00162 M00S00160.baaml +++|* COBOL5 - 01 LEVEL DATA NAME. 00163 M00S00161.baaml +++|* FORTRAN - INTEGER ARRAY. 00164 M00S00162.baaml +++|* 00165 M00S00163.baaml +++|* 00166 M00S00164.baaml +++|* WSA-LENGTH (WSAL) - SPECIFIES THE LENGTH OF THE AREA 00167 M00S00165.baaml +++|* IDENTIFIED BY THE WSA-NAME. 00168 M00S00166.baaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00169 M00S00167.baaml +++|* FORTRAN - INTEGER. 00170 M00S00168.baaml +++|* 00171 M00S00169.baaml +++|* KEY-AREA (KEYA) - SPECIFIES THE FIELD TO CONTAIN THE 00172 M00S00170.baaml +++|* PRIMARY KEY RETURNED ON A READ REQUEST. 00173 M00S00171.baaml +++|* COBOL5 - 01 LEVEL DATA NAME. 00174 M00S00172.baaml +++|* FORTRAN - INTEGER. 00175 M00S00173.baaml +++|* 00176 M00S00174.baaml +++|* KEY-AREA-LENGTH (KEYAL) - THE LENGTH OF THE FIELD IDENTIFIED 00177 M00S00175.baaml +++|* BY THE KEY-AREA PARAMETER. 00178 M00S00176.baaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00179 M00S00177.baaml +++|* FORTRAN - INTEGER. 00180 M00S00178.baaml +++|* 00181 M00S00179.baaml +++|* MAJOR-KEY-LENGTH (MKEYL) - THE LENGTH OF THE MAJOR KEY. 00182 M00S00180.baaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00183 M00S00181.baaml +++|* FORTRAN - INTEGER. 00184 M00S00182.baaml +++|* 00185 M00S00183.baaml +++|* KEY-OFFSET (KEYP) - THE BEGINNING POSITION OF THE 00186 M00S00184.baaml +++|* PRIMARY KEY. 00187 M00S00185.baaml +++|* COBOL5 - 01 COMPUTATIONAL-1 DATA NAME. 00188 M00S00186.baaml +++|* FORTRAN - INTEGER. 00189 M00S00187.baaml +++|* 00190 M00S00188.baaml +++|* KEY-NAME (KEYN) - DATA NAME THE CONTAINS THE PRIMARY KEY. 00191 M00S00189.baaml +++|* COBOL5 - 01 LEVEL DATA NAME. 00192 M00S00190.baaml +++|* FORTRAN - INTEGER. 00193 M00S00191.baaml +++|* 00194 M00S00192.baaml +++|* RECORD-LENGTH (RL) - DATA NAME THE SPECIFIES THE LENGTH 00195 M00S00193.baaml +++|* OF THE RECORD RETURNED BY *TAF* AFTER ISSUING 00196 M00S00194.baaml +++|* A READ REQUEST. ALSO, THE LENGTH OF THE RECORD 00197 M00S00195.baaml +++|* TO BE WRITTEN TO THE DATA BASE FROM THE AREA 00198 M00S00196.baaml +++|* IDENTIFIED BY THE WSA-NAME PARAMETER. 00199 M00S00197.baaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00200 M00S00198.baaml +++|* FORTRAN - INTEGER. 00201 M00S00199.baaml +++|* 00202 M00S00200.baaml +++|* COUNT - COUNT OF LOGICAL RECORDS TO SKIP. 00203 M00S00201.baaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00204 M00S00202.baaml +++|* FORTRAN - INTEGER. 00205 M00S00203.baaml +++|* 00206 M00S00204.baaml +++|* KEY-STATUS (KSTAT) - DATA NAME THAT SPECIFIES THE FIELD TO 00207 M00S00205.baaml +++|* CONTAIN A KEY STATUS CODE RETURNED BY *TAF*. 00208 M00S00206.baaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME. 00209 M00S00207.baaml +++|* FORTRAN - INTEGER. 00210 M00S00208.baaml +++|* 00211 M00S00209.baaml +++|* KEY-IDENTIFIER (KEYID) - A DATA NAME THE SPECIFIES 00212 M00S00210.baaml +++|* THE KEY, ALTERNATE OR PRIMARY, FOR ACCESS. 00213 M00S00211.baaml +++|* 00214 M00S00212.baaml +++|* NEGATIVE - NO CHANGE IN KEY ACCESS. 00215 M00S00213.baaml +++|* 0 - PRIMARY KEY. 00216 M00S00214.baaml +++|* N - VALUE ASSOCIATED WITH THE
| Line S00215 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00217 M01S00215.v23l617 ---|* KEY BY AN *AKY* CARD.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00218 M01S00002.v23l617 +++|* KEY BY AN *AKY* COMMAND. 00219 M00S00216.baaml +++|* COBOL5 - 01 LEVEL COMPUTIONAL DATA NAME. 00220 M00S00217.baaml +++|* FORTRAN - INTEGER. 00221 M00S00218.baaml +++|* 00222 M00S00219.baaml +++|* RELATION-OPERATOR (RELOP) - VALUES EQ, GT, OR GE. 00223 M00S00220.baaml +++|* A DATA NAME THAT SPECIFIES THE POSITION RELATIVE 00224 M00S00221.baaml +++|* TO THE GIVEN KEY AFTER THE OPERATION. 00225 M00S00222.baaml +++|* COBOL5 - 01 LEVEL COMPUTATION-1 DATA NAME. 00226 M00S00223.baaml +++|* FORTRAN - INTEGER. 00227 M00S00224.baaml +++|* 00228 M00S00225.baaml +++|* UBEGIN - A JOB SUPPLIED VALUE TO DEFINE A 00229 M00S00226.baaml +++|* RESTART POSITION. 00230 M00S00227.baaml +++|* COBOL5 - 01 LEVEL COMPUTIONAL-1 DATA NAME. 00231 M00S00228.baaml +++|* FORTRAN - INTEGER. 00232 M00S00229.baaml +++|* 00233 M00S00230.baaml +++|* PBEGIN - THE BEGINNING IDENTIFIER OF THE 00234 M00S00231.baaml +++|* PREVIOUS *DBEGIN* REQUEST. 00235 M00S00232.baaml +++|* COBOL5 - 01 LEVEL COMPUTIONAL-1 DATA NAME. 00236 M00S00233.baaml +++|* FORTRAN - INTEGER. 00237 M00S00234.baaml +++|* 00238 M00S00235.baaml +++| SPACE 4,20 00239 M00S00236.baaml +++|*** DAYFILE MESSAGES. 00240 M00S00237.baaml +++|* 00241 M00S00238.baaml +++|* TAF FUNCTION CODE NOT VALID. 00242 M00S00239.baaml +++|* TAF CANNOT PROCESS THE REQUEST ISSUED BECAUSE 00243 M00S00240.baaml +++|* IT IS AN UNRECOGNIZABLE FUNCTION CODE. THIS IS 00244 M00S00241.baaml +++|* AN INTERNAL ERROR. 00245 M00S00242.baaml +++|* 00246 M00S00243.baaml +++|* 00247 M00S00244.baaml +++|* TAF TWO OUTSTANDING REQUEST. 00248 M00S00245.baaml +++|* TAF RECIEVED ANOTHER REQUEST FROM A USER PROGRAM 00249 M00S00246.baaml +++|* BEFORE THE PREVIOUS REQUEST WAS SATISFIED. THIS 00250 M00S00247.baaml +++|* IS AN INTERNAL ERROR. 00251 M00S00248.baaml +++|* 00252 M00S00249.baaml +++|* 00253 M00S00250.baaml +++|* TAF SUBSYSTEM BUSY. 00254 M00S00251.baaml +++|* TAF WAS BUSY AND COULD NOT ACCEPT THE BATCH REQUEST. 00255 M00S00252.baaml +++|* 00256 M00S00253.baaml +++|* 00257 M00S00254.baaml +++|* TAF/CRM FUNCTION CODE NOT VALID. 00258 M00S00255.baaml +++|* *TAF/CRM* CANNOT PROCESS THE REQUEST ISSUED BECAUSE 00259 M00S00256.baaml +++|* IT IS AN UNRECOGNIZABLE FUNCTION CODE. THIS 00260 M00S00257.baaml +++|* IS AN INTERNAL ERROR. 00261 M00S00258.baaml +++|* 00262 M00S00259.baaml +++|* 00263 M00S00260.baaml +++|* TAF USER NOT VALID FOR TAF ACCESS. 00264 M00S00261.baaml +++|* BATCH USER WAS NOT VALIDATED TO USE *TAF*. 00265 M00S00262.baaml +++|* 00266 M00S00263.baaml +++|*
| Line S00264 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00267 M01S00264.v23l617 ---|* TAF USER NUMBER ACTIVE.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00268 M01S00003.v23l617 +++|* TAF USER NAME ACTIVE. 00269 M00S00265.baaml +++|* SOME OTHER BATCH OR TERMINAL JOB IS CURRENTLY
| Line S00266 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00270 M01S00266.v23l617 ---|* ACCESSING *TAF/CRM* UNDER THIS USER NUMBER.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00271 M01S00004.v23l617 +++|* ACCESSING *TAF/CRM* UNDER THIS USER NAME. 00272 M00S00267.baaml +++|* 00273 M00S00268.baaml +++|* 00274 M00S00269.baaml +++|* TAF DATA NOT WITHIN UCP FL. 00275 M00S00270.baaml +++|* TAF CANNOT READ (WRITE) DATA FROM USER PROGRAM 00276 M00S00271.baaml +++|* BECAUSE THE ADDRESS SPECIFIED IS OUTSIDE THE 00277 M00S00272.baaml +++|* *UCP* (USER CONTROL POINT) *FL* (FIELD LENGTH). 00278 M00S00273.baaml +++|* 00279 M00S00274.baaml +++|* 00280 M00S00275.baaml +++|* TAF/CRM TAF STATUS ERROR XXXX IN FUNCTION YYYYYYY. 00281 M00S00276.baaml +++|* AN TAF-STATUS ERROR CODE NNN WAS RETURNED TO 00282 M00S00277.baaml +++|* THE PROGRAM FROM FUNCTION XXXXXXX. 00283 M00S00278.baaml +++|* 00284 M00S00279.baaml +++|* 00285 M00S00280.baaml +++|* TAF/CRM CRM STATUS ERROR XXXX IN FUNCTION YYYYYYY. 00286 M00S00281.baaml +++|* AN CRM-STATUS ERROR CODE NNN WAS RETURNED TO 00287 M00S00282.baaml +++|* THE PROGRAM FROM FUNCTION XXXXXXX. 00288 M00S00283.baaml +++|* 00289 M00S00284.baaml +++|* TAF USER CONFLICT IN ACCESS TYPE. 00290 M00S00285.baaml +++|* BATCH JOB TRIED TO ACCESS AS INTERACTIVE. 00291 M00S00286.baaml +++|* 00292 M00S00287.baaml +++|* TAF ERROR CODE NOT DEFINED. 00293 M00S00288.baaml +++|* *BAAML* COULD NOT FIND PROPER ERROR CODE. 00294 M00S00289.baaml +++|* 00295 M00S00290.baaml +++|* TAF RECOVERY REQUEST ERROR. 00296 M00S00291.baaml +++|* TAF DETECTED AN ERROR IN THE RECOVERY REQUEST. 00297 M00S00292.baaml +++|* 00298 M00S00293.baaml +++|* BATCH CONCURRENCY DISABLED. 00299 M00S00294.baaml +++|* TAF WAS NOT INITIALIZED WITH BATCH CONCURRENCY 00300 M00S00295.baaml +++|* ENABLED. 00301 M00S00296.baaml +++|* 00302 M00S00297.baaml +++|* TAF/CRM DATA MANAGER NOT LOADED IN TAF. 00303 M00S00298.baaml +++|* THE CRM DATA MANAGER WAS NOT LOADED WHEN 00304 M00S00299.baaml +++|* TAF WAS INITIALIZED. 00305 M00S00300.baaml +++| SPACE 4,10 00306 M00S00301.baaml +++|*** OPERATOR MESSAGES. 00307 M00S00302.baaml +++|* 00308 M00S00303.baaml +++|* TAF IDLE (GO OR DROP). 00309 M00S00304.baaml +++|* ACCESS TO *TAF* DENIED BECAUSE IT IS IDLING DOWN. 00310 M00S00305.baaml +++|* 00311 M00S00306.baaml +++|* TAF SUBSYSTEM NOT PRESENT (GO OR DROP). 00312 M00S00307.baaml +++|* THE *TAF* SUBSYSTEM WAS NOT PRESENT WHEN A BATCH 00313 M00S00308.baaml +++|* JOB TRIED TO CONNECT TO IT. 00314 M00S00309.baaml +++| SPACE 4,10 00315 M00S00310.baaml +++|** FCTM - FUNCTION CODE TABLE ERROR. 00316 M00S00311.baaml +++|* 00317 M00S00312.baaml +++|* *FCTM* IS A MACRO THAT IS USED TO BUILD A TABLE 00318 M00S00313.baaml +++|* FOR PROCESSING THE RESPONSE FROM *TAF/CRM*. 00319 M00S00314.baaml +++|* 00320 M00S00315.baaml +++|* ENTRY FCTM MSG,RUT,DSP,ERC 00321 M00S00316.baaml +++|* MSG - MESSAGE TO BE ISSUED. 00322 M00S00317.baaml +++|* RUT - ROUTINE TO DO THE PROCESSING. 00323 M00S00318.baaml +++|* DSP - DISPLAY MESSAGE TO PROPER DAYFILE. 00324 M00S00319.baaml +++|* ERC - ERROR CODE RESPONSE. 00325 M00S00320.baaml +++| 00326 M00S00321.baaml +++| 00327 M00S00322.baaml +++| FCTM MACRO MSG,RUT,DSP,ERC 00328 M00S00323.baaml +++| VFD 18/MSG,18/RUT,6/DSP,18/ERC 00329 M00S00324.baaml +++| FCTM ENDM 00330 M00S00325.baaml +++| SPACE 4,10 00331 M00S00326.baaml +++|*** COMMON DECKS. 00332 M00S00327.baaml +++| 00333 M00S00328.baaml +++| 00334 M00S00329.baaml +++|*CALL COMCMAC 00335 M00S00330.baaml +++|*CALL COMKTRN 00336 M00S00331.baaml +++|*CALL COMKTDM 00337 M00S00332.baaml +++|*CALL COMKIPR 00338 M00S00333.baaml +++| LIST X 00339 M00S00334.baaml +++|*CALL COMKFLD 00340 M00S00335.baaml +++|*CALL COMKTSC 00341 M00S00336.baaml +++| BEGNX BSS 0 00342 M00S00337.baaml +++|*CALL COMKCRM 00343 M00S00338.baaml +++|*CALL COMKTER 00344 M00S00339.baaml +++| ORG BEGNX DO NOT RESERVE SPACE FOR *TAF/CRM* TABLES 00345 M00S00340.baaml +++| QUAL SCP 00346 M00S00341.baaml +++|*CALL COMSSCP 00347 M00S00342.baaml +++| QUAL SSD 00348 M00S00343.baaml +++|*CALL COMSSSD 00349 M00S00344.baaml +++| QUAL 00350 M00S00345.baaml +++| LIST -X 00351 M00S00346.baaml +++| TITLE SUB-FUNCTION FOR *CRM* CALLS. 00352 M00S00347.baaml +++| SPACE 4,10 00353 M00S00348.baaml +++|**** ASSEMBLY CONSTANTS. 00354 M00S00349.baaml +++| 00355 M00S00350.baaml +++| 00356 M00S00351.baaml +++| TCHL EQU 10 NUMBER OF CHARACTERS IN A WORD 00357 M00S00352.baaml +++| 00358 M00S00353.baaml +++| TMKL EQU 255 MAXIMUN LENGTH OF A KEY IN CHARACTERS 00359 M00S00354.baaml +++| 00360 M00S00355.baaml +++| TMKW EQU 24 MAXIMIN LENGTH OF A KEY IN WORDS 00361 M00S00356.baaml +++| 00362 M00S00357.baaml +++| THRL EQU 2 LENGTH OF PACKET HEADER 00363 M00S00358.baaml +++| EJECT 00364 M00S00359.baaml +++| CLOSE SPACE 4,15 00365 M00S00360.baaml +++|** CLOSE - CLOSE A FILE. 00366 M00S00361.baaml +++|* 00367 M00S00362.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00368 M00S00363.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00369 M00S00364.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00370 M00S00365.baaml +++|* 00371 M00S00366.baaml +++|* EXIT *TAF* AND *CRM* STATUS RETURNED. 00372 M00S00367.baaml +++|* 00373 M00S00368.baaml +++|* USES X - 7. 00374 M00S00369.baaml +++|* B - 2. 00375 M00S00370.baaml +++|* 00376 M00S00371.baaml +++|* CALLS PRT, RQS, RTS. 00377 M00S00372.baaml +++| 00378 M00S00373.baaml +++| 00379 M00S00374.baaml +++| CLOSE SUBR ENTRY/EXIT 00380 M00S00375.baaml +++| SB2 TPCLL MAXIMUM NUMBER OF PARAMETERS 00381 M00S00376.baaml +++| SX7 TRCL CLOSE SUB-FUNCTION CODE 00382 M00S00377.baaml +++| RJ PRT PRESET 00383 M00S00378.baaml +++| RJ RQS ISSUE *TAF/CRM* REQUEST 00384 M00S00379.baaml +++| RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 00385 M00S00380.baaml +++| EQ CLOSEX RETURN 00386 M00S00381.baaml +++| DBCOMIT SPACE 4,15 00387 M00S00382.baaml +++|** DBCOMIT - MARK END OF UPDATE SEQUENCE. 00388 M00S00383.baaml +++|* 00389 M00S00384.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00390 M00S00385.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00391 M00S00386.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00392 M00S00387.baaml +++|* 00393 M00S00388.baaml +++|* EXIT FUNCTION COMPLETE. 00394 M00S00389.baaml +++|* 00395 M00S00390.baaml +++|* USES X - 1, 2, 7. 00396 M00S00391.baaml +++|* A - 1, 2, 7. 00397 M00S00392.baaml +++|* B - 2. 00398 M00S00393.baaml +++|* 00399 M00S00394.baaml +++|* CALLS PRT, DCF. 00400 M00S00395.baaml +++| 00401 M00S00396.baaml +++| 00402 M00S00397.baaml +++| DBCOMIT SUBR ENTRY/EXIT 00403 M00S00398.baaml +++| SB2 TPDCL MAXIMUM NUMBER OF PARAMETERS 00404 M00S00399.baaml +++| SX7 TRDC SUB-FUNCTION CODE 00405 M00S00400.baaml +++| RJ DCF PROCESS REQUEST 00406 M00S00401.baaml +++| EQ DBCOMITX RETURN 00407 M00S00402.baaml +++| DBEGIN SPACE 4,15 00408 M00S00403.baaml +++|** DBEGIN - DESIGNATE A DATA BASE AS RECOVERABLE. 00409 M00S00404.baaml +++|* 00410 M00S00405.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00411 M00S00406.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00412 M00S00407.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00413 M00S00408.baaml +++|* 00414 M00S00409.baaml +++|* EXIT FUNCTION COMPLETE AND STATUS RETURNED. 00415 M00S00410.baaml +++|* 00416 M00S00411.baaml +++|* USES X - 1, 2, 7. 00417 M00S00412.baaml +++|* A - 1, 2, 7. 00418 M00S00413.baaml +++|* B - 2. 00419 M00S00414.baaml +++|* 00420 M00S00415.baaml +++|* CALLS PRT, RQS, RTT. 00421 M00S00416.baaml +++| 00422 M00S00417.baaml +++| 00423 M00S00418.baaml +++| DBEGIN SUBR ENTRY/EXIT 00424 M00S00419.baaml +++| SB2 TPDBL MAXIMUM NUMBER OF PARAMETERS 00425 M00S00420.baaml +++| SX7 TRDB SUB-FUNCTION CODE 00426 M00S00421.baaml +++| RJ PRT PRESET 00427 M00S00422.baaml +++| RJ RQS ISSUE *TAF/CRM* REQUEST 00428 M00S00423.baaml +++| SA2 TPKT+THRL+TPTS TAF-STATUS FROM AAMI 00429 M00S00424.baaml +++| ZR X2,DBN1 IF NO ERRORS 00430 M00S00425.baaml +++| BX1 X2 00431 M00S00426.baaml +++| RJ RTT ISSUE ERROR MESSAGE 00432 M00S00427.baaml +++| DBN1 SX7 B6-TPDBL NUMBER OF PARAMTERS 00433 M00S00428.baaml +++| NG X7,DBEGINX IF NOT ENOUGH PARAMTERS 00434 M00S00429.baaml +++| SA2 A1+TPTS ADDRESS TO PUT TAF-STATUS 00435 M00S00430.baaml +++| SA1 TPKT+THRL+TPTS TAF-STATUS 00436 M00S00431.baaml +++| BX7 X1 00437 M00S00432.baaml +++| SA7 X2 SET TAF-STATUS 00438 M00S00433.baaml +++| EQ DBEGINX RETURN 00439 M00S00434.baaml +++| DBFREE SPACE 4,15 00440 M00S00435.baaml +++|** DBFREE - ROLLBACK ALL UPDATES TO A FILE. 00441 M00S00436.baaml +++|* 00442 M00S00437.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00443 M00S00438.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00444 M00S00439.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00445 M00S00440.baaml +++|* 00446 M00S00441.baaml +++|* EXIT FUNCTION COMPLETE AND STATUS RETURNED. 00447 M00S00442.baaml +++|* 00448 M00S00443.baaml +++|* USES X - 1, 2, 7. 00449 M00S00444.baaml +++|* A - 1, 2, 7. 00450 M00S00445.baaml +++|* B - 2. 00451 M00S00446.baaml +++|* 00452 M00S00447.baaml +++|* CALLS PRT, DCF. 00453 M00S00448.baaml +++| 00454 M00S00449.baaml +++| 00455 M00S00450.baaml +++| DBFREE SUBR ENTRY/EXIT 00456 M00S00451.baaml +++| SB2 TPDFL MAXIMUM NUMBER OF PARAMETERS 00457 M00S00452.baaml +++| SX7 TRDF SUB-FUNCTION CODE 00458 M00S00453.baaml +++| RJ DCF PROCESS REQUEST 00459 M00S00454.baaml +++| EQ DBFREEX RETURN 00460 M00S00455.baaml +++| DBSTAT SPACE 4,15 00461 M00S00456.baaml +++|** DBSTAT - FIND LAST BEGIN/COMMIT SEQUENCE. 00462 M00S00457.baaml +++|* 00463 M00S00458.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00464 M00S00459.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00465 M00S00460.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00466 M00S00461.baaml +++|* 00467 M00S00462.baaml +++|* EXIT FUNCTION COMPLETE AND STATUS RETURNED. 00468 M00S00463.baaml +++|* 00469 M00S00464.baaml +++|* USES X - 1, 2, 3, 7. 00470 M00S00465.baaml +++|* A - 2, 3, 7. 00471 M00S00466.baaml +++|* B - 2. 00472 M00S00467.baaml +++|* 00473 M00S00468.baaml +++|* CALLS PRT, RQS, RTT. 00474 M00S00469.baaml +++| 00475 M00S00470.baaml +++| 00476 M00S00471.baaml +++| DBSTAT SUBR ENTRY/EXIT 00477 M00S00472.baaml +++| SB2 TPDSL MAXIMUM NUMBER OF PARAMETERS 00478 M00S00473.baaml +++| SX7 TRDS SUB-FUNCTION CODE 00479 M00S00474.baaml +++| RJ PRT PRESET 00480 M00S00475.baaml +++| SX7 B6-TPDSL PARAMETERS 00481 M00S00476.baaml +++| NG X7,DBS1 IF NOT ENOUGH PARAMETERS 00482 M00S00477.baaml +++| SA2 A1+TPPI PREVIOUS DBCOMIT STATUS 00483 M00S00478.baaml +++| SA2 X2 VALUE 00484 M00S00479.baaml +++| BX7 X2 00485 M00S00480.baaml +++| SA7 TPKT+THRL+TPPI PREVIOUS DBCOMIT STATUS 00486 M00S00481.baaml +++| DBS1 RJ RQS ISSUE *TAF/CRM* REQUEST 00487 M00S00482.baaml +++| SA2 TPKT+THRL+TPTS TAF-STATUS FROM AAMI 00488 M00S00483.baaml +++| ZR X2,DBS2 IF NO ERRORS 00489 M00S00484.baaml +++| BX1 X2 00490 M00S00485.baaml +++| RJ RTT ISSUE ERROR MESSAGE 00491 M00S00486.baaml +++| DBS2 SX7 B6-TPDSL MINIMUM NUMBER OF PARAMETERS 00492 M00S00487.baaml +++| NG X7,DBSTATX IF NOT ENOUGH PARAMETERS 00493 M00S00488.baaml +++| SA3 TPKT+THRL+TPCI DBSTAT FROM *TAF/CRM* 00494 M00S00489.baaml +++| SA2 A1+TPCI DBSTAT ADDRESS 00495 M00S00490.baaml +++| BX7 X3 00496 M00S00491.baaml +++| SA7 X2 00497 M00S00492.baaml +++| SA3 TPKT+THRL+TPTS TAF-STATUS 00498 M00S00493.baaml +++| SA2 A1+TPTS TAF-STATUS ADDRESS 00499 M00S00494.baaml +++| BX7 X3 00500 M00S00495.baaml +++| SA7 X2 00501 M00S00496.baaml +++| SA3 TPKT+THRL+TPPI DBSTAT FROM *TAF/CRM* 00502 M00S00497.baaml +++| SA2 A1+TPPI DBSTAT ADDRESS 00503 M00S00498.baaml +++| BX7 X3 00504 M00S00499.baaml +++| SA7 X2 00505 M00S00500.baaml +++| EQ DBSTATX RETURN 00506 M00S00501.baaml +++| DELETE SPACE 4,15 00507 M00S00502.baaml +++|** DELETE - DELETE A RECORD. 00508 M00S00503.baaml +++|* 00509 M00S00504.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00510 M00S00505.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00511 M00S00506.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00512 M00S00507.baaml +++|* 00513 M00S00508.baaml +++|* EXIT FUNCTION COMPLETED AND ADDRESS RETURNED. 00514 M00S00509.baaml +++|* 00515 M00S00510.baaml +++|* USES X - 7. 00516 M00S00511.baaml +++|* A - 7. 00517 M00S00512.baaml +++|* B - 2, 4. 00518 M00S00513.baaml +++|* 00519 M00S00514.baaml +++|* CALLS CKF, PRT, RQS, RTS. 00520 M00S00515.baaml +++| 00521 M00S00516.baaml +++| 00522 M00S00517.baaml +++| DELETE SUBR ENTRY/EXIT 00523 M00S00518.baaml +++| SB2 TPDEL MAXIMUM NUMBER OF PARAMETERS 00524 M00S00519.baaml +++| SX7 TRDE SUB-FUNCTION CODE 00525 M00S00520.baaml +++| RJ PRT PRESET 00526 M00S00521.baaml +++| SX7 B6-TPDEL MINIMUM NUMBER OF PARAMETERS 00527 M00S00522.baaml +++| NG X7,DEL1 IF NOT ENOUGH PARAMETERS 00528 M00S00523.baaml +++| SB4 0 SET NO MAJOR KEY-LENGTH 00529 M00S00524.baaml +++| SB2 TPDK INDEX TO KEY-AREA IN PATAMERER LIST 00530 M00S00525.baaml +++| RJ CKF CHECK AND TRANSFER KEY 00531 M00S00526.baaml +++| NZ X7,DEL2 IF KEY-OFFSET ERROR 00532 M00S00527.baaml +++| DEL1 RJ RQS ISSUE *TAF/CRM* REQUEST 00533 M00S00528.baaml +++| DEL2 RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 00534 M00S00529.baaml +++| EQ DELETEX RETURN 00535 M00S00530.baaml +++| FLOCK SPACE 4,15 00536 M00S00531.baaml +++|** FLOCK - LOCK A FILE. 00537 M00S00532.baaml +++|* 00538 M00S00533.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00539 M00S00534.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00540 M00S00535.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00541 M00S00536.baaml +++|* 00542 M00S00537.baaml +++|* EXIT FUNCTION COMPLETE AND STATUS RETURNED. 00543 M00S00538.baaml +++|* 00544 M00S00539.baaml +++|* USES X - 7. 00545 M00S00540.baaml +++|* B - 2. 00546 M00S00541.baaml +++|* 00547 M00S00542.baaml +++|* CALLS PRT, RQS, RTS. 00548 M00S00543.baaml +++| 00549 M00S00544.baaml +++| 00550 M00S00545.baaml +++| FLOCK SUBR ENTRY/EXIT 00551 M00S00546.baaml +++| SB2 TPLFL MAXIMUM NUMBER OF PARAMETERS 00552 M00S00547.baaml +++| SX7 TRLF SUB-FUNCTION CODE 00553 M00S00548.baaml +++| RJ PRT PRESET 00554 M00S00549.baaml +++| RJ RQS ISSUE *TAF/CRM* REQUEST 00555 M00S00550.baaml +++| RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 00556 M00S00551.baaml +++| EQ FLOCKX RETURN 00557 M00S00552.baaml +++| LOCK SPACE 4,15 00558 M00S00553.baaml +++|** LOCK - LOCK RECORD. 00559 M00S00554.baaml +++|* 00560 M00S00555.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00561 M00S00556.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00562 M00S00557.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00563 M00S00558.baaml +++|* 00564 M00S00559.baaml +++|* EXIT FUNCTION COMPLETE AND STATUS RETURNED. 00565 M00S00560.baaml +++|* 00566 M00S00561.baaml +++|* USES X - 1, 2, 7. 00567 M00S00562.baaml +++|* A - 1, 2, 7. 00568 M00S00563.baaml +++|* B - 2, 4. 00569 M00S00564.baaml +++|* 00570 M00S00565.baaml +++|* CALLS PRT, RQS, CKF, RTT. 00571 M00S00566.baaml +++| 00572 M00S00567.baaml +++| 00573 M00S00568.baaml +++| LOCK SUBR ENTRY/EXIT 00574 M00S00569.baaml +++| SB2 TPLCL MAXIMUM NUMBER OF PARAMETERS 00575 M00S00570.baaml +++| SX7 TRLC SUB-FUNCTION CODE 00576 M00S00571.baaml +++| RJ PRT PRESET 00577 M00S00572.baaml +++| SX7 B6-TPLCL MINIMUM NUMBER OF PARAMETERS 00578 M00S00573.baaml +++| NG X7,LOK1 IF NOT ENOUGH PARAMETERS 00579 M00S00574.baaml +++| SB2 TPKL INDEX FOR KEY-NAME TO PARAMETER LIST 00580 M00S00575.baaml +++| SB4 0 SET NO MAJOR-KEY-LENGTH 00581 M00S00576.baaml +++| RJ CKF CHECK AND TRANSFER KEY 00582 M00S00577.baaml +++| NZ X7,LOK2 IF KEY-OFFSET ERRORS 00583 M00S00578.baaml +++| LOK1 RJ RQS ISSUE *TAF/CRM* REQUEST 00584 M00S00579.baaml +++| LOK2 SA2 TPKT+THRL+TPTS TAF-STATUS FROM AAMI 00585 M00S00580.baaml +++| ZR X2,LOK3 IF NO ERRORS 00586 M00S00581.baaml +++| BX1 X2 00587 M00S00582.baaml +++| RJ RTT ISSUE ERROR MESSAGE 00588 M00S00583.baaml +++| LOK3 SX7 B6-TPPI MINIMUM NUMBER OF PARAMETERS 00589 M00S00584.baaml +++| NG X7,LOCKX IF NOT ENOUGH PARAMETERS 00590 M00S00585.baaml +++| SA2 A1+TPTS ADDRESS TO RETURN DBSTAT 00591 M00S00586.baaml +++| SA1 TPKT+THRL+TPTS TAF-STATUS FROM DBSTAT 00592 M00S00587.baaml +++| BX7 X1 00593 M00S00588.baaml +++| SA7 X2 TAF-STATUS TO PROGRAM 00594 M00S00589.baaml +++| EQ LOCKX RETURN 00595 M00S00590.baaml +++| OPEN SPACE 4,15 00596 M00S00591.baaml +++|** OPEN - OPEN DATA BASE. 00597 M00S00592.baaml +++|* 00598 M00S00593.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00599 M00S00594.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00600 M00S00595.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00601 M00S00596.baaml +++|* 00602 M00S00597.baaml +++|* EXIT FUNCTION COMPLETE AND STATUS RETURNED. 00603 M00S00598.baaml +++|* 00604 M00S00599.baaml +++|* USES X - 7. 00605 M00S00600.baaml +++|* B - 2. 00606 M00S00601.baaml +++|* 00607 M00S00602.baaml +++|* CALLS PRT, RQS, RTS. 00608 M00S00603.baaml +++| 00609 M00S00604.baaml +++| 00610 M00S00605.baaml +++| OPEN SUBR ENTRY/EXIT 00611 M00S00606.baaml +++| SB2 TPOPL MAXIMUM NUMBER OF PARAMETERS 00612 M00S00607.baaml +++| SX7 TROP SUB-FUNCTION CODE 00613 M00S00608.baaml +++| RJ PRT PRESET 00614 M00S00609.baaml +++| RJ RQS ISSUES *TAF/CRM* REQUEST 00615 M00S00610.baaml +++| RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 00616 M00S00611.baaml +++| EQ OPENX RETURN 00617 M00S00612.baaml +++| READ SPACE 4,15 00618 M00S00613.baaml +++|** READ - READ BY KEY. 00619 M00S00614.baaml +++|* 00620 M00S00615.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00621 M00S00616.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00622 M00S00617.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00623 M00S00618.baaml +++|* 00624 M00S00619.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00625 M00S00620.baaml +++|* 00626 M00S00621.baaml +++|* EXIT READ FUNCTIN COMPLETE AND STATUS RETURNED. 00627 M00S00622.baaml +++|* 00628 M00S00623.baaml +++|* USES X - 7. 00629 M00S00624.baaml +++|* B - 2. 00630 M00S00625.baaml +++|* 00631 M00S00626.baaml +++|* CALLS RAD. 00632 M00S00627.baaml +++| 00633 M00S00628.baaml +++| 00634 M00S00629.baaml +++| READ SUBR ENTRY/EXIT 00635 M00S00630.baaml +++| SB2 TPRDL MAXIMIM NUMBER OF PARAMETERS 00636 M00S00631.baaml +++| SX7 TRRD SUB-FUNCTION CODE 00637 M00S00632.baaml +++| RJ RAD PROCESS READ AND READL FUNCTIONS 00638 M00S00633.baaml +++| EQ READX RETURN 00639 M00S00634.baaml +++| READL SPACE 4,15 00640 M00S00635.baaml +++|** READL - READ AND LOCK RECORD. 00641 M00S00636.baaml +++|* 00642 M00S00637.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00643 M00S00638.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00644 M00S00639.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00645 M00S00640.baaml +++|* 00646 M00S00641.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00647 M00S00642.baaml +++|* 00648 M00S00643.baaml +++|* USES X - 7. 00649 M00S00644.baaml +++|* B - 2. 00650 M00S00645.baaml +++|* 00651 M00S00646.baaml +++|* CALLS RAD. 00652 M00S00647.baaml +++| 00653 M00S00648.baaml +++| 00654 M00S00649.baaml +++| READL SUBR ENTRY/EXIT 00655 M00S00650.baaml +++| SB2 TPRLL MAXIMUM PARAMETERS FOR READ 00656 M00S00651.baaml +++| SX7 TRRL SUB-FUNCTION CODE 00657 M00S00652.baaml +++| RJ RAD PROCESS READ AND READL FUNCTIONS 00658 M00S00653.baaml +++| EQ READLX RETURN 00659 M00S00654.baaml +++| READM SPACE 4,15 00660 M00S00655.baaml +++|** READM - READ BY MAJOR KEY. 00661 M00S00656.baaml +++|* 00662 M00S00657.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00663 M00S00658.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00664 M00S00659.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00665 M00S00660.baaml +++|* 00666 M00S00661.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00667 M00S00662.baaml +++|* 00668 M00S00663.baaml +++|* USES X - 0, 7. 00669 M00S00664.baaml +++|* B - 2. 00670 M00S00665.baaml +++|* 00671 M00S00666.baaml +++|* CALLS RDM. 00672 M00S00667.baaml +++| 00673 M00S00668.baaml +++| 00674 M00S00669.baaml +++| READM SUBR ENTRY/EXIT 00675 M00S00670.baaml +++| SB2 TPRML MAXIMUM NUMBER OF PARAMETERS 00676 M00S00671.baaml +++| SX7 TRRM SUB-FUNCTION CODE 00677 M00S00672.baaml +++| SX0 TRRM SET SWITCH FOR CALL BY READM 00678 M00S00673.baaml +++| RJ RDM PROCESS READM FUNCTION 00679 M00S00674.baaml +++| EQ READMX RETURN 00680 M00S00675.baaml +++| READNL SPACE 4,15 00681 M00S00676.baaml +++|** READNL - READ NEXT RECORD WITH LOCK. 00682 M00S00677.baaml +++|* 00683 M00S00678.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00684 M00S00679.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00685 M00S00680.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00686 M00S00681.baaml +++|* 00687 M00S00682.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00688 M00S00683.baaml +++|* 00689 M00S00684.baaml +++|* USES X - 0, 7. 00690 M00S00685.baaml +++|* B - 2. 00691 M00S00686.baaml +++|* 00692 M00S00687.baaml +++|* CALLS RDM. 00693 M00S00688.baaml +++| 00694 M00S00689.baaml +++| 00695 M00S00690.baaml +++| READNL SUBR ENTRY/EXIT 00696 M00S00691.baaml +++| SX7 TRRO SUB-FUNCTION CODE 00697 M00S00692.baaml +++| SB2 TPROL MAXIMUM NUMBER OF PARAMETERS 00698 M00S00693.baaml +++| SX0 0 INDICATE NOT CALLED BY READM 00699 M00S00694.baaml +++| RJ RDM PROCESS READNL FUNCTION 00700 M00S00695.baaml +++| EQ READNLX RETURN 00701 M00S00696.baaml +++| READN SPACE 4,15 00702 M00S00697.baaml +++|** READN - READ NEXT RECORD. 00703 M00S00698.baaml +++|* 00704 M00S00699.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00705 M00S00700.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00706 M00S00701.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00707 M00S00702.baaml +++|* 00708 M00S00703.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00709 M00S00704.baaml +++|* 00710 M00S00705.baaml +++|* USES X - 0, 7. 00711 M00S00706.baaml +++|* B - 2. 00712 M00S00707.baaml +++|* 00713 M00S00708.baaml +++|* CALLS RDM. 00714 M00S00709.baaml +++| 00715 M00S00710.baaml +++| 00716 M00S00711.baaml +++| READN SUBR ENTRY/EXIT 00717 M00S00712.baaml +++| SB2 TPRNL MAXIMUM NUMBER OF PARAMETERS 00718 M00S00713.baaml +++| SX7 TRRN SUB-FUNCTION CODE 00719 M00S00714.baaml +++| SX0 0 INDICATE NOT CALLED BY READM 00720 M00S00715.baaml +++| RJ RDM PROCESS READN FUNCTION 00721 M00S00716.baaml +++| EQ READNX RETURN 00722 M00S00717.baaml +++| REWIND SPACE 4,15 00723 M00S00718.baaml +++|** REWIND - REWIND FILE. 00724 M00S00719.baaml +++|* 00725 M00S00720.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00726 M00S00721.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00727 M00S00722.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00728 M00S00723.baaml +++|* 00729 M00S00724.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00730 M00S00725.baaml +++|* 00731 M00S00726.baaml +++|* USES X - 7. 00732 M00S00727.baaml +++|* B - 2. 00733 M00S00728.baaml +++|* 00734 M00S00729.baaml +++|* CALLS PRT, RQS, RTS. 00735 M00S00730.baaml +++| 00736 M00S00731.baaml +++| 00737 M00S00732.baaml +++| REWIND SUBR ENTRY/EXIT 00738 M00S00733.baaml +++| SB2 TPRPL MAXIMUM NUMBER OF PARAMETERS 00739 M00S00734.baaml +++| SX7 TRRP SUB-FUNCTION CODE 00740 M00S00735.baaml +++| RJ PRT PRESET 00741 M00S00736.baaml +++| RJ RQS ISSUE *TAF/CRM* REQUEST 00742 M00S00737.baaml +++| RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 00743 M00S00738.baaml +++| EQ REWINDX RETURN 00744 M00S00739.baaml +++| REWRITE SPACE 4,15 00745 M00S00740.baaml +++|** REWRITE - REWRITE RECORD. 00746 M00S00741.baaml +++|* 00747 M00S00742.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00748 M00S00743.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00749 M00S00744.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00750 M00S00745.baaml +++|* 00751 M00S00746.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00752 M00S00747.baaml +++|* 00753 M00S00748.baaml +++|* USES X - 7. 00754 M00S00749.baaml +++|* B - 2. 00755 M00S00750.baaml +++|* 00756 M00S00751.baaml +++|* CALLS WRR. 00757 M00S00752.baaml +++| 00758 M00S00753.baaml +++| 00759 M00S00754.baaml +++| REWRITE SUBR ENTRY/EXIT 00760 M00S00755.baaml +++| SB2 TPRWL MAXIMUM NUMBER OF PARAMETER 00761 M00S00756.baaml +++| SX7 TRRW SUB-FUNCTION 00762 M00S00757.baaml +++| RJ WRR REWRITE RECORD 00763 M00S00758.baaml +++| EQ REWRITEX RETURN 00764 M00S00759.baaml +++| SKIPBL SPACE 4,15 00765 M00S00760.baaml +++|** SKIPBL - SKIP BACKWARD LOGICAL RECORDS. 00766 M00S00761.baaml +++|* 00767 M00S00762.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00768 M00S00763.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00769 M00S00764.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00770 M00S00765.baaml +++|* 00771 M00S00766.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00772 M00S00767.baaml +++|* 00773 M00S00768.baaml +++|* USES X - 7. 00774 M00S00769.baaml +++|* B - 2. 00775 M00S00770.baaml +++|* 00776 M00S00771.baaml +++|* CALLS SKP. 00777 M00S00772.baaml +++| 00778 M00S00773.baaml +++| 00779 M00S00774.baaml +++| SKIPBL SUBR ENTRY/EXIT 00780 M00S00775.baaml +++| SB2 TPSBL MAXIMUM NUMBER OF PARAMETERS 00781 M00S00776.baaml +++| SX7 TRSB SUB-FUNCTION CODE 00782 M00S00777.baaml +++| RJ SKP PROCESS SKIP FUNCTION 00783 M00S00778.baaml +++| EQ SKIPBLX RETURN 00784 M00S00779.baaml +++| SKIPFL SPACE 4,15 00785 M00S00780.baaml +++|** SKIPFL - SKIP FORWARD LOGICAL RECORDS. 00786 M00S00781.baaml +++|* 00787 M00S00782.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00788 M00S00783.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00789 M00S00784.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00790 M00S00785.baaml +++|* 00791 M00S00786.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00792 M00S00787.baaml +++|* 00793 M00S00788.baaml +++|* USES X - 7. 00794 M00S00789.baaml +++|* B - 2. 00795 M00S00790.baaml +++|* 00796 M00S00791.baaml +++|* CALLS SKP. 00797 M00S00792.baaml +++| 00798 M00S00793.baaml +++| 00799 M00S00794.baaml +++| SKIPFL SUBR ENTRY/EXIT 00800 M00S00795.baaml +++| SB2 TPSFL MAXIMUM NUMBER OF PARAMETERS 00801 M00S00796.baaml +++| SX7 TRSF SUB-FUNCTION FOR *TAF/CRM* 00802 M00S00797.baaml +++| RJ SKP PROCESS SKIP FUNCTION 00803 M00S00798.baaml +++| EQ SKIPFLX RETURN 00804 M00S00799.baaml +++| START SPACE 4,15 00805 M00S00800.baaml +++|** START - POSITION A FILE AT OR AFTER A GIVEN KEY. 00806 M00S00801.baaml +++|* 00807 M00S00802.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00808 M00S00803.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00809 M00S00804.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00810 M00S00805.baaml +++|* 00811 M00S00806.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00812 M00S00807.baaml +++|* 00813 M00S00808.baaml +++|* USES X - 1, 2, 3, 7. 00814 M00S00809.baaml +++|* A - 2, 3, 7. 00815 M00S00810.baaml +++|* B - 4. 00816 M00S00811.baaml +++|* 00817 M00S00812.baaml +++|* CALLS CKF, PRT, RQS, RTS. 00818 M00S00813.baaml +++| 00819 M00S00814.baaml +++| 00820 M00S00815.baaml +++| START SUBR ENTRY/EXIT 00821 M00S00816.baaml +++| SB2 TPSTL MAXIMUM NUMBER OF PARAMETERS 00822 M00S00817.baaml +++| SX7 TRST SUB-FUNCTION CODE 00823 M00S00818.baaml +++| RJ PRT PRESET 00824 M00S00819.baaml +++| SX1 B6-TPSTF REQUIRED NUMBER OF PPARAMETERS 00825 M00S00820.baaml +++| NG X1,SRT2 IF NOT ENOUGH PARAMETERS 00826 M00S00821.baaml +++| SA2 A1+TPSR RELATION-OPERATOR 00827 M00S00822.baaml +++| SB4 0 00828 M00S00823.baaml +++| SA2 X2 VALUE OF RELATION-OPERATOR 00829 M00S00824.baaml +++| BX7 X2 00830 M00S00825.baaml +++| SX1 B6-TPSM PARAMETERS 00831 M00S00826.baaml +++| SA7 TPKT+THRL+TPSR RELATION-OPERATOR TO PACKET 00832 M00S00827.baaml +++| NG X1,SRT1 IF END OF PARAMETERS 00833 M00S00828.baaml +++| SA2 A1+TPSO KEY-IDENTIFIER 00834 M00S00829.baaml +++| SA2 X2 VALUE 00835 M00S00830.baaml +++| BX7 X2 00836 M00S00831.baaml +++| SA7 TPKT+THRL+TPSO KEY-IDENTIFIER TO PACKET 00837 M00S00832.baaml +++| ZR X1,SRT1 IF END OF PARAMETERS 00838 M00S00833.baaml +++| SA2 A1+TPSM MAJOR-KEY-INDEX 00839 M00S00834.baaml +++| SA2 X2 00840 M00S00835.baaml +++| BX7 X2 00841 M00S00836.baaml +++| SB4 X2+ 00842 M00S00837.baaml +++| SA7 TPKT+THRL+TPSM MAJOR-KEY-LENGTH TO PACKET 00843 M00S00838.baaml +++| SRT1 SB2 TPSK KEY-AREA INDEX 00844 M00S00839.baaml +++| RJ CKF TRANSFER KEY 00845 M00S00840.baaml +++| NZ X7,SRT3 IF KEY-OFFSET ERROR 00846 M00S00841.baaml +++| SRT2 RJ RQS ISSUE *TAF/CRM* REQUEST 00847 M00S00842.baaml +++| SRT3 RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 00848 M00S00843.baaml +++| SX2 B6-TPSTF REQUIRED PARAMETER 00849 M00S00844.baaml +++| NG X2,STARTX IF NOT ENOUGH PARAMETERS 00850 M00S00845.baaml +++| ZR X2,STARTX IF END OF PARAMETERS 00851 M00S00846.baaml +++| SA2 A1+TPSF KEY-STATUS ADDRESS 00852 M00S00847.baaml +++| SA3 TPKT+THRL+TPSF KEY-STATUS 00853 M00S00848.baaml +++| BX7 X3 00854 M00S00849.baaml +++| SA7 X2 00855 M00S00850.baaml +++| EQ STARTX RETURN 00856 M00S00851.baaml +++| UNFLOCK SPACE 4,15 00857 M00S00852.baaml +++|** UNFLOCK - UNLOCK FILE. 00858 M00S00853.baaml +++|* 00859 M00S00854.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00860 M00S00855.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00861 M00S00856.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00862 M00S00857.baaml +++|* 00863 M00S00858.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00864 M00S00859.baaml +++|* 00865 M00S00860.baaml +++|* USES X - 7. 00866 M00S00861.baaml +++|* B - 2. 00867 M00S00862.baaml +++|* 00868 M00S00863.baaml +++|* CALLS PRT, RQS, RTS. 00869 M00S00864.baaml +++| 00870 M00S00865.baaml +++| 00871 M00S00866.baaml +++| UNFLOCK SUBR ENTRY/EXIT 00872 M00S00867.baaml +++| SB2 TPUFL MAXIMUM NUMBER OF PARAMETERS 00873 M00S00868.baaml +++| SX7 TRUF SUB-FUNCTION CODE 00874 M00S00869.baaml +++| RJ PRT PRESET 00875 M00S00870.baaml +++| RJ RQS ISSUE *TAF/CRM* REQUEST 00876 M00S00871.baaml +++| RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 00877 M00S00872.baaml +++| EQ UNFLOCKX RETURN 00878 M00S00873.baaml +++| UNLOCK SPACE 4,15 00879 M00S00874.baaml +++|** UNLOCK - UNLOCK RECORD. 00880 M00S00875.baaml +++|* 00881 M00S00876.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00882 M00S00877.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00883 M00S00878.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00884 M00S00879.baaml +++|* 00885 M00S00880.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00886 M00S00881.baaml +++|* 00887 M00S00882.baaml +++|* USES X - 1, 2, 7. 00888 M00S00883.baaml +++|* A - 1, 2, 7. 00889 M00S00884.baaml +++|* B - 2, 4. 00890 M00S00885.baaml +++|* 00891 M00S00886.baaml +++|* CALLS PRT, CKF, RQS, RTT. 00892 M00S00887.baaml +++| 00893 M00S00888.baaml +++| UNLOCK SUBR ENTRY/EXIT 00894 M00S00889.baaml +++| SB2 TPUCL MAXIMUM NUMBER OF PARAMETERS 00895 M00S00890.baaml +++| SX7 TRUC SUB-FUNCTION CODE 00896 M00S00891.baaml +++| RJ PRT PRESET 00897 M00S00892.baaml +++| SX7 B6-TPUCL CHECK NUMBER OF PARAMETERS 00898 M00S00893.baaml +++| NG X7,UNL1 IF NOT ENOUGH PARAMETERS 00899 M00S00894.baaml +++| SB2 TPKL KEY POSITION 00900 M00S00895.baaml +++| SB4 0 SET NO MAJOR-KEY-LENGTH 00901 M00S00896.baaml +++| RJ CKF TRANSFER KEY 00902 M00S00897.baaml +++| NZ X7,UNL2 IF KEY-OFFSET ERRORS 00903 M00S00898.baaml +++| UNL1 RJ RQS ISSUE *TAF/CRM* REQUEST 00904 M00S00899.baaml +++| UNL2 SA2 TPKT+THRL+TPTS TAF-STATUS FROM AAMI 00905 M00S00900.baaml +++| ZR X2,UNL3 IF NO ERRORS 00906 M00S00901.baaml +++| BX1 X2 00907 M00S00902.baaml +++| RJ RTT ISSUE ERROR MESSAGE 00908 M00S00903.baaml +++| UNL3 SX7 B6-TPPI MINIMUM NUMBER OF PARAMETERS 00909 M00S00904.baaml +++| NG X7,UNLOCKX IF NOT ENOUGH PARAMETERS 00910 M00S00905.baaml +++| SA2 A1+TPTS ADDRESS TO RETURN DBSTAT 00911 M00S00906.baaml +++| SA1 TPKT+THRL+TPTS TAF-STATUS FROM DBSTAT 00912 M00S00907.baaml +++| BX7 X1 00913 M00S00908.baaml +++| SA7 X2 TAF-STATUS TO PROGRAM 00914 M00S00909.baaml +++| EQ UNLOCKX RETURN 00915 M00S00910.baaml +++| WRITE SPACE 4,15 00916 M00S00911.baaml +++|** WRITE - WRITE RECORD. 00917 M00S00912.baaml +++|* 00918 M00S00913.baaml +++|* ENTRY (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 00919 M00S00914.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 00920 M00S00915.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00921 M00S00916.baaml +++|* 00922 M00S00917.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 00923 M00S00918.baaml +++|* 00924 M00S00919.baaml +++|* USES X - 7. 00925 M00S00920.baaml +++|* B - 2. 00926 M00S00921.baaml +++|* 00927 M00S00922.baaml +++|* CALLS WRR. 00928 M00S00923.baaml +++| 00929 M00S00924.baaml +++| 00930 M00S00925.baaml +++| WRITE SUBR ENTRY/EXIT 00931 M00S00926.baaml +++| SB2 TPWRL MAXIMUM NUMBER OF PARAMETERS 00932 M00S00927.baaml +++| SX7 TRWR SUB-FUNCTION CODE 00933 M00S00928.baaml +++| RJ WRR WRITE A RECORD 00934 M00S00929.baaml +++| EQ WRITEX RETURN 00935 M00S00930.baaml +++| TITLE UTILITIES FOR *CRM* FUNCTIONS. 00936 M00S00931.baaml +++| CKF SPACE 4,20 00937 M00S00932.baaml +++|** CKF - CHECK KEY FIELD LENGTH. 00938 M00S00933.baaml +++|* 00939 M00S00934.baaml +++|* ENTRY (TSA1) = POINTER TO PARAMETER LIST. 00940 M00S00935.baaml +++|* (A1) = ADDRESS OF PARAMETER LIST. 00941 M00S00936.baaml +++|* (B2) = INDEX OF PARAMETER LIST FOR KEY-NAME. 00942 M00S00937.baaml +++|* (B3) = INDEX OF PACKET FOR KEY-NAME ADDRESS. 00943 M00S00938.baaml +++|* (B4) = MAJOR-KEY-LENGTH IF NON-ZERO. 00944 M00S00939.baaml +++|* 00945 M00S00940.baaml +++|* EXIT (TPKT+15) = KEY. 00946 M00S00941.baaml +++|* (X7) - ZERO, NO ERRORS. 00947 M00S00942.baaml +++|* (X7) - NON-ZERO, IF ERROR IN KEY-OFFSET. 00948 M00S00943.baaml +++|* 00949 M00S00944.baaml +++|* USES X - 1, 2, 3, 6, 7. 00950 M00S00945.baaml +++|* A - 2, 3, 6, 7. 00951 M00S00946.baaml +++|* B - 2, 4. 00952 M00S00947.baaml +++|* 00953 M00S00948.baaml +++|* MACRO GETFLC. 00954 M00S00949.baaml +++|* 00955 M00S00950.baaml +++|* CALL MST. 00956 M00S00951.baaml +++| 00957 M00S00952.baaml +++| 00958 M00S00953.baaml +++| CKF SUBR ENTRY/EXIT 00959 M00S00954.baaml +++| SA3 A1+B2 KEY-NAME ADDRESS 00960 M00S00955.baaml +++| SA2 A3+B1 KEY-OFFSET 00961 M00S00956.baaml +++| SA2 X2 VALUE OF KEY-OFFSET 00962 M00S00957.baaml +++| SX3 X3 ADDRESS ONLY 00963 M00S00958.baaml +++| ZR X2,CKF3 IF KEY-OFFSET ZERO 00964 M00S00959.baaml +++| NG X2,CKF3 IF KEY-OFFSET IS NEGATIVE 00965 M00S00960.baaml +++| SX1 TCHL NUMBER OF CHARACTERS IN A WORD 00966 M00S00961.baaml +++| BX7 X1 00967 M00S00962.baaml +++| BX6 X2 00968 M00S00963.baaml +++| IX6 X6/X7 NUMBER OF WORDS TO KEY-NAME 00969 M00S00964.baaml +++| IX7 X6+X3 ADDRESS PLUS NUMBER OF WORDS 00970 M00S00965.baaml +++| IX1 X1*X6 NUMBER OF CHARACTERS TO KEY-OFFSET 00971 M00S00966.baaml +++| IX2 X2-X1 KEY-OFFSET 00972 M00S00967.baaml +++| SX6 B1 00973 M00S00968.baaml +++| SA7 TPKT+THRL+B2 KEY-NAME ADDRESS 00974 M00S00969.baaml +++| SA6 A7+B1 SET KEY-OFF TO ONE FOR *TAF/CRM* 00975 M00S00970.baaml +++| SB2 X2 KEY-OFFSET FOR MOVE 00976 M00S00971.baaml +++| SX3 X7+ KEY-NAME ADDRESS FOR MOVE 00977 M00S00972.baaml +++| GETFLC CKFA FIELD LENGTH OF JOB 00978 M00S00973.baaml +++| SA2 CKFA MEMORY VALUE 00979 M00S00974.baaml +++| MX1 12 MASK FOR FIELD CENTRAL MEMORY 00980 M00S00975.baaml +++| BX2 X2*X1 00981 M00S00976.baaml +++| SX7 X7+TMKW ADDRESS OF KEY-NAME PLUS KEY 00982 M00S00977.baaml +++| LX2 17-59 POSITION FIELD LENGTH 00983 M00S00978.baaml +++| IX7 X7-X2 SUBTRACT KEY-NAME PLUS KEY SIZE 00984 M00S00979.baaml +++| NE B4,CKF1 IF NOT MAJOR-KEY-LENGTH 00985 M00S00980.baaml +++| SB4 TMKL MAXIMUM LENGTH OF KEY 00986 M00S00981.baaml +++| CKF1 NG X7,CKF2 IF KEY-NAME ADDRESS NOT TO LARGE 00987 M00S00982.baaml +++| SB4 TCHL REDUCE KEY MOVE TO ONE WORD 00988 M00S00983.baaml +++| CKF2 SB5 TKEY ADDRESS TO TRANSFER KEY 00989 M00S00984.baaml +++| SA2 X3 KEY-NAME TRANSFER 00990 M00S00985.baaml +++| SB2 B2-B1 00991 M00S00986.baaml +++| RJ MST MOVE KEY INTO PACKET 00992 M00S00987.baaml +++| BX7 X7-X7 SET NO ERRORS 00993 M00S00988.baaml +++| EQ CKFX RETURN 00994 M00S00989.baaml +++| 00995 M00S00990.baaml +++| CKF3 SX7 TERQ INVALID KEY-OFFSET 00996 M00S00991.baaml +++| SA7 TPKT+THRL+TPCS *TAF/CRM* ERROR STATUS SET 00997 M00S00992.baaml +++| EQ CKFX RETURN 00998 M00S00993.baaml +++| 00999 M00S00994.baaml +++| 01000 M00S00995.baaml +++| CKFA BSSZ 1 FIELD LENGTH OF PROGRAM 01001 M00S00996.baaml +++| CWS SPACE 4,15 01002 M00S00997.baaml +++|** CWS - CALCULATE *WSA* LENGTH. 01003 M00S00998.baaml +++|* 01004 M00S00999.baaml +++|* ENTRY (A1) = PARAMETER LIST ADDRESS. 01005 M00S01000.baaml +++|* 01006 M00S01001.baaml +++|* EXIT (LWRA) = *LWA* OF LAST *WSA*. 01007 M00S01002.baaml +++|* (LWRB) = MASK FOR LAST *WSA*. 01008 M00S01003.baaml +++|* (LWRC) = CONTENTS OF *LWA* OF *WSA*. 01009 M00S01004.baaml +++|* 01010 M00S01005.baaml +++|* USES X - 2, 3, 5, 6, 7. 01011 M00S01006.baaml +++|* A - 2, 3, 6, 7. 01012 M00S01007.baaml +++|* B - 4. 01013 M00S01008.baaml +++| 01014 M00S01009.baaml +++| 01015 M00S01010.baaml +++| CWS SUBR ENTRY/EXIT 01016 M00S01011.baaml +++| SX7 0 01017 M00S01012.baaml +++| SX5 TCHL NUMBER OF CHARACTER IN A WORD 01018 M00S01013.baaml +++| SA3 A1+TPWL WSA-LENGTH ADDRESS 01019 M00S01014.baaml +++| SA7 LWRB VALUE OF MASK MUST BE ZERO 01020 M00S01015.baaml +++| SA2 A3-B1 WSA-NAME ADDRESS 01021 M00S01016.baaml +++| SA3 X3 VALUE OF LENGTH 01022 M00S01017.baaml +++| SX6 X2 01023 M00S01018.baaml +++| BX7 X3 VALUE OF WSA-LENGTH 01024 M00S01019.baaml +++| SA6 TPKT+THRL+TPWS ADDRESS OF WSA INTO PACKET 01025 M00S01020.baaml +++| PX5 X5 PACK CHARACTERS IN WORD 01026 M00S01021.baaml +++| SA7 A6+B1 LENGTH OF WSA INTO PACKET 01027 M00S01022.baaml +++| PX7 X7 PACK WSA-LENGTH 01028 M00S01023.baaml +++| NX5 X5 NORMALIZE VALUE 01029 M00S01024.baaml +++| FX7 X7/X5 DIVIDE LENGTH BY 10 01030 M00S01025.baaml +++| UX7 B4,X7 UNPACK LENGTH IN WORDS 01031 M00S01026.baaml +++| SX5 TCHL RESTORE CHARACTERS IN WORD 01032 M00S01027.baaml +++| LX7 X7,B4 ADJUST LENGTH IN WORDS 01033 M00S01028.baaml +++| SB4 X7 ADJUST WORD COUNT 01034 M00S01029.baaml +++| SA2 X6+B4 ADDRESS AND VALUE OF LAST WORD 01035 M00S01030.baaml +++| IX6 X5*X7 NUMBER OF CHARACTERS IN LAST WORD 01036 M00S01031.baaml +++| BX7 X2 VALUE OF LAST WORD 01037 M00S01032.baaml +++| IX5 X3-X6 NUMBER OF CHARACTERS IN LAST WORD 01038 M00S01033.baaml +++| ZR X5,CWSX IF END ON WORD BOUNDRY 01039 M00S01034.baaml +++| SX6 A2+ ADDRESS OF LAST WORD 01040 M00S01035.baaml +++| SA7 LWRC VALUES OF LAST WORD 01041 M00S01036.baaml +++| SA6 LWRA ADDRESS OF LAST WORD 01042 M00S01037.baaml +++| LX7 X5,B1 THE NEXT LINES OF CODE WILL MULTIPLY BY 6 01043 M00S01038.baaml +++| MX2 1 01044 M00S01039.baaml +++| 01045 M00S01040.baaml +++|* THE NEXT LINES OF CODE WILL MULITIPLY THE NUMBER IN 01046 M00S01041.baaml +++|* X5 BY 6. THE VALUES IN X5 WILL BE 1 THROUGH 9 WILL 01047 M00S01042.baaml +++|* RESULT IN VALUSE OF 6 THROUGH 56 RESPECTIVELY. 01048 M00S01043.baaml +++| 01049 M00S01044.baaml +++| LX5 X7,B1 01050 M00S01045.baaml +++| SB4 X5-1 01051 M00S01046.baaml +++| SB4 B4+X7 01052 M00S01047.baaml +++| AX7 X2,B4 FORM MASK 01053 M00S01048.baaml +++| BX7 -X7 01054 M00S01049.baaml +++| SA7 LWRB SAVE MASK 01055 M00S01050.baaml +++| EQ CWSX RETURN 01056 M00S01051.baaml +++| DCF SPACE 4,15 01057 M00S01052.baaml +++|** DCF - DBCOMIT AND DBFREE PROCESSOR. 01058 M00S01053.baaml +++|* 01059 M00S01054.baaml +++|* ENTRY (B2) - NUMBER FOR PARAMETERS. 01060 M00S01055.baaml +++|* (X7) - VALUE OF SUBFUNCTION. 01061 M00S01056.baaml +++|* 01062 M00S01057.baaml +++|* EXIT FUNCTION PROCESSED AND STATUS RETURNED. 01063 M00S01058.baaml +++|* 01064 M00S01059.baaml +++|* USES X - 1, 2, 7. 01065 M00S01060.baaml +++|* A - 2, 7. 01066 M00S01061.baaml +++|* 01067 M00S01062.baaml +++|* CALLS PRT, RTT. 01068 M00S01063.baaml +++| 01069 M00S01064.baaml +++| 01070 M00S01065.baaml +++| DCF SUBR ENTRY/EXIT 01071 M00S01066.baaml +++| RJ PRT PRESET 01072 M00S01067.baaml +++| SX7 0 CLEAR OUT LFN IN PACKET AREA 01073 M00S01068.baaml +++| SA7 TPKT+THRL+TPSX CLEARED 01074 M00S01069.baaml +++| RJ RQS ISSUE *TAF/CRM* REQUEST 01075 M00S01070.baaml +++| SA2 TPKT+THRL+TPSX TAF-STATUS FROM AAMI 01076 M00S01071.baaml +++| ZR X2,DCF1 IF NO ERRORS 01077 M00S01072.baaml +++| BX1 X2 01078 M00S01073.baaml +++| RJ RTT ISSUE ERROR MESSAGE 01079 M00S01074.baaml +++| DCF1 SX7 B6-TPDCL NUMBER OF PARAMETERS 01080 M00S01075.baaml +++| NG X7,DCFX IF NOT ENOUGH PARAMETERS 01081 M00S01076.baaml +++| SA2 TPKT+THRL+TPSX TAF-STATUS 01082 M00S01077.baaml +++| BX7 X2 01083 M00S01078.baaml +++| SA7 X1 SET TAF-STATUS 01084 M00S01079.baaml +++| EQ DCFX RETURN 01085 M00S01080.baaml +++| LWR SPACE 4,15 01086 M00S01081.baaml +++|** LWR - LAST WORD AND RECORD LENGTH RESTORED. 01087 M00S01082.baaml +++|* 01088 M00S01083.baaml +++|* ENTRY (LWRB) = MASK FOR LAST WORD. 01089 M00S01084.baaml +++|* (LWRA) = ADDRESS OF LAST WORD. 01090 M00S01085.baaml +++|* (LWRC) = VALUE OF LAST WORD. 01091 M00S01086.baaml +++|* (TPKT+7) = RECORD LENGTH OF READ. 01092 M00S01087.baaml +++|* (A1) = POINTER TO PARAMETER LIST. 01093 M00S01088.baaml +++|* 01094 M00S01089.baaml +++|* (B2) = LENGTH TO PACKET HEADER 01095 M00S01090.baaml +++|* 01096 M00S01091.baaml +++|* EXIT RECORD LENGTH AND LAST WORD OF RECORD AREA 01097 M00S01092.baaml +++|* RESTORED. 01098 M00S01093.baaml +++|* 01099 M00S01094.baaml +++|* USES X - 2, 3, 4, 6. 01100 M00S01095.baaml +++|* A - 2, 3, 4, 6. 01101 M00S01096.baaml +++|* 01102 M00S01097.baaml +++|* NOTE (LWRA), (LWRB), AND (LWRC) ARE CONSECUTIVE 01103 M00S01098.baaml +++|* LOCATIONS. 01104 M00S01099.baaml +++| 01105 M00S01100.baaml +++| 01106 M00S01101.baaml +++| LWR SUBR ENTRY/EXIT 01107 M00S01102.baaml +++| SA3 TPKT+THRL+TPRL NUMBER OF CHARACTERS FROM PACKET 01108 M00S01103.baaml +++| SA2 A1+TPRL RECORD LENGTH 01109 M00S01104.baaml +++| ZR X3,LWRX IF NO RECORD RETURNED 01110 M00S01105.baaml +++| BX6 X3 01111 M00S01106.baaml +++| SA6 X2 LENGTH OF RECORD READ 01112 M00S01107.baaml +++| SA3 LWRA ADDRESS OF LAST WORD OF RECORD 01113 M00S01108.baaml +++| SA2 A3+B1 MASK FOR LAST WORD IN RECORD 01114 M00S01109.baaml +++| SA4 A2+B1 VALUE OF LAST WORD 01115 M00S01110.baaml +++| SA3 X3+ 01116 M00S01111.baaml +++| ZR X2,LWRX IF END ON WORD BOUNDRY 01117 M00S01112.baaml +++| BX4 X2*X4 LAST WORD 01118 M00S01113.baaml +++| BX3 -X2*X3 CHARACTERS TO TRANSFER 01119 M00S01114.baaml +++| BX6 X3+X4 VALUE OF OLD LAST WORD PLUS NEW 01120 M00S01115.baaml +++| SA6 A3 RESTORE LAST WORD OF RECORD 01121 M00S01116.baaml +++| EQ LWRX RETURN 01122 M00S01117.baaml +++| 01123 M00S01118.baaml +++| 01124 M00S01119.baaml +++| LWRA BSSZ 1 ADDRESS OF LAST WORD OF WORKING STORAGE 01125 M00S01120.baaml +++| LWRB BSSZ 1 MASK OF LAST WORD IN WORD STORAGE 01126 M00S01121.baaml +++| LWRC BSSZ 1 VALUE OF LAST WORD IN RECORD 01127 M00S01122.baaml +++| MST SPACE 4,15 01128 M00S01123.baaml +++|** MST - TO MOVE THE KEY TO PACKET AREA. 01129 M00S01124.baaml +++|* 01130 M00S01125.baaml +++|* ENTRY (B2) = CHARACTER POSITION OF GOOD DATA. 01131 M00S01126.baaml +++|* (B5) = ADDRESS TO RECIEVE TEXT. 01132 M00S01127.baaml +++|* (A2) = ADDRESS OF DATA STRING TO TRANSFER. 01133 M00S01128.baaml +++|* (X2) = FIRST WORD OF DATA. 01134 M00S01129.baaml +++|* (B4) = TOTAL NUMBER OF CHARACTERS TO TRANSFER. 01135 M00S01130.baaml +++|* 01136 M00S01131.baaml +++|* EXIT DATA TRANSFERED COMPLETE. 01137 M00S01132.baaml +++|* (B6) - RESTORED TO NUMBER OF PARAMETERS. 01138 M00S01133.baaml +++|* 01139 M00S01134.baaml +++|* USES X - 1, 2, 3, 6, 7. 01140 M00S01135.baaml +++|* A - 2, 6. 01141 M00S01136.baaml +++|* B - 2, 3, 4, 5, 6. 01142 M00S01137.baaml +++| 01143 M00S01138.baaml +++| 01144 M00S01139.baaml +++| MST2 MX1 1 01145 M00S01140.baaml +++| LX7 X1,B4 SHIFT TO FORM MASK 01146 M00S01141.baaml +++| LX1 X7,B1 01147 M00S01142.baaml +++| BX1 X1*X7 01148 M00S01143.baaml +++| BX6 X1*X6 01149 M00S01144.baaml +++| SA2 TNPR NUMBER OF PARAMETERS IN CALL 01150 M00S01145.baaml +++| SA6 B5 01151 M00S01146.baaml +++| SB6 X2+ RESTORE NUMBER OF PARAMETERS 01152 M00S01147.baaml +++| 01153 M00S01148.baaml +++| MST SUBR ENTRY/EXIT 01154 M00S01149.baaml +++| SB3 B2+B2 CHANGE CHARACTER COUNT TO BIT COUNT 01155 M00S01150.baaml +++| SB2 B3+B3 01156 M00S01151.baaml +++| SB2 B2+B3 01157 M00S01152.baaml +++| SB3 B4+B4 CHANGE NUMBER OF CHARACTERS 01158 M00S01153.baaml +++| SB4 B3+B3 01159 M00S01154.baaml +++| SB4 B4+B3 01160 M00S01155.baaml +++| SB4 -B4 CHANGE TO MINUS BIT COUNT 01161 M00S01156.baaml +++| SB3 B2-60 01162 M00S01157.baaml +++| MX1 1 01163 M00S01158.baaml +++| LX7 X1,B3 01164 M00S01159.baaml +++| LX1 X7,B1 01165 M00S01160.baaml +++| BX1 X1*X7 01166 M00S01161.baaml +++| LX2 B2 POSITION STRING BEGINNING 01167 M00S01162.baaml +++| BX3 X1*X2 01168 M00S01163.baaml +++| BX6 X3 01169 M00S01164.baaml +++| SB6 B3-B2 01170 M00S01165.baaml +++| LT B3,B4,MST2 IF LAST WORD 01171 M00S01166.baaml +++| MST1 SA2 A2+B1 01172 M00S01167.baaml +++| LX2 B2 01173 M00S01168.baaml +++| BX6 -X1*X2 01174 M00S01169.baaml +++| BX6 X3+X6 01175 M00S01170.baaml +++| BX3 X1*X2 01176 M00S01171.baaml +++| GE B4,B6,MST2 IF LAST WORD 01177 M00S01172.baaml +++| SB4 B4-B6 01178 M00S01173.baaml +++| SA6 B5 STORE FIRST/NEXT WORD 01179 M00S01174.baaml +++| SB5 B5+B1 01180 M00S01175.baaml +++| EQ MST1 CONTINUE MOVE 01181 M00S01176.baaml +++| MTS SPACE 4,15 01182 M00S01177.baaml +++|** MTS - TO MOVE TEXT TO STRING. 01183 M00S01178.baaml +++|* 01184 M00S01179.baaml +++|* ENTRY (A1) = ADDRESS TO TRANSMIT DATA. 01185 M00S01180.baaml +++|* (X1) = FIRST DATA TO TRANSMIT. 01186 M00S01181.baaml +++|* (A2) = ADDRESS TO RECIEVE DATA. 01187 M00S01182.baaml +++|* (B2) = CHARACTER POSITION. 01188 M00S01183.baaml +++|* (B4) = NUMBER OF CHARACTERS TO TRANSMIT. 01189 M00S01184.baaml +++|* 01190 M00S01185.baaml +++|* EXIT DATA TRANSFERED. 01191 M00S01186.baaml +++|* 01192 M00S01187.baaml +++|* USES X - 0, 2, 3, 4, 6, 7. 01193 M00S01188.baaml +++|* A - 2, 6. 01194 M00S01189.baaml +++|* B - 2, 3, 4. 01195 M00S01190.baaml +++| 01196 M00S01191.baaml +++| 01197 M00S01192.baaml +++| MTS2 SA2 A6+1 FETCH RESERVED FIELD 01198 M00S01193.baaml +++| MTS3 SB2 B4-60 REMAINING BITS TO TRANSFER 01199 M00S01194.baaml +++| MX0 1 01200 M00S01195.baaml +++| SB2 -B2 01201 M00S01196.baaml +++| AX7 X0,B2 01202 M00S01197.baaml +++| LX0 X7,B1 01203 M00S01198.baaml +++| BX0 X0*X7 01204 M00S01199.baaml +++| BX6 X0*X6 MERGE NEW RESERVED FIELD 01205 M00S01200.baaml +++| BX2 -X0*X2 01206 M00S01201.baaml +++| BX6 X2+X6 01207 M00S01202.baaml +++| SA6 A2+ SET FIRST/LAST STRING WORD 01208 M00S01203.baaml +++| 01209 M00S01204.baaml +++| MTS SUBR ENTRY/EXIT 01210 M00S01205.baaml +++| SB3 B2-B1 CHANGE CHARACTERS TO BITS 01211 M00S01206.baaml +++| SB3 B3+B3 01212 M00S01207.baaml +++| SB2 B3+B3 01213 M00S01208.baaml +++| SB2 B3+B2 STARTING BIT POSITION TO TRANSFER 01214 M00S01209.baaml +++| SB3 B4+B4 CHANGE CHARACTERS TO BITS 01215 M00S01210.baaml +++| SB4 B3+B3 01216 M00S01211.baaml +++| SB4 B3+B4 NUMBER OF BITS TO TRANSFER 01217 M00S01212.baaml +++| SB4 -B4 NEGATIVE BITS 01218 M00S01213.baaml +++| SB3 B2-60 01219 M00S01214.baaml +++| MX0 1 01220 M00S01215.baaml +++| AX7 X0,B2 01221 M00S01216.baaml +++| LX0 X7,B1 01222 M00S01217.baaml +++| BX0 X0*X7 01223 M00S01218.baaml +++| AX1 B3 POSITION TEXT 01224 M00S01219.baaml +++| BX4 -X0*X1 01225 M00S01220.baaml +++| BX3 X0*X1 01226 M00S01221.baaml +++| SA1 A1+B1 FETCH NEXT WORD OF TEXT 01227 M00S01222.baaml +++| BX6 X0*X2 01228 M00S01223.baaml +++| BX6 X4+X6 01229 M00S01224.baaml +++| SB4 B4-B3 01230 M00S01225.baaml +++| PL B4,MTS3 IF MOVE IS COMPLETE 01231 M00S01226.baaml +++| SA6 A2 STORE FIRST STRING WORD 01232 M00S01227.baaml +++| MTS1 AX1 B3 01233 M00S01228.baaml +++| BX4 -X0*X1 01234 M00S01229.baaml +++| BX6 X3+X4 01235 M00S01230.baaml +++| BX3 X0*X1 01236 M00S01231.baaml +++| SB4 B4+60 01237 M00S01232.baaml +++| PL B4,MTS2 IF MOVE IS COMPLETED 01238 M00S01233.baaml +++| SA1 A1+B1 01239 M00S01234.baaml +++| SA6 A6+B1 STORE NEXT STRING WORD 01240 M00S01235.baaml +++| EQ MTS1 CONTINUE MOVE 01241 M00S01236.baaml +++| PRT SPACE 4,20 01242 M00S01237.baaml +++|** PRT - PRESET PACKET AND HEADER WORDS. 01243 M00S01238.baaml +++|* 01244 M00S01239.baaml +++|* ENTRY (A1) = ADDRESS TO PARAMETER LIST. 01245 M00S01240.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 01246 M00S01241.baaml +++|* (X7) = SUB-FUNCTION CODE. 01247 M00S01242.baaml +++|* 01248 M00S01243.baaml +++|* EXIT (TSA1) = ADDRESS OF PARAMETER LIST. 01249 M00S01244.baaml +++|* (RQSB) = HEADER WORD SET FOR *TAF/CRM*. 01250 M00S01245.baaml +++|* (TPKT) = INITIALIZED TO ZERO. 01251 M00S01246.baaml +++|* (TPKT+2) = VALUE OF FIRST PARAMETER. 01252 M00S01247.baaml +++|* (TNPR) = NUMBER OF PARAMETERS. 01253 M00S01248.baaml +++|* (TFCD) = NAME CURRENT SUB-FUNCTION. 01254 M00S01249.baaml +++|* (A1) = ADDRESS TO PARAMETER LIST. 01255 M00S01250.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 01256 M00S01251.baaml +++|* (B1) = 1. 01257 M00S01252.baaml +++|* (B6) = NUMBER OF PARAMETERS. 01258 M00S01253.baaml +++|* 01259 M00S01254.baaml +++|* USES X - 2, 6, 7. 01260 M00S01255.baaml +++|* A - 2, 6, 7. 01261 M00S01256.baaml +++|* B - 1, 6. 01262 M00S01257.baaml +++| 01263 M00S01258.baaml +++| 01264 M00S01259.baaml +++| PRT SUBR ENTRY/EXIT 01265 M00S01260.baaml +++| SA2 PRTA+X7 FUNCTION NAME OF CALLING 01266 M00S01261.baaml +++| SB1 1 01267 M00S01262.baaml +++| BX6 X2 01268 M00S01263.baaml +++| SB6 BUFE-1-TPKT LAST ADDRESS MINUS THE STARTING ADDRESS 01269 M00S01264.baaml +++| SA6 TFCD SET FUNCTION CODE NAME 01270 M00S01265.baaml +++| SX6 0 01271 M00S01266.baaml +++| PRT1 SA6 TPKT+B6 CLEAR CELLS 01272 M00S01267.baaml +++| SB6 B6-1 01273 M00S01268.baaml +++| PL B6,PRT1 IF NOT LAST CELL 01274 M00S01269.baaml +++| SX6 A1+ 01275 M00S01270.baaml +++| SA2 X1+ VALUE OF FIRST 01276 M00S01271.baaml +++| SA6 TSA1 SAVE PARAMETER LIST ADDRESS 01277 M00S01272.baaml +++| BX6 X2 01278 M00S01273.baaml +++| SB6 B0 01279 M00S01274.baaml +++| SA6 TPKT+THRL+TPFN FIRST PARAMETER VALUE 01280 M00S01275.baaml +++| PRT2 SA2 A1+B6 NEXT PARAMETER ADDRESS 01281 M00S01276.baaml +++| ZR X2,PRT3 IF END OF PARAMETER LIST 01282 M00S01277.baaml +++| SB6 B6+B1 PARAMETER COUNT 01283 M00S01278.baaml +++| LT B6,B2,PRT2 IF NOT MAXIMUM PARAMETERS 01284 M00S01279.baaml +++| PRT3 SX6 B6 PARAMETER COUNT 01285 M00S01280.baaml +++| SX2 B6 01286 M00S01281.baaml +++| LX7 35-11 POSITION SUB-FUNCTION 01287 M00S01282.baaml +++| LX2 23-5 POSITION COUNT 01288 M00S01283.baaml +++| SA6 TNPR SET NUMBER OF PARAMETER PASSED 01289 M00S01284.baaml +++| BX7 X2+X7 MASK SUB-FUNCTION AND PARAMETER COUNT 01290 M00S01285.baaml +++| PX7 X7 PUT FUNCTION CODE INTO POSITION 01291 M00S01286.baaml +++| SA7 RQSB HEADER WORD (TPKT+1) FOR *TAF/CRM* CALL 01292 M00S01287.baaml +++| EQ PRTX RETURN 01293 M00S01288.baaml +++| 01294 M00S01289.baaml +++| PRTA DATA C*CLOSE* 01295 M00S01290.baaml +++| DATA C*DELETE* 01296 M00S01291.baaml +++| DATA C*LOCK* 01297 M00S01292.baaml +++| DATA C*FLOCK* 01298 M00S01293.baaml +++| DATA C*OPEN* 01299 M00S01294.baaml +++| DATA C*READ* 01300 M00S01295.baaml +++| DATA C*READL* 01301 M00S01296.baaml +++| DATA C*READM* 01302 M00S01297.baaml +++| DATA C*READN* 01303 M00S01298.baaml +++| DATA C*READNL* 01304 M00S01299.baaml +++| DATA C*REWIND* 01305 M00S01300.baaml +++| DATA C*REWRITE* 01306 M00S01301.baaml +++| DATA C*SKIPBL* 01307 M00S01302.baaml +++| DATA C*SKIPFL* 01308 M00S01303.baaml +++| DATA C*UNLOCK* 01309 M00S01304.baaml +++| DATA C*UNFLOCK* 01310 M00S01305.baaml +++| DATA C*WRITE* 01311 M00S01306.baaml +++| DATA C*START* 01312 M00S01307.baaml +++| DATA C*DBEGIN* 01313 M00S01308.baaml +++| DATA C*DBCOMIT* 01314 M00S01309.baaml +++| DATA C*DBFREE* 01315 M00S01310.baaml +++| DATA C*DBSTAT* 01316 M00S01311.baaml +++| RTT SPACE 4,20 01317 M00S01312.baaml +++| RAD SPACE 4,20 01318 M00S01313.baaml +++|** RAD - READ AND READL PROCESSOR. 01319 M00S01314.baaml +++|* 01320 M00S01315.baaml +++|* ENTRY (X2) = MAXIMUM PARAMTER COUNT. 01321 M00S01316.baaml +++|* (X7) = SUB-FUNCION CODE. 01322 M00S01317.baaml +++|* 01323 M00S01318.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 01324 M00S01319.baaml +++|* 01325 M00S01320.baaml +++|* USES X - 1, 2, 3, 7. 01326 M00S01321.baaml +++|* A - 1, 2, 3, 7. 01327 M00S01322.baaml +++|* B - 2, 4. 01328 M00S01323.baaml +++|* 01329 M00S01324.baaml +++|* CALLS CWS, CKF, PRT, RQS, RTS, RKA, LWR. 01330 M00S01325.baaml +++| 01331 M00S01326.baaml +++| 01332 M00S01327.baaml +++| RAD SUBR ENTRY/EXIT 01333 M00S01328.baaml +++| RJ PRT PRESET 01334 M00S01329.baaml +++| SX7 B6-TPRDF REQUIRED NUMBER OF PARAMETERS 01335 M00S01330.baaml +++| NG X7,RAD2 IF NOT ENOUGH PARAMETERS 01336 M00S01331.baaml +++| RJ CWS CALCULATE LENGTH OF RECORD 01337 M00S01332.baaml +++| SX7 B6-TPRK PARAMETERS REQUIRED FOR KEY-IDENTIFIER 01338 M00S01333.baaml +++| NG X7,RAD1 IF END OF PARAMETER LIST 01339 M00S01334.baaml +++| SA2 A1+TPRO KEY-IDENTIFIER 01340 M00S01335.baaml +++| SA2 X2 VALUE OF KEY-IDENTIFIER 01341 M00S01336.baaml +++| BX7 X2 01342 M00S01337.baaml +++| SA7 TPKT+THRL+TPRO KEY-IDENTIFER INTO PACKET 01343 M00S01338.baaml +++| SX2 B6-TPRLL 01344 M00S01339.baaml +++| NG X2,RAD1 IF END OF PARAMETER LIST 01345 M00S01340.baaml +++| SA3 A1+TPRR ADDRESS OF KEY-AREA-LENGTH 01346 M00S01341.baaml +++| SA2 A3-B1 ADDRESS OF KEY-AREA 01347 M00S01342.baaml +++| SA3 X3 VALUE 01348 M00S01343.baaml +++| SX7 X2+ ADDRESS OF KEY-AREA 01349 M00S01344.baaml +++| SA7 TPKT+THRL+TPRK KEY-AREA ADDRESS TO PACKET 01350 M00S01345.baaml +++| BX7 X3 01351 M00S01346.baaml +++| SA7 A7+B1 KEY-AREA-LENGTH INTO PACKET 01352 M00S01347.baaml +++| RAD1 SB2 TPKA KEY-AREA 01353 M00S01348.baaml +++| SB4 0 SET NO MAJOR-KEY-LENGTH 01354 M00S01349.baaml +++| RJ CKF CHECK FIELD LENGTH AND MOVE KEY 01355 M00S01350.baaml +++| NZ X7,RAD3 IF KEY-OFFSET ERROR 01356 M00S01351.baaml +++| RAD2 RJ RQS ISSUE *TAF/CRM* REQUEST 01357 M00S01352.baaml +++| RAD3 RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 01358 M00S01353.baaml +++| SA2 TPKT+THRL+TPCS *TAF/CRM* STATUS 01359 M00S01354.baaml +++| NZ X2,RADX IF ERROR RETURN 01360 M00S01355.baaml +++| RJ LWR RESTORE LAST WORD AND RECORD LENGTH 01361 M00S01356.baaml +++| SX2 B6-TPRDF REQUIRED NUMBER OF PARAMETERS 01362 M00S01357.baaml +++| NG X2,RADX IF LESS THEN REQUIRED 01363 M00S01358.baaml +++| ZR X2,RADX IF END OF LIST 01364 M00S01359.baaml +++| SA3 TPKT+THRL+TPRDF KEY-STATUS RESULTS 01365 M00S01360.baaml +++| SA2 A1+TPRDF KEY-STATUS ADDRESS 01366 M00S01361.baaml +++| BX7 X3 01367 M00S01362.baaml +++| SA7 X2 SET KEY-STATUS 01368 M00S01363.baaml +++| SX2 B6-TPRDL PARAMETERS REQUIRED FOR LOCK STATUS 01369 M00S01364.baaml +++| NG X2,RAD4 IF END OF PARAMETER LIST 01370 M00S01365.baaml +++| SA2 TPKT+THRL+TPLB 01371 M00S01366.baaml +++| SA3 A1+TPLB LOCK STATUS ADDRESS 01372 M00S01367.baaml +++| BX7 X2 01373 M00S01368.baaml +++| SA7 X3 RETURN LOCK STATUS 01374 M00S01369.baaml +++| RAD4 SX3 B6-TPRLL PARAMETERS REQUIRED FOR KEY-AREA 01375 M00S01370.baaml +++| NG X3,RADX IF END OF PARAMETER LIST 01376 M00S01371.baaml +++| SA2 A1+TPRK KEY-AREA ADDRESS 01377 M00S01372.baaml +++| RJ RKA RETURN KEY-AREA 01378 M00S01373.baaml +++| EQ RADX RETURN 01379 M00S01374.baaml +++| RDM SPACE 4,20 01380 M00S01375.baaml +++|** RDM - READM/READNL/READN PROCESSOR. 01381 M00S01376.baaml +++|* 01382 M00S01377.baaml +++|* ENTRY (B2) = MAXIMUM NUMBER OF PARAMETERS. 01383 M00S01378.baaml +++|* (X0) = NONZERO IF CALLED BY READM FUNCTION. 01384 M00S01379.baaml +++|* (X7) = SUB-FUNCTION CODE. 01385 M00S01380.baaml +++|* 01386 M00S01381.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 01387 M00S01382.baaml +++|* 01388 M00S01383.baaml +++|* USES X - 1, 2, 3, 6, 7. 01389 M00S01384.baaml +++|* A - 1, 2, 3, 6, 7. 01390 M00S01385.baaml +++|* B - 2, 4. 01391 M00S01386.baaml +++|* 01392 M00S01387.baaml +++|* CALLS CWS, CKF, PRT, RKA, RQS, RTS. 01393 M00S01388.baaml +++| 01394 M00S01389.baaml +++| 01395 M00S01390.baaml +++| RDM SUBR ENTRY/EXIT 01396 M00S01391.baaml +++| RJ PRT PRESET 01397 M00S01392.baaml +++| SX1 B6-TPRL PARAMETERS REQUIRED FOR *CWS* 01398 M00S01393.baaml +++| NG X1,RDM2 IF NOT ENOUGH PARAMETERS 01399 M00S01394.baaml +++| RJ CWS WSA-NAME AND WSA-LENGTH 01400 M00S01395.baaml +++| SB4 0 SET NO MAJOR-KEY-LENGTH 01401 M00S01396.baaml +++| SX1 B6-TPRNF REQUIRED NUMBER OF PARAMETERS 01402 M00S01397.baaml +++| NG X1,RDM2 IF NOT ENOUGH PARAMETERS 01403 M00S01398.baaml +++| SA2 A1+TPKW KEY-AREA ADDRESS 01404 M00S01399.baaml +++| SA3 A2+B1 KEY-AREA-LENGTH ADDRESS 01405 M00S01400.baaml +++| SX7 X2 ADDRESS OF KEY-AREA 01406 M00S01401.baaml +++| SA3 X3 VALUE OF KEY-AREA-LENGTH 01407 M00S01402.baaml +++| SX6 X3 VALUE 01408 M00S01403.baaml +++| SA7 TPKT+THRL+TPKW KEY-AREA ADDRESS TO PACKET 01409 M00S01404.baaml +++| SA6 TPKT+THRL+TPLN VALUE OF KEY-AREA-LENGTH 01410 M00S01405.baaml +++| ZR X1,RDM2 IF END OF PARAMETERS 01411 M00S01406.baaml +++| ZR X0,RDM2 IF CALLED BY READN OR READNL 01412 M00S01407.baaml +++| SX1 B6-TPRMF PARAMETERS REQUIRED FOR READM 01413 M00S01408.baaml +++| NG X1,RDM2 IF NOT PARAMETERS FOR READM 01414 M00S01409.baaml +++| SA2 A1+TPMM ADDRESS OF MAJOR-KEY-LENGTH 01415 M00S01410.baaml +++| SA2 X2+ VALUE OF MAJOR-KEY-LENGTH 01416 M00S01411.baaml +++| SB4 X2 01417 M00S01412.baaml +++| BX7 X2 01418 M00S01413.baaml +++| SA7 TPKT+THRL+TPMM MAJOR-KEY-LENGTH INTO PACKET 01419 M00S01414.baaml +++| ZR X1,RDM1 IF END OF PARAMETER LIST 01420 M00S01415.baaml +++| SX1 B6-TPRDL PARAMETERS REQUIRED FOR KEY-IDENTIFIER 01421 M00S01416.baaml +++| NZ X1,RDM1 IF NO KEY-IDENTIFIER 01422 M00S01417.baaml +++| SA3 A1+TPMO ADDRESS OF KEY-IDENTIFIER 01423 M00S01418.baaml +++| SA3 X3 VALUE 01424 M00S01419.baaml +++| BX7 X3 01425 M00S01420.baaml +++| SA7 TPKT+THRL+TPMO VALUE OF KEY-IDENTIFIER INTO PACKET 01426 M00S01421.baaml +++| RDM1 SB2 TPYM INDEX TO PARAMETER LIST FOR KEY-NAME 01427 M00S01422.baaml +++| RJ CKF CHECK AND TRANSFER KEY INTO PACKET 01428 M00S01423.baaml +++| NZ X7,RDM3 IF KEY-OFFSET ERRORS 01429 M00S01424.baaml +++| RDM2 RJ RQS ISSUE *TAF/CRM* REQUEST 01430 M00S01425.baaml +++| RDM3 RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 01431 M00S01426.baaml +++| SX7 B6-TPRNF REQUIRED NUMBER OF PARAMETERS 01432 M00S01427.baaml +++| SA2 TPKT+THRL+TPCS *CRM* STATUS 01433 M00S01428.baaml +++| NG X7,RDMX IF NOT ENOUGH PARAMETERS 01434 M00S01429.baaml +++| NZ X2,RDMX IF ERROR RETURN 01435 M00S01430.baaml +++| RJ LWR LAST WORD OF RECORD AND RECORD LENGTH 01436 M00S01431.baaml +++| NZ X0,RDM4 IF NOT CALLED BY READN OR READNL 01437 M00S01432.baaml +++| ZR X7,RDM6 IF END OF PARAMETER LIST 01438 M00S01433.baaml +++| SA3 TPKT+THRL+TPRNF KEY-STATUS RESULTS 01439 M00S01434.baaml +++| SA2 A1+TPRNF ADDRESS OF KEY-STATUS FOR READN OR READNL 01440 M00S01435.baaml +++| BX7 X3 KEY-STATUS 01441 M00S01436.baaml +++| SA7 X2 SAVE KEY-STATUS 01442 M00S01437.baaml +++| SX2 B6-TPRNL 01443 M00S01438.baaml +++| NG X2,RDM6 IF END OF PARAMETER LIST 01444 M00S01439.baaml +++| SA3 TPKT+THRL+TPLA GET LOCK STATUS 01445 M00S01440.baaml +++| SA2 A1+TPLA LOCK STATUS ADDRESS 01446 M00S01441.baaml +++| EQ RDM5 PROCESS LOCK STATUS 01447 M00S01442.baaml +++| 01448 M00S01443.baaml +++| RDM4 SX7 B6-TPRMF REQUIRED PARAMETERS FOR READM 01449 M00S01444.baaml +++| NG X7,RDMX IF NOT ENOUGH PARAMETERS 01450 M00S01445.baaml +++| ZR X7,RDM6 IF NOT KEY-STATUS 01451 M00S01446.baaml +++| SA3 TPKT+THRL+TPMS KEY-STATUS FROM PACKET 01452 M00S01447.baaml +++| SA2 A1+TPMS ADDRESS OF KEY-STATUS 01453 M00S01448.baaml +++| BX7 X3 KEY-STATUS 01454 M00S01449.baaml +++| SA7 X2 SAVE KEY-STATUS 01455 M00S01450.baaml +++| SX2 B6-TPRML PARAMETERS REQUIRED FOR LOCK STATUS 01456 M00S01451.baaml +++| NG X2,RDM6 IF END OF PARAMETER LIST 01457 M00S01452.baaml +++| SA3 TPKT+THRL+TPLC LOCK STATUS 01458 M00S01453.baaml +++| SA2 A1+TPLC GET LOCK STATUS ADDRESS 01459 M00S01454.baaml +++| RDM5 BX7 X3 01460 M00S01455.baaml +++| SA7 X2+ 01461 M00S01456.baaml +++| RDM6 SA2 A1+TPKW KEY-AREA ADDRESS 01462 M00S01457.baaml +++| RJ RKA RETURN KEY-AREA 01463 M00S01458.baaml +++| EQ RDMX RETURN 01464 M00S01459.baaml +++| RKA SPACE 4,15 01465 M00S01460.baaml +++|** RKA - RETURN KEY-AREA. 01466 M00S01461.baaml +++|* 01467 M00S01462.baaml +++|* ENTRY (TPKT) = RESULTS OF *TAF/CRM* REQUEST. 01468 M00S01463.baaml +++|* (A1) = POINTER TO PARAMETER LIST. 01469 M00S01464.baaml +++|* (A2) = POINTER TO KEY-AREA ADDRESS. 01470 M00S01465.baaml +++|* (X2) = ADDRESS OF KEY-AREA. 01471 M00S01466.baaml +++|* 01472 M00S01467.baaml +++|* EXIT KEY-AREA (PRIMARY KEY) PROCESSED. 01473 M00S01468.baaml +++|* 01474 M00S01469.baaml +++|* USES X - 1, 2, 3, 7. 01475 M00S01470.baaml +++|* A - 1, 2, 3. 01476 M00S01471.baaml +++|* B - 2, 3, 4, 6. 01477 M00S01472.baaml +++|* 01478 M00S01473.baaml +++|* CALLS MTS. 01479 M00S01474.baaml +++| 01480 M00S01475.baaml +++| 01481 M00S01476.baaml +++| RKA SUBR ENTRY/EXIT 01482 M00S01477.baaml +++| SA1 A1+TPWS WORKING-STORGE-ADDRESS (WSA) 01483 M00S01478.baaml +++| SB2 X1 ADDRESS OF WSA 01484 M00S01479.baaml +++| SB3 X2 ADDRESS OF KEY-AREA 01485 M00S01480.baaml +++| EQ B2,B3,RKAX IF SAME ADDRESS RETURN 01486 M00S01481.baaml +++| SX1 TCHL LENGTH OF WORD IN CHARACTERS 01487 M00S01482.baaml +++| SA3 TPKT+THRL+TPRL RECORD LENGTH FROM PACKET 01488 M00S01483.baaml +++| SA2 A2+B1 KEY-AREA-LENGTH ADDRESS 01489 M00S01484.baaml +++| SA2 X2 VALUE 01490 M00S01485.baaml +++| SX7 X1-1 LENGTH OF WORD MINUS ONE (1) 01491 M00S01486.baaml +++| SB4 X2+ LENGTH OF KEY-AREA IN CHARACTERS 01492 M00S01487.baaml +++| GT B3,B2,RKA1 IF KEY-AREA ADDRESS IS BELOW WSA 01493 M00S01488.baaml +++| 01494 M00S01489.baaml +++|* KEY-AREA ADDRESS IS ABOVE WORKING-STORAGE ADDRESS. 01495 M00S01490.baaml +++| 01496 M00S01491.baaml +++| IX2 X2+X7 ROUND UP CHARACTERS 01497 M00S01492.baaml +++| IX2 X2/X1 CHANGE CHARACTERS TO WORDS 01498 M00S01493.baaml +++| SB6 X2+B3 KEY-AREA ADDRESS PLUS KEY-AREA-LENGTH 01499 M00S01494.baaml +++| SB6 B6-1 ADJUST FOR INDEX 01500 M00S01495.baaml +++| LT B6,B2,RKA2 IF KEY-AREA DOES NOT GO INTO RECORD 01501 M00S01496.baaml +++| SX1 TCHL LENGTH OF WORD IN CHARACTERS 01502 M00S01497.baaml +++| SX3 B2-B3 DIFFERENCE IN KEY-AREA AND WSA 01503 M00S01498.baaml +++| IX3 X3*X1 NUMBER OF CHARACTERS 01504 M00S01499.baaml +++| SB4 X3+ ADJUSTED KEY-LENGTH 01505 M00S01500.baaml +++| EQ RKA2 GO MOVE PART OF KEY 01506 M00S01501.baaml +++| 01507 M00S01502.baaml +++|* KEY-AREA ADDRESS IS BELOW WORKING-STORAGE ADDRESS. 01508 M00S01503.baaml +++| 01509 M00S01504.baaml +++| RKA1 IX3 X3+X7 ROUND UP CHARACTERS OF RECORD LENGTH 01510 M00S01505.baaml +++| IX3 X3/X1 NUMBER OF WORD 01511 M00S01506.baaml +++| SB6 X3 NUMBER OF WORD MINUS ONE (1) 01512 M00S01507.baaml +++| SB6 B2+B6 END OF RECORD AREA 01513 M00S01508.baaml +++| SB6 B6-B1 ADJUST ADDRESS 01514 M00S01509.baaml +++| LE B3,B6,RKAX IF KEY-AREA IS IN RECORD AREA 01515 M00S01510.baaml +++| 01516 M00S01511.baaml +++| RKA2 SB2 B1 STARTING POSITION 01517 M00S01512.baaml +++| SA2 B3 KEY-AREA ADDRESS 01518 M00S01513.baaml +++| SA1 TKEY KEY-AREA IN PACKET 01519 M00S01514.baaml +++| RJ MTS TRANSFER KEY TO KEY-AREA 01520 M00S01515.baaml +++| EQ RKAX RETURN 01521 M00S01516.baaml +++| RTS SPACE 4,20 01522 M00S01517.baaml +++|** RTS - RETURN STATUS CODES. 01523 M00S01518.baaml +++|* 01524 M00S01519.baaml +++|* ENTRY (TPKT+2) = TAF STATUS RETURNED. 01525 M00S01520.baaml +++|* (A1) = POINTER TO PARAMETER LIST. 01526 M00S01521.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 01527 M00S01522.baaml +++|* (B6) = NUMBER OF PARAMETERS. 01528 M00S01523.baaml +++|* 01529 M00S01524.baaml +++|* EXIT *TAF* AND *CRM* STATUS SET IN PROGRAM. 01530 M00S01525.baaml +++|* (A1) = POINTER TO ADDRESS LIST. 01531 M00S01526.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 01532 M00S01527.baaml +++|* 01533 M00S01528.baaml +++|* USES X - 1, 2, 3, 6. 01534 M00S01529.baaml +++|* A - 1, 2, 3, 6. 01535 M00S01530.baaml +++|* 01536 M00S01531.baaml +++|* MACROS MESSAGE. 01537 M00S01532.baaml +++|* 01538 M00S01533.baaml +++|* CALLS COD, RTT, SNM. 01539 M00S01534.baaml +++| 01540 M00S01535.baaml +++| 01541 M00S01536.baaml +++| RTS SUBR ENTRY/EXIT 01542 M00S01537.baaml +++| SA1 TPKT+THRL+TPTS VALUE OF TAF-STATUS FROM TAF 01543 M00S01538.baaml +++| ZR X1,RTS1 IF NO ERROR 01544 M00S01539.baaml +++| RJ RTT TAF-STATUS CODE 01545 M00S01540.baaml +++| RTS1 SA1 TPKT+THRL+TPCS VALUE OF CRM-STATUS FROM AAMI 01546 M00S01541.baaml +++| ZR X1,RTS2 IF STATUS OF ZERO 01547 M00S01542.baaml +++| RJ COD CONVERT ERROR CODE TO DISPLAY 01548 M00S01543.baaml +++| MX3 24 MASK FOR ERROR CODE 01549 M00S01544.baaml +++| SB2 1RX REPLACEMENT CHARACTER 01550 M00S01545.baaml +++| BX1 X3*X4 ERROR CODE 01551 M00S01546.baaml +++| SB3 RTCB ASSEMBLY AREA 01552 M00S01547.baaml +++| SB5 -RTCA FWA OF MESSAGE 01553 M00S01548.baaml +++| RJ SNM SET NAME IN MESSAGE 01554 M00S01549.baaml +++| SA1 TFCD FUNCTION CODE NAME 01555 M00S01550.baaml +++| SB2 1RY REPLACEMENT CHARACTER 01556 M00S01551.baaml +++| SB5 RTCB FWA OF MESSAGE 01557 M00S01552.baaml +++| RJ SNM SET NAME IN MESSAGE 01558 M00S01553.baaml +++| MESSAGE RTCB,0,R 01559 M00S01554.baaml +++| RTS2 SA1 TSA1 RESTORE ADDRESS TO PARAMETER LIST 01560 M00S01555.baaml +++| SA1 X1+ 01561 M00S01556.baaml +++| LE B6,B1,RTSX IF NOT ENOUGH PARAMETERS 01562 M00S01557.baaml +++| SA3 TPKT+THRL+TPTS VALUE OF TAF-STATUS FROM AAMI 01563 M00S01558.baaml +++| SA2 A1+TPTS 01564 M00S01559.baaml +++| BX6 X3 01565 M00S01560.baaml +++| SA6 X2 STORE TAF-STATUS 01566 M00S01561.baaml +++| SX3 B6-TPOPL PARAMETERS FOR *TAF/CRM* STATUS 01567 M00S01562.baaml +++| NG X3,RTSX IF END OF PARAMETER LIST 01568 M00S01563.baaml +++| SA2 A1+TPCS ADDRESS OF CRM-STATUS 01569 M00S01564.baaml +++| SA3 TPKT+THRL+TPCS CRM-STATUS FROM AAMI 01570 M00S01565.baaml +++| BX6 X3 01571 M00S01566.baaml +++| SA6 X2 01572 M00S01567.baaml +++| EQ RTSX RETURN 01573 M00S01568.baaml +++| 01574 M00S01569.baaml +++| RTCA DATA C* TAF/CRM CRM STATUS XXXXB IN FUNCTION YYYYYYY.* 01575 M00S01570.baaml +++| RTCB BSSZ *+1-RTCA ASSEMBLY AREA FOR *SNM* 01576 M00S01571.baaml +++| RTT SPACE 4,15 01577 M00S01572.baaml +++|** RTT - RETURN TAF-STATUS. 01578 M00S01573.baaml +++|* 01579 M00S01574.baaml +++|* ENTRY (X1) - TAF-STATUS FORM *TAF/CRM* REQUEST (TPKT). 01580 M00S01575.baaml +++|* (RTTB) - LOCATION TO PUT MESSAGE ERROR CODE. 01581 M00S01576.baaml +++|* (RTTC) - LOCATION TO PUT FUNCTION NAME. 01582 M00S01577.baaml +++|* (TFCD) - NAME OF FUNCTION. 01583 M00S01578.baaml +++|* 01584 M00S01579.baaml +++|* EXIT - ERROR MESSAGE ISSUED TO DAYFILE. 01585 M00S01580.baaml +++|* (A1) = ADDRESS OF PARAMETER LIST OF CONSECUTIVE 01586 M00S01581.baaml +++|* WORDS FOLLOWED BY A WORD OF BINARY ZEROS. 01587 M00S01582.baaml +++|* (X1) = ADDRESS OF FIRST PARAMETER. 01588 M00S01583.baaml +++|* 01589 M00S01584.baaml +++|* USES X - 1, 2, 3, 5, 6. 01590 M00S01585.baaml +++|* A - 1, 2, 3, 6. 01591 M00S01586.baaml +++|* 01592 M00S01587.baaml +++|* MACROS MESSAGE, ABORT. 01593 M00S01588.baaml +++|* 01594 M00S01589.baaml +++|* CALLS CDD, SNM. 01595 M00S01590.baaml +++| 01596 M00S01591.baaml +++| 01597 M00S01592.baaml +++| RTT SUBR ENTRY/EXIT 01598 M00S01593.baaml +++| SX5 X1-TTENL FATAL ERROR STATUS FROM AAMI 01599 M00S01594.baaml +++| RJ CDD CONVERT TO DECIMAL DISPLAY CODE 01600 M00S01595.baaml +++| MX3 24 MASK FOR ERROR CODE 01601 M00S01596.baaml +++| SB2 1RX REPLACEMENT CHARACTER 01602 M00S01597.baaml +++| BX1 X3*X4 ERROR CODE 01603 M00S01598.baaml +++| SB3 RTCB ASSEMBLY AREA 01604 M00S01599.baaml +++| SB5 -RTTA FWA OF MESSAGE 01605 M00S01600.baaml +++| RJ SNM SET NAME IN MESSAGE 01606 M00S01601.baaml +++| SA1 TFCD FUNCTION CODE NAME 01607 M00S01602.baaml +++| SB2 1RY REPLACEMENT CHARACTER 01608 M00S01603.baaml +++| SB5 RTCB FWA OF MESSAGE 01609 M00S01604.baaml +++| RJ SNM SET NAME IN MESSAGE 01610 M00S01605.baaml +++| MESSAGE RTCB,0,R 01611 M00S01606.baaml +++| SA1 TSA1 RESTORE PARAMETER LIST ADDRESS 01612 M00S01607.baaml +++| SA1 X1+ 01613 M00S01608.baaml +++| NG X5,RTTX IF NOT A FATAL ERROR 01614 M00S01609.baaml +++| ABORT ABORT DUE TO FATAL *TAF/CRM* ERRORS 01615 M00S01610.baaml +++| 01616 M00S01611.baaml +++| RTTA DATA C* TAF/CRM TAF STATUS XXXX IN FUNCTION YYYYYYY.* 01617 M00S01612.baaml +++| RQS SPACE 4,20 01618 M00S01613.baaml +++|** RQS - REQUEST *TAF/CRM* SUBSYSTEM. 01619 M00S01614.baaml +++|* 01620 M00S01615.baaml +++|* ENTRY (RQSA) = HEADER WORD ONE. 01621 M00S01616.baaml +++|* (RQSB) = HEADER WORD TWO. 01622 M00S01617.baaml +++|* (TPKT) = FUNCTION PARAMETERS. 01623 M00S01618.baaml +++|* 01624 M00S01619.baaml +++|* EXIT (TPKT) = RESULTS FROM *TAF/CRM*. 01625 M00S01620.baaml +++|* 01626 M00S01621.baaml +++|* USES X - 1, 2, 6, 7. 01627 M00S01622.baaml +++|* A - 1, 2, 6, 7. 01628 M00S01623.baaml +++|* B - 4. 01629 M00S01624.baaml +++|* 01630 M00S01625.baaml +++|* MACROS CALLSS, ABORT, MESSAGE, RECALL. 01631 M00S01626.baaml +++| 01632 M00S01627.baaml +++| 01633 M00S01628.baaml +++| RQS SUBR ENTRY/EXIT 01634 M00S01629.baaml +++| RQS1 SA1 RQSA FIRST WORD OF HEADER 01635 M00S01630.baaml +++| SA2 RQSB SECOND HEADER WORD FOR *TAF/CRM* 01636 M00S01631.baaml +++| BX7 X1 01637 M00S01632.baaml +++| BX6 X2 01638 M00S01633.baaml +++| SA7 TPKT FIRST WORD OF PACKET AREA 01639 M00S01634.baaml +++| SA6 A7+B1 *UPC* INTERFACE WORD 01640 M00S01635.baaml +++| CALLSS /SSD/TRSI,TPKT,R *UCP* CALL TO TAF VIA MONITOR 01641 M00S01636.baaml +++| RQS2 SA1 A7 CHECK FOR RESPONSE 01642 M00S01637.baaml +++| LX1 59-0 RESPONSE IN BIT (0) 01643 M00S01638.baaml +++| NG X1,RQS3 IF CALL TO *TAF/CRM* COMPLETE 01644 M00S01639.baaml +++| RECALL 01645 M00S01640.baaml +++| EQ RQS2 IF COMPLETE NOT SET 01646 M00S01641.baaml +++| 01647 M00S01642.baaml +++| RQS3 SX2 7776B MASK FOR ERRORS 01648 M00S01643.baaml +++| LX1 0-0-59+0 SHIFT RESPONSE 01649 M00S01644.baaml +++| SB4 B0 TABLE INCREMENT COUNT TO ZERO 01650 M00S01645.baaml +++| BX2 X1*X2 01651 M00S01646.baaml +++| ZR X2,RQS5 IF NO ERRORS 01652 M00S01647.baaml +++| RQS4 SA1 RQSS+B4 SUBSYSTEM ERROR CODES 01653 M00S01648.baaml +++| SX7 X1 01654 M00S01649.baaml +++| IX7 X2-X7 SUBTRACT CODES 01655 M00S01650.baaml +++| SB4 B4+1 INCREMENT TABLE INDEX 01656 M00S01651.baaml +++| ZR X7,RQS7 IF MATCH OF ERROR CODES 01657 M00S01652.baaml +++| ZR X1,RQS11 IF END OF TABLE 01658 M00S01653.baaml +++| EQ RQS4 LOOK AT NEXT 01659 M00S01654.baaml +++| 01660 M00S01655.baaml +++| RQS5 SA1 TPKT+1 LOOK AT SECOND WORD OF HEADER FOR ERRORS 01661 M00S01656.baaml +++| MX2 -12 MASK FOR ERROR CODES 01662 M00S01657.baaml +++| BX2 -X2*X1 MASK OFF RESPONSE 01663 M00S01658.baaml +++| ZR X2,RQS1 IF NO RESPONSE 01664 M00S01659.baaml +++| RQS6 SA1 RQST+B4 LOOK AT ALL ERROR CODES 01665 M00S01660.baaml +++| SX7 X1 01666 M00S01661.baaml +++| IX7 X7-X2 SUBTRACT OFF ERROR CODES 01667 M00S01662.baaml +++| SB4 B4+1 INCREMENT TABLE INDEX 01668 M00S01663.baaml +++| ZR X7,RQS7 IF MATCH OF ERROR CODES 01669 M00S01664.baaml +++| ZR X2,RQS11 IF NO MATCH OF ERROR CODES 01670 M00S01665.baaml +++| EQ RQS6 GET NEXT ERROR CODE 01671 M00S01666.baaml +++| 01672 M00S01667.baaml +++| RQS7 LX1 17-59 SHIFT ADDRESS OF MESSAGE 01673 M00S01668.baaml +++| SX2 X1 ADDRESS OF MESSAGE 01674 M00S01669.baaml +++| LX1 17-41-17+59 ADDRESS OF ROUTINE 01675 M00S01670.baaml +++| SB4 X1 01676 M00S01671.baaml +++| ZR X2,RQS8 IF NOT ERROR MESSAGE 01677 M00S01672.baaml +++| MX7 -6 MASK FOR DISPLAY DAYFILE 01678 M00S01673.baaml +++| LX1 5-23-17+41 SHIFT DISPLAY MESSAGE AREA 01679 M00S01674.baaml +++| BX7 -X7*X1 MASK OFF DISPLAY VALUE 01680 M00S01675.baaml +++| MESSAGE X2,X7,R ISSUE ERROR MESSAGE 01681 M00S01676.baaml +++| RQS8 SA1 TSA1 RESTORE TO PARAMETER LIST ADDRESS 01682 M00S01677.baaml +++| SA1 X1+ 01683 M00S01678.baaml +++| JP B4 GO TO ROUTINE FOR PROCESSING 01684 M00S01679.baaml +++| 01685 M00S01680.baaml +++| RQS9 SA1 0 LOCATION ZERO OF *CP* RA+0 01686 M00S01681.baaml +++| SX7 1 01687 M00S01682.baaml +++| LX7 12-0 SHIFT *PAUSE* BIT 01688 M00S01683.baaml +++| BX7 X1+X7 01689 M00S01684.baaml +++| SA7 0 SET IN RA+0 01690 M00S01685.baaml +++| RQS10 RECALL RECALL BEFOR RETRY 01691 M00S01686.baaml +++| SA1 B0 RA+0 01692 M00S01687.baaml +++| LX1 59-12 SHIFT TO POSITION FOR TEST 01693 M00S01688.baaml +++| NG X1,RQS10 IF *PAUSE* BIT NOT CLEARED 01694 M00S01689.baaml +++| EQ RQS1 *GO* ENTERED REISSUE REQUEST 01695 M00S01690.baaml +++| 01696 M00S01691.baaml +++| RQS11 MESSAGE RQML,0,R TAF ERROR NOT DEFINED 01697 M00S01692.baaml +++| RQS12 ABORT TERMINATE PROCESSING 01698 M00S01693.baaml +++| 01699 M00S01694.baaml +++| 01700 M00S01695.baaml +++| RQSA VFD 24/0LTAF,12/0,6/40,4/0,2/3,11/0,1/0 01701 M00S01696.baaml +++| RQSB BSSZ 1 SECOND WORD OF HEADER 01702 M00S01697.baaml +++| 01703 M00S01698.baaml +++| 01704 M00S01699.baaml +++|* ERROR MESSAGES FOR *RQS* FROM *TAF/CRM*. 01705 M00S01700.baaml +++| 01706 M00S01701.baaml +++| 01707 M00S01702.baaml +++| RQST EQU * SECOND HEADER WORD ERROR CODE 01708 M00S01703.baaml +++| FCTM ,RQSX,,JSRC REQUEST COMPLETE 01709 M00S01704.baaml +++| FCTM RQMA,RQS9,0,JSNU *TAF* SUBSYSTEM NOT UP 01710 M00S01705.baaml +++| FCTM RQMB,RQS1,1,JSTB *TAF* SUBSYSTEM BUSY 01711 M00S01706.baaml +++| FCTM RQMJ,RQS12,0,JSND SUBSYSTEM NOT DEFINED AS *SCP* 01712 M00S01707.baaml +++| FCTM RQMI,RQS9,0,JSTI *TAF* DEFINED - *TAF* IDLE 01713 M00S01708.baaml +++| FCTM RQMD,RQS12,0,JSNV USER NOT VALID FOR *TAF* ACCESS
| Line S01709 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01714 M01S01709.v23l617 ---| FCTM RQME,RQS12,0,JSUA USER NUMBER ACTIVE
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01715 M01S00005.v23l617 +++| FCTM RQME,RQS12,0,JSUA USER NAME ACTIVE 01716 M00S01710.baaml +++| FCTM RQMK,RQS12,0,JSAT CONFLICT IN ACCESS TYPE 01717 M00S01711.baaml +++| FCTM RQMG,RQS12,0,JSFL DATA NOT WITHIN *UCP* FL 01718 M00S01712.baaml +++| FCTM RQMF,RQS12,0,JSOR TWO OUTSTANDING REQUEST 01719 M00S01713.baaml +++| FCTM RQMC,RQS12,0,JSFC *TAF* FUNCTION CODE NOT VALID 01720 M00S01714.baaml +++| FCTM RQMM,RQS12,0,JSRE RECOVERY REQUEST ERROR 01721 M00S01715.baaml +++| FCTM RQMN,RQS12,0,JSDC BATCH CONCURRENCY DISABLED 01722 M00S01716.baaml +++| FCTM RQMO,RQS12,0,JSNC TAF/CRM DATA MANAGER NOT IN TAF 01723 M00S01717.baaml +++| CON 0 END OF LIST 01724 M00S01718.baaml +++| 01725 M00S01719.baaml +++| 01726 M00S01720.baaml +++| RQSS EQU * FIRST HEADER WORD ERROR CODES 01727 M00S01721.baaml +++| FCTM RQMA,RQS9,0,/SCP/ES1 SUBSYSTEM NOT PRESENT 01728 M00S01722.baaml +++| FCTM RQMB,RQS1,1,/SCP/ES2 SUBSYSTEM BUSY
| Line S01723 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01729 M01S01723.v23l617 ---| FCTM RQMJ,RQS12,0,/SCP/ES3 SSID ILLEGAL
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01730 M01S00006.v23l617 +++| FCTM RQMJ,RQS12,0,/SCP/ES3 SSID INCORRECT 01731 M00S01724.baaml +++| CON 0 END OF LIST 01732 M00S01725.baaml +++| 01733 M00S01726.baaml +++| 01734 M00S01727.baaml +++| RQMA DATA C* TAF NOT PRESENT (GO OR DROP).* 01735 M00S01728.baaml +++| 01736 M00S01729.baaml +++| RQMB DATA C* TAF SUBSYSTEM BUSY. * 01737 M00S01730.baaml +++| 01738 M00S01731.baaml +++| RQMC DATA C* TAF FUNCTION CODE NOT VALID.* 01739 M00S01732.baaml +++| 01740 M00S01733.baaml +++| RQMD DATA C* TAF USER NOT VALID FOR TAF ACCESS.* 01741 M00S01734.baaml +++|
| Line S01735 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01742 M01S01735.v23l617 ---| RQME DATA C* TAF USER NUMBER ACTIVE.*
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01743 M01S00007.v23l617 +++| RQME DATA C* TAF USER NAME ACTIVE.* 01744 M00S01736.baaml +++| 01745 M00S01737.baaml +++| RQMF DATA C* TAF TWO OUTSTANDING REQUESTS.* 01746 M00S01738.baaml +++| 01747 M00S01739.baaml +++| RQMG DATA C* TAF DATA NOT WITHIN UCP FL.* 01748 M00S01740.baaml +++|
| Line S01741 Modification History | |
|---|---|
M01 (Removed by) | baaml1 |
Seq # *Modification Id* Act ----------------------------+ 01749 M01S01741.baaml1 ---| RQMH DATA C* TAF SUBSYSTEM NOT DEFINED.* 01750 M01S01742.baaml1 ---| 01751 M00S01743.baaml +++| RQMI DATA C* TAF IDLE (GO OR DROP).* 01752 M00S01744.baaml +++| 01753 M00S01745.baaml +++| RQMJ DATA C* TAF SUBSYSTEM NOT DEFINED AS A SCP.* 01754 M00S01746.baaml +++| 01755 M00S01747.baaml +++| RQMK DATA C* TAF USER CONFLICT IN ACCESS TYPE.* 01756 M00S01748.baaml +++| 01757 M00S01749.baaml +++| RQML DATA C* TAF ERROR CODE NOT DEFINED.* 01758 M00S01750.baaml +++| 01759 M00S01751.baaml +++| RQMM DATA C* TAF RECOVERY REQUEST ERROR.* 01760 M00S01752.baaml +++| 01761 M00S01753.baaml +++| RQMN DATA C* BATCH CONCURRENCY DISABLED.* 01762 M00S01754.baaml +++| 01763 M00S01755.baaml +++| RQMO DATA C* TAF/CRM DATA MANAGER NOT LOADED IN TAF.* 01764 M00S01756.baaml +++| SKP SPACE 4,15 01765 M00S01757.baaml +++|** SKP - SKIP FUNCTION PROCESSOR. 01766 M00S01758.baaml +++|* 01767 M00S01759.baaml +++|* ENTRY (B2) = NUMBER OF PARAMETERS. 01768 M00S01760.baaml +++|* (X7) = SUB-FUNCTION CODE. 01769 M00S01761.baaml +++|* 01770 M00S01762.baaml +++|* EXIT FUNCTION COMPETED AND STATUS RETURNED. 01771 M00S01763.baaml +++|* 01772 M00S01764.baaml +++|* USES X - 2, 7. 01773 M00S01765.baaml +++|* A - 2, 7. 01774 M00S01766.baaml +++|* B - 2. 01775 M00S01767.baaml +++|* 01776 M00S01768.baaml +++|* CALLS PRT, RQS, RTS. 01777 M00S01769.baaml +++| 01778 M00S01770.baaml +++| 01779 M00S01771.baaml +++| SKP SUBR ENTRY/EXIT 01780 M00S01772.baaml +++| RJ PRT PRESET 01781 M00S01773.baaml +++| SB2 TPSBL NUMBER OF PARAMETERS 01782 M00S01774.baaml +++| LT B6,B2,SKP1 IF NOT ENOUGH PARAMETERS 01783 M00S01775.baaml +++| SA2 A1+TPCT COUNT ADDRESS 01784 M00S01776.baaml +++| SA2 X2 VALUE OF COUNT 01785 M00S01777.baaml +++| BX7 X2 01786 M00S01778.baaml +++| SA7 TPKT+THRL+TPCT PUT COUNT IN PACKET 01787 M00S01779.baaml +++| SKP1 RJ RQS ISSUE *TAF/CRM* REQUEST 01788 M00S01780.baaml +++| RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 01789 M00S01781.baaml +++| EQ SKPX RETURN 01790 M00S01782.baaml +++| WRR SPACE 4,15 01791 M00S01783.baaml +++|** WRR - WRITE AND REWRITE A RECORD. 01792 M00S01784.baaml +++|* 01793 M00S01785.baaml +++|* ENTRY (B2) - MAXIMUM NUMBER OF PARAMETERS. 01794 M00S01786.baaml +++|* (X7) - FUNCTION CODE. 01795 M00S01787.baaml +++|* 01796 M00S01788.baaml +++|* EXIT FUNCTION COMPLETED AND STATUS RETURNED. 01797 M00S01789.baaml +++|* 01798 M00S01790.baaml +++|* USES X - 1, 2, 3, 7. 01799 M00S01791.baaml +++|* A - 1, 2, 3, 7. 01800 M00S01792.baaml +++|* B - 2, 4. 01801 M00S01793.baaml +++|* 01802 M00S01794.baaml +++|* CALLS CKF, MTS, PRT, RQS, RTS. 01803 M00S01795.baaml +++| 01804 M00S01796.baaml +++| 01805 M00S01797.baaml +++| 01806 M00S01798.baaml +++| WRR SUBR ENTRY/EXIT 01807 M00S01799.baaml +++| RJ PRT PRESET 01808 M00S01800.baaml +++| SB2 TPWRF PARAMETERS NEEDED 01809 M00S01801.baaml +++| LT B6,B2,WRR2 IF NOT ENOUGH PARAMETERS 01810 M00S01802.baaml +++| SA3 A1+TPWR ADDRESS OF RECORD LENGTH 01811 M00S01803.baaml +++| SA2 A1+TPWS ADDRESS OF WSA-NAME 01812 M00S01804.baaml +++| SX7 X2 01813 M00S01805.baaml +++| SA3 X3 VALUE OF RECORD LENGTH 01814 M00S01806.baaml +++| SA7 TPKT+THRL+TPWS STORE ADDRESS INTO PACKET 01815 M00S01807.baaml +++| BX7 X3 01816 M00S01808.baaml +++| SB4 TPWRL NUMBER OF PARAMETERS NEEDED FOR KEY-AREA 01817 M00S01809.baaml +++| SA7 TPKT+THRL+TPWR RECORD LENGTH INTO PACKET 01818 M00S01810.baaml +++| EQ B6,B2,WRR1 IF END OF PARAMETER LIST 01819 M00S01811.baaml +++| LT B6,B4,WRR1 IF NO KEY-AREA AND KEY-AREA-LENGTH 01820 M00S01812.baaml +++| SA3 A1+TPWY ADDRESS OF KEY-AREA-LENGTH 01821 M00S01813.baaml +++| SA2 A1+TPWX ADDRESS OF KEY-AREA 01822 M00S01814.baaml +++| SX7 X2 ADDRESS OF KEY-AREA 01823 M00S01815.baaml +++| SA3 X3 VALUE OF KEY-AREA-LENGTH 01824 M00S01816.baaml +++| SA7 TPKT+THRL+TPWX KEY-AREA ADDRESS INTO PACKET 01825 M00S01817.baaml +++| BX7 X3 01826 M00S01818.baaml +++| SA7 TPKT+THRL+TPWY KEY-AREA-LENGTH INTO PACKET 01827 M00S01819.baaml +++| WRR1 SB2 TPWK PARAMETER POSITION OF KEY-AREA 01828 M00S01820.baaml +++| SB4 0 SET NO MAJOR KEY 01829 M00S01821.baaml +++| RJ CKF CHECK AND TRANSFER KEY INTO PACKET 01830 M00S01822.baaml +++| NZ X7,WRR3 IF KEY-POSITION ERRORS 01831 M00S01823.baaml +++| WRR2 RJ RQS ISSUE *TAF/CRM* REQUEST 01832 M00S01824.baaml +++| WRR3 RJ RTS TAF-STATUS AND CRM-STATUS RETURNED 01833 M00S01825.baaml +++| SA2 TPKT+THRL+TPCS *TAF/CRM* STATUS 01834 M00S01826.baaml +++| NZ X2,WRRX IF ERROR 01835 M00S01827.baaml +++| SB2 TPRWL MINIMUM NUMBER OF PARAMETERS 01836 M00S01828.baaml +++| LE B6,B2,WRRX IF NO KEY-AREA AND KEY-AREA-LENGTH 01837 M00S01829.baaml +++| SA3 A1+TPWY ADDRESS OF KEY-AREA-LENGTH 01838 M00S01830.baaml +++| SA2 A1+TPWX ADDRESS OF KEY-AREA 01839 M00S01831.baaml +++| SA3 X3 VALUE OF KEY-AREA-LENGTH 01840 M00S01832.baaml +++| SB2 B1 KEY-POSITION 01841 M00S01833.baaml +++| SA2 X2 ADDRESS OF KEY-AREA 01842 M00S01834.baaml +++| SB4 X3 NUMBERS OF CHARACTERS TO MOVE 01843 M00S01835.baaml +++| SA1 TKEY ADDRESS OF KEY IN PACKET 01844 M00S01836.baaml +++| RJ MTS MOVE KEY TO KEY-AREA 01845 M00S01837.baaml +++| EQ WRRX RETURN 01846 M00S01838.baaml +++| COMMON SPACE 4,10 01847 M00S01839.baaml +++|** COMMON DECKS. 01848 M00S01840.baaml +++| 01849 M00S01841.baaml +++| 01850 M00S01842.baaml +++|*CALL COMCSYS 01851 M00S01843.baaml +++|*CALL COMCCDD 01852 M00S01844.baaml +++|*CALL COMCCOD 01853 M00S01845.baaml +++|*CALL COMCSNM 01854 M00S01846.baaml +++| COMMON SPACE 4,65 01855 M00S01847.baaml +++|** COMMON WORK STORAGE. 01856 M00S01848.baaml +++|* 01857 M00S01849.baaml +++|*T W+0 24/ RSS, 12/ RIN, 6/ WC, 4/ RCD, 2/ R, 11/ ES, 1/ C
Figure W+0
01858 M00S01850.baaml +++|* 01859 M00S01851.baaml +++|* RSS = RESERVED FOR *TAF* USE; = THE CHARACTERS "TAF". 01860 M00S01852.baaml +++|* RIN = RESERVED FOR INSTALLATION. 01861 M00S01853.baaml +++|* WC = WORD COUNT (COUNT-1) OF REQUEST PACKET. 01862 M00S01854.baaml +++|* RCD = RESERVED FOR OPERATING SYSTEM. 01863 M00S01855.baaml +++|* R = RETURN CODE. 01864 M00S01856.baaml +++|* ES = ERROR STATUS. 01865 M00S01857.baaml +++|* C = COMPLETE BIT, SET TO ZERO (0) BY OBJECT-TIME 01866 M00S01858.baaml +++|* PRIOR TO FUNCTION OR MACRO CALL. 01867 M00S01859.baaml +++|* 01868 M00S01860.baaml +++|*T, W+1 6/ FC, 18/ ADDR, 6/ AC, 30/ 0
Figure W+1
01869 M00S01861.baaml +++|* 01870 M00S01862.baaml +++|* FC = *TAF/CRM* FUNCTION CODE 01871 M00S01863.baaml +++|* ADDR = ADDRESS WITHIN THE CALLING OBJECT-TIME, WHERE 01872 M00S01864.baaml +++|* *TAF* IS TO WRITE THE RESPONSE PACKET. 01873 M00S01865.baaml +++|* AC = PARAMETER COUNT (NUMBER OF PARAMETER PASSED). 01874 M00S01866.baaml +++|* 01875 M00S01867.baaml +++|* W+2 6O/ FILE NAME OR UBEGIN-ID FOR REQUEST 01876 M00S01868.baaml +++|* TAF-STATUS FOR DBCOMIT/DBSTAT/DBFREE REQUEST 01877 M00S01869.baaml +++|* 01878 M00S01870.baaml +++|* 01879 M00S01871.baaml +++|* W+3 60/ TAF-STATUS 01880 M00S01872.baaml +++|* 01881 M00S01873.baaml +++|* W+4 60/ KEY-NAME FOR SKIP REQUEST OR CRM-STATUS 01882 M00S01874.baaml +++|* 01883 M00S01875.baaml +++|* W+5 60/ COUNT FOR SKIP REQUEST OR 01884 M00S01876.baaml +++|* KEY-NAME FOR DELETE REQUEST OR 01885 M00S01877.baaml +++|* KEY-OFFSET FOR LOCK REQUEST OR 01886 M00S01878.baaml +++|* WSA-NAME 01887 M00S01879.baaml +++|* 01888 M00S01880.baaml +++|* W+6 60/ KEY-OFFSET FOR DELETE REQUEST OR 01889 M00S01881.baaml +++|* RECORD LENGTH FOR WRITE REQUEST OR 01890 M00S01882.baaml +++|* WSA-LENGTH 01891 M00S01883.baaml +++|* 01892 M00S01884.baaml +++|* W+7 60/ KEY-NAME FOR WRITE REQUEST OR 01893 M00S01885.baaml +++|* RECORD LENGTH 01894 M00S01886.baaml +++|* 01895 M00S01887.baaml +++|* W+10 60/ KEY-AREA FOR READM/READN/READNL REQUEST OR 01896 M00S01888.baaml +++|* KEY-NAME 01897 M00S01889.baaml +++|* 01898 M00S01890.baaml +++|* W+11 60/ KEY-AREA-LENGTH FOR READM REQUEST OR 01899 M00S01891.baaml +++|* KEY-AREA-LENGTH FOR READN REQUEST OR 01900 M00S01892.baaml +++|* KEY-AREA-LENGTH FOR READNL REQUEST OR 01901 M00S01893.baaml +++|* KEY-OFFSET 01902 M00S01894.baaml +++|* 01903 M00S01895.baaml +++|* W+12 60/ KEY-NAME FOR READM REQUEST 01904 M00S01896.baaml +++|* MAJOR-KEY-LENGTH FOR START 01905 M00S01897.baaml +++|* KEY-AREA-LENGTH FOR WRITE 01906 M00S01898.baaml +++|* KEY-STATUS 01907 M00S01899.baaml +++|* 01908 M00S01900.baaml +++|* W+13 60/ KEY-OFFSET FOR READM REQUEST OR 01909 M00S01901.baaml +++|* KEY-IDENTIFIER FOR READ/READL REQUEST OR 01910 M00S01902.baaml +++|* LOCK STATUS FOR READN 01911 M00S01903.baaml +++|* 01912 M00S01904.baaml +++|* W+14 60/ MAJOR-KEY-LENGTH FOR READM REQUEST OR 01913 M00S01905.baaml +++|* KEY-AREA FOR READ/READL REQUEST 01914 M00S01906.baaml +++|* 01915 M00S01907.baaml +++|* W+15 60/ KEY-STATUS FOR READM REQUEST OR 01916 M00S01908.baaml +++|* KEY-AREA-LENGTH FOR READ/READL REQUEST 01917 M00S01909.baaml +++|* 01918 M00S01910.baaml +++|* W+16 60/ KEY-IDENTIFIER FOR READM REQUEST OR 01919 M00S01911.baaml +++|* LOCK STATUS FOR READ 01920 M00S01912.baaml +++|* 01921 M00S01913.baaml +++|* W+17 60/ LOCK STATUS FOR READM 01922 M00S01914.baaml +++|* 01923 M00S01915.baaml +++|* W+20 60/ KEY 01924 M00S01916.baaml +++|* 01925 M00S01917.baaml +++|* 01926 M00S01918.baaml +++|* 01927 M00S01919.baaml +++|* 01928 M00S01920.baaml +++|* W+52
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/baaml.txt · Last modified: by 127.0.0.1