15 lines
1.1 KiB
COBOL
15 lines
1.1 KiB
COBOL
00001 ***** 08/11/98
|
|
00002 * DTSIFMAX
|
|
00003 * MACIFMAX REFERENCE FILE MAXIMUM OCCURRENCE COUNTS. LV003
|
|
00004 * DTSIFMAX
|
|
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**3
|
|
00006 * CL**3
|
|
00007 ***** DTSIFMAX
|
|
00008 CL**2
|
|
00009 10 FMAX-OPR-NONUM-GROUP-MAX DTSIFMAX
|
|
00010 PIC S9(04) COMP VALUE +24. DTSIFMAX
|
|
00011 10 FMAX-SEL-FLD-REP-ID-MAX DTSIFMAX
|
|
00012 PIC S9(04) COMP VALUE +10. DTSIFMAX
|
|
00013 10 FMAX-UIR-RATE-RATIO-MAX CL**2
|
|
00014 PIC S9(04) COMP VALUE +20. CL**2
|