home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / rexxintuition_393.lzh / RexxIntuition / Scripts / Custom.rexx < prev    next >
OS/2 REXX Batch file  |  1990-10-28  |  788b  |  26 lines
  1. /* */
  2.  
  3. /* Get a FileIO structure */
  4. fileio = GetFIO()
  5. IF fileio == '' | fileio == 0 THEN SAY 'FileIO allocation error'
  6.  
  7. /* Let's set up a list for this fileio with a few strings. I'll use variables */
  8. /* in some of the calls to AddEntry so that you can see what's acceptable.    */
  9. entryNum = AddEntry(fileio,1,'string 1')
  10. IF entryNum < 0 THEN SAY "Out of memory"
  11.  
  12. string = 'string 2'
  13. entryNum = AddEntry(fileio,2,string)
  14. IF entryNum < 0 THEN SAY "Out of memory"
  15.  
  16. thirdID = 3
  17. entryNum = AddEntry(fileio,thirdID,'string 3')
  18. IF entryNum < 0 THEN SAY "Out of memory"
  19.  
  20. /* Display that list of strings for the user to do the selection. Note SPECIAL_REQ flag */
  21. string = FIOWindow(fileio,'Select One',32768,,'Initial String',,,0)
  22. SAY string
  23.  
  24. /* Now free the fileio */
  25. entryNum = EndFIO(fileio)
  26.