!
! Modify this file to properly reflect the directory specifications and
! DATATRIEVE dictionaries at your site.  The comments will show where
! modification is necessary.
!

DELETE A1V24_PROFILE;
REDEFINE DOMAIN A1V24_PROFILE USING A1V24_PROFILE_REC
 ON OA$DATA_SHARE:PROFILE.DAT;

DELETE A1V24_PROFILE_REC;
REDEFINE RECORD A1V24_PROFILE_REC USING
01 A1V24_PROFILE_REC.
    05  USERNAME        PIC X(30).
    05  USER_INFO.
        10  TEMPLATE    PIC X(20).
        10  DIRECT      PIC X(68).
        10  FRMLIB      PIC X(68).
	10  NOT$IN$USE  PIC X(1).
        10  CREATE$FAIL PIC X(1).
        10  VMSUSR      PIC X(12).
	10  RESERVED2	PIC X(15).
	10  RESERVED_FOR_TCS	PIC X(1).
        10  SURNAME1    PIC X(40).
        10  FORENAME1   PIC X(16).
        10  INITIALS1   PIC X(5).
        10  FULNAM      PIC X(64).
        10  COMPANY     PIC X(64).
        10  DEPART      PIC X(32).
        10  LOCATION    PIC X(20).
        10  INT_LOCATION        PIC X(20).
        10  GENERATION  PIC X(3).
        10  TITLE       PIC X(40).
        10  PHONE       PIC X(32).
        10  INTERNAL_PHONE      PIC X(32).
    05  ADDRESS.
        10  ADDR1       PIC X(40).
        10  ADDR2       PIC X(40).
        10  ADDR3       PIC X(40).
        10  ADDR4       PIC X(40).
        10  ADDR5       PIC X(40).
        10  ADDR6       PIC X(40).
        10  COUNTRY_NAME        PIC X(40)
                                QUERY_NAME IS COUNTRY.
        10  ZIPCOD      PIC X(40).
    05  MAILDIR_INFO.
        10  FORENAME2   PIC X(16).
        10  FORENAME3   PIC X(16).
        10  FORENAME4   PIC X(16).
        10  FORENAME5   PIC X(16).
        10  SURNAME2    PIC X(40).
        10  SURNAME3    PIC X(40).
        10  INITIALS2   PIC X(5).
        10  INITIALS3   PIC X(5).
        10  INITIALS4   PIC X(5).
        10  INITIALS5   PIC X(5).
    05  NOTIFY.
        10  STATUS      PIC X(68).
        10  MAIL_REPLY  PIC X(31).
        10  MAIL_NOTIFY PIC X(1).
        10  QPNOT       PIC X(1).
        10  QBNOT       PIC X(1).
        10  TICKLER     PIC X(1).
        10  ACTITEM     PIC X(1).
        10  MAIL_FORWARD        PIC X(78).
	10  MAIL_FORWARD2	PIC X(78).
	10  MAIL_FORWARD3	PIC X(78).
	10  MAIL_FORWARD4	PIC X(78).
    05  MAIL.
        10  MAIDES      PIC X(10).
        10  MAIL_READ_RECEIPT   PIC X(1).
        10  MAIL_MENU   PIC X(10).
        10  DELETE_UNREAD       PIC X(1).
    05  ADMIN1.
        10  START       PIC X(30).
        10  EDITOR      PIC X(10).
        10  PASWRD      PIC X(31).
        10  ENFORCED_ARCHIVE    PIC X(1).
        10  MAIL_AREA   PIC X(8).
        10  AD_MIN      PIC X(1).
        10  DATE_FORMAT PIC X(1).
	10  IMAGE_DISPLAY	PIC X(1).
        10  TM_MENU     PIC X(10).
    05  PRIV.
        10  PRINTER     PIC X(15).
        10  PRINTER_PORT        PIC X(1).
        10  PRVDCL      PIC X(1).
        10  PRVSUP      PIC X(1).
        10  PRVERR      PIC X(1).
        10  PRVCMD      PIC X(1).
        10  PRVSRC      PIC X(1).
        10  PRVAPP      PIC X(1).
        10  CORP_PHONE  PIC X(1).
        10  PRVLOG      PIC X(1).
        10  MDFLAG      PIC X(1).
        10  MULTINODE   PIC X(1).
        10  SET_MODE    PIC X(1).
    05  CALENDAR.
        10  NODE        PIC X(13).
        10  KEYBOARD    PIC X(25).
        10  STARTD      PIC X(1).
        10  STARTH      PIC X(7).
        10  MEALS       PIC X(7).
        10  NODAYS      PIC X(1).
        10  ENDH        PIC X(7).
        10  MEALE       PIC X(7).
        10  TIMEFMT     PIC X(1).
        10  CALTIMEINC  PIC X(5).
        10  SETUSR      PIC X(1).
	10  OPER	PIC X(45).
        10  CALDAY      PIC X(1).
	10  DDSID	PIC X(32).
	10  RESERVED5	PIC X(43).
        10  CLASS       PIC X(10).
    05  UFLAG.
        10  UFLAG1      PIC X(1).
        10  UFLAG2      PIC X(1).
        10  UFLAG3      PIC X(1).
        10  UFLAG4      PIC X(1).
        10  UFLAG5      PIC X(1).
        10  UFLAG6      PIC X(1).
        10  UFLAG7      PIC X(1).
        10  UFLAG8      PIC X(1).
        10  UFLAG9      PIC X(1).
        10  UFLAG10     PIC X(1).
    05  ADMIN2.
        10  LANGUAGE    PIC X(20).
	10  RESERVED6	PIC X(50).
        10  QUOTA       PIC X(10).
        10  OVERDRAFT   PIC X(10).
        10  DOCCOUNT    PIC X(10).
        10  LOGINCHK    PIC X(1).
	10  UTILITY	PIC X(1).
