DELETE ATTENDEE_RECORD; REDEFINE RECORD ATTENDEE_RECORD 01 ATTENDEE. 03 MEETING_POINTER PIC X(46). 03 ATTENDEE_USERNAME PIC X(30). 03 ATTENDEE_NAME COMPUTED BY ATTENDEE_USERNAME VIA USERNAME_FULL_NAME_TABLE. 03 CONFLICT_FLAG PIC X. 03 RESPONSE PIC X(3). 03 COMMENT PIC X(40). 03 TRAVEL PIC X(16). 03 SCAN PIC X(96) EDIT_STRING IS T(48). 03 FILLER PIC X(19).; DELETE DOCDBL_REC; REDEFINE RECORD DOCDBL_REC USING 01 DOCDBL_START. 03 DOCNAM PIC X(30). 03 FILNAM PIC X(30). 03 TITLE PIC X(60). 03 AUTHOR PIC X(30). 03 TYPE PIC X(15). 03 FORMAT PIC X(15). 03 COMAND PIC X(15). 03 CREDAT PIC X(8). 03 MODDAT PIC X(8). 03 PURDAT PIC X(8). 03 CATEGO PIC X(15). 03 SETUP PIC X(15). 03 FILL1 PIC X(111). 03 FILL2 PIC X(70). 03 FILL3 PIC X(70). ; DELETE DOCDB_RECORD; REDEFINE RECORD DOCDB_RECORD USING 01 DOCDB_START. 03 DOCUMENT PIC X(36). 03 DOCNUM PIC X(6). 03 TITLE_HASH PIC X(6). 03 DAF_KEY PIC X(64). 03 DAPOINTER PIC X(1). 03 TITLE PIC X(72). 03 AUTHOR PIC X(30). 03 TYPE PIC X(12). 03 FILLER PIC X(273).; DELETE MEETING_RECORD; REDEFINE RECORD MEETING_RECORD USING 01 MEETING. 03 MEETING_POINTER PIC X(46). 03 REDEFINED_MEETING_POINTER REDEFINES MEETING_POINTER. 05 SCHEDULER_USERNAME PIC X(30). 05 START_YEAR PIC 9(4). 05 START_MONTH PIC 99. 05 START_DAY PIC 99. 05 START_TIME PIC 9999 EDIT_STRING IS 99":"99. 05 FILLER PIC 9(4). 05 SCHEDULER COMPUTED BY SCHEDULER_USERNAME VIA USERNAME_FULL_NAME_TABLE. 03 END_TIME PIC X(15). 03 REDEFINED_END_TIME REDEFINES END_TIME. 05 END_YEAR PIC 9(4). 05 END_MONTH PIC 99. 05 END_DAY PIC 99. 05 END_TIME PIC 9999 EDIT_STRING IS 99":"99. 05 FILLER PIC 9(3). 03 MEETING_PURPOSE PIC X(60) EDIT_STRING IS T(30). 03 LOCATION PIC X(30) EDIT_STRING IS T(15). 03 FILLER PIC X(2). 03 PRIORITY PIC X(2). 03 FILLER PIC X(1). 03 RESOURCES PIC X(30) EDIT_STRING IS T(15). 03 FROM_ADDRESS PIC X(40) EDIT_STRING IS T(20). 03 FILLER PIC X(50). ; DELETE PENDING_RECORD; REDEFINE RECORD PENDING_RECORD USING 01 PENDING_START. 03 MAIL_USER PIC X(64). 03 RECORD_CODE USAGE IS BYTE. 03 CONTINUATION_FLAG USAGE IS BYTE. 03 RECORD_LENGTH USAGE IS WORD. 03 ATTRIBUTE_COUNT USAGE IS WORD. 03 USAGE_COUNT USAGE IS WORD. 03 PENDING_ITEM PIC X(5). 03 FILLER PIC X(1923).; DELETE PROFILE_RECORD; REDEFINE RECORD PROFILE_RECORD USING 01 PROFILE. 03 USERNAME PIC X(30). 03 VMSUSER PIC X(12). 03 FULL_NAME PIC X(32). 03 TITLE PIC X(30). 03 DEPARTMENT PIC X(24). 03 STATUS PIC X(68). 03 PASSWORD PIC X(31). 03 PHONE PIC X(20). 03 FILLER PIC X(15). 03 USER_PRIVILEGES. 05 DCL PIC X. 05 SUP PIC X. 05 ERR PIC X. 05 CMD PIC X. 05 SRC PIC X. 05 CPHD PIC X. 05 LOG PIC X. 05 MNODE PIC X. 03 FILLER PIC X. 03 ADDRESS. 05 ADDR1 PIC X(30). 05 ADDR2 PIC X(30). 05 ADDR3 PIC X(30). 05 ADDR4 PIC X(30). 03 ZIP_CODE PIC X(15). 03 NOTIFICATION_FLAGS. 05 NOTIFY PIC X. 05 QBNOT PIC X. 05 QPNOT PIC X. 05 MAIL_READ_RECEIPT PIC X. 05 TICKLER PIC X. 05 ACTITEM PIC X. 03 DIRECT PIC X(68). 03 FRMLIB PIC X(68). 03 START PIC X(30). 03 EDITOR PIC X(10). 03 PRINT PIC X(15). 03 NODE PIC X(13). 03 PRINTER_PORT PIC X. 03 SET_MODE PIC X. 03 FILLER PIC X(97). 03 MAIL_MENU PIC X(10). 03 MAIDES PIC X(10). 03 CALTIMEINC PIC X(5). 03 TIMEFMT PIC X. 03 SETUSR PIC X. 03 STARTD PIC X. 03 NODAYS PIC X. 03 STARTH PIC X(7). 03 ENDH PIC X(7). 03 MEALS PIC X(7). 03 MEALE PIC X(7). 03 CALDAY PIC X. 03 USER_FLAGS. 05 UGFLAG1 PIC X. 05 UGFLAG2 PIC X. 05 UGFLAG3 PIC X. 05 UGFLAG4 PIC X. 05 UGFLAG5 PIC X. 05 UGFLAG6 PIC X. 05 UGFLAG7 PIC X. 05 UGFLAG8 PIC X. 05 UGFLAG9 PIC X. 05 UGFLAG10 PIC X. 03 CLASS PIC X(10). 03 LANGUAGE PIC X(20). 03 DIGITAL_RESERVED_FIELDS. 05 FILLER PIC X(138). ; DELETE SDAF_RECORD; REDEFINE RECORD SDAF_RECORD USING 01 SDAF_START. 03 DAF_KEY PIC X(64). 03 RECORD_CODE USAGE IS BYTE. 03 CONTINUATION_FLAG USAGE IS BYTE. 03 RECORD_LENGTH USAGE IS WORD. 03 ATTRIBUTE_COUNT USAGE WORD. 03 USAGE_COUNT USAGE IS WORD. 03 PENDING_ITEM PIC X(5). 03 FILLER PIC X(1923).; DELETE USER_CALENDAR_RECORD; REDEFINE RECORD USER_CALENDAR_RECORD USING 01 USER_CALENDAR. 03 START_DATE PIC X(16). 03 END_DATE PIC X(15). 03 MEETING_POINTER PIC X(46). 03 TYPE PIC X. 03 SCHEDULER PIC X. 03 FILLER PIC X. 03 CONFIDENTIAL PIC X. 03 FILLER PIC X. 03 DESCRIPTION PIC X(60). 03 FILLER PIC X(33). ;