
                                                                15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page   1
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0001          OPTIONS/EXTEND
0002          PROGRAM JESCOM_LIST
0003    C
0004    C
0005          CHARACTER       INFO_USERNAME*12, ACCINFO*32, OWNER*31, RECIN*1412, DRCTY*64,
0006         &			FWRD*127, DMMY*64, FORWARD*132, NODES(50)*8, DEF_DIR*32,
0007         &			BUFFER*255, DEF_NODE*6, MAI_MODE*6, SNDFWRD*3, DEF_DEV*64,
0008         &			FWRDFLAG*8, OUT_NODE*6, LOCUSR*12, FNAME*20, MIDINT*1
0009          INTEGER*4	      LENUSER, LDAYS, CURTIME, PDAYS, NEWM, LF, ACNT, BCNT,
0010         &			UAIFLAGS, CCNT, DCNT
0011          CHARACTER*23    LTYME, PTYME
0012          INTEGER*4       LOG_DATE(2), PWD_DATE(2), FLEN, NNOD, IQ, IND(50),
0013         &			IDN, ICNT, STATUS
0014          INTEGER*2		UAF$V_DISACNT	/4/
0015          INTEGER*2		UAF$V_NOMAIL	/7/
0016          LOGICAL         LNOD, V_DISACNT, V_NOMAIL, SND_MODE, DOFWRD,
0017         &			FND_FWRD, FORWARD_MAIL, FNDID
0018    C
0019    	INCLUDE '($UAIDEF)/NOLIST'
0198    	INTEGER*4	UAF$K_LENGTH	/1412/
0199    C
0200    C	DECLARE VARIABLES USED TO DEFINE THE DATABASE INDEX FILE AND DEFINE
0201    C	THE GLOBAL COMMON INITDATA TO CONTAIN THOSE VARIABLES USED TO DEFINE
0202    C	THE DATABASE INDEX FILE.
0203    C
0204    	INCLUDE 'LIFE_DEV:USERDB_PAR.INC/NOLIST'
0588    	INCLUDE 'LIFE_DEV:BMS_SHARE.INC/NOLIST'
0614    C
0615    C
0616    C DEFINE UAI STRUCTURE
0617    C
0618          STRUCTURE /ITMLIST/			! UAI ITEM LIST
0619             UNION					! WE WILL HAVE 3 ITEMS
0620                MAP					! TO PROMPT FOR.
0621                   INTEGER*2 BUFLEN			! 
0622                   INTEGER*2 CODE			! THE FOURTH ITEM IS THE
0623                   INTEGER*4 BUFADR			! END CODE.
0624                   INTEGER*4 RETLENADR		!
0625                END MAP
0626                MAP
0627                   INTEGER*4 END_LIST
0628                END MAP
0629             END UNION
0630          END STRUCTURE
0631          RECORD /ITMLIST/ UAILIST(8)
0632    C
0633    C DEFINE THE UAI DATA AREA WHICH IS RETURNED
0634    C
0635    C DEFINE MISCELLANEOUS VARIABLES
0636    C
0637          INTEGER*4       SYS$GETUAI, UAI_RETURN
0638    C
0639    C-----------------------------------------------------------------------
0640    C
0641    C SETUP UAI BUFFER
0642    C
0643          UAILIST(01).BUFLEN      = 8

JESCOM_LIST                                                     15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page   2
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0644          UAILIST(01).CODE        = (UAI$_LASTLOGIN_I)
0645          UAILIST(01).BUFADR      = %LOC(LOG_DATE)
0646          UAILIST(01).RETLENADR   = 0
0647    C
0648          UAILIST(02).BUFLEN      = 32
0649          UAILIST(02).CODE        = (UAI$_ACCOUNT)
0650          UAILIST(02).BUFADR      = %LOC(ACCINFO)
0651          UAILIST(02).RETLENADR   = 0
0652    C
0653          UAILIST(03).BUFLEN      = 32
0654          UAILIST(03).CODE        = (UAI$_OWNER)
0655          UAILIST(03).BUFADR      = %LOC(OWNER)
0656          UAILIST(03).RETLENADR   = %LOC(LEN_OWN)
0657    C
0658          UAILIST(04).BUFLEN      = 4
0659          UAILIST(04).CODE        = (UAI$_FLAGS)
0660          UAILIST(04).BUFADR      = %LOC(UAIFLAGS)
0661          UAILIST(04).RETLENADR   = 0
0662    C
0663          UAILIST(05).BUFLEN      = 8
0664          UAILIST(05).CODE        = (UAI$_PWD_DATE)
0665          UAILIST(05).BUFADR      = %LOC(PWD_DATE)
0666          UAILIST(05).RETLENADR   = 0
0667    C
0668          UAILIST(06).BUFLEN      = 32
0669          UAILIST(06).CODE        = (UAI$_DEFDEV)
0670          UAILIST(06).BUFADR      = %LOC(DEF_DEV)
0671          UAILIST(06).RETLENADR   = 0
0672    C
0673          UAILIST(07).BUFLEN      = 64
0674          UAILIST(07).CODE        = (UAI$_DEFDIR)
0675          UAILIST(07).BUFADR      = %LOC(DEF_DIR)
0676          UAILIST(07).RETLENADR   = 0
0677    C
0678          UAILIST(08).END_LIST   = 0
0679    C
0680    C-----------------------------------------------------------------------
0681    C
0682    C DEFINE INITIALIZATION VARIABLES.
0683    C
0684    	CALL LIB$GET_SYMBOL('DEFNODE',DEF_NODE,IDNODE)
0685    	IDN = IDNODE
0686    	SND_MODE = .FALSE.
0687    	CALL LIB$GET_SYMBOL('MAIMODE',MAI_MODE,IMAI)
0688    	IF (MAI_MODE(1:IMAI) .EQ. 'MRGATE') SND_MODE = .TRUE.
0689    C
0690    	DOFWRD = .FALSE.
0691    	BCNT = 0
0692    	ADRNUM = 0
0693    	CALL LIB$GET_SYMBOL('SENDFWRD',SNDFWRD,ISND)
0694    	IF (SNDFWRD(1:ISND) .EQ. 'YES') DOFWRD = .TRUE.
0695    C
0696    	OPEN(UNIT=19, FILE='BMS_USERS', CARRIAGECONTROL='LIST',
0697         &	    ACCESS='SEQUENTIAL', FORM='FORMATTED',  TYPE='NEW',
0698         &	    SHARED, ORGANIZATION='SEQUENTIAL', RECORDTYPE='VARIABLE' )
0699    C
0700    	WRITE(19,1900)

JESCOM_LIST                                                     15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page   3
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0701    C
0702    	OPEN( UNIT=21, FILE='FWRD$NODES', TYPE='OLD', CARRIAGECONTROL='LIST' )
0703    C
0704    	LNOD = .FALSE.
0705    	READ(21,2100,IOSTAT=IERR) IQ, NODES(1)(1:IQ)
0706    	NNOD = 0
0707    C
0708    	DO WHILE (IERR .EQ. 0)
0709    C
0710    		IF (INDEX(NODES(NNOD+1),DEF_NODE) .NE. 0) GOTO 2120
0711    		NNOD = NNOD + 1
0712    		IND(NNOD) = IQ
0713    2120		READ(21,2100,IOSTAT=IERR) IQ, NODES(NNOD+1)(1:IQ)
0714    C
0715    	ENDDO
0716    C
0717    	IF (NNOD .GT. 0) LNOD = .TRUE.
0718    C
0719    	CLOSE(UNIT=21)
0720    C
0721    	OPEN( UNIT=22, FILE='JESCOM', TYPE='NEW', CARRIAGECONTROL='LIST' )
0722    C
0723    	CALL SYS$ASCTIM(, PTYME, ,)
0724    	WRITE(22,2250) DEF_NODE, PTYME
0725    C
0726    	OPEN( UNIT=23, FILE='MAIL_DEF', TYPE='NEW', CARRIAGECONTROL='LIST' )
0727    C
0728    	WRITE(23,2300)
0729    	WRITE(23,2320)
0730    C
0731    	OPEN(UNIT=24, FILE='MODMAIL', CARRIAGECONTROL = 'LIST',
0732         &		ORGANIZATION = 'SEQUENTIAL', TYPE = 'NEW', 
0733         &		RECORDTYPE = 'VARIABLE', FORM = 'FORMATTED' )
0734    C
0735    	WRITE(24,2400)
0736    C
0737    	OPEN( UNIT=25, FILE='MAIL_LIS', TYPE='NEW', CARRIAGECONTROL='LIST' )
0738    C
0739    	OPEN( UNIT=26, FILE='X400_LIS', TYPE='NEW', CARRIAGECONTROL='LIST' )
0740    C
0741    	WRITE(26,2600)
0742    	WRITE(26,2610)
0743    C
0744    	CALL USRDB$USER_OPEN
0745    C
0746    	STATUS = LIB$GET_LUN (IUN)	!fetch up a log.unit number
0747    C
0748    	open(UNIT=iun, FILE = 'sysuaf', STATUS ='old', ORGANIZATION = 'indexed',
0749         &		ACCESS = 'keyed', FORM = 'unformatted', RECL = UAF$K_LENGTH/4,
0750         &		IOSTAT = ios, READONLY, SHARED)
0751    	
0752    C
0753    120	read(iun, KeyId=0, KeyGE=' ', iostat=ierr) recin
0754    	if (ierr .eq. 52) goto 120	!wait for unlock
0755    C
0756    	ICNT = 0
0757    	CALL LIB$DAY( CURTIME ,, )

