home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / calldll.zip / DIVIDE.CMD < prev    next >
OS/2 REXX Batch file  |  1996-02-04  |  1KB  |  47 lines
  1. /**************************************************************************/
  2. /* This REXX command file is an example of how to use CALLDLL.DLL to      */
  3. /* call a 16 bit program, compiled with Micro Focus COBOL.  It uses       */
  4. /* CALLDLL.DLL to call EXAMPLE.DLL.  EXAMPLE.DLL has two 01 level         */
  5. /* records in it's linkage section.  Two numbers are passed in first      */
  6. /* 01 level.  The two numbers are divided and the quotient and remainder  */
  7. /* are placed in the second parameter.                                    */
  8. /**************************************************************************/
  9.  
  10. if RXFUNCQUERY('CallDLLLoadFuncs') then do
  11.     call RXFUNCADD 'CallDLLLoadFuncs', 'CALLDLL', 'CallDLLLoadFuncs'
  12.     call CallDLLLoadFuncs
  13. end
  14.  
  15. numerator = '00100'
  16. denominator = '00030'
  17. FirstParameter = numerator denominator
  18. SecondParameter = left('', 11)
  19.  
  20. call CallDLL 'EXAMPLE', 'FirstParameter', 'SecondParameter'
  21.  
  22. parse var SecondParameter quotient remainder
  23.  
  24. say
  25. say numerator 'divided by' denominator 'results in:'
  26. say
  27. say '    quotient =' quotient
  28. say '   remainder =' remainder
  29.  
  30. numerator = '99999'
  31. denominator = '03333'
  32. FirstParameter = numerator denominator
  33.  
  34. call CallDLL 'EXAMPLE', 'FirstParameter', 'SecondParameter'
  35.  
  36. parse var SecondParameter quotient remainder
  37.  
  38. say
  39. say numerator 'divided by' denominator 'results in:'
  40. say
  41. say '    quotient =' quotient
  42. say '   remainder =' remainder
  43.  
  44. call CallDLLDropFuncs
  45.  
  46. exit
  47.