フォーマット 4: INTO および REMAINDER 句を含む DIVIDE ステートメント 1 DIVIDE 2 ID-1 2 リテラル-1 3 INTO 4 ID-2 4 リテラル-2 5 GIVING ID-3 6? ROUNDED 7 REMAINDER ID-4 8? ON 8.1 SIZE ERROR 命令ステートメント-1 9? NOT 9.1? ON 9.2 SIZE ERROR 命令ステートメント-2 10? END-DIVIDE