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