home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxlepsom.zip / tst123.cmd < prev   
OS/2 REXX Batch file  |  1995-09-18  |  853b  |  38 lines
  1. /* rexx */
  2.  
  3. call RxFuncAdd 'LepSomLoadFuncs', 'rxlepsom', 'LepSomLoadFuncs'
  4. call LepSomLoadFuncs
  5.  
  6. tst.log='tst.log'
  7.  
  8. parse arg args
  9. n=words(args)
  10. call lineout tst.log,'Arguments are ='args
  11. do i=1 to n 
  12.     argv.i=word(args,i)
  13. end 
  14. call lineout tst.log,'Argv[1]="'||argv.1||'"'
  15.  
  16. lepAA=LepAAnew(argv.1)
  17. call lineout tst.log,"P1"
  18. rng=LepAAGetByNo(lepAA, 0)
  19. if rng\="" then do 
  20.   msg='argv[0].ClassName='||LepGetClassName(rng)
  21.   call lineout tst.log,msg
  22.  
  23.   shs=LepGetRangeSheets(rng)
  24.   cols=LepGetRangeCols(rng)
  25.   rows=LepGetRangeRows(rng)
  26.  
  27.   msg='Range dimension('shs','cols','rows');'
  28.   call lineout tst.log, msg
  29.  
  30.   rcod=LepSetCellString(rng, 1,1,1, "message from REXX!!!");
  31.   rcod=LepSetCellNumber(rng, 1,1,2, 123.321);
  32. end 
  33. else do
  34.   call lineout tst.log, "Could not get first argument"
  35. end
  36. call lineout tst.log,"END"
  37.  
  38.