6 1 CICS 6 1 SIGN ON PROGRAM
- Slides: 31
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 PROCEDURE… LINK… …
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 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 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 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命令 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. 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等
例子 2 … MOVE TERMIDI TO WS-TERMID。 EXEC CICS START TRANSID(‘PRT 2’) TERMID(WS-TERMID) RESP(ERR-CODE) END-EXEC。 … 本例子通过一个终端启动交易PRT 2,通过终端名来 执行START命令是初始化一个打印程序最常用的方 法。
- Sign sign everywhere a sign
- Chvostek sign trousseau sign
- Trousseau's sign
- Hypermagnesemia treatment
- Pleocytosis pronunciation
- When the signs are the same,
- Cics performance analyzer
- Cics map example
- Dfhbmsca in cics
- Cics configuration manager
- Exec cics formattime
- Mdt in cics
- Cics bms
- Exec cics startbr
- Ibm cics web services
- Cics web send
- Exec cics startbr
- Asra abend in cics
- Cics start
- Cics transaction server performance
- Cics threadsafe
- Ceda command in cics
- Cics ceda
- Transaction server examples
- Cics nedir
- Cics threadsafe
- Dfhmsd in cics
- Dfhmsd
- Cics threadsafe
- Nohandle in cics
- Sequential program and an event-driven program
- Perangkat lunak komputer disebut juga ?