home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / blkos207.zip / PUT.CMD < prev    next >
OS/2 REXX Batch file  |  1993-05-26  |  770b  |  34 lines
  1. /*PUT.CMD*/
  2. /*BLKOS2 copyright (C)1992,1993 C>BLACK,B.STONE,KUTEK*/
  3. /*all rights reserved*/
  4. xz=''
  5. parse arg aa
  6. aa=strip(aa)
  7. www=sysgetea(aa,'.comments',out)
  8. beg=substr(out,10)
  9. do until beg=''
  10. parse var beg line 'fdff'x e '00'x beg
  11. sz=lineout('comm.tnp',line)
  12. end
  13. o=stream('comm.tnp','C','close')
  14. 'epm  comm.tnp'
  15. pause
  16. ww=sysputea(aa,'.COMMENTS','')
  17. eee=0
  18. do until lines('comm.tnp')=0
  19. eee=eee+1
  20. czz=linein('comm.tnp')
  21. if eee=1 then cz=d2c(length(czz))||'00'x||czz
  22. else cz=x2c(fdff)||d2c(length(czz))||'00'x||czz
  23. xz=xz||cz
  24. end
  25. swq=x2c(dfff0000)
  26. tt=d2c(eee)
  27. xz=swq||tt||'00fdff'x||xz
  28. ww=sysputea(aa,'.COMMENTS',xz)
  29. if ww=0 then do
  30.  say 'COMMENT SUCCESSFULLY WRITTEN TO' aa
  31. pp=stream('comm.tnp','c','close')
  32. s=sysfiledelete('comm.tnp')
  33. end
  34.