In a recent note, John Mattson said:
> Date: Tue, 9 Jan 2007 13:18:28 -0800
>
> I have a fairly simple REXX that reads record by record from a PDS member
> and then writes to a new file. Basically a REXX ibegener. (Yes, I know
> there are better ways, but please humor me, I have reasons.) Problem is
> that it reads in lowercase characters as UPERCASE. What I want to do is
> PRESERVE the case whatever it is... Anyone have any ideas no how to fix
> this?
>
> "EXECIO 1 DISKR FM"
> IF RC>0 THEN LEAVE
> PULL RECORD
> SAY "RECORD BEFORE:" RECORD
> SAY "RECORD AFTER :" RECORD
> PUSH RECORD
> "EXECIO 1 DISKW TO"
>
Use, instead:
"EXECIO 1 DISKR FM (stem RECORD."
IF RC>0 THEN LEAVE
SAY "RECORD BEFORE:" RECORD.1
SAY "RECORD AFTER :" RECORD.1
"EXECIO 1 DISKW TO (stem RECORD."
Two instructions fewer to work correctly.
-- gil
--
StorageTek
INFORMATION made POWERFUL
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
