Cobol - pasar un campo numerico a edicion

01    CAMPOS.

        03	NÚMERO-7w		pic 9(7).

        03	ALFA-7w			pic X(7).

 0000-pic-9-a-pic-x

		.

		initialize	j	ALFA-7w

		perform	varying	I	from 1 by 1	 until I > 7

				if		NÚMERO-7w(I:1)	not = zero

						perform	varying	I	from I by 1	 until I > 7

								add		1	to	j

								move	NÚMERO-7w(I:1)	to	ALFA-7w(j:1)

						end-perform

				end-if

		end-perform

		.

 0000-exit

                .

77 CAMPO_MASCARA PIC ZZZZZZZZZZZ,ZZ.

77 CAMPO_TEXTO   PIC X(14).

77 CONTADOR PIC 9(03).

MOVE numero TO CAMPO_MASCARA.

INSPECT CAMPO_MASCARA TALLYING CONTADOR FOR LEADING SPACES

MOVE CAMPO_MASCARA(CONTADOR + 1 :) TO CAMPO_TEXTO