COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-57
DIVIDE GIVING REMAINDER
Example 9-14. DIVIDE INTO Statement With GIVING and REMAINDER Phrases
WORKING-STORAGE SECTION.
01 ARITHMETIC-WORK-SPACE.
03 LEAP-YEAR PIC 9 VALUE ZERO.
03 DIVIDE-RESULT PIC 99 VALUE ZERO.
...
01 INVOICE-DATE.
05 INV-MONTH PIC 99.
05 INV-DAY PIC 99.
05 INV-YEAR PIC 9999.
...
PROCEDURE DIVISION.
...
DIVIDE 4 INTO INV-YEAR GIVING DIVIDE-RESULT
REMAINDER LEAP-YEAR
END-DIVIDE
...
Example 9-15. DIVIDE BY Statement With GIVING and REMAINDER Phrases
WORKING-STORAGE SECTION.
01 ARITHMETIC-WORK-SPACE.
03 LEAP-YEAR PIC 9 VALUE ZERO.
03 DIVIDE-RESULT PIC 99 VALUE ZERO.
...
01 INVOICE-DATE.
05 INV-MONTH PIC 99.
05 INV-DAY PIC 99.
05 INV-YEAR PIC 9999.
...
PROCEDURE DIVISION.
...
DIVIDE INV-YEAR BY 4 GIVING DIVIDE-RESULT
REMAINDER LEAP-YEAR
END-DIVIDE
...