如何在RPGLE中生成QR BarCode

Question

有人能帮助我使用IBM iSeries中的条形码DDS关键字打印QR码示例RPGLE程序吗？

我试过以下代码，但是转换为PDF的假脱机文件是空白的。

打印文件DDS

A R QREC

A FLD1 25A 12 12BARCODE(QRCODE 1 *HRZ +)

X'02‘(*宽度.05) (*SWIDTH1.5)+

A (*QRCODE 4 1*转换(1)+)

*修剪*AIMSTD(99))

RPGLE PGM

FQRCDPF O E打印机

Fld1 =“我的数据”；

编写Qrec；

*InLr = *On;

Answer 1

延迟但可能有用，用*UCCEAN替换*AIMSTD(99)

一个..。A (*QRCODE 4 1*转换(1)+A *TRIM *UCCEAN)