;

DELETE A1V23_NETWORK;
REDEFINE DOMAIN A1V23_NETWORK USING A1V23_NETWORK_REC
 ON OA$DATA:NETWORK.DAT;

DELETE A1V23_PROFILE;
REDEFINE DOMAIN A1V23_PROFILE USING A1V23_PROFILE_REC
 ON OA$DATA_SHARE:PROFILE.DAT;
!
! File specification here will need to be modified.  If you are running
! ALL-IN-1 metering, modify the file specification to indicate your
! metering log file.
!

DELETE A1_METERING;
REDEFINE DOMAIN A1_METERING USING A1_METERING_REC
 ON $2$DUA1:[A1_METER]METER.LOG;

DELETE ARCHIVE_RECOVERY;
REDEFINE DOMAIN ARCHIVE_RECOVERY USING ARCHIVE_RECOVERY_REC
 ON OA$DATA:ARCHIVE_DOCS_PENDING_RECOVERY.DAT;

DELETE CM_SITELOG;
REDEFINE DOMAIN CM_SITELOG USING CM_SITELOG_REC
 ON OA$DATA_SHARE:CM_SITELOG.DAT;

DELETE SM_GENERIC_UTILITY_MASTER;
REDEFINE DOMAIN SM_GENERIC_UTILITY_MASTER USING SM_GENERIC_UTILITY_MASTER_REC
 ON OA$DATA_SHARE:OA$SM_UTIL_SCHEDULE.DAT;

DELETE A1V23_NETWORK_REC;
REDEFINE RECORD A1V23_NETWORK_REC USING
01 A1V23_NETWORK_REC.
    05  USERNAME        PIC X(30).
    05  NODE    PIC X(6).
    05  TIMESTAMP       PIC X(16).
    05  FULNAM  PIC X(32).
    05  TITLE   PIC X(30).
    05  DEPART  PIC X(24).
    05  PHONE   PIC X(20).
    05  ADDR1   PIC X(30).
    05  ADDR2   PIC X(30).
    05  ADDR3   PIC X(30).
    05  ADDR4   PIC X(30).
    05  ZIPCOD  PIC X(10).
    05  NET     PIC X(62).
    05  LAST_UPDATE     PIC X(23).
    05  MULTI_NODE      PIC X(1).
    05  DELETED PIC X(1).
;

