COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-66
ENTER
In Example 9-18, a TNS HP COBOL program calls the TAL procedure
LOAD^BACKUP^CPU that is in this object file:
$DATA.MYSUBVOL.TALL
The procedure accepts no parameters and returns a 2-byte result.
Example 9-17. HP COBOL Program Calling TAL Routine
TAL procedure declarations:
INT PROC SYS^PROCEDURE (T, I, FIX, N);
STRING .T; ! REFERENCE ADDRESS
INT I; ! VALUE
FIXED(4) FIX; ! VALUE
INT N; ! VALUE
COBOL source code:
WORKING-STORAGE SECTION.
77 T PIC X(40) VALUE SPACES.
77 I PIC 9(4) VALUE ZERO COMP.
77 FIX PIC S9(13)V9999 VALUE -125641.3992 COMP.
77 RESULT PIC 9(4).
...
PROCEDURE DIVISION.
...
ENTER TAL "SYS^PROCEDURE" USING T (I+1) FIX 25
GIVING RESULT
Example 9-18. HP COBOL Program Calling TAL Routine in Object File
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
...
SPECIAL-NAMES.
FILE "$DATA.MYSUBVOL.TALL" IS TAL-LIBRARY.
...
WORKING-STORAGE SECTION.
77 BACK-UP-CPU PIC S99 COMPUTATIONAL.
...
PROCEDURE DIVISION.
...
ENTER TAL "LOAD^BACKUP^CPU" IN TAL-LIBRARY
GIVING BACK-UP-CPU
...