AS400开发入门-By adan

发布时间 : 星期三 文章AS400开发入门-By adan更新完毕开始阅读

结束调试:

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 页

联系合同范文客服:xxxxx#qq.com(#替换为@)