DELETE A1V23_PROFILE_REC;
REDEFINE RECORD A1V23_PROFILE_REC USING
01 A1V23_PROFILE_REC.
    05  USERNAME        PIC X(30).
    05  USER_INFO.
        10  TEMPLATE    PIC X(20).
        10  DIRECT      PIC X(68).
        10  FRMLIB      PIC X(68).
	10  RESERVED1	PIC X(2).
        10  VMSUSR      PIC X(12).
	10  RESERVED2	PIC X(16).
        10  SURNAME1    PIC X(40).
        10  FORENAME1   PIC X(16).
        10  INITIALS1   PIC X(5).
        10  FULNAM      PIC X(64).
        10  COMPANY     PIC X(64).
        10  DEPART      PIC X(32).
        10  LOCATION    PIC X(20).
        10  INT_LOCATION        PIC X(20).
        10  GENERATION  PIC X(3).
        10  TITLE       PIC X(40).
        10  PHONE       PIC X(32).
        10  INTERNAL_PHONE      PIC X(32).
    05  ADDRESS.
        10  ADDR1       PIC X(40).
        10  ADDR2       PIC X(40).
        10  ADDR3       PIC X(40).
        10  ADDR4       PIC X(40).
        10  ADDR5       PIC X(40).
        10  ADDR6       PIC X(40).
        10  COUNTRY_NAME        PIC X(40)
                                QUERY_NAME IS COUNTRY.
        10  ZIPCOD      PIC X(40).
    05  MAILDIR_INFO.
        10  FORENAME2   PIC X(16).
        10  FORENAME3   PIC X(16).
        10  FORENAME4   PIC X(16).
        10  FORENAME5   PIC X(16).
        10  SURNAME2    PIC X(40).
        10  SURNAME3    PIC X(40).
        10  INITIALS2   PIC X(5).
        10  INITIALS3   PIC X(5).
        10  INITIALS4   PIC X(5).
        10  INITIALS5   PIC X(5).
    05  NOTIFY.
        10  STATUS      PIC X(68).
        10  MAIL_REPLY  PIC X(31).
        10  MAIL_NOTIFY PIC X(1).
        10  QPNOT       PIC X(1).
        10  QBNOT       PIC X(1).
        10  TICKLER     PIC X(1).
        10  ACTITEM     PIC X(1).
        10  MAIL_FORWARD        PIC X(66).
	10  RESERVED3	PIC X(246).
    05  MAIL.
        10  MAIDES      PIC X(10).
        10  MAIL_READ_RECEIPT   PIC X(1).
        10  MAIL_MENU   PIC X(10).
        10  DELETE_UNREAD       PIC X(1).
    05  ADMIN1.
        10  START       PIC X(30).
        10  EDITOR      PIC X(10).
        10  PASWRD      PIC X(31).
        10  ENFORCED_ARCHIVE    PIC X(1).
        10  MAIL_AREA   PIC X(8).
        10  AD_MIN      PIC X(1).
        10  DATE_FORMAT PIC X(1).
	10  MYSTERY1	PIC X(1).
        10  TM_MENU     PIC X(10).
    05  PRIV.
        10  PRINTER     PIC X(15).
        10  PRINTER_PORT        PIC X(1).
        10  PRVDCL      PIC X(1).
        10  PRVSUP      PIC X(1).
        10  PRVERR      PIC X(1).
        10  PRVCMD      PIC X(1).
        10  PRVSRC      PIC X(1).
        10  PRVAPP      PIC X(1).
        10  CORP_PHONE  PIC X(1).
        10  PRVLOG      PIC X(1).
        10  MDFLAG      PIC X(1).
        10  MULTINODE   PIC X(1).
        10  SET_MODE    PIC X(1).
    05  CALENDAR.
        10  NODE        PIC X(13).
        10  KEYBOARD    PIC X(25).
        10  STARTD      PIC X(1).
        10  STARTH      PIC X(7).
        10  MEALS       PIC X(7).
        10  NODAYS      PIC X(1).
        10  ENDH        PIC X(7).
        10  MEALE       PIC X(7).
        10  TIMEFMT     PIC X(1).
        10  CALTIMEINC  PIC X(5).
        10  SETUSR      PIC X(1).
	10  RESERVED4	PIC X(45).
        10  CALDAY      PIC X(1).
	10  RESERVED5	PIC X(75).
        10  CLASS       PIC X(10).
    05  UFLAG.
        10  UFLAG1      PIC X(1).
        10  UFLAG2      PIC X(1).
        10  UFLAG3      PIC X(1).
        10  UFLAG4      PIC X(1).
        10  UFLAG5      PIC X(1).
        10  UFLAG6      PIC X(1).
        10  UFLAG7      PIC X(1).
        10  UFLAG8      PIC X(1).
        10  UFLAG9      PIC X(1).
        10  UFLAG10     PIC X(1).
    05  ADMIN2.
        10  LANGUAGE    PIC X(20).
	10  RESERVED6	PIC X(50).
        10  QUOTA       PIC X(10).
        10  OVERDRAFT   PIC X(10).
        10  DOCCOUNT    PIC X(10).
        10  LOGINCHK    PIC X(1).
;

DELETE A1_METERING_REC;
REDEFINE RECORD A1_METERING_REC USING
01 A1_METERING_REC.
    05  PROCESS_ID      PIC X(8)
                        QUERY_NAME IS PID.
    05  RECORD_FORMAT_NUMBER    PIC X(2)
                                QUERY_NAME IS RECNUM.
    05  NODE_NAME       PIC X(6)
                        QUERY_NAME IS NODE.
    05  USERNAME        PIC X(20)
                        QUERY_NAME IS UNAME.
    05  START_TIME      PIC X(16)
                        QUERY_NAME IS STIME.
    05  INTERVAL_TIME   PIC X(16)
                        QUERY_NAME IS INTERVAL.
    05  SESSION_CLOSED  PIC X(1).
    05  LOG_COUNT       PIC X(6).
    05  METER_NAME      PIC X(16).
    05  OPERATION_COUNT PIC X(8).
    05  CPU_TIME        PIC X(8)
                        QUERY_NAME IS CPU.
    05  DIRECT_IO       PIC X(6)
                        QUERY_NAME IS DIO.
    05  BUFFERED_IO     PIC X(6)
                        QUERY_NAME IS BIO.
    05  PAGE_FAULTS     PIC X(6).
    05  ELAPSED_TIME    PIC X(8)
                        QUERY_NAME IS ETIME.
    05  APPLICATION     PIC X(8).
    05  FILLER		PIC X(115).
