HP3000-L Archives

November 2005, 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:
"James B. Byrne" <[log in to unmask]>
Reply To:
Date:
Mon, 28 Nov 2005 22:34:28 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (37 lines)
On 28 Nov 2005 at 10:06, Paul H Christidis wrote:

> setvar PosixName     FINFO("MpeName", "posixfullfname")

This only works if the file exists.  One is thus required to script 
to test for the file, create it if it does not already exist, and 
then use the technique given.  My solution, albeit not constructed 
for the general case, is:

SETVAR _SD_HFS_ "![DIRNAME('!_SD_')]"
IF LEN('!_SD_HFS_') = 0 THEN
  SETVAR _SD_HFS_ "./"
ELSE
  SETVAR _SD_HFS_ "!_SD_HFS_" + "/"
ENDIF
SETVAR _SD_HFS_ "!_SD_HFS_" + "![BASENAME('!_SD_')]"
ECHO !_SD_HFS_

There is also a UDC provided in the HPPXUDC.PUB.SYS file called 
MPETOHFS.  The difficulty with this solution being my reluctance to 
employ UDCs within JOB files.

Regards,
Jim

-- 

***     e-mail is NOT a secure channel     ***
James B. Byrne                mailto:ByrneJB.<token>@Harte-Lyne.ca
Harte & Lyne Limited          http://www.harte-lyne.ca
9 Brockley Drive              vox: +1 905 561 1241
Hamilton, Ontario             fax: +1 905 561 0757
Canada  L8E 3CE               delivery <token> = hal

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

ATOM RSS1 RSS2