30 lines
2.3 KiB
COBOL
30 lines
2.3 KiB
COBOL
00001 ***** 12/01/05
|
|
00002 * DTSIESKL
|
|
00003 * DTSIESKL ELECTRONIC MEDIA SKELETAL RECORDDEFINITION LV015
|
|
00004 * DTSIESKL
|
|
00005 ***** DTSIESKL
|
|
00006 SKIP1 DTSIESKL
|
|
00007 10 ESKL-KEY-AREA. DTSIESKL
|
|
00008 15 ESKL-REC-TYPE PIC S9(04) COMP. DTSIESKL
|
|
00009 88 ESKL-HDR-88 VALUE +01. DTSIESKL
|
|
00010 88 ESKL-PRF-88 VALUE +02. DTSIESKL
|
|
00011 88 ESKL-LOG-88 VALUE +03. DTSIESKL
|
|
00012 88 ESKL-MSG-88 VALUE +04. DTSIESKL
|
|
00013 88 ESKL-EMH-88 VALUE +05. DTSIESKL
|
|
00014 88 ESKL-TRG-88 VALUE +06. DTSIESKL
|
|
00015 15 ESKL-KEY-FILLER PIC X(22). DTSIESKL
|
|
00016 10 ESKL-ELOG-KEY-AREA REDEFINES ESKL-KEY-AREA. DTSIESKL
|
|
00017 15 FILLER PIC S9(04) COMP. DTSIESKL
|
|
00018 15 ESKL-ELOG-LOG-NO PIC 9(10). CL*15
|
|
00019 15 FILLER PIC X(12). DTSIESKL
|
|
00020 10 ESKL-EEMH-KEY-AREA REDEFINES ESKL-KEY-AREA. DTSIESKL
|
|
00021 15 FILLER PIC S9(04) COMP. DTSIESKL
|
|
00022 15 ESKL-EMP-NO PIC S9(07) COMP-3. DTSIESKL
|
|
00023 15 ESKL-REPORTING-DATE PIC S9(09) COMP-3. DTSIESKL
|
|
00024 15 ESKL-DATA-TYPE-CD PIC X(02). DTSIESKL
|
|
00025 15 ESKL-EEMH-LOG-NO PIC X(10). CL*15
|
|
00026 15 FILLER PIC X(01). DTSIESKL
|
|
00027 SKIP1 DTSIESKL
|
|
00028 10 ESKL-DATA-AREA. DTSIESKL
|
|
00029 15 ESKL-DATA-FILLER PIC X(1000). DTSIESKL
|