;

DELETE ARCHIVE_RECOVERY_REC;
REDEFINE RECORD ARCHIVE_RECOVERY_REC USING
01 ARCHIVE_RECOVERY_REC.
    05  DOCUMENT_ID     PIC X(64).
    05  USERNAME        PIC X(30).
    05  AREA_ID PIC X(30).
    05  REQUEST_DATE    PIC X(30).
    05  REQUEST_COUNT   PIC IS S9(3)
                        EDIT_STRING IS  -Z(2)9.
    05  TITLE   PIC X(62).
    05  AUTHOR  PIC X(30).
    05  DOCNUM  PIC X(6).
    05  FILLER  PIC X(55).
;

DELETE CM_SITELOG_REC;
REDEFINE RECORD CM_SITELOG_REC USING
01 CM_SITELOG_REC.
    05  ELEMENT PIC X(39).
    05  ELEMENT_TYPE    PIC X(5).
    05  LANGUAGE        PIC X(15).
    05  DESCRIPTION     PIC X(60).
    05  CREATED PIC X(11).
    05  CRE_TIME        PIC X(7).
    05  AUTHOR  PIC X(30).
    05  DISK_LOCATION   PIC X(70).
    05  LIVE    PIC X(1).
    05  REFERENCE       PIC X(30).
    05  APPLICATION     PIC X(30).
    05  LOCK_FLAG       PIC X(1).
    05  MODIFIED        PIC X(11).
    05  MOD_TIME        PIC X(7).
    05  MODIFIED_BY     PIC X(30).
    05  DESCR1  PIC X(70).
    05  DESCR2  PIC X(70).
    05  DESCR3  PIC X(70).
    05  DESCR4  PIC X(70).
    05  CM_COUNT        PIC X(4).
    05  ORIGINAL_FLB    PIC X(30).
    05  STANDARD_FLAG   PIC X(1).
    05  USER_EDITING    PIC X(30).
    05  LIVE_DISK_LOCATION      PIC X(70).
    05  DATE_MOVED_TO_LIVE      PIC X(12).
    05  LOCK_STATUS     PIC X(20).
    05  LIB_FLAG        PIC X(1).
    05  LIVE_EQ_DEV     PIC X(1).
    05  DIFF_LOC        PIC X(1).
    05  CM_FILLER       PIC X(47).
;

DELETE MAIL_LOG_REC;

DELETE SM_GENERIC_UTILITY_MASTER_REC;
REDEFINE RECORD SM_GENERIC_UTILITY_MASTER_REC USING
01 SM_GENERIC_UTILITY_MASTER_REC.
    05  SA_UTIL_SCHED   PIC IS S9(16)
                        EDIT_STRING IS  -9(16).
    05  SA_UTIL_NAME    PIC X(30).
    05  SA_UTIL_ENTRY_NUMBER    PIC IS S9(5)
                                EDIT_STRING IS  -9(5).
    05  SA_UTIL_QUEUE   PIC X(30).
    05  SA_UTIL_UI_SCHED        PIC X(24).
    05  SA_UTIL_SCHED_NAME      PIC X(24).
    05  SA_UTIL_FRQ     PIC IS S9(3)
                        EDIT_STRING IS  -9(3).
    05  SA_UTIL_LOG     PIC X(64).
    05  SA_UTIL_SA_LOG  PIC X(64).
    05  SA_UTIL_RUN_TM  PIC X(8).
    05  SA_UTIL_CMP_STS PIC IS S9(1)
                        EDIT_STRING IS  -9(1).
    05  SA_UTIL_CUR_STS PIC IS S9(1)
                        EDIT_STRING IS  -9(1).
    05  SA_UTIL_ACNT_REP        PIC X(30).
    05  SA_UTIL_SCHED_BY        PIC X(30).
    05  SA_FILL1        PIC X(70).
    05  SA_FILL2        PIC X(70).
    05  SA_FILL3        PIC X(70).
    05  SA_FILL4        PIC X(70).
    05  SA_FILL5        PIC X(70).
    05  SA_FILL6        PIC X(70).
    05  SA_FILL7        PIC X(70).
    05  SA_FILL8        PIC X(70).
    05  SA_FILL9        PIC X(70).
