CRE Programmer's Guide

Common Language Utility (CLU) Library Functions
Common Run-Time Environment (CRE) Programmer’s Guide—528146-004
9-36
COBOL Considerations
value
is a NATIVE-2 data item or a COMPUTATIONAL numeric data item described
with one-to-four 9s preceded by an S; for example:
PICTURE S9(4)
message_number
is any actual COBOL parameter that evaluates to a number in the range
-32768 through 32767, as permitted by a particular function.
message_number can be a COMPUTATIONAL, DISPLAY, or NATIVE numeric
data item, a numeric literal, or an expression enclosed in parentheses. If the
parameter does not mathematically evaluate to an integer, the compiler
changes the result into an integer value. To specify conversion options, you
can use COBOL functions INTEGER and INTEGER_PART.
name
is an alphanumeric data item that specifies a logical file name. The compiler
implicitly computes and transmits the size, in bytes, of
name to the function.
result
is a numeric data item as described in the COBOL Manual for TNS and TNS/R
Programs for the pre-D20 SMU functions.
COBOL Examples
The following pairs of examples show how each new SMU function corresponds to a
pre-D20 SMU function:
ENTER TAL "SMU_Assign_Delete_"
USING message-number, portion GIVING result
ENTER "DeleteAssign"
USING portion, cplist, message-number GIVING result
ENTER TAL "SMU_Assign_GetText_"
USING message-number, portion, text GIVING result
ENTER "GetAssignText"
USING portion, text, message-number GIVING result
ENTER TAL "SMU_Assign_GetValue_"
USING message-number, portion, value GIVING result
ENTER "GetAssignValue"
USING portion, value, message-number GIVING result
ENTER TAL "SMU_Assign_PutText_"
USING message-number, portion, text GIVING result
ENTER "PutAssignText"
USING portion, text, cplist, message-number GIVING result
ENTER TAL "SMU_Assign_PutValue_"
USING message-number, portion, value GIVING result