home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / loan / loandata.cpy < prev    next >
Text File  |  1998-02-09  |  773b  |  17 lines
  1.       * -------------------------------------------------
  2.       *   LOANDATA.CPY
  3.       *      This copy file contains the data decalarations
  4.       *      for the data for the loan sample application.
  5.       *      This copy file is used to import into the
  6.       *      Visual Builder to create a data part with the
  7.       *      appropriate formats.  Note that DueYear uses
  8.       *      the MLE syntax.
  9.       * -------------------------------------------------
  10.         01 LoanData.
  11.             05 LoanAmount          PIC 9(9).
  12.             05 Term                pic 99.
  13.             05 Rate                pic 9(9)V99.
  14.             05 Payment             pic 9(9)V99.
  15.             05 TotalInterest       Pic 9(9)V99.
  16.             05 DueYear             PIC 9(4).
  17.