24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
00001 ***** 09/30/98
|
|
00002 * DTSIVLEN
|
|
00003 * DTSIVLEN VSAM KSDS WORK FILE RECORD LENGTHS. LV002
|
|
00004 * DTSIVLEN
|
|
00005 * CL**2
|
|
00006 * 09/30/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIVLEN
|
|
00009 CL**2
|
|
00010 10 VLEN-LENGTH-AREA. DTSIVLEN
|
|
00011 15 VLEN-COR-LENGTH PIC S9(04) COMP VALUE +1612. DTSIVLEN
|
|
00012 15 FILLER PIC S9(04) COMP VALUE +0. DTSIVLEN
|
|
00013 15 FILLER PIC S9(04) COMP VALUE +0. DTSIVLEN
|
|
00014 15 FILLER PIC S9(04) COMP VALUE +0. DTSIVLEN
|
|
00015 15 FILLER PIC S9(04) COMP VALUE +0. DTSIVLEN
|
|
00016 10 FILLER REDEFINES VLEN-LENGTH-AREA. DTSIVLEN
|
|
00017 15 VLEN-LENGTH OCCURS 5 TIMES DTSIVLEN
|
|
00018 INDEXED BY VLEN-IDX DTSIVLEN
|
|
00019 PIC S9(04) COMP. DTSIVLEN
|
|
00020 CL**2
|
|
00021 10 VLEN-MAX-LENGTH PIC S9(04) COMP VALUE +2024. DTSIVLEN
|
|
00022 CL**2
|
|
00023 10 VLEN-KEY-LENGTH PIC S9(04) COMP VALUE +32. DTSIVLEN
|