20 lines
1.5 KiB
COBOL
20 lines
1.5 KiB
COBOL
00001 ***** 09/11/98
|
|
00002 * DTSIL012
|
|
00003 * DTSIL012 RATE FROM SCREEN EDIT/FORMAT MODULE LINKAGE. LV004
|
|
00004 * DTSIL012
|
|
00005 ***** DTSIL012
|
|
00006 SKIP1 DTSIL012
|
|
00007 10 L012-RESULT-IND PIC X(01). DTSIL012
|
|
00008 88 L012-NO-ENTRY VALUE '0'. DTSIL012
|
|
00009 88 L012-VALID VALUE '1'. DTSIL012
|
|
00010 88 L012-NOT-VALID VALUE '2'. DTSIL012
|
|
00011 SKIP1 DTSIL012
|
|
00012 10 L012-S-RATE-AREA. DTSIL012
|
|
00013 15 L012-S-RATE-L PIC S9(04) COMP. DTSIL012
|
|
00014 15 L012-S-RATE-A PIC X(01). DTSIL012
|
|
00015 15 L012-S-RATE PIC X(04). CL**4
|
|
00016 SKIP1 DTSIL012
|
|
00017 10 L012-RATE PIC S9(01)V9(04) COMP-3. DTSIL012
|
|
00018 SKIP1 DTSIL012
|
|
00019 10 FILLER PIC X(17). DTSIL012
|