给初学as400/RPG的朋友提供个超级简单的例子(转)
来源:互联网 发布:超赢软件 编辑:程序博客网 时间:2024/06/05 04:25
以下的第一个程序把数据包SNDFLD发到到DTAQ,第二个程序则是从DTAQ收数据包,这是本人早期接触的极为简单的例子,希望对刚知道RPG又想学习的人有点帮助!
=====================================
发送数据包SNDFLD到DTAQ的程序代码:
C *ENTRY PLIST
C PARM SNDFLD 30
C*
C MOVE *BLANKS PGM
C MOVE *BLANKS LIB
C MOVE *BLANKS FLD1 30
C*
C MOVEL'DTAQ' PGM 10 *DATAQ'S NAME
C MOVEL'*LIBL' LIB 10 *DATAQ'S LIB
C Z-ADD30 LEN 50 *DATAQ' LENTH
C MOVELSNDFLD FLD1
C*
C CALL 'QSNDDTAQ'
C PARM PGM
C PARM LIB
C PARM LEN
C PARM FLD1
C*
C SETON LR
接收数据队列中的数据包的程序代码:
H Y
IFLD DS 30
I 1 3 A4
C*
C #STAR TAG
C MOVEL*BLANKS PGM 10
C MOVEL'DTAQ' PGM
C MOVEL'*LIBL' LIB 10
C Z-ADD0 LEN 50
C Z-ADD-1 WAIT 50
C MOVE *BLANKS FLD
C*
C CALL 'QRCVDTAQ'
C PARM PGM
C PARM LIB
C PARM LEN
C PARM FLD
C PARM WAIT
C*
C MOVE *BLANKS DSP1 10
C SELEC
C A4 WHEQ 'END'
C GOTO #END
C OTHER
C 'OK!' DSPLY
C ENDSL
C GOTO #STAR
C #END TAG
C SETON LR
- 给初学as400/RPG的朋友提供个超级简单的例子(转)
- AS400下RPG编程的常用命令
- 给初学C#的朋友一些建议。
- Android 多个Activity之间的跳转 超级简单例子
- 纯CSS+DIV实现的竖向菜单(简单例子,提供学CSS的朋友学习)
- as400-RPG
- 给初学LoadRunner的朋友的一些建议
- 给初学LoadRunner的朋友的一些建议
- 给初学LoadRunner的朋友的一些建议(转载)
- 写给刚接触400的朋友--关于as400的一些讲解(转)
- 给初学和业余学习中医的朋友
- 给初学PLC编程的朋友几点建议
- 那位朋友提供个C#的学习材料!
- 【AS400系列】通过程序例子说明检查AS400用户密码的API-QSYGETPH
- 【AS400系列】通过程序例子说明检查AS400用户密码的API-QSYGETPH
- 初学算法 简单的小例子
- 给计算机专业的朋友
- 给计算机专业的朋友
- extern关键字
- 做一个优秀的软件人
- [随笔]"魏晋风度与竹林七贤"系列之二 嵇康任气有侠名
- LCS最长公共子序列算法
- TCL脚本递归列出文件
- 给初学as400/RPG的朋友提供个超级简单的例子(转)
- 《杜拉拉升职记3》读书笔记
- 写给刚接触400的朋友--关于as400的一些讲解(转)
- css定义格式中逗号,空格,冒号,点号的含义
- 彻底解决SQL SERVER 2005无法远程连接的问题--1433
- 用RDI开发AS400的CL程序(转)
- c源文件中导入外部结构体
- 项目的沟通管理
- 什么是 SUSE Studio?