HP3000-L Archives

March 2002, 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:
Robert Mills <[log in to unmask]>
Reply To:
Robert Mills <[log in to unmask]>
Date:
Wed, 27 Mar 2002 15:00:28 -0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (50 lines)
My apology to MPE for casting aspersions, it's our current version of MPEX
that is to blame. Have passed the info onto our suppliers support team.

When joining a company that has MPEX, I set-up a script that automatically
starts it when/where ever I logon. I have got to the point, after over 15
years of MPEX usage, that I write 'CI prompt' when at times I should have
written 'MPEX prompt'.

Thanks to all those who responded.

regards,
Robert W.Mills
-----Original Message-----
From: Stan Sieler [mailto:[log in to unmask]]
Sent: 25 March 2002 23:49
To: Robert Mills; [log in to unmask]
Subject: Re: [HP3000-L] HPFILE variable anomaly


Re:

> Was trying to find a way for a command file to detect if it was run from
the
> CI prompt or via a Cobol program via the HPCICOMMAND intrinsic. During my
> experimentation I obtained a strange result from the HPFILE variable.

Explanation:

   from CI, do:  HELP SHOWVAR
   maybe you've got a UDC "covering" it and fouling things up?

   Or, :SHOWCATALOG, and look for "SHOWVAR"


Workaround:

   if hpcmdnum = 0 then
      echo (HPCMDNUM) this is from a process (not from the CI)
   else
      echo (HPCMDNUM) this is from the CI
      endif

Note: the above won't work if you've gone out of your way to do:
  :setvar hpredosize 0
Stan Sieler                                           [log in to unmask]
www.allegro.com/sieler/wanted/index.html          www.allegro.com/sieler

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

ATOM RSS1 RSS2