没有合适的资源?快使用搜索试试~ 我知道了~
编写CICS程序,使用receive命令接收用户输入的stock no,并通过MAP显示从VSAM文件读出的数据,同时屏幕下方显示各种功能键定义。用户按不同的功能键时,执行读取、更新、增加数据的功能。用户不按F3键,程序不退出
资源推荐
资源详情
资源评论
000010 IDENTIFICATION DIVISION.
000011 PROGRAM-ID. LAB3.
000020 ENVIRONMENT DIVISION.
000100 DATA DIVISION.
000200 WORKING-STORAGE SECTION.
COPY UR001MS.
*ABOVE IS TO COPY SCREEN MAP INTO MY PROGRAM
COPY DFHAID.
*ABOVE IS TO ADD ATTENTION IDENTIFIER
COPY DFHBMSCA.
*ABOVE IS TO CHANGE ATTRIBUTE
01 INL PIC S9(4) COMP.
01 INAREA.
05 TRANID PIC X(7).
05 FILLER PIC X.
05 REQUEST PIC X(6).
01 ERR-CODE PIC S9(8) COMP.
01 MSG PIC X(75).
01 COM-WORK PIC X(20).
01 OUTPUT-REC.
02 REC-NAME PIC X(20).
02 REC-STOCK PIC X(6).
02 REC-QUAN PIC X(10).
01 GETVSAM.
02 VSTOCKNUM PIC X(6).
02 VQUANTITY PIC X(10).
02 VNAME PIC X(20).
01 RECL PIC S9(6) COMP.
01 RECKEY PIC X(6).
PROCEDURE DIVISION.
000011 PROGRAM-ID. LAB3.
000020 ENVIRONMENT DIVISION.
000100 DATA DIVISION.
000200 WORKING-STORAGE SECTION.
COPY UR001MS.
*ABOVE IS TO COPY SCREEN MAP INTO MY PROGRAM
COPY DFHAID.
*ABOVE IS TO ADD ATTENTION IDENTIFIER
COPY DFHBMSCA.
*ABOVE IS TO CHANGE ATTRIBUTE
01 INL PIC S9(4) COMP.
01 INAREA.
05 TRANID PIC X(7).
05 FILLER PIC X.
05 REQUEST PIC X(6).
01 ERR-CODE PIC S9(8) COMP.
01 MSG PIC X(75).
01 COM-WORK PIC X(20).
01 OUTPUT-REC.
02 REC-NAME PIC X(20).
02 REC-STOCK PIC X(6).
02 REC-QUAN PIC X(10).
01 GETVSAM.
02 VSTOCKNUM PIC X(6).
02 VQUANTITY PIC X(10).
02 VNAME PIC X(20).
01 RECL PIC S9(6) COMP.
01 RECKEY PIC X(6).
PROCEDURE DIVISION.
资源评论
蓝色瞬间
- 粉丝: 2
- 资源: 12
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功