No joy, I'm afraid!
***************************
DELTA_ROB$$ $define/user decc$efs_case_preserve enable
DELTA_ROB$$ PERL WEBREPORT$SYSTEM:TXT2PDF.PL_uppercase -landscape -paper A4
-border "SYS$TEMP:TEST_20050209_BFAD.TXT" -verbose
Processing SYS$TEMP:TEST_20050209_BFAD.TXT file
Processing VMS file
Changing to uppercase
Writing TEST_20050209_BFAD.PDF file
PDF generation time = 0.00 sec
DELTA_ROB$$ dir test*;
Directory SY0:[LIVE.TMP]
test_20050209_bfad.pdf;17
14/52 9-FEB-2005 16:14:02.28
[ITOPS,BATCH_OP] (RWD,RWD,RWD,RWED)
TEST_20050209_BFAD.TXT;2
4/52 9-FEB-2005 14:08:36.38
[ITOPS,BATCH_OP] (RWD,RWD,RWD,RWED)
Total of 2 files, 18/104 blocks.
DELTA_ROB$$
***************************
-----Original Message-----
From: John E. Malmberg [mailto:[EMAIL PROTECTED]
Sent: 09 February 2005 16:07
To: [email protected]
Subject: Re: ODS-5 Filenames
On Wed, 9 Feb 2005, Atkinson, Robert wrote:
> I'm using TXT2PDF from Sanface Software. We've converted some of our
> disks to ODS-5, but now find that the files generated from uppercase
> filenames are created in lower case.
>
> The user process has the PARSE_STYLE parameter set to TRADITIONAL, so
> that files are created in uppercase by default, but this appears to
> make no difference within Perl.
> This is the code :-
>
> $output.=$out;
> $verbose and print "Changing to uppercase\n";
> $output=uc($out);
> open (OUT, ">$output") || die "$producer1: couldn't open output
> file $output\n";
>
> And the output is :-
>
> Processing SYS$TEMP:TEST_20050209_BFAD.TXT file
> Processing VMS file
> Changing to uppercase
> Writing TEST_20050209_BFAD.PDF file
>
> But the file created is in lowercase :-
>
> Directory SY0:[LIVE.TMP]
>
> test_20050209_bfad.pdf;11
> 14/52 9-FEB-2005 14:43:40.30
> TEST_20050209_BFAD.TXT;2
> 4/52 9-FEB-2005 14:08:36.38
Just before running Perl, try:
$define/user decc$efs_case_preserve enable
See if it makes a difference.
If it does, then it needs to be decided if PERL should take this action by
default if the user does not explicitly set the decc$efs_case_preserve
feature logical before running perl.
-John
[EMAIL PROTECTED]
Personal Opinion Only
***********************************************************************************
Any opinions expressed in email are those of the individual and not necessarily
those of the company. This email and any files transmitted with it are
confidential and solely for the use of the intended recipient or entity to who
they are addressed. It may contain material protected by attorney-client
privilege. If you are not the intended recipient, or a person responsible for
delivering to the intended recipient, be advised that you have received this
email in error and that any use is strictly prohibited.
Random House Group +44 (0) 20 7840 8400.
http://www.randomhouse.co.uk
http://www.booksattransworld.co.uk
http://www.kidsatrandomhouse.co.uk
***********************************************************************************
