COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Example 85 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 86 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
...
ENTER
ENTER calls a routine written in a language other than COBOL. (To call a COBOL routine, use
CALL.)
NOTE: If you use the ENTER statement in the OSS environment, see Mixed-Language Programs
(page 712).
In some implementations of COBOL, ENTER marks the beginning of an embedded routine in some
other language.
In HP COBOL, ENTER is analogous to CALL but is used to call a non-COBOL routine. An HP COBOL
program’s mode and operating environment determine what types of non-COBOL routines it can
call. A called routine can have an ordinary, VARIABLE, or EXTENSIBLE parameter list.
ENTER 319