15 lines
1.1 KiB
COBOL
15 lines
1.1 KiB
COBOL
00001 ***** 09/18/98
|
|
00002 * DTSIL057
|
|
00003 * DTSIL057 RESERVE RATIO DISPLAY LV009
|
|
00004 * DTSIL057
|
|
00005 * SEPTEMBER, 1998 CREATED FOR DC. GD CL**4
|
|
00006 * CL**3
|
|
00007 * FORMAT OF L057-DISP-RATIO IS --9.9. CL**9
|
|
00008 ***** DTSIL057
|
|
00009 CL**2
|
|
00010 10 L057-RATIO PIC S9(02)V9(05) COMP-3. CL**4
|
|
00011 CL**2
|
|
00012 10 L057-DISP-RATIO PIC X(05). CL**4
|
|
00013 CL**2
|
|
00014 10 FILLER PIC X(20). CL**2
|