removing leading seros from a character field

[Guest.Visitor]

whats the best way to remove leading zeros from a character field in order to concatenate a number into a string; eg: FIELDA = '0009' AND FIELDB = '0020' to get resulting string with 'Entry 9 of 20 in JOBQ' in RPGIV thanks, Mick.

[dchristie]

D fielda s 4 0 inz(0009) D fieldb s 4 0 inz(0040) D string s 30 C Eval String = %triml(%editc(fielda:'Z')) + C ' of ' + C %triml(%editc(fieldb:'Z')) + C ' in JOBQ' This is assuming that both fields are numeric. Work on my V4R4 box.

[Guest.Visitor]

move Charfield to numericfiled eval Charfield = %editc(numericfield:'Z')