;

DELETE A1V23_DEPARTMENTS;
REDEFINE PROCEDURE A1V23_DEPARTMENTS
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
DELETE A1_DIR_AND_NAME;
REDEFINE PROCEDURE A1_DIR_AND_NAME
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
         WITH  USERNAME NOT CONTAINING "@"
         AND USERNAME NOT CONTAINING ":"
         AND DIRECT NOT_EQUAL "                                                                    "
SORTED BY USERNAME ASCENDING
          ON A1_DIR_AND_NAME.OUT ;
SET COLUMNS_PAGE = 132 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 32 , DIRECT ("DIRECT")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE A1_METER_REPORT;
REDEFINE PROCEDURE A1_METER_REPORT
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1_METERING SHARED READ ;
REPORT A1_METERING
SORTED BY NODE_NAME ASCENDING  ,
          START_TIME ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 132 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "ALL-IN-1 Metering" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXX ,
      COL 22 , NODE_NAME ("NODE"/"NAME")  USING XXXXXX ,
      COL 29 , START_TIME ("START"/"TIME")  USING XXXXXXXXXXXXXXXX ,
      COL 46 , ELAPSED_TIME ("ELAPSED"/"TIME")  USING XXXXXXXX ,
      COL 55 , CPU_TIME ("CPU"/"TIME")  USING XXXXXXXX ,
      COL 64 , DIRECT_IO ("DIRECT"/"IO")  USING XXXXXX ,
      COL 71 , BUFFERED_IO ("BUFFERED"/"IO")  USING XXXXXX ,
      COL 80 , PAGE_FAULTS ("PAGE"/"FAULTS")  USING XXXXXX ;
AT BOTTOM OF NODE_NAME
PRINT
      SKIP 1 ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE A1_PRIV_LIST;
REDEFINE PROCEDURE A1_PRIV_LIST
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
         WITH  PRVSUP EQUAL "Y"
         OR PRVERR EQUAL "Y"
         OR PRVCMD EQUAL "Y"
         OR PRVAPP EQUAL "Y"
SORTED BY USERNAME ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "ALL-IN-1 privileges" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 32 , PRVDCL ("PRVDCL")  USING X ,
      COL 39 , PRVSUP ("PRVSUP")  USING X ,
      COL 46 , PRVERR ("PRVERR")  USING X ,
      COL 53 , PRVCMD ("PRVCMD")  USING X ,
      COL 60 , PRVSRC ("PRVSRC")  USING X ,
      COL 67 , PRVAPP ("PRVAPP")  USING X ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE A1_USERNAMES;
REDEFINE PROCEDURE A1_USERNAMES
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
         WITH  USERNAME NOT CONTAINING "@"
         AND USERNAME NOT CONTAINING ":"
SORTED BY USERNAME ASCENDING
          ON A1_USERNAMES.LIS ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE A1_USER_DIRECTORY;
REDEFINE PROCEDURE A1_USER_DIRECTORY
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
SORTED BY DIRECT ASCENDING
          ON A1_DIRECTORY.LIS ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , DIRECT ("DIRECT")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE A1_VMS_USER_NAMES;
REDEFINE PROCEDURE A1_VMS_USER_NAMES
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
         WITH  USERNAME NOT CONTAINING "@"
         AND USERNAME NOT CONTAINING ":"
         AND UFLAG10 NOT_EQUAL "X"
SORTED BY VMSUSR ASCENDING
          ON A1_VMS_USERNAMES.OUT ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 32 , VMSUSR ("VMSUSR")  USING XXXXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE ARCHIVE_DOCUMENTS;
REDEFINE PROCEDURE ARCHIVE_DOCUMENTS
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY SM_GENERIC_UTILITY_MASTER SHARED READ ;
REPORT SM_GENERIC_UTILITY_MASTER
         WITH  SA_UTIL_SCHED_NAME CONTAINING "ADS"
         AND SA_UTIL_CUR_STS EQUAL "0"
SORTED BY SA_UTIL_SCHED ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 132 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , SA_UTIL_SCHED ("SA_UTIL_SCHED")  USING -ZZZZZZZZZZZZZZZ9 ,
      COL 19 , SA_UTIL_SCHED_NAME ("SA_UTIL_SCHED_NAME")  USING XXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 44 , SA_UTIL_CUR_STS ("STS")  USING -9 ,
      COL 48 , SA_FILL1 ("SA_FILL1")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE ARCHIVE_RECOVERY_LIST;
