DIVIDE ステートメント - 形式 5 - BY GIVING REMAINDER 1 DIVIDE 2ID-1 2リテラル-1 3 BY 4ID-2 4リテラル-2 5GIVING ID-3 6?ROUNDED 7REMAINDER ID-4 8?ON 8.1SIZE ERROR 命令ステートメント-1 9?NOT 9.1?ON 9.2SIZE ERROR 命令ステートメント-2 10?END-DIVIDE
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.