Enter - Control Data Corporation 3300 Reference Manual

4.7.8
ENTER
4-26
The maximum size of each operand is 18 decimal digits.
Examples:
1. DIVIDE 1.8 INTO CONVERTED-TEMP1 CONVERTED-TEMP2
CONVERTED-TEMP3 CONVERTED-TEMP4.
2. DIVIDE ABLE INTO BAKER GIVING CHARLEY
ROUNDED ON SIZE ERROR GO TO RECOMPUTE.
3. DIVIDE TOTAL BY DAILY GIVING RATE ROUNDED
RA TE-A ROUNDED ON SIZE ERROR
PERFORM DIVIDE-FAULT-ROUTINE.
The ENTER statement makes it possible to use more than one language in
the same program.
ENTER language-name; routine-name [; (parameter-string)]
Language-name may be COBOL, FORTRAN, or COMPASS for USASI COBOL,
USASI FORTRAN, COMPASS/MASTER. Statements in the other language are
executed as if they had been compiled into the object program following the
ENTER statement.
Routine name identifies the portion of coding to be executed at this point in
the procedure sequence. A routine name is a COBOL word which may be
referred to only in an ENTER sentence. It is 1-8 characters and must con-
form to requirements for an entry point name recognizable by the MASTER
loader.
It
is automatically declared as an EXTERNAL symbol by the USASI
COBOL compiler.
Parameter strings may contain any or all of the following: procedure names,
file names, identifiers, non-numeric literals, and signed numeric literals.
Parameter names must be separated by commas. A numeric literal must be
prefixed by plus or minus to distinguish it from an all numeric procedure name.
Parameters occupy 24, 36, or 48 bits in storage. The compiler analyzes the
parameter name list and codes and structures the parameters as shown below.
A procedure name or a file name and floating point or binary integer param-
eters require one word only; BCD parameters require two words.
60229400