On Thu, 4 Jun 2009 15:32:54 +0200 Gilbert Saint-Flour <[email protected]>
wrote:
:>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 ?
If there ain't no imbedded blanks, you can have a subclist
PROC 0
NGLOBAL AAA
SET &BBB = &STR( AAA-BBB )
SYSCALL SUB &BBB
WRITE AAA=X&AAA.X
WRITE BBB=X&BBB.X
RETURN
SUB: PROC 1 JJJ
NGLOBAL AAA
SET &AAA = &STR(&JJJ)
RETURN
END
--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
----------------------------------------------------------------------
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
