! A "quick and dirty" definition to read the VMS MAIL file and
! get pending mail counts.
!
! B. Z. Lederman
!
DELETE VMSMAIL_RECORD;
REDEFINE RECORD VMSMAIL_RECORD OPTIMIZE
01 VMSMAIL_REC.
    10 USER_NAME PIC X(31).
    10 FILLER PIC XX.
    10 UNREAD_COUNT USAGE WORD EDIT_STRING Z,ZZ9.
    10 FILLER PIC X(31).
    10 LEN USAGE WORD EDIT_STRING ZZ9.
    10 FULL_NAME PIC X(31).
;

DELETE MAIL;
REDEFINE DOMAIN VMS_MAIL USING VMSMAIL_RECORD ON SYS$SYSTEM:VMSMAIL.DAT;