ALFANMBR: numeric translation subroutine

Description

Subroutine that converts numeric amounts to alphabetic equivalents.

Categories

Program Development

Related files

ALFANMBR: Numeric conversion subroutine--object file and COBOL source.

TESTALFA: Demonstration program for ALFANMBR.

User Instructions

Program subroutine; cannot be run interactively. (For test purposes see TESTALFA, a demonstration program.)

Programmer Instructions

Accepts four arguments, returning an 83-character translation of the numeric amount given. Among these arguments is a limit amount; if the test amount is greater than this limit, the converted text string is shown as "VOID".

Requires the following information:

  Amount    PIC 999999.99   Numeric amount to be converted.

  Text      PIC X(83)       Converted text string; returned
                            from the subroutine.

  Limit     PIC 999999.99   Maximum amount permitted.

  Return    PIC 9           Return code from subroutine (see
                            below for meanings).

Return code values:         0 - successful conversion
                            1 - zero amount
                            2 - negative amount
                            3 - amount greater than limit

COBOL source (for both ALFANMBR and TESTALFA) is available.

Example of use

From a COBOL program:

  CALL "ALFANMBR"   USING CHECK-AMT
                    CHECK-AMT-TEXT
                    CHECK-LIMIT
                    ALFANMBR-RETURN-CODE.

If the value of CHECK-AMT was 25.14, CHECK-AMT-TEXT will be:

  "TWENTY-FIVE AND 14/100 DOLLARS".

Comments

A program subroutine subroutine for applications requiring dollar amount translations, such as check writing systems. To test, see the TESTALFA demonstration program or run the subroutine from a procedure.