TIP: Click on subject to list as thread! ANSI
echo: os2prog
to: Mark Lewis
from: Daniel Doran
date: 1995-05-29 02:53:00
subject: REXX programing

MARK LEWIS wrote something original about REXX programing

ML> i've just created a fairly simple (for most) REXX program to scan
ML> for outbound mail on my system. what i would like to do is to place
ML> an icon indicator on the desktop when it actually falls into the
ML> routine that scans the outbound mail and then to remove that icon
ML> from the desktop when the scan is over. i'd also like to place the
ML> icon at a specific location on the desktop if possible.

I'd look for the file REXXTUT2 on whatever BBS you know that carries
OS/2 stuff, but here's an example program you can modify:

/* REXX Code to demonstrate object creation and deletion */
 call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
 call sysloadfuncs

 parms="EXENAME=*;Parameters=%;PROGTYPE=WINDOWABLEVIO;"
 parms=parms||"ICONPOS=70 90;"                   /* % of full screen */
 parms=parms||"ICONFILE=E:\ICONS\EXPLOSIV.ICO;"  /* choose your own icon */
 parms=parms||"OBJECTID="        /* ID for object */

 call SysCreateObject "WPProgram", "Indicator",
"",parms,"U"
 /*   ^                ^                ^          ^            ^     ^
      function     type of object      name      location     stuff  update */

 if result=0 then do; say 'unable to set data, result='result; return 1; end
 /*   ^ result holds the result of the previous 'call' */

 say 'waiting three seconds before deleting'
 call syssleep 3
 say 'now deleting indicator'

 if \SysDestroyObject("") then say 'Unable
to remove object'
 /* this is another way to use a function */
 /* what this really does is create an icon for an OS/2 program object
    and then deletes it */

 * KWQ/2 1.2g * Whips & chains?  That's a hardware problem!
--- QScan/PCB v1.17b / 01-0093
* Origin: La Cantina BBS * El Paso * 915-532-0332 6GB, 3 Nodes (1:381/123)
SEEN-BY: 105/42 620/243 711/401 409 410 413 430 807 808 809 934 955 712/407
SEEN-BY: 712/515 628 704 713/888 800/1 7877/2809
@PATH: 381/123 900 3615/50 396/1 270/101 105/103 42 712/515 711/808 809 934

SOURCE: echomail via fidonet.ozzmosis.com

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.