110 lines
8.6 KiB
COBOL
110 lines
8.6 KiB
COBOL
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
|