000220 01  D-KAK2.
000230     02 ACP-SURYO LINE 10 COLUMN 10 PIC S9(03)
000240                          USING WRK-SURYO
000250                          NO IFC CHECK OVERFLOW.
000260     02 DSP-SURYO  LINE 10 COLUMN 09 PIC ---9B FROM WRK-SURYO.
000270     02 DSP-SURYO2 LINE 10.
000280       03                  COLUMN 09 VALUE "     ".
000290       03                  COLUMN 10 PIC  ZZ9- FROM WRK-SURYO.