JESCOM_LIST                                                     15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page   4
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0758    C
0759    	DO WHILE (IERR .GE. 0)
0760    C
0761    		CALL STR$TRIM( INFO_USERNAME, RECIN(5:16), LENUSER )
0762    C
0763    		UAI_RETURN = SYS$GETUAI(,,INFO_USERNAME(1:LENUSER),UAILIST,,,)
0764    		IF (.NOT. UAI_RETURN) CALL LIB$SIGNAL(%VAL(UAI_RETURN))
0765    C
0766    		V_DISACNT = BTEST(UAIFLAGS, UAF$V_DISACNT)
0767    		V_NOMAIL = BTEST(UAIFLAGS, UAF$V_NOMAIL)
0768    C
0769    		IF ((V_DISACNT) .OR. (V_NOMAIL)) GOTO 126
0770    C
0771    		IF (INDEX(ACCINFO,'SYSTEM') .NE. 0) GOTO 126
0772    C
0773    		CALL SYS$ASCTIM(, LTYME, LOG_DATE,)
0774    		CALL LIB$DAY( LDAYS ,LOG_DATE, )
0775    		LDAYS = CURTIME - LDAYS
0776    		IF (LDAYS .GT. 9999) LDAYS = 9999
0777    C
0778    		CALL SYS$ASCTIM(, PTYME, PWD_DATE,)
0779    		CALL LIB$DAY( PDAYS, PWD_DATE, )
0780    		PDAYS = CURTIME - PDAYS
0781    		IF (PDAYS .GT. 9999) PDAYS = 9999
0782    C
0783    		OWNER = OWNER(2:27)//' '
0784    		CALL STR$TRIM( OWNER, OWNER, IOWN )
0785    C
0786    		WRITE(26,2630) INFO_USERNAME, OWNER
0787    C
0788    		FNDID = .FALSE.
0789    		USRDB$REC = ' '
0790    		ISTAT = USRDB$GET_INIT(USRDB$REC,USRDB$_KEY_USER_IDENT,INFO_USERNAME(1:LENUSER),USRDB$_MATCH_EQ)
0791    		IF (ISTAT .EQ. 0) FNDID = .TRUE.
0792    C
0793    		FND_FWRD = .FALSE.
0794    C
0795    		IDV = ICHAR(DEF_DEV(1:1)) + 1
0796    		IDR = ICHAR(DEF_DIR(1:1))
0797    		DRCTY = DEF_DEV(2:IDV)//DEF_DIR(2:IDR)//'.MAIL]'//' '
0798    		BUFFER = ' '
0799    		IF (FNDID) FND_FWRD = FORWARD_MAIL( USRDB$REC, BUFFER, LBUF, BCNT, DRCTY )
0800    C
0801    		IF ((LDAYS .GT. 240) .OR. (PDAYS .GT. 1000)) GOTO 126
0802    C
0803    		IF ( .NOT. FND_FWRD) GOTO 1675
0804    C
0805    		IF ((LNOD) .AND. (DOFWRD)) THEN
0806    			DO KK = 1,NNOD
0807    C
0808    				IF (INDEX(BUFFER(1:LBUF),NODES(KK)(1:IND(KK))) .NE. 0) GOTO 126
0809    C
0810    			ENDDO
0811    		ELSE IF ((LNOD) .AND. (.NOT. DOFWRD)) THEN
0812    			GOTO 126
0813    		ENDIF
0814    C

JESCOM_LIST                                                     15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page   5
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0815    1675		IF (FNDID) THEN
0816    C
0817    			ISTAT = USRDB$GET_FIELD (USRDB$REC, USRDB$_FID_LAST_NAME, OWNER, IOWN )
0818    C
0819    			ISTAT = USRDB$GET_FIELD (USRDB$REC, USRDB$_FID_FRST_NAME, FNAME, LEN_FN )
0820    			IF (ISTAT .EQ. 0) THEN
0821    				OWNER = OWNER(1:IOWN)//', '//FNAME(1:LEN_FN)//' '
0822    				CALL STR$TRIM( OWNER, OWNER, IOWN )
0823    			ENDIF
0824    C
0825    			ISTAT = USRDB$GET_FIELD (USRDB$REC, USRDB$_FID_MIDDLE_INIT, MIDINT, LEN_LN )
0826    			IF (ISTAT .EQ. 0) OWNER = OWNER(1:IOWN)//' '//MIDINT//' '
0827    C
0828    		ELSE
0829    C
0830    			ICOM1 = INDEX(OWNER,',')
0831    C
0832    			IF (ICOM1 .EQ. 0) GOTO 1750
0833    C
0834    			ICOM2 = ICOM1 + 1
0835    			ILOC  = INDEX(OWNER(ICOM2:31),',')
0836    C
0837    			IF (ILOC .EQ. 0) GOTO 1700
0838    C
0839    			ICOM3 = ILOC + ICOM2 - 2
0840    			OWNER = OWNER(1:ICOM3)//' '
0841    C
0842    1700			IPER = INDEX(OWNER,'.')
0843    C
0844    		ENDIF
0845    C
0846    1750		ICNT = ICNT + 1
0847    C
0848    		CALL STR$TRIM( OWNER, OWNER, IOWN )
0849    C
0850    		OUT_NODE = DEF_NODE
0851    		IDN = IDNODE
0852    		FWRDFLAG = ' '
0853    		IDCL = 0
0854    		IF (LBUF .GT. 0) IDCL = INDEX(BUFFER(1:LBUF),'::')
0855    		IF (IDCL .GT. 7) IDCL = 7
0856    		IF (INDEX(BUFFER,'EPLAB::') .NE. 0) THEN
0857    			FWRDFLAG = 'F=EPLAB'
0858    			OUT_NODE = 'EPLAB'
0859    		ELSE IF ( IDCL .GT. 1) THEN
0860    			IDCL = IDCL - 1
0861    			FWRDFLAG = 'F='//BUFFER(1:IDCL)//' '
0862    		ENDIF
0863    C
0864    C **  WRITE OUT NAMES OF USERS ELIGIBLE FOR X400 AND PROFS ACCESS
0865    C
0866    		WRITE(22,2200) DEF_NODE, INFO_USERNAME, OWNER, ACCINFO, FWRDFLAG
0867    		WRITE(26,2620) INFO_USERNAME, OWNER
0868    C
0869    C	TEMPORARY BRANCH UNTIL MEDICS/LIFENET ACCOUNTS ARE RESOLVED.
0870    C
0871    		IF (INDEX(ACCINFO,'MDAC') .EQ. 0) GOTO 126

JESCOM_LIST                                                     15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page   6
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0872    C
0873    		IF (OUT_NODE .EQ. 'EPLAB') IDN = 5
0874    C
0875    		WRITE(23,2340) INFO_USERNAME
0876    		IF (.NOT. SND_MODE) THEN
0877    			WRITE(23,2360) INFO_USERNAME, OUT_NODE, INFO_USERNAME
0878    		ELSE
0879    			WRITE(23,2370) INFO_USERNAME, OUT_NODE, INFO_USERNAME
0880    		ENDIF
0881    		WRITE(25,2500) OWNER, INFO_USERNAME, ACCINFO, OUT_NODE
0882    C
0883    C
0884    126		read(iun, iostat=ierr) recin
0885    		if (ierr .eq. 52) goto 126	!wait for unlock
0886    C
0887    	ENDDO
0888    C
0889    	WRITE(22,2270) ICNT
0890    C
0891    	WRITE(23,2380)
0892    C
0893    	WRITE(26,2640)
0894    C
0895    	CLOSE(UNIT=19)
0896    	CLOSE(UNIT=iun)
0897    	CLOSE(UNIT=22)
0898    	CLOSE(UNIT=23)
0899    	CLOSE(UNIT=24)
0900    	CLOSE(UNIT=25)
0901    	CLOSE(UNIT=26)
0902    	CALL USRDB$CLOSE_DB
0903    C
0904    C **  RESET THE BMS SHARABLE COMMON IMAGE TO COUNT OF ADDRESSES.
0905    C
0906    	ADRNUM = BCNT
0907    C
0908    C **  END OF PROGRAM
0909    C
0910    1900	FORMAT('LIFEMAIL',12X,'LIB4:[LIFEMAIL.MAIL]')
0911    C
0912    2100	FORMAT(Q,A<IQ>)
0913    C
0914    2200	FORMAT(A<IDN>,'::',A<LENUSER>,T23,'! ',A31,1X,A8,5X,A8)
0915    2250	FORMAT('!'/'!',T20,'Userlist from node ',A<IDN>,'::'/
0916         &		   '!',T20,'File created at:  ',A23/'!')
0917    2270	FORMAT('!',I5,' records written.')
0918    C
0919    2300	FORMAT('$	SET NOON')
0920    2320	FORMAT('$	MAIL')
0921    2340	FORMAT('	SET NOFORWARD/USER=',A<LENUSER>)
0922    2360	FORMAT('	SET FORWARD/USER=',A<LENUSER>,10X,A<IDN>,'::',A<LENUSER>)
0923    2370	FORMAT('	SET FORWARD/USER=',A<LENUSER>,10X,'MRGATE::"""MRGATE::'A<IDN>,'::',A<LENUSER>,'"""')
0924    2380	FORMAT('$	EXIT')
0925    C
0926    2400	FORMAT('$	SET NOON'/'$	MAIL')
0927    C
0928    2500	FORMAT(A20,1X,A12,4X,'MAIL ONLY,  ',A8,4X,A<IDN>,'::',T71,'(VAXMAIL)')