REDEFINE PROCEDURE ARCHIVE_RECOVERY_LIST
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY ARCHIVE_RECOVERY SHARED READ ;
REPORT ARCHIVE_RECOVERY
SORTED BY DOCUMENT_ID ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "Documents Requested from Offline ALL-IN-1 Archives" ;
PRINT
      COL 1 , DOCUMENT_ID ("DOCUMENT_ID")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE BAD_MAILDES;
REDEFINE PROCEDURE BAD_MAILDES
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
         WITH  MAIDES NOT_EQUAL "ALLIN1"
         AND MAIDES NOT_EQUAL "ALL-IN-1"
SORTED BY USERNAME ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "Bad Mail Destinations" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 32 , MAIDES ("MAIDES")  USING XXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE COUNT_THE_MAIL;
REDEFINE PROCEDURE COUNT_THE_MAIL
!
! This procedure runs through a version of the ALL-IN-1 message traffic
! log (after the header information has been removed) and gets
! some mail traffic statistics to help monitor the system.
!
DECLARE FIRST_DATE	PIC X(11).
DECLARE LAST_DATE	PIC X(11).
DECLARE FIRST_TIME	PIC X(8).
DECLARE LAST_TIME	PIC X(8).
!
!
! Modify DTR dictionary specification for your site.
!
READY CDD$TOP.ENGCMP$USERS.SIMON.A1V23.MAIL_LOG SHARED READ
FIND MAIL_LOG
SELECT FIRST
FIRST_DATE	= DSENT
FIRST_TIME	= TSENT
SELECT LAST
LAST_DATE	= DSENT
LAST_TIME	= TSENT
REPORT CURRENT SORTED BY SENDER ON MAILCOUNT.LIS
SET REPORT_NAME = "ALL-IN-1 Mail Traffic Analysis Report"
AT BOTTOM OF SENDER PRINT COL 2, SENDER, COL 33,
   COUNT("Total"/"Messages") USING Z,ZZ9, COL 45,
   TOTAL LOCAL("Total"/"Local"/"Addrs") USING Z,ZZ9, COL 60,
   TOTAL REMOTE("Total"/"Remote"/"Addrs") USING Z,ZZ9, SKIP
AT BOTTOM OF REPORT PRINT SKIP 2, COL 2, "*****",
   COL 25, "MAIL TRAFFIC ANALYSIS SUMMARY", SKIP,
   COL 25, "=============================", SKIP 2,
   COL 10, "From:", COL 18,FIRST_TIME(-), COL 28,FIRST_DATE(-),
   COL 45, "To:",   COL 50,LAST_TIME(-),  COL 60,LAST_DATE(-), SKIP 2,
   COL 10, "Total Messages:", COL 40, COUNT(-) USING ZZ,ZZ9, SKIP,
   COL 10, "Total Remote Addressees:", COL 40, TOTAL REMOTE(-) USING
ZZ,ZZ9, SKIP,
   COL 10, "Total Local Addressees:",  COL 40, TOTAL LOCAL(-) USING
ZZ,ZZ9, SKIP 2
END_REPORT
END_PROCEDURE

DELETE DOCCOUNT;
REDEFINE PROCEDURE DOCCOUNT
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
SORTED BY USERNAME ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "ALL-IN-1 Document Counts" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 32 , DOCCOUNT ("DOCCOUNT")  USING XXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE DOCUMENT_COUNT;
REDEFINE PROCEDURE DOCUMENT_COUNT
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
SORTED BY DOCCOUNT DESCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 32 , DOCCOUNT ("DOCCOUNT")  USING XXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE EMPTY_WASTEBASKETS;
REDEFINE PROCEDURE EMPTY_WASTEBASKETS
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY SM_GENERIC_UTILITY_MASTER SHARED READ ;
REPORT SM_GENERIC_UTILITY_MASTER
         WITH  SA_UTIL_SCHED_NAME CONTAINING "EW"
         AND SA_UTIL_CUR_STS EQUAL "0"
SORTED BY SA_UTIL_SCHED ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 132 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , SA_UTIL_SCHED ("SA_UTIL_SCHED")  USING -ZZZZZZZZZZZZZZZ9 ,
      COL 19 , SA_UTIL_SCHED_NAME ("SA_UTIL_SCHED_NAME")  USING XXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 44 , SA_UTIL_CUR_STS ("STS")  USING -9 ,
      COL 51 , SA_FILL1 ("SA_FILL1")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE MAILDEST;
REDEFINE PROCEDURE MAILDEST
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
         WITH  MAIDES NOT_EQUAL "ALLIN1"
         AND MAIDES NOT_EQUAL "ALL-IN-1"
SORTED BY USERNAME ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 32 , MAIDES ("MAIDES")  USING XXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE MISMATCHED_USERNAMES;
REDEFINE PROCEDURE MISMATCHED_USERNAMES
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
         WITH  USERNAME NOT_EQUAL VMSUSR
