Gilbert,
Try this:
PROC 0
CONTROL MSG LIST CON
SET X = &STR( AA-BB )
SET NEWX = &STR()
SYSCALL STRIPPER NEWX TOBESTRIPPED(&STR(&X))
WRITE "/"&X"/" "/"&NEWX"/"
EXIT
STRIPPER: PROC 1 STRIPPED TOBESTRIPPED()
SYSREF STRIPPED
SET STRIPPED = &STR(&TOBESTRIPPED)
RETURN
END
END
Chuck
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Gilbert Saint-Flour
Sent: Thursday, June 04, 2009 8:33 AM
To: [email protected]
Subject: CLIST equivalent to REXX STRIP
Hello:
I'm trying to find a way to translate this REXX instruction to
a CLIST equivalent : SAY '/' || STRIP(' AA-BB ') || '/'
I'm trying to remove the leading and trailing spaces, which may
or may not be present in the string.
All the CLIST equivalent solutions I found so far are more complex,
in particular because of the hyphen that's part of the AA-BB string.
Can anyone think of something simple and easy ?
Thank you.
--
Gilbert Saint-Flour
GSF Software
http://gsf-soft.com/
----------------------------------------------------------------------
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
