home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / SREFPRC1 / PMPRINTF.SRF < prev    next >
Text File  |  1997-07-06  |  439b  |  22 lines
  1. /* Pre processiong for rexxlib pmprintf
  2. uses environment variables.
  3. Also, if nofile=1, then don't write to output file (used by commonl log to screen
  4. echoer)
  5.  */
  6.  
  7. pmprintf_sref:
  8. parse arg aval,nofile
  9.  
  10. if symbol('serverport')<>'VAR' then
  11.   sport=extract('serverport')
  12. else
  13.   sport=serverport
  14.  
  15. /* dump to the pmprintf thread */
  16. goober='SREF_'||sport||'_PMPRINTF'
  17. a=rxqueue('s',goober)
  18. queue  nofile||','aval
  19. return 0
  20.  
  21.  
  22.