JESCOM_LIST                                                     15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page   7
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0929    C
0930    2600	FORMAT('$	SET NOON'/'$	DEASSIGN /TABLE="MAIL_X400_PROFS" /ALL/EXEC')
0931    2610	FORMAT('$	CREATE/NAME_TABLE	-'/
0932         &		'	/PARENT=LNM$SYSTEM_DIRECTORY /PROT=W:RE	-'/
0933         &		'	/EXEC /ATTRIB=(NO_ALIAS,SUPERSEDE)	MAIL_X400_PROFS')
0934    2620	FORMAT('$	DEFINE/TABLE=MAIL_X400_PROFS/NOLOG/EXEC	X400_PROF_',A<LENUSER>,'	ELIGIBLE,"',A<IOWN>,'"')
0935    2630	FORMAT('$	DEFINE/TABLE=MAIL_X400_PROFS/NOLOG/EXEC	X400_PROF_',A<LENUSER>,'	NODEFINE,"',A<IOWN>,'"')
0936    2640	FORMAT('$	EXIT')
0937          END




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                 2450   PIC CON REL LCL   SHR   EXE   RD NOWRT QUAD
  1 $PDATA                                 952   PIC CON REL LCL   SHR NOEXE   RD NOWRT QUAD
  2 $LOCAL                                7376   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD
  3 BMS_DATABASE                         92004   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD

    Total Space Allocated               102782


ENTRY POINTS

    Address  Type  Name          

  0-00000000       JESCOM_LIST   


VARIABLES

    Address  Type  Name                                               Address  Type  Name                            

      **      CHAR ACCESS_CONTROL                                   2-00000BE0  CHAR ACCINFO                         
      **      I*4  ACNT                                             3-00016760  I*4  ADRNUM                          
      **      CHAR AREA_CODE                                            **      CHAR AUTO_INFO                       
  2-000017B4  I*4  BCNT                                             2-00001203  CHAR BUFFER                          
      **      I*4  CCNT                                                 **      CHAR CITY_NAME                       
      **      CHAR COMMENTS                                             **      CHAR COUNTRY                         
  2-000017AC  I*4  CURTIME                                              **      I*4  DBCPY$COPY                      
      **      I*4  DBCRS$FIELD_IDENT                                    **      I*4  DBEVL$COMPOSE                   
      **      I*4  DBEVL$DEF_SORT                                       **      I*4  DBEVL$LOGICAL                   
      **      I*4  DBEVL$PARSE                                          **      I*4  DBEVL$SELECT                    
      **      I*4  DBEVL$SORT                                           **      I*4  DBEVL$UPDATE                    
      **      I*4  DBEVL$WHERE                                          **      I*4  DCNT                            
  2-00001311  CHAR DEF_DEV                                          2-000011E3  CHAR DEF_DIR                         
  2-00001302  CHAR DEF_NODE                                             **      CHAR DEPARTMENT                      
      **      CHAR DMMY                                             2-000017D0  L*4  DOFWRD                          
      **      CHAR DOMAIN_ID                                        2-000011A3  CHAR DRCTY                           
      **      CHAR FAX_INFO                                             **      I*4  FLEN                            
  2-0000135F  CHAR FNAME                                            2-000017D4  L*4  FNDID                           
      **      L*4  FND_FWRD                                             **      CHAR FORWARD                         
      **      CHAR FRST_NAME                                            **      CHAR FWRD                            
  2-00001351  CHAR FWRDFLAG                                         2-000017C4  I*4  ICNT                            

JESCOM_LIST                                                     15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page   8
01                                                              12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

      **      I*4  ICOM1                                                **      I*4  ICOM2                           
      **      I*4  ICOM3                                                **      I*4  IDCL                            
  2-000017C0  I*4  IDN                                              2-000017DC  I*4  IDNODE                          
      **      I*4  IDR                                                  **      I*4  IDV                             
  2-000017E8  I*4  IERR                                                 **      I*4  ILOC                            
  2-000017E0  I*4  IMAI                                             2-00000BD4  CHAR INFO_USERNAME                   
      **      CHAR INSTITUTION                                      2-000017F0  I*4  IOS                             
  2-000017F4  I*4  IOWN                                                 **      I*4  IPER                            
  2-000017BC  I*4  IQ                                               2-000017E4  I*4  ISND                            
      **      I*4  ISTAT                                            2-000017EC  I*4  IUN                             
      **      I*4  KK                                                   **      CHAR LAST_NAME                       
  2-000017F8  I*4  LBUF                                             2-000017A8  I*4  LDAYS                           
  2-000017A4  I*4  LENUSER                                          2-00001800  I*4  LEN_FN                          
  2-00001804  I*4  LEN_LN                                           2-000017D8  I*4  LEN_OWN                         
      **      I*4  LF                                                   **      CHAR LIFE_USAGE                      
  2-000017C8  L*4  LNOD                                                 **      CHAR LOCATION                        
      **      CHAR LOCUSR                                           2-00001374  CHAR LTYME                           
      **      CHAR MAIL_STOP                                        2-00001308  CHAR MAI_MODE                        
      **      CHAR MIDDLE_INIT                                      2-00001373  CHAR MIDINT                          
      **      CHAR NAME_TITLE                                           **      CHAR NETWORK_ID                      
      **      I*4  NEWM                                                 **      I*4  NNOD                            
      **      CHAR NODE_ID                                              **      CHAR NOTIFY                          
      **      CHAR OTHER_DOMAIN                                         **      CHAR OTHER_NET                       
      **      CHAR OTHER_NODE                                           **      CHAR OTHER_USER                      
  2-00001359  CHAR OUT_NODE                                         2-00000C00  CHAR OWNER                           
  2-000017B0  I*4  PDAYS                                                **      CHAR PHONE_NMBR                      
      **      CHAR PRIM_ACTIVITY                                        **      CHAR PRIM_WORK                       
      **      CHAR PRIN_EMPLOYER                                    2-0000138B  CHAR PTYME                           
  2-00000C1F  CHAR RECIN                                                **      CHAR REMOTE_USER                     
      **      CHAR SEC_ACTIVITY                                         **      CHAR SEC_WORK                        
      **      CHAR SHORT_INSTITUTE                                  2-0000130E  CHAR SNDFWRD                         
  2-000017CC  L*4  SND_MODE                                             **      CHAR STATE                           
      **      I*4  STATUS                                               **      CHAR STREET_ADR_1                    
      **      CHAR STREET_ADR_2                                         **      CHAR TIME_ZONE                       
      **      I*4  UAF$K_LENGTH                                         **      I*2  UAF$V_DISACNT                   
      **      I*2  UAF$V_NOMAIL                                     2-000017B8  I*4  UAIFLAGS                        
      **      I*4  UAI_RETURN                                           **      CHAR USER_IDENT                      
      **      I*4  USRDB$CLEAR_RECORD                                   **      I*4  USRDB$DELETE_RECORD             
      **      I*4  USRDB$GET_DUMP                                       **      I*4  USRDB$GET_RECORD                
      **      I*4  USRDB$LOCATE                                         **      I*4  USRDB$PUT_DUMP                  
      **      I*4  USRDB$PUT_FIELD                                      **      I*4  USRDB$PUT_RECORD                
  2-000013A2  CHAR USRDB$REC                                            **      I*4  USRDB$SQL                       
      **      I*4  USRDB$UPDATE_RECORD                                  **      L*4  V_DISACNT                       
      **      L*4  V_NOMAIL                                             **      CHAR ZIP_CODE                        


RECORDS

    Address   Name          Structure                             Bytes

  2-00000208  DBINT         USRDB$INTERNAL                         1024

JESCOM_LIST                                                     15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page   9
01                                                              12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

ARRAYS

    Address  Type  Name                                  Bytes  Dimensions

  3-00002EE0  CHAR ADRIDX                                80000  (1000)
  3-00000000  CHAR ADRNAM                                12000  (1000)
  2-00000010  I*4  IND                                     200  (50)
  2-00000000  I*4  LOG_DATE                                  8  (2)
  2-00000668  CHAR NODES                                   400  (50)
  2-00000008  I*4  PWD_DATE                                  8  (2)
  2-000000D8  I*4  USRDB$_CROSS_FID                        152  (38)
  2-00000170  I*4  USRDB$_CROSS_FLEN                       152  (38)
  2-00000488  CHAR USRDB$_DEFAULT                          228  (38)
  2-000003CA  CHAR USRDB$_DMPSTR                           190  (38)
  2-00000190  CHAR USRDB$_IDENTS                           570  (38)


RECORD ARRAYS

    Address   Name          Structure                             Bytes  Dimensions

  2-00000608  UAILIST       ITMLIST                                  96  (8)


