HP3000-L Archives

March 2002, Week 1

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Need help
From:
Paul H Christidis <[log in to unmask]>
Reply To:
Paul H Christidis <[log in to unmask]>
Date:
Thu, 7 Mar 2002 11:17:06 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (23 lines) 
Peter,

A small revision to the suggested UDC that I submitted earlier.  The first
version would encounter errors under some conditions.

Regards
Paul Christidis

STREAM
anyparm StrmParms=![""]
OPTION NORECURSION
setvar _jobfile WORD("!StrmParms")
if LEN(_jobfile) = 0 then
  stream !StrmParms
else
  copy !_jobfile,![basename(_jobfile)].pub.sys;yes
  stream !StrmParms
endif
deletevar _jobfile

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2