SORTED BY USERNAME ASCENDING  ,
          VMSUSR ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 32 , VMSUSR ("VMSUSR")  USING XXXXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE NO_NAMES;
REDEFINE PROCEDURE NO_NAMES
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V23_PROFILE SHARED READ ;
REPORT A1V23_PROFILE
         WITH  SURNAME1 EQUAL "                                        "
         OR FORENAME1 EQUAL "                "
SORTED BY USERNAME ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 132 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "Users with Undefined First and Last Names" ;
PRINT
      COL 1 , USERNAME ("USERNAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 32 , FORENAME1 ("FORENAME1")  USING XXXXXXXXXXXXXXXX ,
      COL 49 , INITIALS1 ("INITIALS1")  USING XXXXX ,
      COL 59 , SURNAME1 ("SURNAME1")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE SM_SITELOG_LIST;
REDEFINE PROCEDURE SM_SITELOG_LIST
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY CM_SITELOG SHARED READ ;
REPORT CM_SITELOG
SORTED BY ELEMENT ASCENDING  ,
          ELEMENT_TYPE ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 132 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , ELEMENT ("ELEMENT")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 41 , ELEMENT_TYPE ("ELEMENT_TYPE")  USING XXXXX ,
      COL 54 , DISK_LOCATION ("DISK_LOCATION")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE UTILITY_MASTER_LIST;
REDEFINE PROCEDURE UTILITY_MASTER_LIST
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY SM_GENERIC_UTILITY_MASTER SHARED READ ;
REPORT SM_GENERIC_UTILITY_MASTER
SORTED BY SA_UTIL_NAME ASCENDING  ,
          SA_UTIL_SCHED ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 132 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , SA_UTIL_SCHED ("SA"/"UTIL"/"SCHED")  USING -9999999999999999 ,
      COL 19 , SA_UTIL_NAME ("SA"/"UTIL"/"NAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 50 , SA_FILL1 ("SA"/"FILL1")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 121 , SA_UTIL_CUR_STS ("SA"/"UTIL"/"CUR"/"STS")  USING -9 ;
AT BOTTOM OF SA_UTIL_NAME
PRINT
      SKIP 1 ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE UTILITY_SCHEDULE_LIST2;
REDEFINE PROCEDURE UTILITY_SCHEDULE_LIST2
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY SM_GENERIC_UTILITY_MASTER SHARED READ ;
REPORT SM_GENERIC_UTILITY_MASTER
SORTED BY SA_UTIL_NAME ASCENDING  ,
          SA_UTIL_SCHED ASCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 132 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , SA_UTIL_SCHED ("SA"/"UTIL"/"SCHED")  USING -9999999999999999 ,
      COL 19 , SA_UTIL_NAME ("SA"/"UTIL"/"NAME")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 50 , SA_FILL2 ("SA"/"FILL2")  USING XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ,
      COL 121 , SA_UTIL_CUR_STS ("SA"/"UTIL"/"CUR"/"STS")  USING -9 ;
AT BOTTOM OF SA_UTIL_NAME
PRINT
      SKIP 1 ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE A1V22_PROFILE;
REDEFINE DOMAIN A1V22_PROFILE USING A1V22_PROFILE_REC ON OA$DATA:PROFILE.DAT;

DELETE A1_PENDING;
REDEFINE DOMAIN A1_PENDING USING A1_PENDING_RECORD ON OA$DATA:PENDING.DAT;

DELETE A1V22_PROFILE_REC;
REDEFINE RECORD A1V22_PROFILE_REC OPTIMIZE
01 A1V22_PROFILE_REC.
!
! Read the ALL-IN-1 user profile. Good for quick lookups of user names,
! which have DCL, which have logging, or for modifications (turn DCL
! on or off for everybody, etc.).  I recommend NOT using this to add
! or delete users.
!
    10 USER PIC X(30).
    10 USER_INFO.
	20 VMSNAM PIC X(12).
	20 FULNAM PIC X(32).
	20 TITLE PIC X(30).
	20 DEPART PIC X(24).
	20 STATUS PIC X(68) EDIT_STRING T(24).
	20 PASWRD PIC X(31).
	20 PHONE PIC X(20).
    10 RESERVED PIC X(15).
    10 PRIV.
	20 DCL PIC X.
	20 SUP PIC X.
	20 ERR PIC X.
	20 CMD PIC X.
	20 SRC PIC X.
	20 CPHD PIC X.
	20 LOG PIC X.
	20 MULTI_NODE PIC X.
	20 RSVD_FOR_TCS PIC X.
    10 ADDRESS.
	20 ADDR1 PIC X(30).
	20 ADDR2 PIC X(30).
	20 ADDR3 PIC X(30).
	20 ADDR4 PIC X(30).
	20 ZIPCOD PIC X(15).
    10 NOTIFY.
	20 NOTICE PIC X.
	20 BATCH_NOT PIC X.
	20 PRINT_NOT PIC X.
	20 MAIL_READ_REC PIC X.
	20 TICKLER PIC X.
	20 ACTITEM PIC X.
    10 DIRECTORY PIC X(68) EDIT_STRING T(40).
    10 FORMLIB PIC X(68) EDIT_STRING T(24).
    10 INIT_FORM PIC X(30).
    10 EDITOR PIC X(10).
    10 PRINTER PIC X(15).
    10 NODE PIC X(13).
    10 PRINT_PORT PIC X.
    10 TERM_MODE PIC X.
    10 MAIL.
	20 MAIL_FORWARD PIC X(66) EDIT_STRING T(24).
	20 MAIL_REPLY PIC X(31).
	20 MAIL_MENU PIC X(10).
	20 MAIDES PIC X(10).
    10 CALENDAR.
	20 CALTIMEING PIC X(5).
	20 SETUSR PIC X.
	20 YESDAYS PIC X.
	20 STARTD PIC X.
	20 ENDD PIC X.
	20 STARTH PIC X(7).
	20 ENDH PIC X(7).
	20 MEALS PIC X(7).
	20 MEALE PIC X(7).
	20 CALDAY PIC X.
    10 UFLAG.
	20 UFLAG1 PIC X.
	20 UFLAG2 PIC X.
	20 UFLAG3 PIC X.
	20 UFLAG4 PIC X.
	20 UFLAG5 PIC X.
	20 UFLAG6 PIC X.
	20 UFLAG7 PIC X.
	20 UFLAG8 PIC X.
	20 UFLAG9 PIC X.
	20 UFLAG10 PIC X.
	20 CLASS PIC X(10).
    10 LANGUAGE PIC X(20).
    10 END PIC X(138) EDIT_STRING T(24).
;

DELETE A1_PENDING_RECORD;
REDEFINE RECORD A1_PENDING_RECORD OPTIMIZE
01 A1_PENDING_REC.
!
! Read the ALL-IN-1 PENDING data file.
!
! B. Z. Lederman
!
    10 PENDING_KEY PIC X(65) EDIT_STRING T(32).
    10 C USAGE BYTE EDIT_STRING SZZ9.
    10 A USAGE WORD EDIT_STRING SZZ,ZZ9.
    10 B USAGE WORD EDIT_STRING SZZ,ZZ9.
    10 D PIC XX.
    10 HIDE.			! number is ASCII characters with leading
	20 FILLER PIC X(8).	! spaces, so we do this to convert it to
    10 REAL REDEFINES HIDE.	! a valid number.
	20 E PIC X(8).
    10 ENUM PIC 9(8) COMPUTED BY E EDIT_STRING ZZ,ZZZ,ZZ9.
    10 FILLER PIC X(1920).
;

DELETE NON_ZERO_PENDING_COUNTS;
REDEFINE PROCEDURE NON_ZERO_PENDING_COUNTS
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
!
! Modify DTR dictionary specification for your site.
!
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY AI1PENDING SHARED READ ;
REPORT AI1PENDING
         WITH  A NOT_EQUAL "0"
         OR B NOT_EQUAL "0"
SORTED BY A DESCENDING ,
          B DESCENDING ,
          C DESCENDING
          ON *."the report output device and filespec " ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "Users with Non-Zero Pending ALL-IN-1 Mail Counts" ;
PRINT
      COL 1 , PENDING_KEY ("PENDING_KEY")  USING TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT ,
      COL 34 , C ("C")  USING SZZ9 ,
      COL 39 , A ("A")  USING SZZ,ZZ9 ,
      COL 47 , B ("B")  USING SZZ,ZZ9 ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE

DELETE A1V22_USER_DIRECTORY;
REDEFINE PROCEDURE A1V22_USER_DIRECTORY
SET SEMICOLON ;
SET SEARCH ;
SET LOCK_WAIT ;
SET DICTIONARY CDD$TOP.ENGCMP$USERS.SIMON.A1V23 ;
READY A1V22_PROFILE SHARED READ ;
REPORT A1V22_PROFILE
SORTED BY DIRECTORY ASCENDING
          ON A1_DIRECTORY.LIS ;
SET COLUMNS_PAGE = 80 ;
SET LINES_PAGE = 55 ;
SET REPORT_NAME = "" ;
PRINT
      COL 1 , DIRECTORY ("DIRECTORY") ;
AT BOTTOM OF REPORT
PRINT
      SKIP 2 ;
END_REPORT ;
SET NO SEMICOLON ;
SET NO SEARCH ;
FINISH ALL ;
END_PROCEDURE