LABELS

    Address   Label       Address   Label       Address   Label       Address   Label       Address   Label       Address   Label   

  0-00000330  120       0-000008A0  126       0-0000059C  1675      0-00000691  1700      0-0000069A  1750      1-0000008F  1900'   
  1-000000B2  2100'     0-000001E2  2120      1-000000BA  2200'     1-000000DB  2250'     1-00000124  2270'     1-0000013D  2300'   
  1-0000014A  2320'     1-00000153  2340'     1-00000170  2360'     1-0000019D  2370'     1-000001E4  2380'     1-000001ED  2400'   
  1-00000203  2500'     1-00000235  2600'     1-00000272  2610'     1-000002ED  2620'     1-00000340  2630'     1-00000393  2640'   


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                              Type  Name                              Type  Name                            

   L*4  FOR$BJTEST                              FOR$CLOSE                               FOR$OPEN                        
   L*4  FORWARD_MAIL                            LIB$DAY                            I*4  LIB$GET_LUN                     
        LIB$GET_SYMBOL                     I*4  LIB$INDEX                               LIB$SIGNAL                      
        STR$TRIM                                SYS$ASCTIM                         I*4  SYS$GETUAI                      
        USRDB$CLOSE_DB                     I*4  USRDB$GET_FIELD                    I*4  USRDB$GET_INIT                  
        USRDB$USER_OPEN                 


