Hola Breew
Utilizo el font Bar-Code 39 y para la impresión uso
Código COBOL:
01 BARRAS.
02 FILLER PIC X VALUE "*".
02 COD-B PIC X(16).
02 FILLER PIC X VALUE "*".
PROCEDURE DIVISION.
MOVE POW-TEXT OF CMTEXT45 TO COD.
INSPECT cod REPLACING ALL " " BY "$".
INSPECT cod REPLACING ALL "$$" BY " ".
INSPECT cod REPLACING ALL "$ " BY " ".
INSPECT cod REPLACING ALL " $" BY " ".
INSPECT cod REPLACING ALL "$" BY " ".
MOVE COD TO COD-B.
Si tienes codigos menores a 16 caracteres eliminas los campos en blanco de esta manera el lector
los leera poniendo un asterisco al comienzo y final.