27 lines
2.1 KiB
COBOL
27 lines
2.1 KiB
COBOL
00001 ***** 08/24/98
|
|
00002 * DTSIL011
|
|
00003 * DTSIL011 AMOUNT (DOLLARS AND CENTS) FROM SCREEN EDIT/FORMAT LV003
|
|
00004 * (WITH MIN/MAX) MODULE LINKAGE. DTSIL011
|
|
00005 * DTSIL011
|
|
00006 ***** DTSIL011
|
|
00007 SKIP1 DTSIL011
|
|
00008 10 L011-RESULT-IND PIC X(01). DTSIL011
|
|
00009 88 L011-NO-ENTRY VALUE '0'. DTSIL011
|
|
00010 88 L011-VALID VALUE '1'. DTSIL011
|
|
00011 88 L011-NOT-NUMERIC VALUE '2'. DTSIL011
|
|
00012 88 L011-INVALID-NEGATIVE VALUE '3'. DTSIL011
|
|
00013 88 L011-EXCEEDS-MIN-MAX VALUE '4'. DTSIL011
|
|
00014 88 L011-NOT-VALID VALUE '2' '3' '4'. DTSIL011
|
|
00015 SKIP1 DTSIL011
|
|
00016 10 L011-S-AMT-AREA. DTSIL011
|
|
00017 15 L011-S-AMT-L PIC S9(04) COMP. DTSIL011
|
|
00018 15 L011-S-AMT-A PIC X(01). DTSIL011
|
|
00019 15 L011-S-AMT PIC X(18). DTSIL011
|
|
00020 SKIP1 DTSIL011
|
|
00021 10 L011-MIN-AMT PIC S9(11)V9(02) COMP-3. DTSIL011
|
|
00022 10 L011-MAX-AMT PIC S9(11)V9(02) COMP-3. DTSIL011
|
|
00023 SKIP1 DTSIL011
|
|
00024 10 L011-AMT PIC S9(11)V9(02) COMP-3. DTSIL011
|
|
00025 SKIP1 DTSIL011
|
|
00026 10 FILLER PIC X(19). DTSIL011
|