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.