home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / SREFPRC1 / SAVESTAT.SRF < prev    next >
Text File  |  1997-07-06  |  1KB  |  49 lines
  1. /* Save "request specific"  stuff to the environment, using
  2. thread id */
  3.  
  4. parse arg asource,arequest,seloriginal,enmadd,theport,verbose
  5.  
  6. crlf='0d0a'x            /* might need this */                                  
  7.  
  8. a1=pos('NOFILE_',upper(arequest))
  9. if a1>0 then arequest=delstr(arequest,a1,7)
  10. a1=pos('PUBLIC_',upper(arequest))
  11. if a1>0 then arequest=delstr(arequest,a1,7)
  12.  
  13.  
  14. 'READ HEADER VAR AHEADER'
  15. /*aheader=translate(aheader,' ','0a00'x)
  16. aheader=translate(aheader,';','0d'x)*/
  17.  
  18. mytid=dostid()
  19.  
  20. wow2=digits()
  21. numeric digits 12
  22.  
  23. adate=date('n'); atime=time('n')
  24. d1=date('b')
  25. t1=time('m')/(24*60)
  26. nowtime=d1+t1
  27.  
  28. drop moocow.
  29.  
  30. moocow.DATE_TIME=atime||','||adate||','||nowtime
  31. moocow.THREAD=mytid
  32. moocow.SOURCE=asource
  33. moocow.REQUEST=arequest
  34. moocow.SERVER_NAME=servername()
  35. moocow.SEL=seloriginal
  36. moocow.!FUNGUS=aheader
  37.  
  38. ard=value(enmadd||'TEMPDATA_DIR',,'os2environment')
  39. ard=strip(ard,'t','\')||'\'
  40. getfil=ard||'_T'||mytid||'.'||theport
  41.  
  42. wow=cvwrite(getfil,moocow)
  43.  
  44. numeric digits wow2
  45. if verbose>2 then call pmprintf_sref(" Saved  state to " getfil)
  46.  
  47. return getfil
  48.  
  49.