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:
Stan Sieler <[log in to unmask]>
Reply To:
Stan Sieler <[log in to unmask]>
Date:
Mon, 25 Mar 2002 15:48:44 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (30 lines)
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