AS400开发入门-By adan(8)

2019-04-16 19:17

改变了一些操作码的写法

RETRN?RETURN UPDAT?UPDATE LOKUP?LOOKUP COMIT->COMMIT DEFN->DEFINE DELET->DELETE EXCPT->EXCEPT REDPE->READPE SELEC->SELECT SETOF->SETOFF UNLCK->UNLOCK

附:RPG III 与 RPG IV 的实体名称长度区别

Description Field/Array Name DS Name Record Name File Name Max Number of Files Character Field Size Named Constant DS Size No of Decimal Places No of Array Elements No of Subroutine

RPG III 6 6 8 8 50 256 256 9999 9 9999 256

RPG IV 10 10 10 10 None 32767 1024 32767 30 32767 None

4.可视化调试(源级调试)

ILE 提供允许源级调试的调试程序,可随列表文件一起使用调试程序,并且允许设置中断点、显示变量或进入或跨过一条指令。执行这些操作不一定要通过命令行输入命令。可以通过热键实现。

预备工作:在使用CRTRPGMOD或者CRTBNDRPG编译程序的时候,将参数DBGVIEW设置为*SOURCE。

开始调试程序:

STRDBG PGM(MYLIB/MYPGM) UPDPROD(*YES)

61676237.doc – 第 36 页 共 39 页

结束调试:

ENDDBG

调试命令:

F16

使调试窗口显示的源程序向上/下/左/右滚动: 向上滚: UP 行数 向下滚: DOWN 行数 向左滚: LEFT 行数 向右滚: RIGHT 行数 向上滚到程序头: TOP 向下滚到程序尾: BOTTOM 在调试窗口显示下一个断点: NEXT 在调试窗口显示上一个断点: PREVIOUS 显示在线帮助: HELP 结束程序: F3 显示上一个用过的调试命令: F9 单步执行: F10 运行到下一断点处: F12 察看当前所有的WATCH变量: F18 调出命令窗口: F21 进入一个被调用的程序(STEP INTO): F22 显示输出画面: F23

显示一个变量的值:

EVAL 变量名/结构名 热键:F11 显示一个指针变量的值: EVAL 变量名:C 显示字节数 改变一个变量的值: EVAL 变量名=xxxx 显示一个变量的属性: ATTR 变量名 删除一个断点: CLEAR 行号 热键:F6 删除一个WATCH: CLEAR WATCH 变量名 增加一个断点: BREAK 行号 热键:F6 向前执行N行: STEP 行数

增加一个WATCH:使程序停止在一个指定变量的值发生变化的时候 WATCH 变量名 热键:F17 在源程序中查找一个字符串: FIND 字符串 反复查找热键:

热键:F19 热键:F20

61676237.doc – 第 37 页 共 39 页

1.4 举例 学生成绩管理

1.建库、源文件、物理文件成员、 逻辑文件成员并编译成员

A.建立一个库 STDLIB

CRTLIB STDLIB *PROD

B.在库STUDENT下建立一个源文件 STDSRCF

CRTSRCF FILE(STDLIB/STDSRCF) IGCDTA(*YES) TEXT('SRCPF FOR STUDENTS')

C. 在库STUDENT源文件 STDSRCF下建立物理文件成员REFF(数据字典)和STDPF

STRSEU F4 或进入STDSRCF下按F6

STRSEU SRCFILE(STDLIB/STDSRCF) SRCMBR(REFF) TYPE(PF) TEXT('pf for student’)

STRSEU SRCFILE(STDLIB/STDSRCF) SRCMBR(STDPF) TYPE(PF) TEXT('pf for student’)

D. 在库STUDENT源文件 STDSRCF下建立逻辑文件成员STDLF STRSEU F4 或进入STDSRCF下按F6

STRSEU SRCFILE(STDLIB/STDSRCF) SRCMBR(STDLF) TYPE(LF) TEXT('Lf for student’)

2.分别用DFU、SQL、和通过RPGLE程序对学生学籍进行增加、修改、查询、删除记录操作

A.DFU

UPDDTA STGDA B.SQL

增加:INSERT INTO STDPF 。。。

查询:SELECT * FROM STDPF WHERE 。。。 修改:UPDATE STDPF SET 。。。 WHERE 。。。 删除:DELETE FROM STDPF WHERE 。。。 C.RPGLE 增加记录:WRITE 查询:CHAIN

61676237.doc – 第 38 页 共 39 页

修改:UPDATE 删除:DELETE

3.编写程序实现某年段学生成绩的基本管理

1. 统计每个学生的总分并更新数据存储

2. 根据总分排出每个学生在年级的名次(SRL_GRD)

学号

姓 名

年级名次

STNUMB STNAME SRL_GRD

3. 根据总分排出每个学生在班级的名次(SRL_CLS) 班级 学号

STCLAS

姓 名

班级名次

STNUMB

STNAME SRL_CLS

4. 年级各科平均分、及格率、优秀率(及格、优秀分数线分别为60、85)

化学

语文

数学

英语

物理

平均分 及格率 优秀率

A11 A21 A31

A12 A22 A32

A13 A23

A14 A24

A15 A25

A35

A33 A34

5. 假如把学校学生分为四类A、B、C、D,他们分数线分别为A>=90、90>B>=75、75>C>=60、60>D>=0,计算各班班主任和语文教师的积分,积分=(A类学生个数*5+B类学生个数*3+C类学生个数)/总学生个数

班级

班主任

语文老师

TM_CLAS B1 B2

61676237.doc – 第 39 页 共 39 页


AS400开发入门-By adan(8).doc 将本文的Word文档下载到电脑 下载失败或者文档不完整,请联系客服人员解决!

下一篇:如何提升谈判能力?

相关阅读
本类排行
× 注册会员免费下载(下载后可以自由复制和排版)

马上注册会员

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: