The whole problem is rather elegantly solved by switching to 'listfile'
(which is so vastly better than listf it's not funny (imo)). Observe:
:showvar @cierr@
CIERROR = 0
HPCIERR = 0
HPCIERRCOL = 0
HPCIERRMSG =
:listf foo,2
Non-existent file. (CIERR 907)
: showvar @cierr@
CIERROR = 907
HPCIERR = 907
HPCIERRCOL = 0
HPCIERRMSG = Non-existent file. (CIERR 907)
: errclear
: listfile foo,2
Non-existent MPE named file "FOO.PUB.DONNA". (CIWARN 920)
: showvar @cierr@
CIERROR = 920
HPCIERR = -920
HPCIERRCOL = 0
HPCIERRMSG = Non-existent MPE named file "!". (CIWARN 920)
- d
---
Donna Hofmeister
Allegro Consultants, Inc.
408-252-2330
> -----Original Message-----
> From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
> Behalf Of Francois Desrochers
> Sent: Wednesday, September 02, 2009 5:02 AM
> To: [log in to unmask]
> Subject: Re: [HP3000-L] Question on a LISTF command
>
> John,
>
> As far as I know, A LISTF on a non-existent file has always been an
> error (wildcard being a special case as Dave Powell already pointed
> out). A PURGE command on a non-existent file gives a warning (383). You
> may have had HPAUTOCONT set to TRUE but then the job would not stop on
> any error.
>
> HTH
> François
>
> -----Original Message-----
> From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
> Behalf Of John Bawden
> Sent: Tuesday, September 01, 2009 6:44 PM
> To: [log in to unmask]
> Subject: [HP3000-L] Question on a LISTF command
>
> I know I'm losing brain cells as the years pass but I seem to remember
> the LISTF command being faily innocuous when you did it on a file that
> didn't exist. But at my day job, we had a job abort at the LISTF
> beccause the CIERR was IIRC 907 and the job aborted. I confirmed this
> on the system I support on my day job. But I seem to remember back a
> few years that I did LISTFs and checked a CIWARN value that would tell
> you that the file did not exist and you could choose what action to
> take at that time and the job did not abort?
> Am I just imaging that or did it once work that way? If it did once
> work does anyone know what changed to mak it a fatal error?
> Thanks for any assistance.
> John Bawden
> Homestead3000 Consulting
> MPE Forever
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
> Remarque - Cette transmission est pour l'usage exclusif du ou des
> destinataires indiqués et peut contenir de l'information confidentielle
> ou protégée. Si vous n'êtes pas le destinataire indiqué, veuillez
> supprimer cette transmission ainsi que tout fichier joint et aviser
> l'expéditeur par courriel immédiatement. Toute révision, utilisation,
> divulgation ou distribution non autorisée est interdite.
>
>
> Notice: This transmission is for the sole use of the intended
> recipient(s) and may contain information that is confidential and/or
> privileged. If you are not the intended recipient, please delete this
> transmission and any attachments and notify the sender by return email
> immediately. Any unauthorized review, use, disclosure or distribution
> is prohibited.
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|