RE: Scan Hex values of Character field

Why not just...

D Position                s   10i 0
D BreakLine             s   80a
D Start                     s  10i 0
D End                      s  10i 0

/free
    Start = 1;
    End = %Len(%Trim(Char));
  DoU Position = 0;
    Position = %Scan(x'0D':Char:Start);
    If Position > 0;
       BreakLine = %Subst(Char:Start:Position - 1);
       Start = Position + 1;
       // output BreakLine to print or screen
    Else;
       BreakLine = %Subst(Char:Start: End-Start);
       // output BreakLine to print or screen
    EndIf;
  EndDo
 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
mcrangle@xxxxxxxxxxxxxxxxxxxx
Sent: Tuesday, August 01, 2006 8:52 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Scan Hex values of Character field


Here is my problem;

We have a 3000 long character field populated from Lotus Notes via DECS.

I need to find all instances of a carriage return ( hex value X'0D I
think)
so I can display the field on both green screen and printouts to
suppliers.

I can only find instances of single values character to hex conversions
on
the archive.

Is something like this possible:

D           DS
D Char                  3000A
D  HexChar        3000B

Or other solutions gratefully received.

Regards