实例 、cursor、mapset、大型机资料、翻页 |
这个程序主要作用是从数据库中读取相关的学生信息,运用了 cursor 的
fetch,由于返回结果很多,一个屏幕显示不了,需要添加翻页功能,既按 F7
和 F8 可以实现前翻和后翻的效果。在 CICS 中 mapset 上可以看到。
IDENTIFICATION DIVISION.
*
PROGRAM-ID. SECADD.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
*
WORKING-STORAGE SECTION.
*
01 SWITCHES.
*
05 VALID-DATA-SW PIC X(01) VALUE ‘Y’.
88 VALID-DATA VALUE ‘Y’.
05 END-OF-ACCID-SW PIC X VALUE ‘N’.
88 END-OF-ACCID VALUE ‘Y’.
*
01 FLAGS.
*
05 DISPLAY-FLAG PIC X(01).
88 DISPLAY-NEW-ECINFO VALUE ‘1′.
88 DISPLAY-SPACES VALUE ‘2′.
88 DISPLAY-LOW-VALUES VALUE ‘3′.
05 SEND-FLAG PIC X(01).
88 SEND-ERASE VALUE ‘1′.
88 SEND-DATAONLY VALUE ‘2′.
88 SEND-DATAONLY-ALARM VALUE ‘3′.
*
01 WORK-FIELDS.
*
05 ECINFO-SUB PIC S9(4) COMP.
*
01 COMMUNICATION-AREA.
05 CA-TS-RECORD-COUNT PIC S9(4) COMP.
05 CA-FIRST-RECORD-ON-DISPLAY PIC S9(4) COMP.
评论5