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:
Mon, 25 Mar 2002 17:05:45 -0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (45 lines)
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.
Anybody got an explanation for the following:

Command file TEST.ROBERT.SYSDEV contains

  showvar hpfile
  echo HPFILE = !hpfile
  showvar hpfile

Run from the CI prompt it displays

  HPFILE =
  HPFILE = TEST.ROBERT.SYSDEV
  HPFILE =

Run from a Cobol program via the HPCICOMMAND intrinsic it displays

  HPFILE = TEST.ROBERT.SYSDEV
  HPFILE = TEST.ROBERT.SYSDEV
  HPFILE = TEST.ROBERT.SYSDEV

Environment is MPE/iX 6.5 plus all reactive patches.

regards,
*****************************
Robert W.Mills, Systems Development Manager, Windsong Services
Electron House, Cray Avenue, St. Mary Cray, Kent BR5 3PN, ENGLAND
Tel: +44 (0)1689.870622 x 3005  Fax: +44 (0)1689 899026
[log in to unmask]
********************************
The thoughts, comments, and opinions expressed herein are mine.
They do not reflect those of my employer, nor anyone else.
********************************
***Confidentiality Notice: This e-mail message, including any attachments,
is for the sole use of the intended recipients and may contain confidential
and privileged information. Any unauthorized review, use, disclosure or
distribution is prohibited. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message.

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

ATOM RSS1 RSS2