34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
00001 ***** 09/23/98
|
|
00002 * DTSIL023
|
|
00003 * DTSIL023 RESERVE RATIOS FROM SCREEN EDIT/FORMAT MODULE LV006
|
|
00004 * LINKAGE. DTSIL023
|
|
00005 * DTSIL023
|
|
00006 ***** DTSIL023
|
|
00007 SKIP1 DTSIL023
|
|
00008 10 L023-RESULT-IND PIC X(01). DTSIL023
|
|
00009 88 L023-VALID VALUE '0'. CL**6
|
|
00010 88 L023-NO-MIN-ENTRY VALUE '1'. CL**6
|
|
00011 88 L023-NO-MAX-ENTRY VALUE '2'. CL**6
|
|
00012 88 L023-NO-MIN-MAX-ENTRY VALUE '3'. CL**6
|
|
00013 88 L023-EXCEEDS-MIN-MAX VALUE '4'. CL**6
|
|
00014 88 L023-CROSS-EDIT-ERROR VALUE '5'. CL**6
|
|
00015 88 L023-NOT-VALID VALUE '6'. CL**6
|
|
00016 10 L023-MINIMUM-VALID-IND PIC X(01). DTSIL023
|
|
00017 88 L023-MIN-VALID VALUE 'Y'. DTSIL023
|
|
00018 88 L023-MIN-NOT-VALID VALUE 'N'. DTSIL023
|
|
00019 SKIP1 DTSIL023
|
|
00020 10 L023-S-RATIO-AREA. DTSIL023
|
|
00021 15 L023-S-MIN-RATIO-AREA. DTSIL023
|
|
00022 20 L023-S-MIN-RATIO-L PIC S9(04) COMP. DTSIL023
|
|
00023 20 L023-S-MIN-RATIO-A PIC X(01). DTSIL023
|
|
00024 20 L023-S-MIN-RATIO PIC X(05). CL**2
|
|
00025 15 L023-S-MAX-RATIO-AREA. DTSIL023
|
|
00026 20 L023-S-MAX-RATIO-L PIC S9(04) COMP. DTSIL023
|
|
00027 20 L023-S-MAX-RATIO-A PIC X(01). DTSIL023
|
|
00028 20 L023-S-MAX-RATIO PIC X(05). CL**2
|
|
00029 SKIP1 DTSIL023
|
|
00030 10 L023-MIN-RATIO PIC S9(02)V9(05) COMP-3. CL**2
|
|
00031 10 L023-MAX-RATIO PIC S9(02)V9(05) COMP-3. CL**2
|
|
00032 SKIP1 DTSIL023
|
|
00033 10 FILLER PIC X(13). DTSIL023
|