TIP: Click on subject to list as thread! ANSI
echo: os2prog
to: Bill Hemenway
from: Bill Parker
date: 1995-01-10 07:27:36
subject: Help

BH> I can't seem to find what's wrong with the following:

 BH> /*Start */
 BH> call RxFuncAdd  'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
 BH> call SysLoadFuncs 

I believe these two calls are unnecessary...at least I didn't need them on
my machine. But, that is not the problem.

 BH> /* Open file for read & write */
 BH>    IF STREAM('F:\VXREXX\TEST.TXT','C','OPEN') == 'READY:' THEN
 BH>    DO
 BH>       /* Position at current end of file */
 BH>       CALL STREAM('F:\VXREXX\TEST.TXT','C','SEEK <0')    

Use either of the following instead...

CALL STREAM 'F:\VXREXX\TEST.TXT','C','SEEK <0'

ok = STREAM('F:\VXREXX\TEST.TXT','C','SEEK <0')

 BH>       /* Write an extra record */
 BH>       CALL LINEOUT('F:\VXREXX\TEST.TXT','Hi Bill')   

same comment as above

 BH>       /* Now close the file */
 BH>       CALL STREAM('F:\VXREXX\TEST.TXT','C','CLOSE')

same comment as above

 BH>    END
 BH>    ELSE /* It's locked */
 BH>       SAY 'Unable to open '||''F:\VXREXX\TEST.TXT''

This should be...

SAY 'Unable to open '||'''F:\VXREXX\TEST.TXT'''

or, more simply...

SAY 'Unable to open ''F:\VXREXX\TEST.TXT'''

Bill


--- Maximus/2 2.01wb
* Origin: Blue Bird Of Prey * Vergennes, VT * (802) 877-6912 (1:325/207)
SEEN-BY: 12/2442 620/243 624/50 632/348 640/820 690/660 711/409 410 413 430
SEEN-BY: 711/807 808 809 934 942 949 712/353 515 713/888 800/1 7877/2809
@PATH: 325/207 118 320/209 142/1 3615/50 229/2 12/2442 711/409 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™.