OPTIONS QUALIFIERS

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /EXTEND_SOURCE  /F77  /NOG_FLOATING  /I4

                                                                15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  10
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0002    	OPTIONS/EXTEND
0003    	LOGICAL FUNCTION FORWARD_MAIL( USRDB$REC, ADR, JADR, BCNT, DRCTY )
0004    C
0005    C
0006    C *************************************
0007    C
0008    C PURPOSE:  SET THE USERS FORWARDING ADDRESS.
0009    C
0010    C
0011    C **  INCLUDE LOCAL DECLARATIONS FOR LOCAL DATA.
0012    C
0013    	IMPLICIT INTEGER (A-Z)
0014    C
0015    	CHARACTER	SPWN_STR*133, ADR*255, IN_STR*64, NT*2, ND*12, UI*20,
0016         &		TO_USER*12, NEWADR*80, DM*20, NEW_USER*12, SHOW_USER*40,
0017         &		IN_USER*80, TESTLIST*35, AC*2, BMSTR*255, DRCTY*64
0018    C
0019    	INTEGER*2	LA
0020    C
0021    	EXTERNAL	DYNDB$GEN_INFO
0022    C
0023    C	DECLARE VARIABLES USED TO DEFINE THE DATABASE INDEX FILE AND DEFINE
0024    C	THE GLOBAL COMMON INITDATA TO CONTAIN THOSE VARIABLES USED TO DEFINE
0025    C	THE DATABASE INDEX FILE.
0026    C
0027    	INCLUDE 'LIFE_DEV:USERDB_PAR.INC/LIST'
0028  1 C
0029  1 C  **************************
0030  1 C
0031  1 C **  FOLLOWING IS A DEFINITION OF THE PHASE-II LIFENET USERDB STRUCTURE.
0032  1 C **  THIS INCLUDE FILE IS REQUIRED TO BE PART OF ANY PROGRAM WRITTEN TO
0033  1 C **  ACCESS THE PHASE-II LIFENET USERDB.
0034  1 C
0035  1 C  **************************
0036  1 C
0037  1 C **  DEFINE THE PARAMETERS FOR OPENING THE USER DATABASE DUMP FILE
0038  1 C
0039  1 	INCLUDE		'LIFE_DEV:DB_PARAMS.INC'
0040  2 C
0041  2 C  **************************
0042  2 C
0043  2 C **  DEFINE THE PARAMETERS FOR OPENING THE USER DATABASE DUMP FILE
0044  2 C
0045  2 	PARAMETER	USRDB$_NUM_FIELDS	= 38	! NUMBER OF DB FIELDS
0046  2 	PARAMETER	SQL$_MAX_UPDATE		= USRDB$_NUM_FIELDS / 2
0047  2 C
0048  2 C **  DEFINE THE PARAMETERS FOR OPENING THE USER DATABASE DUMP FILE
0049  2 C
0050  2 	PARAMETER	USRDB$_DUMP_NEW		= 0	! CREATE NEW FILE
0051  2 	PARAMETER	USRDB$_DUMP_OLD		= 1	! READ OLD FILE
0052  2 C
0053  2 C **  DEFINE THE PARAMETERS FOR THE DUMP_UPDATE / GET_DUMP FUNCTION.
0054  2 C
0055  2 	PARAMETER	USRDB$_DUMP_UPDATE	= 10	! CREATE NEW FILE
0056  2 	PARAMETER	USRDB$_BUILD_RECORD	= 11	! READ OLD FILE
0057  2 C

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  11
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0058  2 C **  DEFINE THE PARAMETERS FOR DEFINING SUCCESS/FAILURE OF OPERATION
0059  2 C **  WHEN CALLING A ROUTINE WHICH RETURNS A STATUS CODE.
0060  2 C
0061  2 	PARAMETER	USRDB$_SUCCESS		= 0
0062  2 	PARAMETER	USRDB$_FAILURE		= 1
0063  2 	PARAMETER	USRDB$_NORECORD		= 2
0064  2 C
0065  2 C  **************************
0066  2 C
0067  2 C **  DEFINE THE PARAMETERS FOR MATCHING USERDB DATA TO A SPECIFIC STRING.
0068  2 C
0069  2 	PARAMETER	USRDB$_MATCH_NA		= 0
0070  2 	PARAMETER	USRDB$_MATCH_EQ		= 1
0071  2 	PARAMETER	USRDB$_MATCH_GT		= 2
0072  2 	PARAMETER	USRDB$_MATCH_LT		= 3
0073  2 	PARAMETER	USRDB$_MATCH_GE		= 4
0074  2 	PARAMETER	USRDB$_MATCH_LE		= 5
0075  2 C
0076  2 C  **************************
0077  2 C
0078  2 C **  DEFINE THE PARAMETERS DEFINING THE INDEX KEY NUMBER WITHIN THE USERDB.
0079  2 C **  INDEX KEY NUMBER IS USED FOR EXTRACTING DATA IN A SPECIFIC SORTED ORDER.
0080  2 C
0081  2 	PARAMETER	USRDB$_KEY_USER_IDENT	= 0	
0082  2 	PARAMETER	USRDB$_KEY_LAST_NAME	= 1	
0083  2 	PARAMETER	USRDB$_KEY_PRIM_WORK	= 2	
0084  2 	PARAMETER	USRDB$_KEY_CITY_NAME	= 3	
0085  2 	PARAMETER	USRDB$_KEY_STATE	= 4	
0086  2 	PARAMETER	USRDB$_KEY_COUNTRY	= 5	
0087  2 	PARAMETER	USRDB$_KEY_INSTITUTION	= 6	
0088  2 	PARAMETER	USRDB$_KEY_ZIP_CODE	= 7	
0089  2 	PARAMETER	USRDB$_KEY_AREA_CODE	= 8	
0090  2 	PARAMETER	USRDB$_KEY_NETWORK_ID	= 9	
0091  2 	PARAMETER	USRDB$_KEY_PRIM_ACTIVITY= 10
0092  2 	PARAMETER	USRDB$_KEY_SEC_ACTIVITY	= 11	
0093  2 	PARAMETER	USRDB$_KEY_PRIN_EMPLOYER= 12
0094  2 C
0095  2 C  **************************
0096  2 C
0097  2 C **  DEFINE THE PARAMETERS FOR SPECIFYING THE LENGTH OF EACH USERDB FIELD.
0098  2 C
0099  2 	PARAMETER	USRDB$_FLEN_USER_IDENT		= 12	
0100  2 	PARAMETER	USRDB$_FLEN_LAST_NAME		= 20	
0101  2 	PARAMETER	USRDB$_FLEN_PRIM_WORK		= 4	
0102  2 	PARAMETER	USRDB$_FLEN_CITY_NAME		= 40	
0103  2 	PARAMETER	USRDB$_FLEN_STATE		= 3	
0104  2 	PARAMETER	USRDB$_FLEN_COUNTRY		= 20	
0105  2 	PARAMETER	USRDB$_FLEN_INSTITUTION		= 80	
0106  2 	PARAMETER	USRDB$_FLEN_ZIP_CODE		= 10	
0107  2 	PARAMETER	USRDB$_FLEN_AREA_CODE		= 3	
0108  2 	PARAMETER	USRDB$_FLEN_NETWORK_ID		= 2	
0109  2 	PARAMETER	USRDB$_FLEN_FRST_NAME		= 20	
0110  2 	PARAMETER	USRDB$_FLEN_MIDDLE_INIT		= 1	
0111  2 	PARAMETER	USRDB$_FLEN_NAME_TITLE		= 10	
0112  2 	PARAMETER	USRDB$_FLEN_MAIL_STOP		= 40	
0113  2 	PARAMETER	USRDB$_FLEN_STREET_ADR_1	= 80	
0114  2 	PARAMETER	USRDB$_FLEN_STREET_ADR_2	= 80	

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  12
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0115  2 	PARAMETER	USRDB$_FLEN_PHONE_NMBR		= 20	
0116  2 	PARAMETER	USRDB$_FLEN_SHORT_INSTITUTE	= 10	
0117  2 	PARAMETER	USRDB$_FLEN_NODE_ID		= 12	
0118  2 	PARAMETER	USRDB$_FLEN_REMOTE_USER		= 20	
0119  2 	PARAMETER	USRDB$_FLEN_DOMAIN_ID		= 20	
0120  2 	PARAMETER	USRDB$_FLEN_FAX_INFO		= 25	
0121  2 	PARAMETER	USRDB$_FLEN_OTHER_NET		= 2	
0122  2 	PARAMETER	USRDB$_FLEN_OTHER_NODE		= 12	
0123  2 	PARAMETER	USRDB$_FLEN_OTHER_USER		= 20	
0124  2 	PARAMETER	USRDB$_FLEN_OTHER_DOMAIN	= 20	
0125  2 	PARAMETER	USRDB$_FLEN_ACCESS_CONTROL	= 2	
0126  2 	PARAMETER	USRDB$_FLEN_COMMENTS		= 40	
0127  2 	PARAMETER	USRDB$_FLEN_LIFE_USAGE		= 1	
0128  2 	PARAMETER	USRDB$_FLEN_NOTIFY		= 1	
0129  2 	PARAMETER	USRDB$_FLEN_AUTO_INFO		= 4	
0130  2 	PARAMETER	USRDB$_FLEN_SEC_WORK		= 12	
0131  2 	PARAMETER	USRDB$_FLEN_PRIM_ACTIVITY	= 4	
0132  2 	PARAMETER	USRDB$_FLEN_SEC_ACTIVITY	= 4	
0133  2 	PARAMETER	USRDB$_FLEN_PRIN_EMPLOYER	= 4	
0134  2 	PARAMETER	USRDB$_FLEN_LOCATION		= 20	
0135  2 	PARAMETER	USRDB$_FLEN_DEPARTMENT		= 60	
0136  2 	PARAMETER	USRDB$_FLEN_TIME_ZONE		= 10	
0137  2 C
0138  2 C  **************************
0139  2 C
0140  2 C **  DEFINE THE PARAMETERS FOR LOCATING THE BEGINNING OF A SPECIFIC USERDB FIELD.
0141  2 C
0142  2 	PARAMETER	USRDB$_FID_USER_IDENT		= 0	
0143  2 	PARAMETER	USRDB$_FID_LAST_NAME		= USRDB$_FID_USER_IDENT + USRDB$_FLEN_USER_IDENT
0144  2 	PARAMETER	USRDB$_FID_PRIM_WORK		= USRDB$_FID_LAST_NAME + USRDB$_FLEN_LAST_NAME
0145  2 	PARAMETER	USRDB$_FID_CITY_NAME		= USRDB$_FID_PRIM_WORK + USRDB$_FLEN_PRIM_WORK
0146  2 	PARAMETER	USRDB$_FID_STATE		= USRDB$_FID_CITY_NAME + USRDB$_FLEN_CITY_NAME
0147  2 	PARAMETER	USRDB$_FID_COUNTRY		= USRDB$_FID_STATE + USRDB$_FLEN_STATE
0148  2 	PARAMETER	USRDB$_FID_INSTITUTION		= USRDB$_FID_COUNTRY + USRDB$_FLEN_COUNTRY
0149  2 	PARAMETER	USRDB$_FID_ZIP_CODE		= USRDB$_FID_INSTITUTION + USRDB$_FLEN_INSTITUTION
0150  2 	PARAMETER	USRDB$_FID_AREA_CODE		= USRDB$_FID_ZIP_CODE + USRDB$_FLEN_ZIP_CODE
0151  2 	PARAMETER	USRDB$_FID_NETWORK_ID		= USRDB$_FID_AREA_CODE + USRDB$_FLEN_AREA_CODE
0152  2 	PARAMETER	USRDB$_FID_FRST_NAME		= USRDB$_FID_NETWORK_ID + USRDB$_FLEN_NETWORK_ID
0153  2 	PARAMETER	USRDB$_FID_MIDDLE_INIT		= USRDB$_FID_FRST_NAME + USRDB$_FLEN_FRST_NAME
0154  2 	PARAMETER	USRDB$_FID_NAME_TITLE		= USRDB$_FID_MIDDLE_INIT + USRDB$_FLEN_MIDDLE_INIT
0155  2 	PARAMETER	USRDB$_FID_MAIL_STOP		= USRDB$_FID_NAME_TITLE + USRDB$_FLEN_NAME_TITLE
0156  2 	PARAMETER	USRDB$_FID_STREET_ADR_1		= USRDB$_FID_MAIL_STOP + USRDB$_FLEN_MAIL_STOP
0157  2 	PARAMETER	USRDB$_FID_STREET_ADR_2		= USRDB$_FID_STREET_ADR_1 + USRDB$_FLEN_STREET_ADR_1
0158  2 	PARAMETER	USRDB$_FID_PHONE_NMBR		= USRDB$_FID_STREET_ADR_2 + USRDB$_FLEN_STREET_ADR_2
0159  2 	PARAMETER	USRDB$_FID_SHORT_INSTITUTE	= USRDB$_FID_PHONE_NMBR + USRDB$_FLEN_PHONE_NMBR
0160  2 	PARAMETER	USRDB$_FID_NODE_ID		= USRDB$_FID_SHORT_INSTITUTE + USRDB$_FLEN_SHORT_INSTITUTE
0161  2 	PARAMETER	USRDB$_FID_REMOTE_USER		= USRDB$_FID_NODE_ID + USRDB$_FLEN_NODE_ID
0162  2 	PARAMETER	USRDB$_FID_DOMAIN_ID		= USRDB$_FID_REMOTE_USER + USRDB$_FLEN_REMOTE_USER
0163  2 	PARAMETER	USRDB$_FID_FAX_INFO		= USRDB$_FID_DOMAIN_ID + USRDB$_FLEN_DOMAIN_ID
0164  2 	PARAMETER	USRDB$_FID_OTHER_NET		= USRDB$_FID_FAX_INFO + USRDB$_FLEN_FAX_INFO
0165  2 	PARAMETER	USRDB$_FID_OTHER_NODE		= USRDB$_FID_OTHER_NET + USRDB$_FLEN_OTHER_NET
0166  2 	PARAMETER	USRDB$_FID_OTHER_USER		= USRDB$_FID_OTHER_NODE + USRDB$_FLEN_OTHER_NODE
0167  2 	PARAMETER	USRDB$_FID_OTHER_DOMAIN		= USRDB$_FID_OTHER_USER + USRDB$_FLEN_OTHER_USER
0168  2 	PARAMETER	USRDB$_FID_ACCESS_CONTROL	= USRDB$_FID_OTHER_DOMAIN + USRDB$_FLEN_OTHER_DOMAIN
0169  2 	PARAMETER	USRDB$_FID_COMMENTS		= USRDB$_FID_ACCESS_CONTROL + USRDB$_FLEN_ACCESS_CONTROL
0170  2 	PARAMETER	USRDB$_FID_LIFE_USAGE		= USRDB$_FID_COMMENTS + USRDB$_FLEN_COMMENTS
0171  2 	PARAMETER	USRDB$_FID_NOTIFY		= USRDB$_FID_LIFE_USAGE + USRDB$_FLEN_LIFE_USAGE

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  13
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0172  2 	PARAMETER	USRDB$_FID_AUTO_INFO		= USRDB$_FID_NOTIFY + USRDB$_FLEN_NOTIFY
0173  2 	PARAMETER	USRDB$_FID_SEC_WORK		= USRDB$_FID_AUTO_INFO + USRDB$_FLEN_AUTO_INFO
0174  2 	PARAMETER	USRDB$_FID_PRIM_ACTIVITY	= USRDB$_FID_SEC_WORK + USRDB$_FLEN_SEC_WORK
0175  2 	PARAMETER	USRDB$_FID_SEC_ACTIVITY		= USRDB$_FID_PRIM_ACTIVITY + USRDB$_FLEN_PRIM_ACTIVITY
0176  2 	PARAMETER	USRDB$_FID_PRIN_EMPLOYER	= USRDB$_FID_SEC_ACTIVITY + USRDB$_FLEN_SEC_ACTIVITY
0177  2 	PARAMETER	USRDB$_FID_LOCATION		= USRDB$_FID_PRIN_EMPLOYER + USRDB$_FLEN_PRIN_EMPLOYER
0178  2 	PARAMETER	USRDB$_FID_DEPARTMENT		= USRDB$_FID_LOCATION + USRDB$_FLEN_LOCATION
0179  2 	PARAMETER	USRDB$_FID_TIME_ZONE		= USRDB$_FID_DEPARTMENT + USRDB$_FLEN_DEPARTMENT
0180  2 	PARAMETER	USRDB$_FID_EXTRA_SPACE		= USRDB$_FID_TIME_ZONE + USRDB$_FLEN_TIME_ZONE
0181  2 C
0182  2 C  **************************
0183  2 C
0184  1 C
0185  1 C  **************************
0186  1 C
0187  1 C **  DEFINE THE SPECIFIC VARIABLES THAT A PROGRAMMER  MAY UTILIZE WHEN
0188  1 C **  WRITING A PROGRAM TO ACCESS THE USRDB$ FUNCTIONS.
0189  1 C
0190  1 	INCLUDE		'LIFE_DEV:DB_FIELDS.INC'
0191  2 C
0192  2 C  **************************
0193  2 C
0194  2 C **  DEFINE THE SPECIFIC VARIABLES THAT A PROGRAMMER  MAY UTILIZE WHEN
0195  2 C **  WRITING A PROGRAM TO ACCESS THE USRDB$ FUNCTIONS.
0196  2 C
0197  2 	CHARACTER	USER_IDENT*12, LAST_NAME*20, FRST_NAME*20,
0198  2      &			MIDDLE_INIT*1, NAME_TITLE*10, INSTITUTION*80,
0199  2      &			MAIL_STOP*40, STREET_ADR_1*80, STREET_ADR_2*80,
0200  2      &			CITY_NAME*40, STATE*3, COUNTRY*20, ZIP_CODE*10,
0201  2      &			AREA_CODE*3, PHONE_NMBR*20, SHORT_INSTITUTE*10,
0202  2      &			NETWORK_ID*2, NODE_ID*12, REMOTE_USER*20,
0203  2      &			DOMAIN_ID*20, FAX_INFO*25, OTHER_NET*2, TIME_ZONE*10,
0204  2      &			OTHER_NODE*12, OTHER_USER*20, OTHER_DOMAIN*20,
0205  2      &			ACCESS_CONTROL*2, COMMENTS*40, LIFE_USAGE*1,
0206  2      &			NOTIFY*1, AUTO_INFO*4, PRIM_WORK*4, SEC_WORK*12,
0207  2      &			PRIM_ACTIVITY*4, SEC_ACTIVITY*4, PRIN_EMPLOYER*4,
0208  2      &			LOCATION*20, DEPARTMENT*60
0209  2 C
0210  2 C  **************************
0211  2 C
0212  1 C
0213  1 C  **************************
0214  1 C
0215  1 C **  DEFINE THE INTERNAL USRDB$ ROUTINE RECORD STRUCTURE.
0216  1 C
0217  1 C
0218  1 	INCLUDE		'LIFE_DEV:DB_INTERN.INC'
0219  2 C
0220  2 C  **************************
0221  2 C
0222  2 C **  DEFINE THE INTERNAL USRDB$ ROUTINE RECORD STRUCTURE.
0223  2 C
0224  2 C
0225  2 	STRUCTURE	/USRDB$INTERNAL/
0226  2 		UNION
0227  2 			MAP
0228  2 				CHARACTER*12	USER_IDENT

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  14
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0229  2 				CHARACTER*20	LAST_NAME
0230  2 				CHARACTER*4	PRIM_WORK
0231  2 				CHARACTER*40	CITY_NAME
0232  2 				CHARACTER*3	STATE
0233  2 				CHARACTER*20	COUNTRY
0234  2 				CHARACTER*80	INSTITUTION
0235  2 				CHARACTER*10	ZIP_CODE
0236  2 				CHARACTER*3	AREA_CODE
0237  2 				CHARACTER*2	NETWORK_ID
0238  2 				CHARACTER*830	REMAINING_DATA
0239  2 			END MAP
0240  2 			MAP
0241  2 				CHARACTER*1024	INTERNAL_BUFFER
0242  2 			END MAP
0243  2 		END UNION
0244  2 	END STRUCTURE
0245  2 C
0246  2 	RECORD	/USRDB$INTERNAL/	DBINT
0247  2 C
0248  2 C  **************************
0249  2 C
0250  2 C **  DEFINE THE VARIABLE FOR PASSING THE DB RECORD BETWEEN FUNCTIONS.
0251  2 C
0252  2 	CHARACTER	USRDB$REC*1024
0253  2 C
0254  2 C  **************************
0255  2 C
0256  1 C
0257  1 C  **************************
0258  1 C
0259  1 C **  DEFINE THE FUNCTION VARIABLES
0260  1 C
0261  1 	INCLUDE		'LIFE_DEV:DB_FUNCS.INC'
0262  2 C
0263  2 C  **************************
0264  2 C
0265  2 C **  DEFINE THE FUNCTION VARIABLES
0266  2 C
0267  2 	INTEGER*4	USRDB$GET_INIT,		USRDB$GET_RECORD,
0268  2      &			USRDB$PUT_RECORD,	USRDB$UPDATE_RECORD,
0269  2      &			USRDB$DELETE_RECORD,	USRDB$CLEAR_RECORD,
0270  2      &			USRDB$GET_FIELD,	USRDB$PUT_FIELD,
0271  2      &			USRDB$PUT_DUMP,		USRDB$GET_DUMP,
0272  2      &			USRDB$SQL,		USRDB$LOCATE
0273  2 C
0274  2 	INTEGER*4	DBEVL$WHERE,		DBEVL$LOGICAL,
0275  2      &			DBEVL$COMPOSE,		DBEVL$SORT,
0276  2      &			DBEVL$DEF_SORT,		DBEVL$PARSE,
0277  2      &			DBEVL$SELECT,		DBEVL$UPDATE,
0278  2      &			DBCRS$FIELD_IDENT,	DBCPY$COPY
0279  2 C
0280  2 C  **************************
0281  2 C
0282  1 C
0283  1 C  **************************
0284  1 C
0285  1 C **  DEFINE ELEMENTS FOR CROSS REFERENCE OF FIELDS

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  15
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0286  1 C
0287  1 	INCLUDE		'LIFE_DEV:DB_CROSS.INC'
0288  2 C
0289  2 C  **************************
0290  2 C
0291  2 C **  DEFINE STRING ARRAY FOR CROSS REFERENCING STRINGS TO FIELDS.
0292  2 C
0293  2 	CHARACTER*15	USRDB$_IDENTS(USRDB$_NUM_FIELDS)
0294  2 C
0295  2 C **  DEFINE STRING ARRAY FOR CROSS REFERENCING STRINGS TO FIELDS.
0296  2 C
0297  2 	CHARACTER*5	USRDB$_DMPSTR(USRDB$_NUM_FIELDS)
0298  2 C
0299  2 C **  DEFINE STRING ARRAY FOR CROSS REFERENCING STRINGS TO FIELDS.
0300  2 C
0301  2 	CHARACTER*6	USRDB$_DEFAULT(USRDB$_NUM_FIELDS)
0302  2 C
0303  2 C **  DEFINE INTEGER ARRAY FOR CROSS REFERENCING STRINGS TO FIELDS.
0304  2 C
0305  2 	INTEGER*4	USRDB$_CROSS_FID(USRDB$_NUM_FIELDS)
0306  2 	INTEGER*4	USRDB$_CROSS_FLEN(USRDB$_NUM_FIELDS)
0307  2 C
0308  2 C  **************************
0309  2 C
0310  2 C **  DEFINE THE FIELD NAMES.
0311  2 C
0312  2 	DATA	USRDB$_IDENTS	/	'USER_IDENT',		'LAST_NAME',
0313  2      &		'FRST_NAME',		'MIDDLE_INIT',		'NAME_TITLE',
0314  2      &		'INSTITUTION',		'MAIL_STOP',		'STREET_ADR_1',	
0315  2      &		'STREET_ADR_2',		'CITY_NAME',		'STATE',
0316  2      &		'COUNTRY',		'ZIP_CODE',		'AREA_CODE',
0317  2      &		'PHONE_NMBR',		'SHORT_INSTITUTE',	'TIME_ZONE',
0318  2      &		'NETWORK_ID',		'NODE_ID',		'REMOTE_USER',
0319  2      &		'DOMAIN_ID',		'FAX_INFO',		'OTHER_NET',	
0320  2      &		'OTHER_NODE',		'OTHER_USER',		'OTHER_DOMAIN',	
0321  2      &		'ACCESS_CONTROL',	'COMMENTS',		'LIFE_USAGE',
0322  2      &		'NOTIFY',		'AUTO_INFO',		'PRIM_WORK',
0323  2      &		'SEC_WORK',		'PRIM_ACTIVITY',	'SEC_ACTIVITY',	
0324  2      &		'PRIN_EMPLOYER',	'LOCATION',		'DEPARTMENT'  /
0325  2 C
0326  2 C  **************************
0327  2 C
0328  2 C **  DEFINE THE FIELD IDENTIFICATIONS FOR CROSS REFERENCE
0329  2 C
0330  2 	DATA	USRDB$_CROSS_FID	/	USRDB$_FID_USER_IDENT,
0331  2      &		USRDB$_FID_LAST_NAME,		USRDB$_FID_FRST_NAME,
0332  2      &		USRDB$_FID_MIDDLE_INIT,		USRDB$_FID_NAME_TITLE,
0333  2      &		USRDB$_FID_INSTITUTION,		USRDB$_FID_MAIL_STOP,
0334  2      &		USRDB$_FID_STREET_ADR_1,	USRDB$_FID_STREET_ADR_2,
0335  2      &		USRDB$_FID_CITY_NAME,		USRDB$_FID_STATE,
0336  2      &		USRDB$_FID_COUNTRY,		USRDB$_FID_ZIP_CODE,
0337  2      &		USRDB$_FID_AREA_CODE,		USRDB$_FID_PHONE_NMBR,
0338  2      &		USRDB$_FID_SHORT_INSTITUTE,	USRDB$_FID_TIME_ZONE,
0339  2      &		USRDB$_FID_NETWORK_ID,		USRDB$_FID_NODE_ID,
0340  2      &		USRDB$_FID_REMOTE_USER,		USRDB$_FID_DOMAIN_ID,
0341  2      &		USRDB$_FID_FAX_INFO,		USRDB$_FID_OTHER_NET,		
0342  2      &		USRDB$_FID_OTHER_NODE,		USRDB$_FID_OTHER_USER,

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  16
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0343  2      &		USRDB$_FID_OTHER_DOMAIN,	USRDB$_FID_ACCESS_CONTROL,
0344  2      &		USRDB$_FID_COMMENTS,		USRDB$_FID_LIFE_USAGE,
0345  2      &		USRDB$_FID_NOTIFY,		USRDB$_FID_AUTO_INFO,
0346  2      &		USRDB$_FID_PRIM_WORK,		USRDB$_FID_SEC_WORK,
0347  2      &		USRDB$_FID_PRIM_ACTIVITY,	USRDB$_FID_SEC_ACTIVITY,
0348  2      &		USRDB$_FID_PRIN_EMPLOYER,	USRDB$_FID_LOCATION,
0349  2      &		USRDB$_FID_DEPARTMENT	/
0350  2 C
0351  2 C  **************************
0352  2 C
0353  2 C **  DEFINE THE FIELD LENGTHS FOR CROSS REFERENCE
0354  2 C
0355  2 	DATA	USRDB$_CROSS_FLEN	/	USRDB$_FLEN_USER_IDENT,
0356  2      &		USRDB$_FLEN_LAST_NAME,		USRDB$_FLEN_FRST_NAME,
0357  2      &		USRDB$_FLEN_MIDDLE_INIT,	USRDB$_FLEN_NAME_TITLE,
0358  2      &		USRDB$_FLEN_INSTITUTION,	USRDB$_FLEN_MAIL_STOP,
0359  2      &		USRDB$_FLEN_STREET_ADR_1,	USRDB$_FLEN_STREET_ADR_2,
0360  2      &		USRDB$_FLEN_CITY_NAME,		USRDB$_FLEN_STATE,
0361  2      &		USRDB$_FLEN_COUNTRY,		USRDB$_FLEN_ZIP_CODE,
0362  2      &		USRDB$_FLEN_AREA_CODE,		USRDB$_FLEN_PHONE_NMBR,
0363  2      &		USRDB$_FLEN_SHORT_INSTITUTE,	USRDB$_FLEN_TIME_ZONE,
0364  2      &		USRDB$_FLEN_NETWORK_ID,		USRDB$_FLEN_NODE_ID,
0365  2      &		USRDB$_FLEN_REMOTE_USER,	USRDB$_FLEN_DOMAIN_ID,
0366  2      &		USRDB$_FLEN_FAX_INFO,		USRDB$_FLEN_OTHER_NET,		
0367  2      &		USRDB$_FLEN_OTHER_NODE,		USRDB$_FLEN_OTHER_USER,
0368  2      &		USRDB$_FLEN_OTHER_DOMAIN,	USRDB$_FLEN_ACCESS_CONTROL,
0369  2      &		USRDB$_FLEN_COMMENTS,		USRDB$_FLEN_LIFE_USAGE,
0370  2      &		USRDB$_FLEN_NOTIFY,		USRDB$_FLEN_AUTO_INFO,
0371  2      &		USRDB$_FLEN_PRIM_WORK,		USRDB$_FLEN_SEC_WORK,
0372  2      &		USRDB$_FLEN_PRIM_ACTIVITY,	USRDB$_FLEN_SEC_ACTIVITY,
0373  2      &		USRDB$_FLEN_PRIN_EMPLOYER,	USRDB$_FLEN_LOCATION,
0374  2      &		USRDB$_FLEN_DEPARTMENT	/
0375  2 C
0376  2 C  **************************
0377  2 C
0378  2 C **  DEFINE THE DUMP FIELD STRINGS FOR CROSS REFERENCE
0379  2 C
0380  2 	DATA	USRDB$_DMPSTR	/	'%L00=',	'%L01=',
0381  2      &	'%L02=',	'%L03=',	'%L04=',	'%L05=',
0382  2      &	'%L06=',	'%L07=',	'%L08=',	'%L09=',
0383  2      &	'%L10=',	'%L11=',	'%L12=',	'%L13=',
0384  2      &	'%L14=',	'%L15=',	'%L16=',	'%L20=',
0385  2      &	'%L21=',	'%L22=',	'%L23=',	'%L24=',
0386  2      &	'%L30=',	'%L31=',	'%L32=',	'%L33=',
0387  2      &	'%L40=',	'%L41=',	'%L42=',	'%L43=',
0388  2      &	'%L44=',	'%L50=',	'%L51=',	'%L52=',
0389  2      &	'%L53=',	'%L60=',	'%L61=',	'%L62='	/
0390  2 C
0391  2 C  **************************
0392  2 C
0393  2 C **  DEFINE THE DEFAULT STRINGS FOR CROSS REFERENCE
0394  2 C
0395  2 	DATA	USRDB$_DEFAULT	/	' ',		' ',
0396  2      &	' ',		' ',		'-NONE-',	'-SELF-',
0397  2      &	'-NONE-',	'-NONE-',	'-NONE-',	' ',
0398  2      &	' ',		'USA',		' ',		' ',
0399  2      &	'-NONE-',	'-SELF-',	'TP00',		'SL',

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  17
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0400  2      &	'LIFE',		' ',		' ',		'-NONE-',
0401  2      &	'NA',		' ',		' ',		' ',
0402  2      &	'??',		' ',		' ',		'0',
0403  2      &	' ',		'P###',		'P###',		'W##',
0404  2      &	'W##',		'SELF',		' ',		' '/
0405  2 C
0406  2 C  **************************
0407  2 C
0408  1 C
0409  1 C  **************************
0410  1 C
0411    	INCLUDE 'LIFE_DEV:BMS_SHARE.INC/NOLIST'
0437    C
0438    C **  SET THE FUNCTION VALUE.
0439    C
0440    	FORWARD_MAIL = .FALSE.
0441    C
0442    C **  DEFINE THE TESTLIST VARIABLE CONTENTS.
0443    C
0444    	TESTLIST = 'ABCDHIJKMNOUXYZ'//' '
0445    C
0446    C **  GET THE USERID BEING PROCESSED.
0447    C
0448    	CALL STR$TRIM( TO_USER, USRDB$REC(1:12), IQ )
0449    C
0450    	WRITE(24,2010) TO_USER
0451    C
0452    C **  GET RMAIL ROUTING INFORMATION FOR RMAIL USERID FOUND
0453    C
0454    	IRQ = IQ
0455    	NEW_USER = TO_USER(1:IRQ)//' '
0456    C
0457    C **  CREATE STRINGS NEEDED TO DEFINE AN ADDRESS STRING.
0458    C
0459    	NT = ' '
0460    	ND = ' '
0461    	UI = ' '
0462    	DM = ' '
0463    	AC = ' '
0464    C
0465    	ISTAT = USRDB$GET_FIELD (USRDB$REC, USRDB$_FID_NETWORK_ID, NT, LEN_NT )
0466    	ISTAT = USRDB$GET_FIELD (USRDB$REC, USRDB$_FID_NODE_ID, ND, LEN_ND )
0467    	ISTAT = USRDB$GET_FIELD (USRDB$REC, USRDB$_FID_REMOTE_USER, UI, LEN_UI )
0468    	ISTAT = USRDB$GET_FIELD (USRDB$REC, USRDB$_FID_DOMAIN_ID, DM, LEN_DM )
0469    	ISTAT = USRDB$GET_FIELD (USRDB$REC, USRDB$_FID_ACCESS_CONTROL, AC, LEN_AC )
0470    C
0471    	IF ((NT .EQ. 'SL') .AND. (ND(1:4) .EQ. 'LIFE')) GOTO 5000
0472    C
0473    	IF (LEN_DM .NE. 0) THEN
0474    		IF ((DM(1:1) .NE. '!') .AND. (NT(1:1) .EQ. 'U')) THEN
0475    			DM = '!'//DM(1:LEN_DM)//' '
0476    		ELSE IF ((DM(1:1) .NE. '.') .AND. (NT(1:1) .NE. 'U')) THEN
0477    			DM = '.'//DM(1:LEN_DM)//' '
0478    		ENDIF
0479    	ENDIF
0480    C
0481    C **  GENERATE A VMS MAIL ADDRESS.

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  18
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0482    C
0483    	ADR = ' '
0484    	CALL DYNDB$GEN_INFO( UI, DM, ND, NT, ADR, LA )
0485    C
0486    	IF (LA .EQ. 0) GOTO 5000
0487    C
0488    C **  DEFINE FUNCTION VARIABLE FOR VALID RETURN.
0489    C
0490    	FORWARD_MAIL = .TRUE.
0491    	JADR = 0
0492    C
0493    	BMSTR = ' '
0494    	NEWADR = ADR(1:LA)//' '
0495    	CALL BMS$FROM_PARSE( NEWADR, BMSTR, KB )
0496    C
0497    	CALL STR$UPCASE( BMSTR, BMSTR(2:(KB-5)))
0498    C
0499    	BCNT = BCNT + 1
0500    	ADRIDX(BCNT) = BMSTR(1:)
0501    	ADRNAM(BCNT) = NEW_USER
0502    C
0503    	IF (AC .EQ. '*B') THEN
0504    C
0505    		IADR = LA
0506    		JADR = LA
0507    C
0508    		CALL STR$TRIM( DRCTY, DRCTY, IDRCTY )
0509    		WRITE(19,2100) TO_USER, DRCTY
0510    C
0511    		GOTO 5000
0512    C
0513    	ELSE IF ((AC(1:1) .EQ. '*') .OR. (AC(1:1) .EQ. '$')) THEN
0514    C
0515    		IADR = 0
0516    C
0517    		DO LDR = 1,LA
0518    C
0519    			IADR = IADR + 1
0520    C
0521    			NEWADR(IADR:IADR) = ADR(LDR:LDR)
0522    C
0523    			IF (NEWADR(IADR:IADR) .EQ. '"') THEN
0524    				NEWADR((IADR+1):(IADR+2)) = '""'
0525    				IADR = IADR + 2
0526    			ENDIF
0527    C
0528    		ENDDO
0529    C
0530    		JADR = IADR
0531    C
0532    	ELSE
0533    C
0534    C **  DEFINE FUNCTION VARIABLE FOR INVALID RETURN.
0535    C
0536    		FORWARD_MAIL = .FALSE.
0537    C
0538    		GOTO 5000

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  19
                                                                12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

