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

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-54
ENTER
ENTER
ENTER calls a routine written in a language other than COBOL. (To call a COBOL
routine, use CALL.)
In some implementations of COBOL, ENTER marks the beginning of an embedded
routine in some other language.
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
...
Note. If you use the ENTER statement in the OSS environment, see Mixed-Language
Programs.