home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / calldll.zip / EXAMPLE.CBL < prev    next >
Text File  |  1996-02-04  |  2KB  |  55 lines
  1.       $SET CHARSET(ASCII)
  2.        IDENTIFICATION DIVISION.
  3.        PROGRAM-ID.    EXAMPLE.
  4.        AUTHOR.        GCH SOFTWARE.
  5.        INSTALLATION.  GCH SORTWARE
  6.        DATE-WRITTEN.  FEBRUARY 4, 1996.
  7.        DATE-COMPILED.
  8.       *
  9.       *  THIS PROGRAM IS AN EXAMPLE OF A COBOL PROGRAM THAT CAN
  10.       *  BE CALLED FROM REXX BY CALLDLL.DLL.  NOTICE THAT IT HAS
  11.       *  TWO 01 LEVEL RECORDS IN THE LINKAGE SECTION.  THIS IS A
  12.       *  REQUIREMENT FOR PROGRAMS THAT ARE CALLED BY CALLDLL.DLL.
  13.       *
  14.       *  THE FIRST 01 LEVEL RECORD CONTAINS TWO NUMBERS SEPARATED
  15.       *  BY A FILLER CHARACTER.  THE FIRST NUMBER IS DIVIDED BY THE
  16.       *  SECOND NUMBER.
  17.       *
  18.       *  THE SECOND 01 LEVEL RECORD CONTAINS TWO FIELDS.  THE
  19.       *  RESULTS OF THE DIVISION IS PLACED IN THE FIRST FIELD
  20.       *  AND THE REMAINDER IS PLACED IN THE SECOND FIELD.
  21.       *
  22.       *
  23.       *
  24.       *
  25.        ENVIRONMENT DIVISION.
  26.        INPUT-OUTPUT SECTION.
  27.        FILE-CONTROL.
  28.        DATA DIVISION.
  29.        FILE SECTION.
  30.        WORKING-STORAGE SECTION.
  31.        01  WORK-FIELDS                                            SYNC.
  32.            03  DUMMY-FIELD               PIC X.
  33.  
  34.        LINKAGE SECTION.
  35.        01  INPUT-PARAMETER                                        SYNC.
  36.            03  INPUT-NUMERATOR           PIC 99999.
  37.            03  INPUT-FILLER              PIC X.
  38.            03  INPUT-DENOMINATOR         PIC 99999.
  39.  
  40.        01  OUTPUT-PARAMETER                                       SYNC.
  41.            03  OUTPUT-QUOTIENT           PIC 99999.
  42.            03  OUTPUT-FILLER             PIC X.
  43.            03  OUTPUT-REMAINDER          PIC 99999.
  44.  
  45.        PROCEDURE DIVISION USING INPUT-PARAMETER
  46.                                 OUTPUT-PARAMETER.
  47.  
  48.            DIVIDE INPUT-NUMERATOR BY INPUT-DENOMINATOR
  49.                GIVING OUTPUT-QUOTIENT
  50.                REMAINDER OUTPUT-REMAINDER.
  51.  
  52.            MOVE SPACE TO OUTPUT-FILLER.
  53.        L1-PROGRAM-EXIT.
  54.            GOBACK.
  55.