00001 ***** 05/22/01 00002 * DTSIELEN 00003 * DTSIELEN ELECRONIC MEDIA MASTER FILE RECORD LENGTHS. LV012 00004 * DTSIELEN 00005 * ELEN-*-REC-LEN IS THE LENGTH OF THE DTSIELEN 00006 * COMPLETE RECORD. DTSIELEN 00007 * DTSIELEN 00008 * DTSIELEN 00009 * 01/18/2001 INITIAL DEVELOPMENT. GD. DTSIELEN 00010 * DTSIELEN 00011 * DTSIELEN 00012 * TO ADD A NEW RECORD TYPE TO THE MASTER FILE: DTSIELEN 00013 * DTSIELEN 00014 * 1. MODIFY DTSIELEN. DTSIELEN 00015 * DTSIELEN 00016 * 2. MODIFY DTSIESKL. DTSIELEN 00017 * DTSIELEN 00018 * 3. CREATE DTSIE*** (WHERE *** IS THE IDENTIFIER OF DTSIELEN 00019 * THE NEW RECORD TYPE). DTSIELEN 00020 * DTSIELEN 00021 * 4. COMPILE DTSCU835, DTSBU935, DTSBD998 DTSIELEN 00022 * DTSIELEN 00023 * DTSIELEN 00024 ***** DTSIELEN 00025 DTSIELEN 00026 10 ELEN-LENGTHS-AREA. DTSIELEN 00027 DTSIELEN 00028 ***** DTSIELEN 00029 * REC-TYPE = 01 DTSIELEN 00030 ***** DTSIELEN 00031 15 ELEN-HDR-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIELEN 00032 15 ELEN-HDR-REC-LEN PIC S9(04) COMP VALUE +64. DTSIELEN 00033 15 ELEN-HDR-AIX-IND PIC X(01) VALUE 'N'. DTSIELEN 00034 15 ELEN-HDR-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN 00035 15 ELEN-HDR-FILE-ID PIC S9(04) COMP VALUE +1. DTSIELEN 00036 15 ELEN-HDR-PREFIX PIC X(04) VALUE 'EHDR'.DTSIELEN 00037 DTSIELEN 00038 ***** DTSIELEN 00039 * REC-TYPE = 02 DTSIELEN 00040 ***** DTSIELEN 00041 15 ELEN-PRF-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIELEN 00042 15 ELEN-PRF-REC-LEN PIC S9(04) COMP VALUE +769. DTSIELEN 00043 15 ELEN-PRF-AIX-IND PIC X(01) VALUE 'Y'. DTSIELEN 00044 15 ELEN-PRF-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN 00045 15 ELEN-PRF-FILE-ID PIC S9(04) COMP VALUE +1. DTSIELEN 00046 15 ELEN-PRF-PREFIX PIC X(04) VALUE 'EPRF'.DTSIELEN 00047 DTSIELEN 00048 ***** DTSIELEN 00049 * REC-TYPE = 03 DTSIELEN 00050 ***** DTSIELEN 00051 15 ELEN-LOG-KEY-LEN PIC S9(04) COMP VALUE +12. DTSIELEN 00052 15 ELEN-LOG-REC-LEN PIC S9(04) COMP VALUE +110. DTSIELEN 00053 15 ELEN-LOG-AIX-IND PIC X(01) VALUE 'Y'. DTSIELEN 00054 15 ELEN-LOG-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN 00055 15 ELEN-LOG-FILE-ID PIC S9(04) COMP VALUE +2. DTSIELEN 00056 15 ELEN-LOG-PREFIX PIC X(04) VALUE 'ELOG'.DTSIELEN 00057 DTSIELEN 00058 ***** DTSIELEN 00059 * REC-TYPE = 04 DTSIELEN 00060 ***** DTSIELEN 00061 15 ELEN-MSG-KEY-LEN PIC S9(04) COMP VALUE +24. DTSIELEN 00062 15 ELEN-MSG-REC-LEN PIC S9(04) COMP VALUE +132. DTSIELEN 00063 15 ELEN-MSG-AIX-IND PIC X(01) VALUE 'N'. DTSIELEN 00064 15 ELEN-MSG-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN 00065 15 ELEN-MSG-FILE-ID PIC S9(04) COMP VALUE +2. DTSIELEN 00066 15 ELEN-MSG-PREFIX PIC X(04) VALUE 'EMSG'.DTSIELEN 00067 DTSIELEN 00068 ***** DTSIELEN 00069 * REC-TYPE = 05 DTSIELEN 00070 ***** DTSIELEN 00071 15 ELEN-EMH-KEY-LEN PIC S9(04) COMP VALUE +23. DTSIELEN 00072 15 ELEN-EMH-REC-LEN PIC S9(04) COMP VALUE +64. DTSIELEN 00073 15 ELEN-EMH-AIX-IND PIC X(01) VALUE 'Y'. DTSIELEN 00074 15 ELEN-EMH-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN 00075 15 ELEN-EMH-FILE-ID PIC S9(04) COMP VALUE +3. DTSIELEN 00076 15 ELEN-EMH-PREFIX PIC X(04) VALUE 'EEMH'.DTSIELEN 00077 DTSIELEN 00078 ***** DTSIELEN 00079 * REC-TYPE = 06 DTSIELEN 00080 ***** DTSIELEN 00081 15 ELEN-TRG-KEY-LEN PIC S9(04) COMP VALUE +24. DTSIELEN 00082 15 ELEN-TRG-REC-LEN PIC S9(04) COMP VALUE +64. DTSIELEN 00083 15 ELEN-TRG-AIX-IND PIC X(01) VALUE 'N'. DTSIELEN 00084 15 ELEN-TRG-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN 00085 15 ELEN-TRG-FILE-ID PIC S9(04) COMP VALUE +2. DTSIELEN 00086 15 ELEN-TRG-PREFIX PIC X(04) VALUE 'ETRG'.DTSIELEN 00087 DTSIELEN 00088 DTSIELEN 00089 DTSIELEN 00090 10 FILLER REDEFINES ELEN-LENGTHS-AREA. DTSIELEN 00091 15 ELEN-LENGTH OCCURS 6 TIMES DTSIELEN 00092 INDEXED BY ELEN-IDX. DTSIELEN 00093 20 ELEN-KEY-LEN PIC S9(04) COMP. DTSIELEN 00094 20 ELEN-REC-LEN PIC S9(04) COMP. DTSIELEN 00095 20 ELEN-AIX-IND PIC X(01). DTSIELEN 00096 88 ELEN-AIX-YES-88 VALUE 'Y'. DTSIELEN 00097 88 ELEN-AIX-NO-88 VALUE 'N'. DTSIELEN 00098 20 ELEN-DEL-IND PIC X(01). DTSIELEN 00099 88 ELEN-DEL-EPRF-OK-88 VALUE 'Y'. DTSIELEN 00100 88 ELEN-DEL-EPRF-NOT-OK-88 VALUE 'N'. DTSIELEN 00101 20 ELEN-FILE-ID PIC S9(04) COMP. DTSIELEN 00102 20 ELEN-REC-PREFIX PIC X(04). DTSIELEN 00103 DTSIELEN 00104 DTSIELEN 00105 10 ELEN-MAX-REC-ID PIC S9(04) COMP VALUE +6. DTSIELEN 00106 DTSIELEN 00107 10 ELEN-MAX-KEY-LEN PIC S9(04) COMP VALUE +24. DTSIELEN 00108 DTSIELEN 00109 10 ELEN-MAX-REC-LEN PIC S9(04) COMP VALUE +1024. DTSIELEN