User Tools

Site Tools


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

Deck AAML

2 Modifications

Source

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

0171829 RTN2030474859 RTN10

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
cdc/nos2.source/opl.opl871/deck/aaml.txt ยท Last modified: by 127.0.0.1