isCOBOL Evolve : Appendices : Library Routines : IS$SQLPRC
IS$SQLPRC
The IS$SQLPRC library routine extracts precision and scale. Normally, it is used after a DESCRIBE SELECT LIST, and its first parameter is SELDVLN.
This routine is equivalent to the Oracle’s SQLPRC routine. If you’re transitioning from Pro*COBOL and your programs are calling SQLPRC, set iscobol.oracle.sqlcall.internal=true in the configuration, and the runtime will automatically call IS$SQLPRC instead of SQLPRC.
Syntax:
 CALL "IS$SQLPRC" USING length
                        precision
                        scale
Parameters:
length
PIC S9(9) COMP.
Stores the length of a NUMBER value. The scale and precision of
the value are stored in the low and next-higher bytes, respectively.
precision
PIC S9(9) COMP.
Returns the precision of the NUMBER value. Precision is the number
of significant digits. It is set to zero if the select-list item refers to a NUMBER of unspecified size. In this case, because the size is unspecified, assume the maximum precision.
scale
PIC S9(9) COMP.
Returns the scale of the NUMBER value. Scale specifies where
rounding will occur. F
Examples:
Example - If datatype is NUMBER, extract precision and scale.
IF SELDVTYP(i) = 2
   CALL "IS$SQLPRC" USING SELDVLN(i), PRECISION, SCALE.