Put PARSE before your ARG and you'll be sorted.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of John Mattson
Sent: 09 January 2007 21:18
To: [email protected]
Subject: REXX EXECIO changing LOWERCASE TO UPPERCASE
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?
Here is an example, Using the following file as input:
AFITJLM.ALC.TSTFTP(TSTFTP)
*****************************
UPPERCASE
lowercase
Here is what I get when I run the REXX
EXECUTING MSYS.ISPF.REXX(ALC#VST)
PDQ : D
SYS : CAM
IDS : 'AFITJLM.ALC.TSTFTP(TSTFTP)'
ODS : 'DALC.FTPCTL(TSTFTP)'
RECORD BEFORE: UPPERCASE
RECORD AFTER : UPPERCASE
RECORD BEFORE: LOWERCASE
RECORD AFTER : LOWERCASE
Here is the REXX
/* REXX */
TRLEVEL = 'I'
TRLEVEL = ''
INTERPRET TRACE TRLEVEL
SIGNAL ON HALT
TRACE
ARG PDQ SYS IDS ODS
PDQ = STRIP(PDQ)
SYS = STRIP(SYS)
IDS = STRIP(IDS)
ODS = STRIP(ODS)
IDS = "'"IDS"'"
ODS = "'"ODS"'"
SAY " "
SAY "EXECUTING MSYS.ISPF.REXX(ALC#VST)"
SAY "PDQ :" PDQ
SAY "SYS :" SYS
SAY "IDS :" IDS
SAY "ODS :" ODS
INTERPRET TRACE TRLEVEL
/* DOES THE USER'S DSN & MEMBER EXIST ? */ TRACE INTERPRET TRACE TRLEVEL
ADDRESS TSO
IF SYSDSN(IDS) ¬= "OK" THEN
DO
TRACE
SAY "***"
SAY "*** COPY-FROM DS(MEMBER) DOES NOT EXIST, TRY AGAIN"
SAY "***"
INTERPRET TRACE TRLEVEL
SIGNAL BADEND
END
FMTO: ADDRESS TSO
"ALLOC DD(FM) DSN("IDS") SHR "
"ALLOC DD(TO) DSN("ODS") SHR "
TRACE
"NEWSTACK"
DO X=1 BY 1 UNTIL X>999
"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"
END
INTERPRET TRACE TRLEVEL
"EXECIO 0 DISKR FM (FINIS"
"EXECIO 0 DISKW TO (FINIS"
"FREE DD(FM TO)"
/* "ISPEXEC EDIT DATASET("ODS")" */
SIGNAL THEEND
BADEND:
ADDRESS TSO
"FREE DD(X)"
"FREE ALL"
EXIT (9999)
THEEND:
ADDRESS TSO
"FREE ALL"
EXIT
----------------------------------------------------------------------
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
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.16.8/621 - Release Date: 09/01/2007
13:37
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.16.8/621 - Release Date: 09/01/2007
13:37
----------------------------------------------------------------------
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
