$TITLE "*** SYSTEM INTERNAL RESOURSE TABLE DECLARATION ***"    <<*DBB*>>00010000
$PAGE                                                          <<*DBB*>>00012000
   << INCLUDE file for declaration of RINS table >>            <<*DBB*>>00014000
   <<  "RESOURCE IDENTIFICATION NUMBER"          >>            <<*DBB*>>00016000
                                                               <<*DBB*>>00018000
<< Any change to the RIN table will impact   >>                <<*DBB*>>00020000
<< the following modules:                    >>                <<*DBB*>>00022000
<<$% 73,60,64                                >>                <<*DBB*>>00024000
<< Global array declarations for the RIN table  >>             <<*DBB*>>00026000
                                                               <<*DBB*>>00028000
integer array RIN(*) = DB+0;                                   <<*DBB*>>00030000
integer array RIN'E(*) = RIN;                                  <<*DBB*>>00032000
                                                               <<*DBB*>>00034000
                                                               <<*DBB*>>00036000
equate RIN'DST         = %26;                                  <<*DBB*>>00038000
                                                               <<*DBB*>>00040000
equate FIRSTFREE       = 0,                                    <<*DBB*>>00042000
       TOTALNUM        = FIRSTFREE + 1;                        <<*DBB*>>00044000
                                                               <<*DBB*>>00046000
                                                               <<*DBB*>>00048000
equate RINENTRY        = 0,                                    <<*DBB*>>00050000
       LOCKLIST        = RINENTRY + 1;                         <<*DBB*>>00052000
                                                               <<*DBB*>>00054000
equate RIN'LENGTH      = LOCKLIST + 1;                         <<*DBB*>>00056000
                                                               <<*DBB*>>00058000
equate RINTYPEF        = 0,                                    <<*DBB*>>00060000
       RINTYPELN       = 2,                                    <<*DBB*>>00062000
       NXTRINF         = RINTYPEF + RINTYPELN,                 <<*DBB*>>00064000
       NXTRINLN        = 14,                                   <<*DBB*>>00066000
       HEADIMPDQF      = 0,                                    <<*DBB*>>00068000
       HEADIMPDQLN     = 8,                                    <<*DBB*>>00070000
       RINHOLDERF      = HEADIMPDQF + HEADIMPDQLN,             <<*DBB*>>00072000
       RINHOLDERLN     = 8;                                    <<*DBB*>>00074000
                                                               <<*DBB*>>00076000
define RINTYPEFLD      = (RINTYPEF:RINTYPELN)#,                <<*DBB*>>00078000
       NXTRINFLD       = (NXTRINF:NXTRINLN)#,                  <<*DBB*>>00080000
       HEADIMPDQFLD    = (HEADIMPDQF:HEADIMPDQLN)#,            <<*DBB*>>00082000
       RINHOLDERFLD    = (RINHOLDERF:RINHOLDERLN)#;            <<*DBB*>>00084000
                                                               <<*DBB*>>00086000
equate FREEPTR         = 0,                                    <<*DBB*>>00088000
       TOTALENTRIES    = FREEPTR + 1,                          <<*DBB*>>00090000
       NUMFREEENTRIES  = TOTALENTRIES + 1,                     <<*DBB*>>00092000
       RESERVED        = NUMFREEENTRIES + 1;                   <<*DBB*>>00094000
                                                               <<*DBB*>>00096000
equate PASSWORDF       = 0,                                    <<*DBB*>>00098000
       PASSWORDLN      = 4,                                    <<*DBB*>>00100000
       USERNAMEF       = PASSWORDF + PASSWORDLN,               <<*DBB*>>00102000
       USERNMLN        = 8;                                    <<*DBB*>>00104000
                                                               <<*DBB*>>00106000
equate RIN'PASSUSERLN  = PASSWORDLN + USERNMLN;                <<*DBB*>>00108000
                                                               <<*DBB*>>00110000
                                                               <<*DBB*>>00112000
<<         DB RELATIVE DECLARATIONS                      >>    <<*DBB*>>00114000
<< To use the RIN table via EXCHANGEDB, you must declare >>    <<*DBB*>>00116000
<< a DB relative array RIN as follows:                   >>    <<*DBB*>>00118000
<<       INTEGER ARRAY RIN(*) = DB+0;                    >>    <<*DBB*>>00120000
<<       INTEGER ARRAY RIN'E(*) = RIN;                   >>    <<*DBB*>>00122000
<< The index for the array must also be declared.  The   >>    <<*DBB*>>00124000
<< index for the array is RIN'PASSUSERINX.               >>    <<*DBB*>>00126000
                                                               <<*DBB*>>00128000
                                                               <<*DBB*>>00130000
define RIN'FIRSTFREE  = RIN(FIRSTFREE)#,                       <<*DBB*>>00132000
       RIN'TOTALNUM   = RIN(TOTALNUM)#;                        <<*DBB*>>00134000
                                                               <<*DBB*>>00136000
define RIN'E'TYPE     = RIN'E(RINPTR+RINENTRY).RINTYPEFLD#,    <<*DBB*>>00138000
       RIN'E'INDEX    = RIN'E(RINPTR+RINENTRY).NXTRINFLD#,     <<*DBB*>>00140000
       RIN'E'HEADQ    = RIN'E(RINPTR+LOCKLIST).HEADIMPDQFLD#,  <<*DBB*>>00142000
       RIN'E'HOLDER   = RIN'E(RINPTR+LOCKLIST).RINHOLDERFLD#;  <<*DBB*>>00144000
                                                               <<*DBB*>>00146000
define RIN'FREEPTR    = RIN(RIN'TOTALNUM+FREEPTR)#,            <<*DBB*>>00148000
       RIN'TOTENTRIES = RIN(RIN'TOTALNUM+TOTALENTRIES)#,       <<*DBB*>>00150000
       RIN'FREENTRIES = RIN(RIN'TOTALNUM+NUMFREEENTRIES)#,     <<*DBB*>>00152000
       RIN'RSVD       = RIN(RIN'TOTALNUM+RESERVED)#;           <<*DBB*>>00154000
                                                               <<*DBB*>>00156000
define RIN'E'PASSWORD = RIN'E(RIN'E'INDEX+PASSWORDF+           <<*DBB*>>00158000
                                RIN'PASSUSERINX)#,             <<*DBB*>>00160000
       RIN'E'USERNAME = RIN'E(RIN'E'INDEX+USERNAMEF+           <<*DBB*>>00162000
                                RIN'PASSUSERINX)#,             <<*DBB*>>00164000
       RIN'E'NEXTFREE = RIN'E(RIN'FREEPTR)#,                   <<*DBB*>>00166000
       RIN'E'LINK     = RIN'E(RIN'E'INDEX)#;                   <<*DBB*>>00168000
