Ayuda a rellenar un Char con ceros Izq

[vamp_01]

Hola a todos , si aca nuevamente consultando a ustedes como se hacen las cosas...
he intentado resolver mi problema, pero no doy con la solucion, a lo mejor es mas facil de lo que yo creo.

Bueno mi problema es el siguiente, tengo un campo declarado como char de largo 20 (data a7_1 like ztbl-char20.)

el dato que se agrega a ese campo por ejemplo es 1-k...
este dato tiene un largo de 3, es decir, me quedan 17 espacio en el total del largo del campo que ocupar, aca la pregunta, como lo hago para que este char se rellene los 17 espacios que quedan con ceros a la izquierda.

data a7_1 like ztbl-char20.
*asi esta ahora
a7_1 = '1-k'.
*debe quedar asi
a7_1 = '000000000000000001-k'.
Que hago para que el campo quede completo, en su largo total.
de ante mano Gracias