.PSECT	FDB
	.TITLE	FDB - ALL MAIL FDBS
	.IDENT	/781108/
;
;    THIS CODE HAS BEEN DEVELOPED BY THE COMPUTING
;    GROUP OF THE ATMOSPHERIC SCIENCES DIVISION,
;    ALBERTA RESEARCH. THIS WORK FUNDED BY THE
;    ALBERTA WEATHER MODIFICATION BOARD.
;
;    THERE IS EXPLICITLY NO COPYRIGHT ON THIS SOFTWARE,
;    AND ITS DISTRIBUTION IS ENCOURAGED. NO RESPONSIBILITY
;    NOR GUARANTEE IS MADE OR ASSUMED BY THE AUTHOR, OR
;    BY ALBERTA RESEARCH.
;
;    SUGGESTIONS OR CHANGES ARE INVITED, AND WILL BE
;    DISTRIBUTED TO OTHER USERS OF THIS SOFTWARE THROUGH
;    THE DECUS IAS/RSX SPECIAL INTEREST GROUP.
;
;
; VERSION:	781020
; WRITTEN BY:	W. KORENDYK
; DATE WRITTEN:	30-OCT-78
; 
;	
;
; MODIFICATIONS:
;
; CODE		NAME		DATE
;

;+
;
; *** - FDB -- FDBS OF ACTIVE MAIL FILES.
;
; THIS PSECT CONTAINS THE FDBS OF ALL THE FILES USED
; BY MAIL. 
;
;-
	.DSABL	GBL
	.MCALL	FCSMC$,FDOF$L,FCSBT$
	.MCALL	MAIGBL,MAIDSD
	MAIGBL
	FCSMC$
	FDOF$L
	FCSBT$
;
; THE INPUT FILE ... USED WITH USER SPECIFIED INPUT FILE,
; OR WITH THE INTERNALLY CREATED TEMPORARY FILE.
;
INPFDB:	FDBDF$			;SPACE FOR FDB
	FDAT$A	R.VAR,FD.CR	;VARIABLE LENGTH RECORD
	FDRC$A	
	FDOP$A	INPLUN,,INPDFN	;
	FDBF$A	INPEVF
;
INPDFN:	NMBLK$	,TXT,,SY,0	;DEFAULT FILE NAME
;
; THE OUTPUT FILE ... THIS IS THE USER'S MAIL BOX, A FILE
; KEPT ON A STANDARD DEVICE AND UIC FOR ALL MAIL OWNERS.
;
OUTFDB:	FDBDF$			;SPACE FOR THE FDB
	FDAT$A	R.VAR,FD.CR,,-1,-1
	FDRC$A			;
	FDOP$A	OUTLUN,MAIDSD	;
	FDBF$A	OUTEVF		;
;
MAIDSD:	MAIDSD			;THE MAIL BOX DSDS
;
; THE INDIRECT FILE ... A FILE WHICH CONTAINS A LIST OF
; USER ACCOUNT NAMES/UICS FOR MULTIPLE MAILING.
;
INDFDB:	FDBDF$			;
	FDAT$A	R.VAR,FD.CR	;
	FDRC$A			;
	FDOP$A	INDLUN,,INDDFN	;
	FDBF$A	INDEVF		;
;
INDDFN:	NMBLK$	,MLS,,SY,0	;THE DEFAULT NAME
;
	FSRSZ$	4
	.END