Re: MCH0601 on CVTCH

[Barbara Morris <bmorris@xxxxxxxxxx>]

sunil K Tripathi wrote:
>
> There may be packed flds of different lengths in the string. So I was
> wondering how will i use the data structure approach ?

- Use a data structure with a 30-digit packed field.
- Move your character field right-adjusted to the data structure, with
the left-most bytes of the DS set to x'00'
- Assign the packed field to a 30-digit zoned field.
- The value you want is in the zoned field.

D packedChar      ds
D   packedVal                   30p 0
D zonedChar       ds
D   zonedVal                    30s 0
D len             s             10i 0
D msg             s             52
C     *entry        plist
C                   parm                    parm             16

C                   eval      len = %len(%trim(parm))
C                   evalr     packedChar = %trim(parm)
C                   eval      %subst(packedChar : 1 : 16 - len)
C                                  = *allx'00'
C                   eval      zonedVal = packedVal
C                   eval      msg = %char(zonedVal)
C     msg           dsply
C                   return

call thispgm x'12345F'
dsply 12345
call thispgm x'12345D'
dsply -12345

Barbara Morris