Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.aaml +++| IDENT AAML
00002 M01S00002.aaml +++| SST
00003 M01S00003.aaml +++| ENTRY CLOSE
00004 M01S00004.aaml +++| ENTRY DBCOMIT
00005 M01S00005.aaml +++| ENTRY DBEGIN
00006 M01S00006.aaml +++| ENTRY DBFREE
00007 M01S00007.aaml +++| ENTRY DBSTAT
00008 M01S00008.aaml +++| ENTRY DELETE
00009 M01S00009.aaml +++| ENTRY LOCK
00010 M01S00010.aaml +++| ENTRY FLOCK
00011 M01S00011.aaml +++| ENTRY OPEN
00012 M01S00012.aaml +++| ENTRY READ
00013 M01S00013.aaml +++| ENTRY READL
00014 M01S00014.aaml +++| ENTRY READM
00015 M01S00015.aaml +++| ENTRY READN
00016 M01S00016.aaml +++| ENTRY READNL
00017 M01S00017.aaml +++| ENTRY REWIND
00018 M01S00018.aaml +++| ENTRY REWRITE
00019 M01S00019.aaml +++| ENTRY SKIPBL
00020 M01S00020.aaml +++| ENTRY SKIPFL
00021 M01S00021.aaml +++| ENTRY START
00022 M01S00022.aaml +++| ENTRY UNLOCK
00023 M01S00023.aaml +++| ENTRY UNFLOCK
00024 M01S00024.aaml +++| ENTRY WRITE
00025 M01S00025.aaml +++| SYSCOM B1
00026 M01S00026.aaml +++| TITLE AAML - ADVANCED ACCESS METHODS LIBRARY.
| Line S00027 Modification History |
M01 (Added by) | aaml |
M02 (Updated by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00027 M02S00027.ns2440 ---|*COMMENT ADVANCED ACCESS METHODS LIBRARY.
00028 M01S00001.ns2440 +++|*COMMENT AAML - ADVANCED ACCESS METHODS LIBRARY.
| Line S00028 Modification History |
M01 (Added by) | aaml |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00029 M02S00028.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.
00030 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00031 M01S00029.aaml +++| AAM SPACE 4,10
00032 M01S00030.aaml +++|***** AAM - ADVANCED ACCESS METHODS.
00033 M01S00031.aaml +++|*
00034 M01S00032.aaml +++|* G. W. PROPP. 78/08/07.
00035 M01S00033.aaml +++|* L. E. LOVETT. 80/05/01.
00036 M01S00034.aaml +++|*
00037 M01S00035.aaml +++|* AAM IS AN USER LIBRARY INTERFACE FOR COBOL5 AND FORTRAN TASKS
00038 M01S00036.aaml +++|* MAKING ADVANCED ACCESS METHOD CYBER RECORD MANAGER REQUESTS
00039 M01S00037.aaml +++|* OF THE TRANSACTION FACILITY. DECK *AAML* IS PLACED ON THE
00040 M01S00038.aaml +++|* TRANSACTION USER LIBRARY CALLED *TRANLIB*. THE COBOL5
00041 M01S00039.aaml +++|* *ENTER* VERB AND THE FORTRAN *CALL* STATEMENT INTERFACE USER
00042 M01S00040.aaml +++|* TASKS TO THE TRANSACTION FACILITY.
00043 M01S00041.aaml +++|*
00044 M01S00042.aaml +++|* AAML HAS BEEN MODIFIED TO PROVIDE TASK LEVEL
00045 M01S00043.aaml +++|* INTERFACE TO THE TRANSACTION FACILITY FOR
00046 M01S00044.aaml +++|* DATA BASE RECOVERY CALLS.
00047 M01S00045.aaml +++|*
00048 M01S00046.aaml +++|*** THE REQUESTS FOR *TAF CMR* ARE AS FOLLOWS -
00049 M01S00047.aaml +++|*
00050 M01S00048.aaml +++|* TO CLOSE A FILE FOR A TASK -
00051 M01S00049.aaml +++|* ENTER CLOSE USING FILE,TSTAT,CSTAT.
00052 M01S00050.aaml +++|* CALL CLOSE(FILE,TSTAT,CSTAT).
00053 M01S00051.aaml +++|*
00054 M01S00052.aaml +++|* TO COMMIT AN UPDATE SEQUENCE -
00055 M01S00053.aaml +++|* ENTER DBCOMIT USING TSTAT.
00056 M01S00054.aaml +++|* CALL DBCOMIT(TSTAT)
00057 M01S00055.aaml +++|*
00058 M01S00056.aaml +++|* TO BEGIN AN UPDATE SEQUENCE -
00059 M01S00057.aaml +++|* ENTER DBEGIN USING UBID,TSTAT.
00060 M01S00058.aaml +++|* CALL DBEGIN(UBID,TSTAT)
00061 M01S00059.aaml +++|*
00062 M01S00060.aaml +++|* TO FREE AN UPDATE SEQUENCE -
00063 M01S00061.aaml +++|* ENTER DBFREE USING TSTAT.
00064 M01S00062.aaml +++|* CALL DBFREE(TSTAT)
00065 M01S00063.aaml +++|*
00066 M01S00064.aaml +++|* TO OBTAIN STATUS OF UPDATE SEQUENCE(S) -
00067 M01S00065.aaml +++|* ENTER DBSTAT USING PBID,TSTAT,CBID.
00068 M01S00066.aaml +++|* CALL DBSTAT(PBID,STAT,CBID)
00069 M01S00067.aaml +++|*
00070 M01S00068.aaml +++|* TO DELETE A RECORD -
00071 M01S00069.aaml +++|* ENTER DELETE USING FILE,TSTAT,CSTAT,KEYA,KEYP.
00072 M01S00070.aaml +++|* CALL DELETE(FILE,TSTAT,CSTAT,KEYA,KEYP)
00073 M01S00071.aaml +++|*
00074 M01S00072.aaml +++|* TO LOCK A RECORD -
00075 M01S00073.aaml +++|* ENTER LOCK USING FILE,TSTAT,KEYA,KEYP.
00076 M01S00074.aaml +++|* CALL(FILE,TSTAT,KEYA,KEYP).
00077 M01S00075.aaml +++|*
00078 M01S00076.aaml +++|* TO LOCK A FILE -
00079 M01S00077.aaml +++|* ENTER FLOCK USING FILE,TSTAT.
00080 M01S00078.aaml +++|* CALL FLOCK(FILE,TSTAT).
00081 M01S00079.aaml +++|*
00082 M01S00080.aaml +++|* TO OPEN A FILE FOR A TASK -
00083 M01S00081.aaml +++|* ENTER OPEN USING FILE,TSTAT,CSTAT.
00084 M01S00082.aaml +++|* CALL OPEN(FILE,TSTAT,CSTAT).
00085 M01S00083.aaml +++|*
00086 M01S00084.aaml +++|* TO READ A RECORD BY KEY -
00087 M01S00085.aaml +++|* ENTER READ USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP-
00088 M01S00086.aaml +++|* ,FSTAT,ALTKEY,KEYR,KEYL-.
00089 M01S00087.aaml +++|* CALL READ(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP-,FSTAT
00090 M01S00088.aaml +++|* ,ALTKEY,KEYR,KEYL-).
00091 M01S00089.aaml +++|*
00092 M01S00090.aaml +++|* TO READ A RECORD BY KEY WITH LOCK -
00093 M01S00091.aaml +++|* ENTER READL USING FILE TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP-
00094 M01S00092.aaml +++|* ,FSTAT,ALTKEY,KEYR,KEYL-.
00095 M01S00093.aaml +++|* CALL READL(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP-,FSTAT
00096 M01S00094.aaml +++|* ,ALTKEY,KEYR,KEYL-).
00097 M01S00095.aaml +++|*
00098 M01S00096.aaml +++|* TO READ A RECORD BY MAJOR KEY -
00099 M01S00097.aaml +++|* ENTER READM USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,
00100 M01S00098.aaml +++|* KEYL,KEYA,KEYP,MKEYL-,FSTAT,ALTKEY-.
00101 M01S00099.aaml +++|* CALL READM(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,
00102 M01S00100.aaml +++|* KEYL,KEYA,KEYP,MKEYL-,FSTAT,ALTKEY-).
00103 M01S00101.aaml +++|*
00104 M01S00102.aaml +++|* TO READ NEXT RECORD -
00105 M01S00103.aaml +++|* ENTER READN USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL-
00106 M01S00104.aaml +++|* ,FSTAT-.
00107 M01S00105.aaml +++|* CALL READN(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL-,FSTAT-).
00108 M01S00106.aaml +++|*
00109 M01S00107.aaml +++|* TO READ NEXT RECORD WITH LOCK -
00110 M01S00108.aaml +++|* ENTER READNL USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL-
00111 M01S00109.aaml +++|* ,FSTAT-.
00112 M01S00110.aaml +++|* CALL READNL(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYL-,FSTAT-).
00113 M01S00111.aaml +++|*
00114 M01S00112.aaml +++|* TO REWIND A FILE -
00115 M01S00113.aaml +++|* ENTER REWIND USING FILE,TSTAT,CSTAT.
00116 M01S00114.aaml +++|* CALL REWIND(FILE,TSTAT,CSTAT).
00117 M01S00115.aaml +++|*
00118 M01S00116.aaml +++|* TO REWRITE A RECORD -
00119 M01S00117.aaml +++|* ENTER REWRITE USING FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP.
00120 M01S00118.aaml +++|* CALL REWRITE(FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP).
00121 M01S00119.aaml +++|*
00122 M01S00120.aaml +++|* TO SKIP A LOGICAL RECORD BACKWARD -
00123 M01S00121.aaml +++|* ENTER SKIPBL USING FILE,TSTAT,CSTAT,COUNT.
00124 M01S00122.aaml +++|* CALL SKIPBL(FILE,TSTAT,CSTAT,COUNT).
00125 M01S00123.aaml +++|*
00126 M01S00124.aaml +++|* TO SKIP A LOGICAL RECORD FORWARD -
00127 M01S00125.aaml +++|* ENTER SKIPFL USING FILE,TSTAT,CSTAT,COUNT.
00128 M01S00126.aaml +++|* CALL SKIPFL(FILE,TSTAT,CSTAT,COUNT).
00129 M01S00127.aaml +++|*
00130 M01S00128.aaml +++|* TO SET THE STARTING POSITION -
00131 M01S00129.aaml +++|* ENTER START USING FILE,TSTAT,CSTAT,REL,KEYA,KEYP-,FSTAT
00132 M01S00130.aaml +++|* ,ALTKEY,MKEYL-.
00133 M01S00131.aaml +++|* CALL START(FILE,TSTAT,CSTAT,REL,KEYA,KEYP-,FSTAT,ALTKEY
00134 M01S00132.aaml +++|* ,MKEYL-).
00135 M01S00133.aaml +++|*
00136 M01S00134.aaml +++|* TO UNLOCK A RECORD -
00137 M01S00135.aaml +++|* ENTER UNLOCK USING FILE,TSTAT,KEYA,KEYP.
00138 M01S00136.aaml +++|* CALL UNLOCK(FILE,TSTAT,KEYA,KEYP).
00139 M01S00137.aaml +++|*
00140 M01S00138.aaml +++|* TO UNLOCK A FILE -
00141 M01S00139.aaml +++|* ENTER UNFLOCK USING FILE,TSTAT.
00142 M01S00140.aaml +++|* CALL UNFLOCK(FILE,TSTAT).
00143 M01S00141.aaml +++|*
00144 M01S00142.aaml +++|* TO WRITE A RECORD -
00145 M01S00143.aaml +++|* ENTER WRITE USING FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP-,KEYR
00146 M01S00144.aaml +++|* ,KEYL-.
00147 M01S00145.aaml +++|* CALL WRITE(FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP-,KEYR,KEYL-).
00148 M01S00146.aaml +++|*
00149 M01S00147.aaml +++|* PARAMETERS ENCLOSED IN - - ARE OPTIONAL.
00150 M01S00148.aaml +++|*
00151 M01S00149.aaml +++|*** THE PARAMETERS FOR *TAF CRM* REQUESTS ARE DEFINED BELOW -
00152 M01S00150.aaml +++|*
00153 M01S00151.aaml +++|* FILE FILE NAME SELECTED BY DATA BASE ADMINISTRATOR. THE
00154 M01S00152.aaml +++|* FILE NAME MUST BEGIN ON A WORD BOUNDARY AND CONSIST OF
00155 M01S00153.aaml +++|* 2-7 CHARACTERS WITH BLANK OR BINARY ZERO FILL.
00156 M01S00154.aaml +++|* COBOL5 - 01 LEVEL DATA NAME.
00157 M01S00155.aaml +++|* FORTRAN - INTEGER.
00158 M01S00156.aaml +++|*
00159 M01S00157.aaml +++|* TSTAT TRANSACTION FACILITY STATUS. SEE DECK *COMKTER* .
00160 M01S00158.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00161 M01S00159.aaml +++|* FORTRAN - INTEGER.
00162 M01S00160.aaml +++|*
00163 M01S00161.aaml +++|* CSTAT *CRM* STATUS.
00164 M01S00162.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00165 M01S00163.aaml +++|* FORTRAN - INTEGER.
00166 M01S00164.aaml +++|*
00167 M01S00165.aaml +++|* WSA WORKING STORAGE AREA LARGE ENOUGH TO CONTAIN RECORD.
00168 M01S00166.aaml +++|* COBOL5 - 01 LEVEL DATA NAME.
00169 M01S00167.aaml +++|* FORTRAN - INTEGER ARRAY.
00170 M01S00168.aaml +++|*
00171 M01S00169.aaml +++|*
00172 M01S00170.aaml +++|* WSAL WORKING STORAGE AREA LENGTH IN CHARACTERS.
00173 M01S00171.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00174 M01S00172.aaml +++|* FORTRAN - INTEGER.
00175 M01S00173.aaml +++|*
00176 M01S00174.aaml +++|* KEYR KEY RETURN AREA LARGE ENOUGH TO CONTAIN PRIMARY KEY
00177 M01S00175.aaml +++|* COBOL5 - 01 LEVEL DATA NAME.
00178 M01S00176.aaml +++|* FORTRAN - INTEGER.
00179 M01S00177.aaml +++|*
00180 M01S00178.aaml +++|* KEYL KEY RETURN AREA LENGTH IN CHARACTERS.
00181 M01S00179.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00182 M01S00180.aaml +++|* FORTRAN - INTEGER.
00183 M01S00181.aaml +++|*
00184 M01S00182.aaml +++|* MKEYL MAJOR KEY LENGTH IN CHARACTERS.
00185 M01S00183.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00186 M01S00184.aaml +++|* FORTRAN - INTEGER.
00187 M01S00185.aaml +++|*
00188 M01S00186.aaml +++|* KEYP KEY CHARACTER POSITION WITH RESPECT TO *KEYA*. *KEYP*
00189 M01S00187.aaml +++|* STARTS AT ONE FOR FIRST CHARACTER OF *KEYA*.
00190 M01S00188.aaml +++|* COBOL5 - 01 COMPUTATIONAL-1 DATA NAME.
00191 M01S00189.aaml +++|* FORTRAN - INTEGER.
00192 M01S00190.aaml +++|*
00193 M01S00191.aaml +++|* KEYA KEY AREA. THIS IS A DATA NAME CONTAINING THE KEY
00194 M01S00192.aaml +++|* VALUE.
00195 M01S00193.aaml +++|* COBOL5 - 01 LEVEL DATA NAME.
00196 M01S00194.aaml +++|* FORTRAN - INTEGER.
00197 M01S00195.aaml +++|*
00198 M01S00196.aaml +++|* RL RECORD LENGTH IN CHARACTERS. ON AN INPUT REQUEST
00199 M01S00197.aaml +++|* THE TRANSACTION FACILITY RETURNS THE LENGTH. ON
00200 M01S00198.aaml +++|* OUTPUT THE TASK MUST SPECIFY THE LENGTH.
00201 M01S00199.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00202 M01S00200.aaml +++|* FORTRAN - INTEGER.
00203 M01S00201.aaml +++|*
00204 M01S00202.aaml +++|* COUNT COUNT OF LOGICAL RECORDS TO SKIP.
00205 M01S00203.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA ANME.
00206 M01S00204.aaml +++|* FORTRAN - INTEGER.
00207 M01S00205.aaml +++|*
00208 M01S00206.aaml +++|* UBID USER SUPPLIED BEGIN IDENTIFIER.
00209 M01S00207.aaml +++|* ON A DBEGIN REQUEST THE USER SUPPLIES A 5 CHARACTER
00210 M01S00208.aaml +++|* BEGIN IDENTIFIER.
00211 M01S00209.aaml +++|* COBOL5 - 01 LEVEL ALPHANUMERIC DATA NAME.
00212 M01S00210.aaml +++|* FORTRAN - INTEGER.
00213 M01S00211.aaml +++|*
00214 M01S00212.aaml +++|* PBID BEGIN IDENTIFIER OF THE (LAST) SUCCESSFULLY
00215 M01S00213.aaml +++|* COMPLETED UPDATE SEQUENCE. ON A DBSTAT REQUEST THE
00216 M01S00214.aaml +++|* TRANSACTION FACILITY WILL RETURN THIS IDENTIFIER
00217 M01S00215.aaml +++|* IN THE UPPER 30 BITS OF THE WORD, THE LOWER 30 BITS
00218 M01S00216.aaml +++|* REMAIN UNCHANGED.
00219 M01S00217.aaml +++|* COBOL5 - 01 LEVEL ALPHANUMERIC DATA NAME.
00220 M01S00218.aaml +++|* FORTRAN - INTEGER.
00221 M01S00219.aaml +++|*
00222 M01S00220.aaml +++|* CBID BEGIN IDENTIFIER OF THE CURRENT UPDATE SEQUENCE.
00223 M01S00221.aaml +++|* ON A DBSTAT REQUEST THE TRANSACTION FACILITY WILL
00224 M01S00222.aaml +++|* RETURN THIS IDENTIFIER IN THE UPPER 30 BITS OF THE
00225 M01S00223.aaml +++|* WORD, THE LOWER 30 BITS REMAIN UNCHANGED.
00226 M01S00224.aaml +++|* COBOL5 - 01 LEVEL ALPHANUMERIC DATA NAME.
00227 M01S00225.aaml +++|* FORTRAN - INTEGER.
00228 M01S00226.aaml +++|*
00229 M01S00227.aaml +++|* REL CODE GOVERNING POSITION RELATIVE TO GIVEN KEY AFTER
00230 M01S00228.aaml +++|* OPERATION.
00231 M01S00229.aaml +++|* VALUES EQ, GE, GT.
00232 M01S00230.aaml +++|* COBOL5 - 01 LEVEL DATA NAME.
00233 M01S00231.aaml +++|* FORTRAN - INTEGER DISPLAY CODE LEFT JUSTIFIED.
00234 M01S00232.aaml +++|*
00235 M01S00233.aaml +++|* FSTAT FILE POSITION INFORMATION.
00236 M01S00234.aaml +++|* RETURNED VALUES 0.
00237 M01S00235.aaml +++|* 1 NOT ON KEY.
00238 M01S00236.aaml +++|* 10B END OF KEY.
00239 M01S00237.aaml +++|* 100B END OF INFORMATION.
00240 M01S00238.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00241 M01S00239.aaml +++|* FORTRAN - INTEGER.
00242 M01S00240.aaml +++|*
00243 M01S00241.aaml +++|* ALTKEY ORDINAL OF ALTERNATE KEY FOR OPERATION
00244 M01S00242.aaml +++|* VALUES -1 NO CHANGE FROM CURRENT.
00245 M01S00243.aaml +++|* 0 PRIMARY KEY.
00246 M01S00244.aaml +++|* N ALTERNATE KEY N.
00247 M01S00245.aaml +++|* COBOL5 - 01 LEVEL COMPUTATIONAL-1 DATA NAME.
00248 M01S00246.aaml +++|* FORTRAN - INTEGER.
00249 M01S00247.aaml +++| SPACE 4,10
00250 M01S00248.aaml +++|
00251 M01S00249.aaml +++|
00252 M01S00250.aaml +++|* COMMON DECKS.
00253 M01S00251.aaml +++|
00254 M01S00252.aaml +++|*CALL COMKTAF
00255 M01S00253.aaml +++|*CALL COMKIPR
00256 M01S00254.aaml +++|*CALL COMKTDM
00257 M01S00255.aaml +++|*CALL COMCMAC
00258 M01S00256.aaml +++|*CALL COMKFLD
00259 M01S00257.aaml +++| BEGINT BSS 0
00260 M01S00258.aaml +++| LIST X
00261 M01S00259.aaml +++|*CALL COMKCRM
00262 M01S00260.aaml +++| SPACE 4,10
00263 M01S00261.aaml +++| ORG BEGINT DO NOT RESERVE SPACE FOR *TAF CRM* TABLES
00264 M01S00262.aaml +++| LIST -X
00265 M01S00263.aaml +++|** RTN - RETURN ADDRESS FOR ENTRY POINTS.
00266 M01S00264.aaml +++|* *RTN* GENERATES RETURN ADDRESS FOR ROUTINE ISSUING
00267 M01S00265.aaml +++|* *CRM* REQUEST. THE MACRO ALSO ENSURES THE RETURN
00268 M01S00266.aaml +++|* ADDRESS IS POSITIONED CORRECTLY IN THE TABLE OF
00269 M01S00267.aaml +++|* RETURN ADDRESSES.
00270 M01S00268.aaml +++|*
00271 M01S00269.aaml +++|* ENTRY CODE = TASK REQUEST CODE.
00272 M01S00270.aaml +++|* RETN = ENTRY POINT TO PROCESS TASK REQUEST.
00273 M01S00271.aaml +++|* (.1) = RETURN ADDRESS TABLE COUNTER.
00274 M01S00272.aaml +++|*
00275 M01S00273.aaml +++|* EXIT RETURN ADDRESS *RETN* IS PLACED IN TABLE.
00276 M01S00274.aaml +++|* (.1) = (.1) + 1.
00277 M01S00275.aaml +++|
00278 M01S00276.aaml +++|
00279 M01S00277.aaml +++| PURGMAC RTN
00280 M01S00278.aaml +++|
00281 M01S00279.aaml +++| RTN MACRO CODE,RETN
00282 M01S00280.aaml +++| ERRNZ .1-CODE IF REQUEST CODE NOT IN ORDER
00283 M01S00281.aaml +++| VFD 12/0,18/RETN
00284 M01S00282.aaml +++| .1 SET .1+1
00285 M01S00283.aaml +++| ENDM
00286 M01S00284.aaml +++| TITLE TASK INTERFACE ROUTINES.
00287 M01S00285.aaml +++| CLOSE SPACE 4,10
00288 M01S00286.aaml +++|** CLOSE - CLOSE FILE.
00289 M01S00287.aaml +++|*
00290 M01S00288.aaml +++|* ENTRY ENTER CLOSE USING FILE,TSTAT,CSTAT.
00291 M01S00289.aaml +++|* CALL CLOSE(FILE,TSTAT,CSTAT).
00292 M01S00290.aaml +++|*
00293 M01S00291.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00294 M01S00292.aaml +++|*
00295 M01S00293.aaml +++|* USES X - 1.
00296 M01S00294.aaml +++|
00297 M01S00295.aaml +++|
00298 M01S00296.aaml +++| VFD 42/0LAAML,18/CLOSE IDENTIFY DECK
00299 M01S00297.aaml +++| CLOSE SUBR ENTRY/EXIT
00300 M01S00298.aaml +++| SX1 TRCL CLOSE FILE FOR TASK
00301 M01S00299.aaml +++| EQ ISR ISSUE REQUEST
00302 M01S00300.aaml +++| SPACE 4,10
00303 M01S00301.aaml +++|** DBCOMIT - DATA BASE COMMIT REQUEST.
00304 M01S00302.aaml +++|*
00305 M01S00303.aaml +++|* ENTRY ENTER DBCOMIT USING TSTAT.
00306 M01S00304.aaml +++|* CALL DBCOMIT(TSTAT)
00307 M01S00305.aaml +++|*
00308 M01S00306.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00309 M01S00307.aaml +++|*
00310 M01S00308.aaml +++|* USES X - 1.
00311 M01S00309.aaml +++|
00312 M01S00310.aaml +++| DBCOMIT SUBR ENTRY/EXIT
00313 M01S00311.aaml +++| SX1 TRDC DATA BASE COMMIT REQUEST
00314 M01S00312.aaml +++| EQ ISR ISSUE REQUEST
00315 M01S00313.aaml +++| SPACE 4,10
00316 M01S00314.aaml +++|** DBEGIN - DATA BASE BEGIN REQUEST.
00317 M01S00315.aaml +++|*
00318 M01S00316.aaml +++|* ENTRY ENTER DBEGIN USING UBID,TSTAT.
00319 M01S00317.aaml +++|* CALL DBEGIN(UBID,TSTAT)
00320 M01S00318.aaml +++|*
00321 M01S00319.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00322 M01S00320.aaml +++|*
00323 M01S00321.aaml +++|* USES X - 1.
00324 M01S00322.aaml +++|
00325 M01S00323.aaml +++| DBEGIN SUBR ENTRY/EXIT
00326 M01S00324.aaml +++| SX1 TRDB DATA BASE BEGIN REQUEST
00327 M01S00325.aaml +++| EQ ISR ISSUE REQUEST
00328 M01S00326.aaml +++| SPACE 4,10
00329 M01S00327.aaml +++|** DBFREE - DATA BASE FREE REQUEST.
00330 M01S00328.aaml +++|*
00331 M01S00329.aaml +++|* ENTRY ENTER DBFREE USING TSTAT.
00332 M01S00330.aaml +++|* CALL DBFREE(TSTAT)
00333 M01S00331.aaml +++|*
00334 M01S00332.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00335 M01S00333.aaml +++|*
00336 M01S00334.aaml +++|* USES X - 1.
00337 M01S00335.aaml +++|
00338 M01S00336.aaml +++| DBFREE SUBR ENTRY/EXIT
00339 M01S00337.aaml +++| SX1 TRDF DATA BASE FREE REQUEST
00340 M01S00338.aaml +++| EQ ISR ISSUE REQUEST
00341 M01S00339.aaml +++| SPACE 4,10
00342 M01S00340.aaml +++|** DBSTAT - DATA BASE STATUS REQUEST.
00343 M01S00341.aaml +++|*
00344 M01S00342.aaml +++|* ENTRY ENTER DBSTAT USING PBID,TSTAT,CBID.
00345 M01S00343.aaml +++|* CALL DBSTST(PBID,TSTAT,CBID)
00346 M01S00344.aaml +++|*
00347 M01S00345.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00348 M01S00346.aaml +++|*
00349 M01S00347.aaml +++|* USES X - 1.
00350 M01S00348.aaml +++|
00351 M01S00349.aaml +++| DBSTAT SUBR ENTRY/EXIT
00352 M01S00350.aaml +++| SX1 TRDS DATA BASE STATUS REQUEST
00353 M01S00351.aaml +++| EQ ISR ISSUE REQUEST
00354 M01S00352.aaml +++| DELETE SPACE 4,10
00355 M01S00353.aaml +++|** DELETE - DELETE RECORD.
00356 M01S00354.aaml +++|*
00357 M01S00355.aaml +++|* ENTRY ENTER DELETE USING FILE,TSTAT,CSTAT,KEYA,KEYP.
00358 M01S00356.aaml +++|* CALL DELETE(FILE,TSTAT,CSTAT,KEYA,KEYP).
00359 M01S00357.aaml +++|*
00360 M01S00358.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00361 M01S00359.aaml +++|*
00362 M01S00360.aaml +++|* USES X - 1.
00363 M01S00361.aaml +++|
00364 M01S00362.aaml +++|
00365 M01S00363.aaml +++| DELETE SUBR ENTRY/EXIT
00366 M01S00364.aaml +++| SX1 TRDE DELETE RECORD
00367 M01S00365.aaml +++| EQ ISR ISSUE REQUEST
00368 M01S00366.aaml +++| LOCK SPACE 4,10
00369 M01S00367.aaml +++| LOCK SPACE 4,10
00370 M01S00368.aaml +++|** LOCK - LOCK RECORD.
00371 M01S00369.aaml +++|*
00372 M01S00370.aaml +++|* ENTRY ENTER LOCK USING FILE,TSTAT,KEYA,KEYP.
00373 M01S00371.aaml +++|* CALL(FILE,TSTAT,KEYA,KEYP).
00374 M01S00372.aaml +++|*
00375 M01S00373.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00376 M01S00374.aaml +++|*
00377 M01S00375.aaml +++|* USES X - 1.
00378 M01S00376.aaml +++|
00379 M01S00377.aaml +++|
00380 M01S00378.aaml +++| LOCK SUBR ENTRY/EXIT
00381 M01S00379.aaml +++| SX1 TRLC LOCK RECORD
00382 M01S00380.aaml +++| EQ ISR ISSUE REQUEST
00383 M01S00381.aaml +++| FLOCK SPACE 4,10
00384 M01S00382.aaml +++|** FLOCK - LOCK FILE.
00385 M01S00383.aaml +++|*
00386 M01S00384.aaml +++|* ENTRY ENTER FLOCK USING FILE,TSTAT.
00387 M01S00385.aaml +++|* CALL FLOCK(FILE,TSTAT).
00388 M01S00386.aaml +++|*
00389 M01S00387.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00390 M01S00388.aaml +++|*
00391 M01S00389.aaml +++|* USES X - 1.
00392 M01S00390.aaml +++|
00393 M01S00391.aaml +++|
00394 M01S00392.aaml +++| FLOCK SUBR ENTRY/EXIT
00395 M01S00393.aaml +++| SX1 TRLF LOCK FILE
00396 M01S00394.aaml +++| EQ ISR ISSUE REQUEST
00397 M01S00395.aaml +++| OPEN SPACE 4,10
00398 M01S00396.aaml +++|** OPEN - OPEN FILE FOR TASK.
00399 M01S00397.aaml +++|*
00400 M01S00398.aaml +++|* ENTRY ENTER OPEN USING FILE,TSTAT,CSTAT.
00401 M01S00399.aaml +++|* CALL OPEN(FILE,TSTAT,CSTAT).
00402 M01S00400.aaml +++|*
00403 M01S00401.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00404 M01S00402.aaml +++|*
00405 M01S00403.aaml +++|* USES X - 1.
00406 M01S00404.aaml +++|
00407 M01S00405.aaml +++|
00408 M01S00406.aaml +++| OPEN SUBR ENTRY/EXIT
00409 M01S00407.aaml +++| SX1 TROP OPEN FILE FOR TASK
00410 M01S00408.aaml +++| EQ ISR ISSUE REQUEST
00411 M01S00409.aaml +++| READ SPACE 4,10
00412 M01S00410.aaml +++|** READ - READ BY KEY.
00413 M01S00411.aaml +++|*
00414 M01S00412.aaml +++|* ENTRY ENTER READ USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,
00415 M01S00413.aaml +++|* KEYP-,FSTAT,ALTKEY-.
00416 M01S00414.aaml +++|* CALL READ(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP-,
00417 M01S00415.aaml +++|* FSTAT,ALTKEY-).
00418 M01S00416.aaml +++|*
00419 M01S00417.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00420 M01S00418.aaml +++|*
00421 M01S00419.aaml +++|* USES X - 1.
00422 M01S00420.aaml +++|
00423 M01S00421.aaml +++|
00424 M01S00422.aaml +++| READ SUBR ENTRY/EXIT
00425 M01S00423.aaml +++| SX1 TRRD READ BY KEY
00426 M01S00424.aaml +++| EQ ISR ISSUE REQUEST
00427 M01S00425.aaml +++| READL SPACE 4,10
00428 M01S00426.aaml +++|** READL - READ BY KEY WITH LOCK.
00429 M01S00427.aaml +++|*
00430 M01S00428.aaml +++|* ENTRY ENTER READL USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,
00431 M01S00429.aaml +++|* KEYP-,FSTAT,ALTKEY-.
00432 M01S00430.aaml +++|* CALL READL(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYA,KEYP-
00433 M01S00431.aaml +++|* ,FSTAT,ALTKEY-).
00434 M01S00432.aaml +++|*
00435 M01S00433.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST
00436 M01S00434.aaml +++|*
00437 M01S00435.aaml +++|* USES X - 1.
00438 M01S00436.aaml +++|
00439 M01S00437.aaml +++|
00440 M01S00438.aaml +++| READL SUBR ENTRY/EXIT
00441 M01S00439.aaml +++| SX1 TRRL READ BY KEY WITH LOCK
00442 M01S00440.aaml +++| EQ ISR ISSUE REQUEST
00443 M01S00441.aaml +++| READM SPACE 4,10
00444 M01S00442.aaml +++|** READM - READ BY MAJOR KEY.
00445 M01S00443.aaml +++|*
00446 M01S00444.aaml +++|* ENTRY ENTER READM USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,
00447 M01S00445.aaml +++|* KEYRL,KEYA,KEYP,MKEYL-,FSTAT,ALTKEY-.
00448 M01S00446.aaml +++|* CALL READM(FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,KEYRL,
00449 M01S00447.aaml +++|* KEYA,KEYP,MKEYL-,FSTAT,ALTKEY-).
00450 M01S00448.aaml +++|*
00451 M01S00449.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00452 M01S00450.aaml +++|*
00453 M01S00451.aaml +++|* USES X - 1.
00454 M01S00452.aaml +++|
00455 M01S00453.aaml +++|
00456 M01S00454.aaml +++| READM SUBR ENTRY/EXIT
00457 M01S00455.aaml +++| SX1 TRRM READ BY MAJOR KEY
00458 M01S00456.aaml +++| EQ ISR ISSUE REQUEST
00459 M01S00457.aaml +++| READN SPACE 4,10
00460 M01S00458.aaml +++|** READN - READ NEXT RECORD.
00461 M01S00459.aaml +++|*
00462 M01S00460.aaml +++|* ENTRY ENTER READN USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,
00463 M01S00461.aaml +++|* KEYL-,FSTAT-.
00464 M01S00462.aaml +++|* CALL READN(FILE,TSTAT,CSTAT,WSA,RL,KEYR,KEYL-,FSTAT-).
00465 M01S00463.aaml +++|*
00466 M01S00464.aaml +++|* ENIT TO *ISR* TO ISSUE REQUEST.
00467 M01S00465.aaml +++|*
00468 M01S00466.aaml +++|* USES X - 1.
00469 M01S00467.aaml +++|
00470 M01S00468.aaml +++|
00471 M01S00469.aaml +++| READN SUBR ENTRY/EXIT
00472 M01S00470.aaml +++| SX1 TRRN READ NEXT RECORD WITHOUT LOCK
00473 M01S00471.aaml +++| EQ ISR ISSUE REQUEST
00474 M01S00472.aaml +++| READNL SPACE 4,10
00475 M01S00473.aaml +++|** READNL - READ NEXT RECORD WITH LOCK.
00476 M01S00474.aaml +++|*
00477 M01S00475.aaml +++|* ENTRY ENTER READNL USING FILE,TSTAT,CSTAT,WSA,WSAL,RL,KEYR,
00478 M01S00476.aaml +++|* KEYL-,FSTAT-.
00479 M01S00477.aaml +++|* CALL READNL(FILE,TSTAT,CSTAT,WSA,RL,KEYR,KEYL-
00480 M01S00478.aaml +++|* ,FSTAT-).
00481 M01S00479.aaml +++|*
00482 M01S00480.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00483 M01S00481.aaml +++|*
00484 M01S00482.aaml +++|* USES X - 1.
00485 M01S00483.aaml +++|
00486 M01S00484.aaml +++|
00487 M01S00485.aaml +++| READNL SUBR ENTRY/EXIT
00488 M01S00486.aaml +++| SX1 TRRO READ NEXT RECORD WITH LOCK
00489 M01S00487.aaml +++| EQ ISR ISSUE REQUEST
00490 M01S00488.aaml +++| REWIND SPACE 4,10
00491 M01S00489.aaml +++|** REWIND - REWIND FILE.
00492 M01S00490.aaml +++|*
00493 M01S00491.aaml +++|* ENTRY ENTER REWIND USING FILE,TSTAT,CSTAT.
00494 M01S00492.aaml +++|* CALL REWIND(FILE,TSTAT,CSTAT).
00495 M01S00493.aaml +++|*
00496 M01S00494.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST
00497 M01S00495.aaml +++|*
00498 M01S00496.aaml +++|* USES X - 1.
00499 M01S00497.aaml +++|
00500 M01S00498.aaml +++|
00501 M01S00499.aaml +++| REWIND SUBR ENTRY/EXIT
00502 M01S00500.aaml +++| SX1 TRRP REWIND FILE
00503 M01S00501.aaml +++| EQ ISR ISSUE REQUEST
00504 M01S00502.aaml +++| REWRITE SPACE 4,10
00505 M01S00503.aaml +++|** REWRITE - REWRITE RECORD.
00506 M01S00504.aaml +++|*
00507 M01S00505.aaml +++|* ENTRY ENTER REWRITE USING FILE,TSTAT,CSTAT,WSA,RL,KEYA,
00508 M01S00506.aaml +++|* KEYP.
00509 M01S00507.aaml +++|* CALL REWRITE(FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP).
00510 M01S00508.aaml +++|*
00511 M01S00509.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00512 M01S00510.aaml +++|*
00513 M01S00511.aaml +++|* USES X - 1.
00514 M01S00512.aaml +++|
00515 M01S00513.aaml +++|
00516 M01S00514.aaml +++| REWRITE SUBR ENTRY/EXIT
00517 M01S00515.aaml +++| SX1 TRRW REWRITE RECORD
00518 M01S00516.aaml +++| EQ ISR ISSUE REQUEST
00519 M01S00517.aaml +++| SKIPBL SPACE 4,10
00520 M01S00518.aaml +++|** SKIPBL - SKIP BACKWARD LOGICAL RECORDS.
00521 M01S00519.aaml +++|*
00522 M01S00520.aaml +++|* ENTRY ENTER SKIPBL USING FILE,TSTAT,CSTAT,COUNT.
00523 M01S00521.aaml +++|* CALL SKIPBL(FILE,TSTAT,CSTAT,COUNT).
00524 M01S00522.aaml +++|*
00525 M01S00523.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00526 M01S00524.aaml +++|*
00527 M01S00525.aaml +++|* USES X - 1.
00528 M01S00526.aaml +++|
00529 M01S00527.aaml +++|
00530 M01S00528.aaml +++| SKIPBL SUBR ENTRY/EXIT
00531 M01S00529.aaml +++| SX1 TRSB SKIP LOGICAL RECORDS BACKWARD
00532 M01S00530.aaml +++| EQ ISR ISSUE REQUEST
00533 M01S00531.aaml +++| SKIPFL SPACE 4,10
00534 M01S00532.aaml +++|** SKIPFL - SKIP FORWARD LOGICAL RECORDS.
00535 M01S00533.aaml +++|*
00536 M01S00534.aaml +++|* ENTRY ENTER SKIPFL USING FILE,TSTAT,CSTAT,COUNT.
00537 M01S00535.aaml +++|* CALL SKIPFL(FILE,TSTAT,CSTAT,COUNT).
00538 M01S00536.aaml +++|*
00539 M01S00537.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00540 M01S00538.aaml +++|*
00541 M01S00539.aaml +++|* USES X - 1.
00542 M01S00540.aaml +++|
00543 M01S00541.aaml +++|
00544 M01S00542.aaml +++| SKIPFL SUBR ENTRY/EXIT
00545 M01S00543.aaml +++| SX1 TRSF SKIP FORWARD LOGICAL RECORD
00546 M01S00544.aaml +++| EQ ISR ISSUE REQUEST
00547 M01S00545.aaml +++| UNLOCK SPACE 4,10
00548 M01S00546.aaml +++|** UNLOCK - UNLOCK RECORD.
00549 M01S00547.aaml +++|*
00550 M01S00548.aaml +++|* ENTRY ENTER UNLOCK USING FILE,TSTAT,KEYA,KEYP.
00551 M01S00549.aaml +++|* CALL UNLOCK(FILE,TSTAT,KEYA,KEYP).
00552 M01S00550.aaml +++|*
00553 M01S00551.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00554 M01S00552.aaml +++|*
00555 M01S00553.aaml +++|* USES X - 1.
00556 M01S00554.aaml +++|
00557 M01S00555.aaml +++|
00558 M01S00556.aaml +++| UNLOCK SUBR ENTRY/EXIT
00559 M01S00557.aaml +++| SX1 TRUC UNLOCK RECORD
00560 M01S00558.aaml +++| EQ ISR ISSUE REQUEST
00561 M01S00559.aaml +++| UNFLOCK SPACE 4,10
00562 M01S00560.aaml +++|** UNFLOCK - UNLOCK FILE.
00563 M01S00561.aaml +++|*
00564 M01S00562.aaml +++|* ENTRY ENTER UNFLOCK USING FILE,TSTAT.
00565 M01S00563.aaml +++|* CALL UNFLOCK(FILE,TSTAT).
00566 M01S00564.aaml +++|*
00567 M01S00565.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00568 M01S00566.aaml +++|*
00569 M01S00567.aaml +++|* USES X - 1.
00570 M01S00568.aaml +++|
00571 M01S00569.aaml +++|
00572 M01S00570.aaml +++| UNFLOCK SUBR ENTRY/EXIT
00573 M01S00571.aaml +++| SX1 TRUF UNLOCK FILE
00574 M01S00572.aaml +++| EQ ISR ISSUE REQUEST
00575 M01S00573.aaml +++| WRITE SPACE 4,10
00576 M01S00574.aaml +++|** WRITE - WRITE RECORD BY KEY.
00577 M01S00575.aaml +++|*
00578 M01S00576.aaml +++|* ENTRY ENTER WRITE USING FILE,TSTAT,CSTAT,WSA,RL,KEYA,
00579 M01S00577.aaml +++|* KEYP-,KEYR,KEYL-.
00580 M01S00578.aaml +++|* CALL WRITE(FILE,TSTAT,CSTAT,WSA,RL,KEYA,KEYP-,KEYR
00581 M01S00579.aaml +++|* ,KEYL-).
00582 M01S00580.aaml +++|*
00583 M01S00581.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00584 M01S00582.aaml +++|*
00585 M01S00583.aaml +++|* USES X - 1.
00586 M01S00584.aaml +++|
00587 M01S00585.aaml +++|
00588 M01S00586.aaml +++| WRITE SUBR ENTRY/EXIT
00589 M01S00587.aaml +++| SX1 TRWR WRITE RECORD BY KEY
00590 M01S00588.aaml +++| EQ ISR ISSUE REQUEST
00591 M01S00589.aaml +++| START SPACE 4,20
00592 M01S00590.aaml +++|** START - SET STARTING POSITION.
00593 M01S00591.aaml +++|*
00594 M01S00592.aaml +++|* ENTRY ENTER START USING FILE,TSTAT,CSTAT,REL,KEYA,KEYP-
00595 M01S00593.aaml +++|* ,FSTAT,ALTKEY,MKEYL-.
00596 M01S00594.aaml +++|*
00597 M01S00595.aaml +++|* CALL START(FILE,TSTAT,CSTAT,REL,KEYA,KEYP-,FSTAT
00598 M01S00596.aaml +++|* ,ALTKEY,MKEYL-).
00599 M01S00597.aaml +++|*
00600 M01S00598.aaml +++|* EXIT TO *ISR* TO ISSUE REQUEST.
00601 M01S00599.aaml +++|*
00602 M01S00600.aaml +++|* USES X - 1.
00603 M01S00601.aaml +++|
00604 M01S00602.aaml +++| START SUBR ENTRY/EXIT
00605 M01S00603.aaml +++| SX1 TRST SET STARTING POSITION
00606 M01S00604.aaml +++| EQ ISR ISSUE REQUEST
00607 M01S00605.aaml +++| TITLE REQUEST ROUTINE.
00608 M01S00606.aaml +++| ISR SPACE 4,10
00609 M01S00607.aaml +++|** ISR - ISSUE REQUEST.
00610 M01S00608.aaml +++|*
00611 M01S00609.aaml +++|* ENTRY (X1) = REQUEST CODE.
00612 M01S00610.aaml +++|* (A1) = ADDRESS OF REQUEST PARAMETERS.
00613 M01S00611.aaml +++|*
00614 M01S00612.aaml +++|* USES X - 0, 1, 2, 6, 7.
00615 M01S00613.aaml +++|* A - 2.
00616 M01S00614.aaml +++|* B - 1, 7.
00617 M01S00615.aaml +++|*
00618 M01S00616.aaml +++|* EXIT (B1) = 1.
00619 M01S00617.aaml +++|*
00620 M01S00618.aaml +++|* CALLS SYS=.
00621 M01S00619.aaml +++|
00622 M01S00620.aaml +++|
00623 M01S00621.aaml +++| ISR SB1 1
00624 M01S00622.aaml +++|
00625 M01S00623.aaml +++|* DETERMINE RETURN ADDRESS OF CALLER.
00626 M01S00624.aaml +++|
00627 M01S00625.aaml +++| SX2 X1 COMPUTE WORD INDEX INTO *TRTN* TABLE
00628 M01S00626.aaml +++| LX1 59-0 DETERMINE LOWER OR UPPER TABLE ENTRY
00629 M01S00627.aaml +++| AX2 1 DIVIDE BY 2
00630 M01S00628.aaml +++| SA2 X2+TRTN
00631 M01S00629.aaml +++| NG X1,ISR1 IF UPPER ENTRY
00632 M01S00630.aaml +++| LX2 30
00633 M01S00631.aaml +++| ISR1 SX0 X2 RETURN ADDRESS
00634 M01S00632.aaml +++|
00635 M01S00633.aaml +++|* SET UP REQUEST.
00636 M01S00634.aaml +++|
00637 M01S00635.aaml +++| SX6 3RAAM
00638 M01S00636.aaml +++| SX7 A1 PARAMETER ADDRESS
00639 M01S00637.aaml +++| LX6 59-17
00640 M01S00638.aaml +++| BX6 X7+X6
00641 M01S00639.aaml +++| LX1 23-5+1 REQUEST CODE
00642 M01S00640.aaml +++| BX6 X6+X1
00643 M01S00641.aaml +++| RJ =XSYS= ISSUE REQUEST
00644 M01S00642.aaml +++| SB7 X0 RETURN ADDRESS
00645 M01S00643.aaml +++| JP B7 RETURN
00646 M01S00644.aaml +++| TRTN SPACE 4,10
00647 M01S00645.aaml +++|** TRTN - TABLE OF RETURN ADDRESS FOR REQUESTS.
00648 M01S00646.aaml +++|* TWO RETURN ADDRESS ARE PACKED PER WORD TO SAVE CORE.
00649 M01S00647.aaml +++|* THE TABLE MUST BE IN ASCENDING ORDER ACCORDING
00650 M01S00648.aaml +++|* TO REQUEST CODE GIVEN IN *COMKCRM*.
00651 M01S00649.aaml +++|*
00652 M01S00650.aaml +++|*T 12/0,18/ RTN1,12/0,18/ RTN2
Figure
00653 M01S00651.aaml +++|*
00654 M01S00652.aaml +++|* RTN1 - ODD REQUEST CODE RETURN ADDRESS.
00655 M01S00653.aaml +++|* RTN2 - EVEN REQUEST CODE RETURN ADDRESS.
00656 M01S00654.aaml +++|
00657 M01S00655.aaml +++|
00658 M01S00656.aaml +++| .1 SET 0 REQUEST CODE SEQUENCE COUNTER
00659 M01S00657.aaml +++| TRTN BSS 0 TABLE OF RETURN ADDRESS FOR REQUESTS
00660 M01S00658.aaml +++| RTN TRCL,CLOSE
00661 M01S00659.aaml +++| RTN TRDE,DELETE
00662 M01S00660.aaml +++| RTN TRLC,LOCK
00663 M01S00661.aaml +++| RTN TRLF,FLOCK
00664 M01S00662.aaml +++| RTN TROP,OPEN
00665 M01S00663.aaml +++| RTN TRRD,READ
00666 M01S00664.aaml +++| RTN TRRL,READL
00667 M01S00665.aaml +++| RTN TRRM,READM
00668 M01S00666.aaml +++| RTN TRRN,READN
00669 M01S00667.aaml +++| RTN TRRO,READNL
00670 M01S00668.aaml +++| RTN TRRP,REWIND
00671 M01S00669.aaml +++| RTN TRRW,REWRITE
00672 M01S00670.aaml +++| RTN TRSB,SKIPBL
00673 M01S00671.aaml +++| RTN TRSF,SKIPFL
00674 M01S00672.aaml +++| RTN TRUC,UNLOCK
00675 M01S00673.aaml +++| RTN TRUF,UNFLOCK
00676 M01S00674.aaml +++| RTN TRWR,WRITE
00677 M01S00675.aaml +++| RTN TRST,START
00678 M01S00676.aaml +++| RTN TRDB,DBEGIN
00679 M01S00677.aaml +++| RTN TRDC,DBCOMIT
00680 M01S00678.aaml +++| RTN TRDF,DBFREE
00681 M01S00679.aaml +++| RTN TRDS,DBSTAT
00682 M01S00680.aaml +++| ERRNZ .1-.TREQL IF ALL TASK REQUESTS NOT IN TABLE
00683 M01S00681.aaml +++| END