home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / intra2_17 / rexx / demo2.irx < prev    next >
Text File  |  1994-02-19  |  1KB  |  57 lines
  1. /* INTRA_demo2.irx  by Bart Vanhaeren                             */
  2. /* $VER: INTRA_demo2.irx 1.0 (6.9.1993)                           */
  3. /* Example Arexx program for controlling INTRA by Bart Vanhaeren  */
  4.  
  5. NL = '0a'x
  6.  
  7. OPTIONS RESULTS
  8.  
  9. IF POS('rexxsupport.library',SHOW('libs'))=0 THEN
  10.   nill=ADDLIB('rexxsupport.library',0,-30,0)
  11.  
  12. IF POS('INTRAREXX', SHOW('PORTS'))=0 THEN DO
  13.   SAY "*** Start INTRA first !!!"
  14.   EXIT(0)
  15.  END
  16.  
  17. ADDRESS (TRIM(SUBSTR(SHOW('PORTS'),POS('INTRAREXX',SHOW('PORTS')),12)))
  18.  
  19. SCREENTOFRONT
  20.  
  21. LOCKGUI NORENDER
  22.  
  23. REQUESTRESPONSE PROMPT "Calculate total of invoices ?!?"
  24. IF RESULT=1 THEN DO
  25.    total=0
  26.    INVOICES
  27.    DO i=1 TO RESULT
  28.       READ i
  29.       GETDATA AMOUNT
  30.       PARSE VAR RESULT '"'RESULT'"' nill
  31.       total=total+RESULT
  32.      END
  33.    REQUESTNOTIFY PROMPT "Total amount: "||total
  34.   END
  35.  
  36.  
  37. REQUESTSTRING PROMPT """Calculate total of which month ???""" DEFAULT "01-93"
  38. IF RC~=1 THEN DO
  39.    info=RESULT
  40.    total=0
  41.    INVOICES
  42.    DO i=1 TO RESULT
  43.       READ i
  44.       GETDATA DATE AMOUNT
  45.       PARSE VAR RESULT '"'dat'"' '"'val'"' nill
  46.       IF RIGHT(dat,5) = info THEN total = total + val
  47.      END
  48.    IF total~=0 THEN REQUESTNOTIFY PROMPT "Total amount for 'XX-"info "=" total"'"
  49.    ELSE REQUESTNOTIFY PROMPT "Didn't find any amount for 'XX-"info"'"
  50.   END
  51.  
  52.  
  53. REQUESTNOTIFY PROMPT "ARexx script is done ..."
  54. UNLOCKGUI
  55.  
  56. EXIT(0)
  57.