6 1 CICS 6 1 SIGN ON PROGRAM

  • Slides: 31
Download presentation

6. 1 CICS程序管理 � 6. 1程序调用 SIGN ON PROGRAM MENU PROGRAM MESSAGE LOOK-UP CHOICE

6. 1 CICS程序管理 � 6. 1程序调用 SIGN ON PROGRAM MENU PROGRAM MESSAGE LOOK-UP CHOICE MESSAGE TABLE

6. 2 LINK 方式 同一个CICS系统 LAMODC 1 A PROCEDURE… LINK… … LAMODC 1 B

6. 2 LINK 方式 同一个CICS系统 LAMODC 1 A PROCEDURE… LINK… … LAMODC 1 B PROCEDURE… LINK… …

6. 2 LINK 方式 o Distributed Program Link(DPL) CICS/ESA LAMODC 1 B CICS OS/2

6. 2 LINK 方式 o Distributed Program Link(DPL) CICS/ESA LAMODC 1 B CICS OS/2 LAMODC 1 A PROCEDURE. LINK… … PROCEDURE … … RETURN… …

主程序: PROGRAM-ID. LAMODC 1 A. WORKING-STORAGE SECTION. 01 COMSTART. 05 STATUS-1. 10 STATUSED-I PIC

主程序: PROGRAM-ID. LAMODC 1 A. WORKING-STORAGE SECTION. 01 COMSTART. 05 STATUS-1. 10 STATUSED-I PIC X VALUE ’N’. 10 ENDED-I PIC X VALUE ‘N’. 05 RATE-I PIC X(78). … PROCEDURE DIVISION. … EXEC CICS LINK PROGRAM(‘LAMODC 1 B) COMMAREA(COMSTART) LENGTH(80) END-EXEC. … GOBACK. 被调用程序: PROGRAM-ID. LAMODC 1 B. WORKING-STORAGE SECTION. LINKAGE SECTION. 01 DFHCOMMAREA. 05 STATUS-C. 10 STARTED PIC X. 10 ENDED PIC X. 05 RATE PIC X (78). … PROCUDURE DIVISION. EXEC CICS RETURN END-EXEC. GOBACK.

主程序: PROGRAM-ID. LAMODC 1 A. WORKING-STORAGE SECTION. 01 COMSTART. 指针 05 STATUS-1. 10 STATUSED-I

主程序: PROGRAM-ID. LAMODC 1 A. WORKING-STORAGE SECTION. 01 COMSTART. 指针 05 STATUS-1. 10 STATUSED-I PIC X VALUE ’N’. 10 ENDED-I PIC X VALUE ‘N’. 05 RATE-I PIC X(78). … PROCEDURE DIVISION. … EXEC CICS LINK PROGRAM(‘LAMODC 1 B) COMMAREA(COMSTART) LENGTH(80) END-EXEC. … GOBACK. 被调用程序: PROGRAM-ID. LAMODC 1 B. WORKING-STORAGE SECTION. LINKAGE SECTION. 01 DFHCOMMAREA. 05 STATUS-C. 10 STARTED PIC X. 10 ENDED PIC X. 05 RATE PIC X (78). … PROCUDURE DIVISION. EXEC CICS RETURN END-EXEC. GOBACK.

任务间的参数传递 PROGRAM-ID. LAMODC 1 A. WORKING-STORAGE SECTION. 01 COMSTART. 05 STATUS-1. 10 STATUSED-I PIC

任务间的参数传递 PROGRAM-ID. LAMODC 1 A. WORKING-STORAGE SECTION. 01 COMSTART. 05 STATUS-1. 10 STATUSED-I PIC X VALUE ’N’. 10 ENDED-I PIC X VALUE ‘N’. 05 RATE-I PIC X(78). … LINKAGE SECTION. 01 DFHCOMMAREA. 05 STATUS-C. 10 STARTED PIC X. 10 ENDED PIC X. 05 RATE PIC X(78). … PROCEDURE DIVISION. *******SECTION ONE******* IF EIBCALEN = 0 COMMAREA 的长度为零 MOVE ‘Y’ TO STARTED-I … EXEC CICS RETURN TRANSID(‘LAC 1’) COMMAREA(COMSTART) LENGTH(80) END-EXEC. ******SECTION TWO************ … COMMAREA 的长度不为零 EXEC CICS LINK PROGRAM(‘LAMODC 1 B’) COMMAREA(DFHCOMMAREA) LENGTH(EIBCALEN) END-EXEC. … QUITP. EXEC CICS RETURN TRANSID(‘LAC 1’) COMMAREA(DFHCOMMAREA) LENGTH(EIBCALEN) END-EXEC. … NORMAL-RETURN. EXEC CICS RETURN END-EXEC. GOBACK.