0539    C
0540    	ENDIF
0541    C
0542    C **  SET THE MAIL FORWARDING  FOR THE USER.
0543    C
0544    	CALL STR$UPCASE( NEWADR, NEWADR )
0545    	WRITE(24,2020) TO_USER, NEWADR
0546    C
0547    C **  SHOW THE MAIL FORWARDING FOR THE USER.
0548    C
0549    	WRITE(24,2030) TO_USER
0550    C
0551    C **  RETURN TO CALLING ROUTINE
0552    C
0553    5000	RETURN
0554    C
0555    2010	FORMAT(1X,'SET NOFORWARD/USER=',A<IQ>)
0556    2020	FORMAT(1X,'SET FORWARD/USER=',A<IQ>,5X,A<IADR>)
0557    2030	FORMAT(1X,'SHOW FORWARD/USER='A<IQ>)
0558    C
0559    2100	FORMAT(A12,8X,A<IDRCTY>)
0560    C
0561    	END




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  782   PIC CON REL LCL   SHR   EXE   RD NOWRT QUAD
  1 $PDATA                                 136   PIC CON REL LCL   SHR NOEXE   RD NOWRT QUAD
  2 $LOCAL                                3080   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD
  3 BMS_DATABASE                         92004   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD

    Total Space Allocated                96002


