How about this?
D STRING S 10A C EVAL STRING=' 1234 ' C ' ':'0' XLATE STRING STRING C DSPLY STRING C C SETON LR C RETURNOf course, this does not do any testing to insure that the string is numeric. All it does is replace the blanks with zeros. HTH, Joe
Comment