
16000	!-------------------------------------------------------------------- &
	!								      &
	!	 FNRJZF  -  Right justify and zero fill a numeric field	      &
	!								      &
	!-------------------------------------------------------------------- &
	!								      &
	!	             FN.RJZF$ (N$,L%)				      &
	!								      &
	!	Converts a left justified numeric string to a right	      &
	! 	justified, zero filled string of the specified length.	      &
	!								      &
        !								      &
	!	N$			Input string			      &
	!	L%			Length of output string		      &
	!	FN.RJZF$		Output of function		      &
	!								      &
	!-------------------------------------------------------------------- &
									      &

16010	  DEF FN.RJZF$ (N$,L%)						      &
	\ N$ = EDIT$ (N$,128%)						      &
	\ N$ = STRING$ (L% - LEN(N$),48%) + N$				      &
	\ FN.RJZF$ = N$							      &
	\ FNEND								      &
	! Eliminate trailing spaces. Add leading zeroes. 		      &

 