AS400学习笔记(打印文件编写)

打印文件的建立

1 建立源文件

STRSEU SRCFILE(TEST/DDSSRC) SRCMBR(TEST004) TYPE(PRTF)

2编辑源文件 例:

. A                  R RECORD1                              SPACEB(1)

A                                                                  36'客户信息表'

A                                                                       SPACEB(2)

A                                                                 20'客户号：'

A                                                                      SPACEB(2)

A                        FNUM               10          33

A                                                                20'客户姓名：'

A                                                                    SPACEB(2)

A                       FIELD                  64         33

A                                                                20'性别：'

A                                                                     SPACEB(2)

A                       FIELD1                 9         31

A                                                               47'年龄： '

A                       FIELD2              3 0        59

A                                                               20'地址：'

A                                                                   SPACEB(2)

A                      FIELD3              64         31

3 建立目标文件

相当于编译源文件

1 用选项14 编译

2命令

CRTPRTF FILE(TEST/ KHPRTF) SRCFILE(TEST/DDSSRC) SRCMBR(TEST004)

4 RPGLE程序中调用打印文件

FKHPRTF O E PRINTER

F

D

C EVAL FNUM='001'

C WRITE RECORD1

C EVAL *INLR=*ON

C RETURN

调用程序

call rpgcy015

查看打印文件的假脱机

Wrksplf

看列表的最后 选择你的打印文件 ，输入5查看