AS400 RPG使用条码打印机(Zebra888-TT)打印中文标签-1

最新推荐文章于 2023-04-09 21:24:13 发布

JmLei

最新推荐文章于 2023-04-09 21:24:13 发布

阅读量2.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： AS400/RPGLE/CL 文章标签： c download date properties header file

本文链接：https://blog.youkuaiyun.com/jmlei/article/details/3248183

这篇博客介绍了如何在AS400系统中，通过RPG程序设计配合Zebra888-TT条码打印机来打印包含中文的标签。文章详细展示了CL程序、DDS定义、RPGLE程序中的关键代码段，包括创建文件、设置字符集、创建打印格式以及数据传输设置等步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

***** CL BAR01C *****

START:      PGM
/* Last Update Date: 2008.11.03                                               */
             MONMSG     MSGID(CPF0000 RPG0000)
             CRTPF      FILE(ZDAVIDZHAO/TMBAR01) SRCFILE(QPLFSRC) +
                          OPTION(*NOSRC *NOLIST) SIZE(*NOMAX) +
                          LVLCHK(*NO)
             RCVMSG     MSGTYPE(*EXCP) RMV(*YES)
             RCVMSG     MSGTYPE(*DIAG) RMV(*YES)
             CLRPFM     FILE(ZDAVIDZHAO/TMBAR01)
             CHGPF      FILE(ZDAVIDZHAO/TMBAR01) CCSID(65535)
             CRTPRTF    FILE(ZDAVIDZHAO/BAR01RT) SRCFILE(QDDSSRC) +
                          OPTION(*NOSRC *NOLIST) PAGESIZE(45 160) +
                          CPI(15) OVRFLW(45) PRTQLTY(*NLQ) +
                          PAGRTT(*AUTO) FORMTYPE(*STD) +
                          MAXRCDS(*NOMAX) HOLD(*NO) SAVE(*NO) +
                          LVLCHK(*NO)

             RCVMSG     MSGTYPE(*EXCP) RMV(*YES)
             RCVMSG     MSGTYPE(*DIAG) RMV(*YES)
             CALL       PGM(*LIBL/BAR01R)
END:        ENDPGM

***** DDS BAR01D*****

     A*********************************************
     A                                      ALTHELP(CA01)
     A                                      CA24(24)
     A                                      CHGINPDFT
     A                                      DSPSIZ(24 80 *DS3)
     A                                      ENTFLDATR((*DSPATR RI))
     A                                      HELP
     A                                      MOUBTN(*URP CA12)
     A                                      PRINT
     A**************************************************
     A          R MSGSFL                    SFL
     A                                      SFLMSGRCD(24)
     A            MSGKEY                    SFLMSGKEY
     A            PSPGM                     SFLPGMQ
     A**************************************************
     A          R MSGCTL                    SFLCTL(MSGSFL)
     A                                      OVERLAY
     A N29                                  SFLDSP SFLDSPCTL SFLINZ SFLEND
     A                                      SFLSIZ(2) SFLPAG(1)
     A            PSPGM                     SFLPGMQ
     A****************************************************
     A          R SCR01
     A*--- Last Update Date : 2008.11.06
     A                                      CA12(12 'Exit')
     A                                      CA05(05 'Print')
     A**                                    CA06(06 'Print')
     A*
     A                                 14 2'BOX................:'
     A                                      COLOR(WHT)
     A            X1BOX          9O B 14 23COLOR(PNK)
     A            X1BARF         4Y 0B 14 33COLOR(PNK)
     A                                 14 38'-'
     A                                      COLOR(WHT)
     A            X1BART         4Y 0B 14 40COLOR(PNK)
     A                                 15 2'Flag...............:'
     A                                      COLOR(WHT)
     A            X1FLG          1A B 15 23COLOR(PNK)
     A*
     A                                 23 2'F12=Exit Enter=Print(Bat)'
     A                                      COLOR(WHT)
     A            X1MSG         78O O 24 2COLOR(WHT)

***** DDS BAR01RT *****

     A          R HEADER                     SKIPB(001)
     A*-- Last Update Date: 2008.11.05
     A*--------
     A                                     1'N'
     A                                      SPACEB(001)
     A*--------
     A                                     1'D8'