User bio
404 bio not found
Member since Mar 23, 2018
Posts:
show all 3
Replies:
show all 4
Larry Faraci · Nov 2, 2018 go to post

While adding the length check is valid for a pure coding solution, the most practical reason where leading zero's are necessary is for values that are required to be a fixed length such as SSN's.

If a value initially  exceeded that fixed length, it most likely would have been trapped out as an invalid entry before it reached the length adjustment code.

Larry Faraci · Nov 1, 2018 go to post

Try this:

ROU>s val="sd123X"             ; value to be justified

ROU>s len=9                             ; length of the total string

ROU>k z                                      ; make sure z is undefined

ROU>s $P(z,"0",len)=val        ; set z to value with leading zeros

ROU>s val=$E(z,*-(len-1),*)   ; trim value to required length

ROU>w !,val

000sd123X

Certifications & Credly badges:
Larry has no Certifications & Credly badges yet.
Followers:
Larry has no followers yet.
Following:
Larry has not followed anybody yet.