Strange Characters - Fixed

[Terry Pickering]

Chris Walker suggested:


Hex 20 is a space, so there's no point in trimming it as the resulting

fixed-length field is space-padded.  For hex 00:


def d_zero integer size 1 = 0

def d_null char*1 = character(d_zero)

def d_ndx = index(stringfield, d_null)		


Then I just did a define like: 


DEFINE T-NEW CHAR*15 = TRUNC(STRINGFIELD) IF D_NDX = 0 &

  ELSE STRINGFIELD[1:(D_NDX - 1)]


This worked great. Thanks for the ideas.





<color><param>0000,0000,8080</param>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

<bold>Terry Pickering        Consultant Extraordinare

</bold>Monday and Friday        Tuesday - Thursday

Portland                 Eugene

(503) 245-7178           (541) 687-3416

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~</color>
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.