Terry:
The 3000 has a rather nasty habit of assuming where you want a file kept
(either in temporary or permanent file domain). I've been bitten by this same
beast many times in the past. Try the following:
:BUILD DATEFILE.SYSOPER;REC=,,F,ASCII;DISC=1
:FILE DATEFILE=DATEFILE.SYSOPER,OLD;DEV=DISC
:ECHO !DATE>*DATEFILE
The :BUILD creates a permanent file. The :FILE equation tells the system that
you want to use the permanent file (,OLD) you just created and that it's a
disk file (;DEV=DISC) rather than being shoveled off to a printer somewhere.
When you do the :ECHO statement, the asterisk forces the system to recognize
the :FILE equation you set up and the date is echoed to the permanent file
rather than some temporary file where it thinks it should go.
Hope this helps!!
Tom Madigan
SE Pennsylvania
"My opinions are strictly my own ... Who else would want 'em?"
Terry Prime <[log in to unmask]> wrote:
> Hi,
> I have the following command procedure set up to change the date in an
> indirect file used in a turbostore batch job.
>
> SETVAR DATE,"!HPMONTH/!HPDATE/!HPYEAR"
> SETVAR DIR,"@[log in to unmask]@[log in to unmask]@.@3000@"
> SETVAR NEW,";DIRECTORY;INTER;PROGRESS=3"
> SETVAR NEW1,"COMPRESS=HIGH;MAXTAPEBUF;DATE>=!DATE"
> FILE DDFS.SYSOPER,OLD;DEV=DISC
> FILE DDFS1.SYSOPER,OLD;DEV=DISC
> FILE DDFS2.SYSOPER,OLD;DEV=DISC
> IF HPDAY=7 THEN
> PURGE DDFS1.SYSOPER.SYS
> PURGE DDFS2.SYSOPER.SYS
> COPY DDFS.SYSOPER,DDFS1.SYSOPER
> COPY DDFS.SYSOPER,DDFS2.SYSOPER
> ECHO !DIR>DDFS1.SYSOPER.SYS
> ECHO !NEW!NEW1>>DDFS1.SYSOPER.SYS
> ECHO ;ONLINE=START>>DDFS1.SYSOPER.SYS
> COPY DDFS1.SYSOPER.SYS,DDFS.SYSOPER.SYS
> DELETEVAR etc
>
> This creates a temporary file which is unfortunately deleted when the
> session is discontinued. I thought that the DEV=DISC parameter would
> create a permanent file on disc. What am I missing?
>
> thanks ... Terry
>
> <><><><><><><><><><><><><><><><><><><><><><><><>
> Growing old is mandatory, acting old is optional
>
> Terry Prime
> Client Services Officer
> Queensland University of Technology
> (07) 38641784
____________________________________________________________________
Get your own FREE, personal Netscape WebMail account today at http://webmail.netscape.com.
|