ENTRY POINTS

    Address  Type  Name          

  0-00000000  L*4  FORWARD_MAIL  


VARIABLES

    Address  Type  Name                                               Address  Type  Name                            

  2-000009AA  CHAR AC                                                   **      CHAR ACCESS_CONTROL                  
 AP-00000008@ CHAR ADR                                              3-00016760  I*4  ADRNUM                          
      **      CHAR AREA_CODE                                            **      CHAR AUTO_INFO                       
 AP-00000010@ I*4  BCNT                                             2-000009AC  CHAR BMSTR                           
      **      CHAR CITY_NAME                                            **      CHAR COMMENTS                        
      **      CHAR COUNTRY                                              **      I*4  DBCPY$COPY                      
      **      I*4  DBCRS$FIELD_IDENT                                    **      I*4  DBEVL$COMPOSE                   

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  20
01                                                              12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

      **      I*4  DBEVL$DEF_SORT                                       **      I*4  DBEVL$LOGICAL                   
      **      I*4  DBEVL$PARSE                                          **      I*4  DBEVL$SELECT                    
      **      I*4  DBEVL$SORT                                           **      I*4  DBEVL$UPDATE                    
      **      I*4  DBEVL$WHERE                                          **      CHAR DEPARTMENT                      
  2-0000098A  CHAR DM                                                   **      CHAR DOMAIN_ID                       
 AP-00000014@ CHAR DRCTY                                                **      CHAR FAX_INFO                        
      **      CHAR FRST_NAME                                        2-00000AD0  I*4  IADR                            
  2-00000AD4  I*4  IDRCTY                                               **      CHAR INSTITUTION                     
      **      CHAR IN_STR                                               **      CHAR IN_USER                         
  2-00000AB4  I*4  IQ                                                   **      I*4  IRQ                             
      **      I*4  ISTAT                                           AP-0000000C@ I*4  JADR                            
  2-00000ACC  I*4  KB                                               2-00000AAC  I*2  LA                              
      **      CHAR LAST_NAME                                            **      I*4  LDR                             
  2-00000AC8  I*4  LEN_AC                                           2-00000AC4  I*4  LEN_DM                          
  2-00000ABC  I*4  LEN_ND                                           2-00000AB8  I*4  LEN_NT                          
  2-00000AC0  I*4  LEN_UI                                               **      CHAR LIFE_USAGE                      
      **      CHAR LOCATION                                             **      CHAR MAIL_STOP                       
      **      CHAR MIDDLE_INIT                                          **      CHAR NAME_TITLE                      
  2-0000090E  CHAR ND                                                   **      CHAR NETWORK_ID                      
  2-0000093A  CHAR NEWADR                                           2-0000099E  CHAR NEW_USER                        
      **      CHAR NODE_ID                                              **      CHAR NOTIFY                          
  2-0000090C  CHAR NT                                                   **      CHAR OTHER_DOMAIN                    
      **      CHAR OTHER_NET                                            **      CHAR OTHER_NODE                      
      **      CHAR OTHER_USER                                           **      CHAR PHONE_NMBR                      
      **      CHAR PRIM_ACTIVITY                                        **      CHAR PRIM_WORK                       
      **      CHAR PRIN_EMPLOYER                                        **      CHAR REMOTE_USER                     
      **      CHAR SEC_ACTIVITY                                         **      CHAR SEC_WORK                        
      **      CHAR SHORT_INSTITUTE                                      **      CHAR SHOW_USER                       
      **      CHAR SPWN_STR                                             **      CHAR STATE                           
      **      CHAR STREET_ADR_1                                         **      CHAR STREET_ADR_2                    
      **      CHAR TESTLIST                                             **      CHAR TIME_ZONE                       
  2-0000092E  CHAR TO_USER                                          2-0000091A  CHAR UI                              
      **      CHAR USER_IDENT                                           **      I*4  USRDB$CLEAR_RECORD              
      **      I*4  USRDB$DELETE_RECORD                                  **      I*4  USRDB$GET_DUMP                  
      **      I*4  USRDB$GET_INIT                                       **      I*4  USRDB$GET_RECORD                
      **      I*4  USRDB$LOCATE                                         **      I*4  USRDB$PUT_DUMP                  
      **      I*4  USRDB$PUT_FIELD                                      **      I*4  USRDB$PUT_RECORD                
 AP-00000004@ CHAR USRDB$REC                                            **      I*4  USRDB$SQL                       
      **      I*4  USRDB$UPDATE_RECORD                                  **      CHAR ZIP_CODE                        


