Convert amount to words in RPG ILE

I have had a situation where the amount had to be converted into words so that it can be printed on checks. A little googling got me to this solution. I had to convert it to the free form version for my use. There might be other/better versions out there, but this worked for me. You can find the original version (if the link is still active) here

      //  =============================================================

      //  =  Service program... NbrToWords / CvtNbrToWords           

      //  =  Description....... Service program to convert a number   

      //  =                     to words                                                          

      //  =  Amount needs to be converted into words for printing on  

      //  =  checks.                                                  

      //  =                                                          

      //  =  CrtRPGMod  Module( Your library/NbrToWords )       +             

      //  =             SrcFile( Your library/YourSrcFile )                  

      //  =                                                           

      //  =  CrtSrvPgm  SrvPgm( Your library/NbrToWords )       +            

      //  =             Export( *All )                  +            

      //  =             ActGrp( *Caller )                            

      //  =============================================================

     H NoMain

      //  -------------------------------------------------------------

      //  -  Procedure prototypes                                     -

      //  -------------------------------------------------------------

     D CvtNbrToWords   Pr           200A

     D  Number                       15S 0 Value

      //  -------------------------------------------------------------

      //  -  Global variables                                         -

      //  -------------------------------------------------------------

     D MaxGrps         C                   5

     D Words           S             13    Dim(99)

     D                                     CtData

     D Grps            S              8    Dim(MaxGrps)

     D                                     CtData

      //  =============================================================

      //  =  Procedure:   CvtNbrToWords                               

      //  =  Description: Convert number to words                     

      //  =============================================================

     P CvtNbrToWords   B                   Export

      //  -------------------------------------------------------------

      //  -  Procedure interface                                      -

      //  -------------------------------------------------------------

     D CvtNbrToWords   Pi           200A

     D  Nbr                          15S 0 Value

      //  -------------------------------------------------------------

      //  -  Variable declarations                                  

      //  -------------------------------------------------------------

     D AlphaNbr        S             15

     D WorkFld         DS

     D  Work3                         3

     D  Work2                         2    Overlay( Work3 : 2 )

     D  Work1                         1    Overlay( Work3 : 1 )

     D Count           S              5I 0

     D Pos             S              5I 0

     D Idx             S              5I 0

     D RtnWords        S            200A   Inz

      //  -------------------------------------------------------------

      //  -  Convert number to words - logic                          -

      //  -------------------------------------------------------------

      /Free

           Select;

           When Nbr = *Zero;

             RtnWords = 'zero';

           Other;

             If Nbr < *Zero;

               RtnWords = 'negative';

               Nbr = Nbr * -1;

             EndIf;

             EvalR AlphaNbr = %EditC(Nbr:'X');

             DoW Count <>

               Count += 1;

               Pos = (Count * 3) - 2;

               Work3 = %Subst(AlphaNbr : Pos : 3);

               If Work3 <> '000';

                 If Work1 <> '0';

                   Clear Idx;

                   Idx = %Int(Work1);

                   RtnWords = %TrimR(RtnWords) + ' ' +

                              %TrimR(Words(Idx)) +  ' hundred';

                 EndIf;

                 If Work2 <> '00';

                   Clear Idx;

                   Idx = %Int(Work2);

                   RtnWords = %TrimR(RtnWords) + ' ' + %TrimR(Words(Idx));

                 EndIf;

                 RtnWords = %TrimR(RtnWords) + ' ' + %TrimR(Grps(Count));

               EndIf;

             EndDo;

           EndSl;

           RtnWords = %Trim(RtnWords);

           Return RtnWords;

      /End-Free

     P CvtNbrToWords   E

** CtData Words

one

two

three

four

five

six

seven

eight

nine

ten

eleven

twelve

thirteen

fourteen

fifteen

sixteen

seventeen

eighteen

nineteen

twenty

twenty-one

twenty-two

twenty-three

twenty-four

twenty-five

twenty-six

twenty-seven

twenty-eight

twenty-nine

thirty

thirty-one

thirty-two

thirty-three

thirty-four

thirty-five

thirty-six

thirty-seven

thirty-eight

thirty-nine

forty

forty-one

forty-two

forty-three

forty-four

forty-five

forty-six

forty-seven

forty-eight

forty-nine

fifty

fifty-one

fifty-two

fifty-three

fifty-four

fifty-five

fifty-six

fifty-seven

fifty-eight

fifty-nine

sixty

sixty-one

sixty-two

sixty-three

sixty-four

sixty-five

sixty-six

sixty-seven

sixty-eight

sixty-nine

seventy

seventy-one

seventy-two

seventy-three

seventy-four

seventy-five

seventy-six

seventy-seven

seventy-eight

seventy-nine

eighty

eighty-one

eighty-two

eighty-three

eighty-four

eighty-five

eighty-six

eighty-seven

eighty-eight

eighty-nine

ninety

ninety-one

ninety-two

ninety-three

ninety-four

ninety-five

ninety-six

ninety-seven

ninety-eight

ninety-nine

** CtData Grps

trillion

billion

million

thousand