DBIA2622 ICR (2622)

# DBIA2622    ICR (2622)

Name Value
NUMBER 2622
IA # 2622
DATE CREATED 1998/10/20
CUSTODIAL PACKAGE KERNEL
CUSTODIAL ISC San Francisco
USAGE Supported
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE XLFUTL
NAME DBIA2622
GENERAL DESCRIPTION
```Use of the XLFUTL APIs.
```
STATUS Active
DURATION Till Otherwise Agreed
ID XLFUTL
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
\$\$CCD
```Compute check digit.  See Taylor report Computerworld
1975 Usage: S Y=\$\$CCD^XLFUTL(X) Input: an integer.  Returns the input value
with the check digit appended.
```
\$\$VCD
```Verify check digit (last digit).  Usage:  IF
\$\$VCD^XLFUTL(X) W "OK" Input: an integer with check digit, from \$\$CCD^XLFUTL
Output: 1 if the check digit matches, 0 for non-match.
```
\$\$BASE
```Converts the first parameter from the number base of
the second parameter to the number base of the third parameter.  Usage: W
\$\$BASE^XLFUTL("1A",16,2) ==> 11010 Input 1: a string representing the number
to convert.  Input 2: a number from 2 to 16, the base of input 1.  Input 3: a
number from 2 to 16, the base for the output.

The useful values for Input 2 and 2 are 2, 8, 10, 16 but other numbers can be
used. e.g. W \$\$BASE("A",12,3) ==> 101

Because of the use of division, input is limited by the M vendor to the
largest integer they handle, 15 digits.
```
\$\$DEC(NUMBER,FROMBASE)
VARIABLES TYPE VARIABLES DESCRIPTION
NUMBER Input
```Number to be converted to base 10
```
FROMBASE Input
```Base to convert NUMBER from
```
\$\$DEC Output
```NUMBER converted to Base 10
```
\$\$CNV(NUMBER,TOBASE)
VARIABLES TYPE VARIABLES DESCRIPTION
NUMBER Input
```Number to be converted from base 10 to TOBASE
```
TOBASE Input
```Base to convert NUMBER to
```
\$\$CNV Output
```NUMBER converted to TOBASE from base 10

```