STRPDM.COM                  

   Home    |    IBM Manuals Direct    |    iBytes Library   |    Links    |   About     |   Book Store   |  On-Line Code

 

iByte

Subject – iByte - Converting a numeric field to a left justified blank filled alpha field.

Example:
D NumericField    S             07  0 INZ(0004567)
D AlphaField      S             10    INZ         

 
C                   EVAL      AlphaField = %TRIM(%EDITC(NumericField:'Z')

Result - AlphaField = '4567      '