HP3000-L Archives

May 1999, Week 4

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:
From:
Tad Bochan <[log in to unmask]>
Reply To:
Tad Bochan <[log in to unmask]>
Date:
Tue, 25 May 1999 08:04:30 +0200
Content-Type:
text/plain
Parts/Attachments:
text/plain (74 lines)
Hi Terry,
Just to elaborate a bit more...

When a program opens a file, it passes a 'file designator' to the
FOPEN/HPFOPEN intrinsic, where a 'file designator' is a label
associated with some file.
The default action of FOPEN/HPFOPEN is to first look for a
a file equate which defines this label.
If none is found, the intrinsic looks for a file with the same name
as the designator.

However, the program can tell the intrinsic NOT to look for the
file equate UNLESS the file designator is explicitly prefixed
by an '*', and this is precisely the way that the CI works with
$stdin and $stdlist.

So, if the $stdlist is specified as XYZ and there exists a file equate
for the designator XYZ, the CI does not make the connection, but if
$stdlist is specified as *XYZ, it does.

I hope that makes things a bit clearer. If not, I am sure that others
on the list will find a way.

Cheers,
Tad.

-----Original Message-----
From: Terry Prime <[log in to unmask]>
To: [log in to unmask] <[log in to unmask]>
Date: 25 May 1999 02:45
Subject: Re: [permanent file]


>I have rewritten it as a batch job (not a pretty version as yet),instead of
>a command file that is run interactively and still get the same error.
>>
>!JOB TSTCOPY,MANAGER.SYS,SYSOPER;HIPRI;PRI=CS;OUTCLASS=LP,9
>!SETVAR DATE,"!HPMONTH/!HPDATE/!HPYEAR"
>!SETVAR DIR,"@[log in to unmask]@[log in to unmask]@.@3000@"
>!SETVAR NEW,";DIRECTORY;INTER;PROGRESS=3"
>!SETVAR NEW1,";COMPRESSION=HIGH;MAXTAPEBUF;DATE>=!DATE"
>!COPY DDFS.SYSOPER,DDFS1.SYSOPER
>!CONTINUE
>!PURGE DDFS.SYSOPER.SYS
>!SETJCW CIERROR=0
>!BUILD DDFS.SYSOPER;REC=,,F,ASCII;DISC=1
>!FILE DDFS=DDFS.SYSOPER,OLD;DEV=DISC
>!SETJCW CIERROR=0
>!ECHO !DIR>*DDFS.SYSOPER.SYS
>!ECHO !NEW!NEW1>>*DDFS.SYSOPER.SYS
>!ECHO ;ONLINE=START>>*DDFS.SYSOPER.SYS
>!DELETVAR DATE
>!DELETEVAR DIR
>!DELETEVAR NEW
>!DELETEVAR NEW1
>!EOJ
>
>On the first ECHO command receive :-
>INVALID FILE REFERENCE (FSERR 54)
>Couldn't open output redirection file, command failed.  (CIERR 9425)
>Remainder of job flushed.
>I can not see anything obvious to show that the code is wrong.  There must
>be some other reason.  We are on 5.5 powerpatch 6 with Y2K patches applied.
>regards  ...  Terry
>
><><><><><><><><><><><><><><><><><><><><><><><><>
>Growing old is mandatory, acting old is optional
>
>Terry Prime
>Client Services Officer
>Queensland University of Technology
>(07) 38641784
>

ATOM RSS1 RSS2