RECORDS

    Address   Name          Structure                             Bytes

  2-00000130  DBINT         USRDB$INTERNAL                         1024


ARRAYS

    Address  Type  Name                                  Bytes  Dimensions

  3-00002EE0  CHAR ADRIDX                                80000  (1000)
  3-00000000  CHAR ADRNAM                                12000  (1000)
  2-00000000  I*4  USRDB$_CROSS_FID                        152  (38)
  2-00000098  I*4  USRDB$_CROSS_FLEN                       152  (38)
  2-000002F8  CHAR USRDB$_DEFAULT                          228  (38)

FORWARD_MAIL                                                    15-Feb-1991 16:40:36	VAX FORTRAN V5.5-98                 Page  21
01                                                              12-Feb-1991 17:39:23	LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.FOR;42     

  2-0000023A  CHAR USRDB$_DMPSTR                           190  (38)
  2-00000000  CHAR USRDB$_IDENTS                           570  (38)


LABELS

    Address   Label       Address   Label       Address   Label       Address   Label       Address   Label   

  1-00000014  2010'     1-00000032  2020'     1-00000056  2030'     1-00000073  2100'     0-000002EB  5000    


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                              Type  Name                              Type  Name                            

        BMS$FROM_PARSE                          DYNDB$GEN_INFO                          STR$TRIM                        
        STR$UPCASE                         I*4  USRDB$GET_FIELD                 


OPTIONS QUALIFIERS

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /EXTEND_SOURCE  /F77  /NOG_FLOATING  /I4


COMMAND QUALIFIERS

  FOR/LIST/SHOW/EXTEND BMS_LISTER

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /DESIGN=(NOCOMMENTS,NOPLACEHOLDERS)
  /SHOW=(DICTIONARY,INCLUDE,MAP,PREPROCESSOR,SINGLE)
  /STANDARD=(NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX)
  /WARNINGS=(NODECLARATIONS,GENERAL,NOULTRIX,NOVAXELN)
  /CONTINUATIONS=19  /NOCROSS_REFERENCE  /NOD_LINES  /EXTEND_SOURCE
  /F77  /NOG_FLOATING  /I4  /NOMACHINE_CODE  /OPTIMIZE  /NOPARALLEL
  /NOANALYSIS_DATA
  /NODIAGNOSTICS
  /LIST=LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.LIS;8                                                              
  /OBJECT=LIB3:[SYSMAN.UTIL.BMS]BMS_LISTER.OBJ;7                                                              


COMPILATION STATISTICS

  Run Time:           8.79 seconds
  Elapsed Time:       11.49 seconds
  Page Faults:        1196
  Dynamic Memory:     1176 pages
