- 浏览: 153553 次
- 性别:
- 来自: 球面世界
-
最新评论
-
zhang_yi_yi:
...
Java常用方法使用心得 -
yeshuang:
不错,希望以后多多介绍一些
Java常用方法使用心得 -
tiansong163:
我用这个怎么不行呢?
jsp实现文件下载与中文文件名乱码问题解决 -
lshhjxlj:
Yes,it very good!
Java常用方法使用心得 -
jaja_jaja:
有错误,web.xml里少了servlet-mapping部分 ...
对log4j初始化并设置log文件的存放路径
这个主要程序RPG
Columns . . . : 1 71 Browse DHUG/QRPGSRC
SEU==> SDA04
FMT H .....H........1..CDYI....S..............1.F............................
*************** Beginning of data *************************************
*************** Feigme H.Guo*************************************
0001.00 H Y
0002.00 *
0003.00 FTSDAL UF E K DISK A
0004.00 F TSDAR KRENAMETSDARA
0005.00 *
0006.00 FTSDA04 CF E WORKSTN
0007.00 F @RRN KSFILE SUBFILE
0008.00 *----------------------------------------------------*
0009.00 *< ARRAY AREA > *
0010.00 *----------------------------------------------------*
0011.00 E @MSG 1 50 75 *MESSAGE
0012.00 *----------------------------------------------------*
0013.00 *< KLIST > *
0014.00 *----------------------------------------------------*
0015.00 C L@SDA KLIST
0016.00 C KFLD PNAME
0017.00 *
0018.00 *----------------------------------------------------*
0019.00 *< MAIN > *
0020.00 *----------------------------------------------------*
0021.00 C EXSR #S000
0022.00 C EXSR #ENDPG
0023.00 *
0024.00 *----------------------------------------------------*
0025.00 *< #S000--SCREEN 0 > *
0026.00 *----------------------------------------------------*
0027.00 C #S000 BEGSR
0028.00 *
0029.00 C MOVE @YES @LOOP0
0030.00 C @LOOP0 DOWEQ@YES
0031.00 C EXFMTSCD00
0032.00 C CLEARNOTE
0033.00 *
0034.00 C SELEC
0035.00 C *IN03 WHEQ *ON
0036.00 C EXSR #ENDPG
0037.00 C *IN12 WHEQ *ON
0038.00 C* MOVE @NO @LOOP0
0039.00 C LEAVE
0040.00 C ENDSL
0041.00 *
0042.00 C EXSR #CHK0
0043.00 C ENDDO
0044.00 *
0045.00 C ENDSR
0046.00 *----------------------------------------------------*
0047.00 *< #CHK0--CHECK SCREEN 0 > *
0048.00 *----------------------------------------------------*
0049.00 C #CHK0 BEGSR
0050.00 *
0051.00 C SLID IFGT 4
0052.00 C SLID ORLT 1
0053.00 C SETON 30
0054.00 C MOVEL@MSG,2 NOTE P
0055.00 C ENDIF
0056.00 *
0057.00 C SELEC
0058.00 C SLID WHEQ 1
0059.00 C EXSR #S001
0060.00 C SLID WHEQ 2
0061.00 C EXSR #SOO2
0062.00 C SLID WHEQ 3
0063.00 C EXSR #S003
0064.00 C ENDSL
0065.00 *
0066.00 C ENDSR
0067.00 *----------------------------------------------------*
0068.00 *< #S001--SCREEN 1 > *
0069.00 *----------------------------------------------------*
0070.00 C #S001 BEGSR
0071.00 *
0072.00 C MOVE @YES @LOOP1
0073.00 C @LOOP1 DOWEQ@YES
0074.00 C MOVE @YES @SIGN
0075.00 C EXFMTSCD01
0076.00 C CLEARNOTE
0077.00 *
0078.00 C SELEC
0079.00 C *IN03 WHEQ *ON
0080.00 C EXSR #ENDPG
0081.00 C *IN12 WHEQ *ON
0082.00 C* MOVE @NO @LOOP1
0083.00 C LEAVE
0084.00 C ENDSL
0085.00 *
0086.00 C EXSR #CHK1
0087.00 C @SIGN IFEQ @YES
0088.00 C EXFMTSCD011
0089.00 C EXSR #WRT
0090.00 C ENDIF
0091.00 *
0092.00 C ENDDO
0093.00 *
0094.00 C ENDSR
0095.00 *----------------------------------------------------*
0096.00 *< #CHK1--CHECK SCREEN 1 > *
0097.00 *----------------------------------------------------*
0098.00 C #CHK1 BEGSR
0099.00 *
0100.00 C NAME01 IFEQ *BLANK
0101.00 C SETON 31
0102.00 C MOVE @NO @SIGN
0103.00 C MOVEL@MSG,2 NOTE P
0104.00 C ELSE
0105.00 C MOVELNAME01 PNAME P
0106.00 C L@SDA CHAINTSDARA 60
0107.00 C *IN60 IFEQ *OFF
0108.00 C MOVEL@MSG,4 NOTE P
0109.00 C MOVE @NO @SIGN
0110.00 C ELSE
0111.00 C SETOF 31
0112.00 C MOVE @YES @SIGN P
0113.00 C ENDIF
0114.00 C ENDIF
0115.00 *
0116.00 C AGE01 IFEQ *ZERO
0117.00 C SETON 32
0118.00 C MOVE @NO @SIGN
0119.00 C MOVEL@MSG,2 NOTE P
0120.00 C ELSE
0121.00 C SETOF 32
0122.00 C ENDIF
0123.00 *
0124.00 C ADDR01 IFEQ *BLANK
0125.00 C SETON 33
0126.00 C MOVE @NO @SIGN
0127.00 C ELSE
0128.00 C SETOF 33
0129.00 C ENDIF
0130.00 *
0131.00 C ENDSR
0132.00 *----------------------------------------------------*
0133.00 *< #S002--SCREEN 2 > *
0134.00 *----------------------------------------------------*
0135.00 C #SOO2 BEGSR
0136.00 *
0137.00 C MOVE @YES @LOOP2
0138.00 C @LOOP2 DOWEQ@YES
0139.00 C EXFMTSCD02
0140.00 C CLEARNOTE
0141.00 *
0142.00 C SELEC
0143.00 C *IN03 WHEQ *ON
0144.00 C EXSR #ENDPG
0145.00 C *IN12 WHEQ *ON
0146.00 C* MOVE @NO @LOOP2
0147.00 C LEAVE
0148.00 C *IN06 WHEQ *ON
0149.00 C EXSR #LAST
0150.00 C *IN07 WHEQ *ON
0151.00 C EXSR #NEXT
0152.00 C ENDSL
0153.00 *
0154.00 C EXSR #CHK2
0155.00 C ENDDO
0156.00 *
0157.00 C ENDSR
0158.00 *----------------------------------------------------*
0159.00 *< #CHK2--CHECK SCREEN 2 > *
0160.00 *----------------------------------------------------*
0161.00 C #CHK2 BEGSR
0162.00 *
0163.00 C OP IFEQ *BLANK
0164.00 C OP1 ANDEQ*ZERO
0165.00 C *IN07 ANDEQ*OFF
0166.00 C *IN06 ANDEQ*OFF
0167.00 C MOVEL@MSG,2 NOTE P
0168.00 C ENDIF
0169.00 *
0170.00 C OP IFNE *BLANK
0171.00 C OP1 ANDEQ*ZERO
0172.00 C *IN07 ANDEQ*OFF
0173.00 C *IN06 ANDEQ*OFF
0174.00 C EXSR #SEL
0175.00 C ENDIF
0176.00 *
0177.00 C OP IFEQ *BLANK
0178.00 C OP1 ANDEQ4
0179.00 C *IN06 ANDEQ*OFF
0180.00 C *IN07 ANDEQ*OFF
0181.00 C EXSR #DEL
0182.00 C ENDIF
0183.00 *
0184.00 C ENDSR
0185.00 *----------------------------------------------------*
0186.00 *< #INIPG--INIT PGM > *
0187.00 *----------------------------------------------------*
0188.00 C *INZSR BEGSR
0189.00 *
0190.00 C MOVE *BLANK @LOOP0 1
0191.00 C MOVE *BLANK @LOOP1 1
0192.00 C MOVE *BLANK @LOOP2 1
0193.00 C MOVE *BLANK @LOOP3 1
0194.00 C MOVE *BLANK @SIGN 1
0195.00 C MOVE 'Y' @YES 1
0196.00 C MOVE 'N' @NO 1
0197.00 C Z-ADD0 @RRN 50
0198.00 *
0199.00 C ENDSR
评论
*----------------------------------------------------*
*< #INIPG--INIT PGM > *
*----------------------------------------------------*
类似的注释的,如有界面< #S001--SCREEN 1 >,
对界面1进行处理< #CHK1--CHECK SCREEN 1 >,
初始化< #INIPG--INIT PGM >等等
代码不长还是很容易看懂的
发表评论
-
as/400学习
2007-03-13 11:14 4514最近开始使用IBM的AS/400服务器进行开发了,也处于学习 ... -
as/400 RPG开发步骤
2007-03-13 11:22 3372as/400 RPG开发步骤 RPG开发步骤 1、建立数 ... -
RPG简单例子
2007-03-13 11:26 1637发送数据包SNDFLD到DTAQ的程序代码: C ... -
练习时做的AS/400 subfile 的一个例子!(1)
2007-04-16 23:18 1491这个是物理文件和逻辑文件 SEU==> ... -
练习时做的AS/400 subfile 的一个例子!(2)
2007-04-16 23:19 1953这个是显示文件 0001.00 ... -
练习时做的AS/400 subfile 的一个例子!(3)
2007-04-16 23:21 1900其中的主要RPG程序 FMT H .....H.... ... -
RPG/400 自己写的一个小实例分享!(1)
2007-04-16 23:24 1375物理文件和逻辑文件 SEU==> ... -
RPG/400 自己写的一个小实例分享!(2)
2007-04-16 23:26 1728这个是显示文件 SEU==> ...
相关推荐
as/400 rpg 培训资料 as/400 rpg IBM
目 录 第一章 AS/400简介 1 第一节 发展概况 1 ...第一节 RPG/400语言 16 第二节 DDS描述 32 第三节 CL语言简介 48 第四章 AS/400通讯 50 第一节 AS/400通讯协议 50 第二节 应用系统中AS/400与PC交换数据的实例 53
AS/400中利用显示文件子文件对数据库中的数据进行查询、添加、删除、更改的一般模板程序的RPG源代码;
AS400,RPG资源AS400,RPG资源AS400,RPG资源AS400,RPG资源AS400,RPG资源AS400,RPG资源
【实例教程1】怎样编写一个插件? 1. 插件的注释与定义参数 2. 读取插件参数 3. 插件指令的实现 【实例教程2】制作一个启动画面 1. 从哪里开始? 2. 创建启动画面的场景类 【实例教程3】玩转菜单初级篇 1. 给...
我是转载者,但这个小游戏玩过来真的不错,有的功能还未实现,期待c++大神将其补充完整,可以试着玩玩看
RPG AS400程序员培训手册3 适合新人入手,基础语法。
c#写的一个RPG小游戏源代码, 对于想学习用C#写游戏的初学者是一个 很错的学习例子。
详细介绍了如何用RPG 语言编程。RPG程序员初级培训资料
Java写的RPG游戏开源源码实例,通过这个PRG游戏,你可学习到NPC的碰撞检测、人脸表情动画、人物移动坐标、线程进入阻塞状态、游戏装载、地图坐标设计、地图边界算法等技巧,本PRG游戏中E2字体放置14个,手机模拟器用...
RPG AS400程序员培训手册6 适合新人入手,基础语法。
DX程序实例源代码-一个简单的RPG游戏示例 DX程序实例源代码-一个简单的RPG游戏示例 DX程序实例源代码-一个简单的RPG游戏示例 学习用吧~
IBM as/400型服务器开发,RPGle语言基础
用java写的窗体RPG小游戏,纯手工可运行
为了让C++程序员更上一层楼,我把这个基于RPG游戏实例的源代码送给大家,将中国游戏进行到底
AS/400 RPG语言
AS400/RPG开发的DDM应用。熟悉AS400RPG开发的朋友,一定熟知DDM应用的关键之处和伟大之处。有极高的参考价值。
该压缩包中是本人最初开始学习IBM AS/400 RPG编程语言时所收集的一些资料,里面总共有五份资料。感觉对初学者非常有用,所以我也是收藏了很久。现在拿出来给大家共享,希望对初学者有所帮助!
一个javaApplet游戏 RPG类型游戏的功能原形 实现了刷怪..随即生成地图..怪物闲逛.. 战斗系统(由于没有素材..做的相当单一) 道具系统(很简单只有补血和提高气血上限两种道具) src中是源代码,bin中start.html运行游戏...
培训资料关于如何编写IBM AS/400 RPG服务程序