Hi Al,
Certainly, you can use the $BASICTYPE compiler directive to assert a
BASICTYPE U within your compilation, it's documented at
http://publibfi.boulder.ibm.com/epubs/pdf/9163.pdf...
Martin
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Al DeWitt
$BASICTYPE U at the top of the program should do the trick (HELP
$BASICTYPE)
Larry Hiscock
Western Computer Services
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Al DeWitt
Sent: Friday, August 26, 2005 3:13 PM
To: u2-users@listserver.u2ug.org
Al,
This works on universe:
TEXT = CHANGE(TEXT, @SM:@SM, @VM:@VM)
TEXT = CONVERT(@SM, , TEXT)
TEXT = FMTS(TEXT, 50T)
TEXT = CONVERT(@VM:@TM, @SM:@SM, TEXT)
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Al DeWitt
Sent: Wednesday, August 24, 2005 6:59 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Formatting Data
Part of the problem, I believe is that our ECLTYPE and BASICTYPE are P,
Pick. Commands are not working the way I expect because I'm
The use of the callable routine !FOLD was suggested a day or two ago. It is
very affective in that it naturally breaks on space. If you use the remove
to display the folded text it save a great deal of coding.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please
You're going to have a problem with the 'blank' line. If you convert the
@SMs to spaces, then it will wrap the rest of the lines up and won't
preserve the line break. You're probably going to need to do some coding
something like this:
* Assuming TEXT contains the current text delimited by @SM
Goo'day,
I'll include asnippet of ours that works a treat in situations like this:
*
THIS.DESC = FMT(TRIM(THIS.DESC),27T)
THIS.DESC = CHANGE(THIS.DESC,@TM,@VM)
*
X = DCOUNT(THIS.DESC,@VM)
FOR I = 1 TO X
PRINT ON 1 THIS.DESC1,1'L#27'
Consider Socratic Programming... that is, break the problem down into
elemental pieces.
Please consider broadcasting a few lines of the bug-laden code.
--Bill
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Al DeWitt
Sent: Wednesday, August 24, 2005 5:45
Oops!Sorry
1,1 should be 1,I for the sharp-eyed among us...
I'll include a snippet of ours that works a treat in situations like this:
*
THIS.DESC = FMT(TRIM(THIS.DESC),27T)
THIS.DESC = CHANGE(THIS.DESC,@TM,@VM)
*
X = DCOUNT(THIS.DESC,@VM)
FOR
Assuming you have your sample data in a single variable, you can try
something like this:
MYDATA = @RECORDX,Y
MYDATA = CHANGE(MYDATA,@SVM:@SVM,@VM)
MYDATA = CHANGE(MYDATA,@SVM, )
MYDATA = CHANGE(MYDATA,. ,. )
MYDATA = CHANGE(MYDATA,. ,. )
VM.CNT = DCOUNT(MYDATA,@VM)
NEW.DATA = ''
VM = ''
FOR A
flavor is up to the task, but I'm open to
any ideas.
--Al
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Brutzman, Bill
Sent: Wednesday, August 24, 2005 6:02 PM
To: 'u2-users@listserver.u2ug.org'
Subject: RE: [U2] Formatting Data
Consider Socratic Programming
5:59 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Formatting Data
Part of the problem, I believe is that our ECLTYPE and BASICTYPE are
P, Pick. Commands are not working the way I expect because I'm
approaching this from a UV mindset (I can't help it, it's what I
know).
I'm being told
, 2005 4:59 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Formatting Data
Part of the problem, I believe is that our ECLTYPE and BASICTYPE are P,
Pick. Commands are not working the way I expect because I'm approaching
this from a UV mindset (I can't help it, it's what I know).
I'm being
13 matches
Mail list logo