Re: Retrieving hex chars of a record...

Charles St-Laurent wrote on 24/10/2006 11:04:57 AM:
 

I have a file that is internally described as a long string field in my
program. I know that for example the chars at position 110-111 must be
considered as a packed field (3P 0). I want to extract the 2 chars in a
temporary string of my program, using %subst(rcd:110:2) but when I do 

that,

the %subst operation converts all non-displayable hexadecimal chars to
blanks...

How can I extract these chars with no conversion? I tried to loop to 

extract

char by char but the result is the same... Non-displayable chars are
converted to blank...

You could try something along these lines (not tested):


     D                 DS                  based(pRecord)
     D  packedField          110    111P 0

     D recDS           DS                  based(pRecord)
     D                                     qualified
     D  packedfield                   3P 0 overlay(recDS : 110)


Then, before you use packedField,
/free
 pRecord = %addr(RecordVariable)
/end-free


HTH,
Adam

#####################################################################################
Attention:
The above message and/or attachment(s) is private and confidential and is 
intended 
only for the people for which it is addressed. If you are not named in the 
address 
fields, ignore the contents and delete all the material. Thank you. Have a nice 
day.

For more information on email virus scanning, security and content
management, please contact administrator@xxxxxxxxxxxx
#####################################################################################