6. 3 XCTL命令

6. 3 XCTL命令

6. 3 XCTL命令 XCTL数据访问示例程序: 公用访问区 COMMAREA 调用程序: 复 PROGRAM-ID. LAMODC 1 A. 制 WORKING-STORAGE

6. 3 XCTL命令 XCTL数据访问示例程序: 公用访问区 COMMAREA 调用程序: 复 PROGRAM-ID. LAMODC 1 A. 制 WORKING-STORAGE SECTION. 01 COMSTART. 05 STATUS-1. 10 STATUSED-I PIC X VALUE ’N’. 10 ENDED-I PIC X VALUE ‘N’. 05 RATE-I PIC X(78). … PROCEDURE DIVISION. … EXEC CICS XCTL PROGRAM(‘LAMODC 1 B’) COMMAREA(COMSTART) LENGTH(80) END-EXEC. … GOBACK. 被调用程序: PROGRAM-ID. LAMODC 1 B. WORKING-STORAGE SECTION. LINKAGE SECTION. 01 DFHCOMMAREA. . 05 STATUS-C. 10 STARTED PIC X. 10 ENDED PIC X. 05 RATE PIC X (78). PROCUDURE DIVISION. … EXEC CICS RETURN END-EXEC. GOBACK.

使用INPUTMSG PROGRAM-ID. PROGMNU. WORKING-STORAGE SECTION. 01 WRKFLDS. 05 INL PIC S 9(4)USAGE IS COMP.

使用INPUTMSG PROGRAM-ID. PROGMNU. WORKING-STORAGE SECTION. 01 WRKFLDS. 05 INL PIC S 9(4)USAGE IS COMP. 01 MENU-IN. 05 TRANID PIC X(4). 05 FILLER PIC X. 05 SEARCH-KEY PIC X(6). COPY MAMENU. PROCEDURE DIVISION. . EXEC CICS RECEIVE MAP(‘MENU’) MAPSET(‘MSMENU’) END-EXEC. . *IF OPERATOR REQUESTED * A ‘BROWSE’FUNCTION: IF FUNCI = ‘B’ MOVE EIBTRNID TO TRANID MOVE FUNCKEYI TO SEARCH-KEY EXEC CICS XCTL PROGRAM(‘PROGBWS’) INPUTMSG(MENU-IN) INPUTMSGLEN(11) END-EXEC. PROGRAM-ID. PROGBWS. WORKING-STORAGE SECTION. 01 WRKFLDS. 05 INL PIC S 9(4) USAGE IS COMP. 05 ERR-CODE PIC S 9(8) USAGE IS COMP. 01 INAREA. 05 TRANID PIC X(4). 05 FILLER PIC X. 05 SEARCH-KEY PIC X(6). PROCEDURE DIVISION. MOVE 11 TO INL. EXEC CICS RECEIVE INTO(INAREA) LENGTH(INL) RESP(ERR-CODE) END-EXEC. IF ERR-CODE EQUAL TO DFHRESP(NORMAL) EXEC CICS STARTBR FILE(‘PHONE 01’) RIDFLD(SEARCH-KEY) RESP(ERR-CODE) END-EXEC.

6. 5 START 命令 START命令的语法如下: EXEC CICS START TRANSID(NAME) START命令所带的参数有TERMID, USERID,INTERVAL和LENGTH等

6. 5 START 命令 START命令的语法如下: EXEC CICS START TRANSID(NAME) START命令所带的参数有TERMID, USERID,INTERVAL和LENGTH等

例子 2 … MOVE TERMIDI TO WS-TERMID。 EXEC CICS START TRANSID(‘PRT 2’) TERMID(WS-TERMID) RESP(ERR-CODE)

例子 2 … MOVE TERMIDI TO WS-TERMID。 EXEC CICS START TRANSID(‘PRT 2’) TERMID(WS-TERMID) RESP(ERR-CODE) END-EXEC。 … 本例子通过一个终端启动交易PRT 2,通过终端名来 执行START命令是初始化一个打印程序最常用的方 法。