To start a session from the CICS screen in command mode, enter a CICS transaction name (for example,
HURN) that is associated with a TIBCO Object Service Broker CICS client program. Non-seamless client programs use screen input following the transaction name as the
session parameter string. No data is passed to the TIBCO Object Service Broker session.
The TIBCO Object Service Broker transaction HURN uses the TIBCO Object Service Broker CICS client S6BCSSC2. S6BCSSC2 is non-seamless, permits screen I/O, and uses the CICS security user ID (which can be overridden with the USERID session parameter). When you use parameters with your
HURN transaction, the syntax is:
HURN parameter[=
value][,]
An example of the HURN transaction is:
This establishes a session with the parameters USERID (abbreviated as U) and PASSWORD. You do not have to specify a user ID and password if you logged on to CICS using
CESN or
CSSN (or equivalent transactions). Since no rule is specified, the workbench appears, unless the profile of the user ID specifies a rule.
2.
|
Execute the CICS ASSIGN FACILITY instruction to include the terminal ID in the EXEC CICS START TRANSID instruction.
|
Note: If you run TIBCO Object Service Broker as a background (nonterminal) task, skip this step.
3.
|
Optional. For an additional level of security, execute the EXEC CICS START TRANSID instruction with different transaction IDs to start TIBCO Object Service Broker.
|
The following program shows EXEC CICS START TRANSID, which starts the TIBCO Object Service Broker CICS client program
S6BCSSC2 as a new transaction and does not return to the assembler application.
BRTESTS TITLE 'CICS START TASK EXAMPLE PROGRAM'
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* FUNCTION: THIS PROGRAM SERVES AS AN EXAMPLE OF HOW OSB-CICS CAN *
* BE ACCESSED FROM A USER APPLICATION PROGRAM. THIS *
* PROGRAM STARTS A OSB-CICS TRANSACTION AND PASSES *
* PARAMETERS TO OSB THROUGH A COMMAREA. THE MESSAGES *
* SENT FROM THIS PROGRAM INDICATE THE POINT AT WHICH THIS *
* PROGRAM IS PROCESSING. FURTHER COMMENTS CAN BE FOUND *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* SEND MESSAGE INDICATING COMMENCEMENT
*MOVE LENGTH OF PARMS INTO COMMAREA
* # NOTE # THIS IS THE LENGTH OF THE PARM STRING ONLY
* THE COMMAREA LENGTH MUST INCLUDE AT MINIMUM, THE PARM
* LENGTH PLUS THE LENGTH OF THE PARM LENGTH FIELD ITSELF.
*MOVE PARMS INTO COMMAREA. RULE NAME AND PARMS SPECIFIED HERE ARE
MVC HURNPARM,=C'RULE=TESTX(3245,BANK,DATES)'
*GET USER'S TERMINAL ID FOR SUBSEQUENT EXECUTION OF OSB-CICS
*AS STARTED TASK. FOR NON-TERMINAL STARTED TASK, THIS STEP CAN BE
*START OSB AS SEPARATE TASK AT USER'S TERMINAL USING DATA AREA
*TO PASS RULES AND PARMS.
LTORG FORCE OUT ASSEMBLY LITERALS
BRTEXTL1 DC Y(L'BRTEXT1) LENGTH OF LINK MESSAGE
BRTEXT1 DC C'BRTESTS - ABOUT TO START OSB-CICS TASK'
*****>THE FOLLOWING DSECTS ALL EXIST IN CICS DYNAMIC STORAGE<*****
HURNCOMA DS 0F COMMAREA FOR STARTED TASK
HURNPRML DS H LENGTH OF PARMS IN HURNPARM
The following program shows EXEC CICS START TRANSID, which starts the TIBCO Object Service Broker CICS client program
S6BCSSC2 as a new transaction and does not return to the COBOL application.
02 S6B-PARM-AREA-LENGTH PIC S9(4) COMP VALUE +40.
02 S6B-PARM-AREA PIC X(40) VALUE SPACES.
02 S6B-DATA-AREA PIC X(90) VALUE SPACES.
01 S6B-COMMAREA-LENGTH PIC S9(4) COMP VALUE +256.
01 S6B-USERID PIC X(8) VALUE SPACES.
01 CICS-COMMAREA PIC X(256).
EXEC CICS ASSIGN USERID(S6B-USERID) END-EXEC.
MOVE 'U=USR10' TO S6B-PARM-AREA.
MOVE '== DATA AREA ==' TO S6B-DATA-AREA.
MOVE S6B-COMMAREA TO CICS-COMMAREA.
LENGTH(S6B-COMMAREA-LENGTH) END-EXEC.
2.
|
Execute the CICS ASSIGN FACILITY instruction to include the terminal ID in the EXEC CICS START TRANSID instruction.
|
Note: If you run TIBCO Object Service Broker as a background (nonterminal) task, skip this step.
3.
|
Optional. For an additional level of security, execute the EXEC CICS START TRANSID instruction with different transaction IDs to start TIBCO Object Service Broker.
|
The following program shows EXEC CICS START TRANSID, which starts the TIBCO Object Service Broker CICS client program
S6BCSSC2 as a new transaction and does not return to the assembler application.
The following program shows EXEC CICS START TRANSID, which starts the TIBCO Object Service Broker CICS client program
S6BCSSC2 as a new transaction and does not return to the COBOL application.
MOVE 'U=USR10,P=PUSR10' TO S6B-SESSION-PARM.
EXEC CICS PUT CONTAINER('PARMCONTAINER') CHANNEL('ABC')
FROM(S6B-SESSION-PARM) FLENGTH(S6B-SESSION-PARM-LENGTH)
EXEC CICS PUT CONTAINER('SESSIONDATA') CHANNEL('ABC')
FROM(S6B-SESSION-DATA) FLENGTH(S6B-SESSION-DATA-LENGTH)
To start a TIBCO Object Service Broker session using EXEC CICS LINK, establish a COMMAREA and LINK to the appropriate TIBCO Object Service Broker CICS client program.
The following program shows EXEC CICS LINK, which accesses TIBCO Object Service Broker CICS client program
S6BCSSC2 and returns to the assembler application.
* BE ACCESSED FROM A USER APPLICATION PROGRAM. IT WILL *
* ASSEMBLE TO EXECUTABLE FORM. THIS PROGRAM LINKS TO *
* OSB-CICS BY PASSING PARAMETERS THROUGH A COMMAREA. *
* THE MESSAGES SENT FROM THIS PROGRAM INDICATE THE POINT *
* AT WHICH THIS PROGRAM IS PROCESSING. FURTHER COMMENTS *
* CAN BE FOUND AT EACH SECTION. *
* THE COMMAREA LENGTH MUST INCLUDE AT MINIMUM, THE PARM
* LENGTH PLUS THE LENGTH OF THE PARM LENGTH FIELD ITSELF.
MVC HURNPARM,=C'RULE=TESTX(3245,BANK,DATES)'
BRTEXT1 DC C'BRTESTL - ABOUT TO LINK TO OSB/CICS'
BRTEXT2 DC C'BRTESTL- RETURNED SUCCESSFULLY FROM OSB/CICS'
LTORG FORCE OUT ASSEMBLY LITERALS
To start a TIBCO Object Service Broker session with EXEC CICS LINK, create a Channel with the desired Containers and
LINK to the appropriate TIBCO Object Service Broker CICS client program.
The following program shows EXEC CICS LINK, which accesses TIBCO Object Service Broker CICS client program
S6BCSSC2 and returns to the assembler application.
To start a TIBCO Object Service Broker session using EXEC CICS XCTL, establish a COMMAREA and transfer to the appropriate TIBCO Object Service Broker CICS client program.
The following program shows the use of EXEC CICS XCTL, which accesses the TIBCO Object Service Broker CICS client program
S6BCSSC2 and does not return to the assembler application.
BRTESTX TITLE 'OSB-CICS XCTL EXAMPLE PROGRAM'
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* FUNCTION: THIS PROGRAM SERVES AS AN EXAMPLE OF HOW OSB-CICS CAN *
* BE ACCESSED FROM A USER APPLICATION PROGRAM. THIS *
* EXAMPLE PERFORMS A TRANSFER OF CONTROL TO OSB-CICS AND *
* PASSES PARAMETERS THROUGH A COMMAREA. THE MESSAGES SENT *
* FROM THIS PROGRAM INDICATE THE POINT AT WHICH THIS *
* PROGRAM IS PROCESSING. FURTHER COMMENTS CAN BE FOUND *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* SEND MESSAGE INDICATING COMMENCEMENT
*MOVE LENGTH OF PARMS INTO COMMAREA
* # NOTE # THIS IS THE LENGTH OF THE PARM STRING ONLY.
* THE COMMAREA LENGTH MUST INCLUDE AT MINIMUM, THE PARM
* LENGTH PLUS THE LENGTH OF THE PARM LENGTH FIELD ITSELF.
*MOVE PARMS INTO COMMAREA. RULE NAME AND PARMS SPECIFIED HERE ARE
MVC HURNPARM,=C'RULE=TESTX(3245,BANK,DATES)'
*TRANSFER CONTROL TO OSB-CICS USING COMMAREA TO PASS RULES,PARMS
LTORG FORCE OUT ASSEMBLY LITERALS
BRTEXTL1 DC Y(L'BRTEXT1) LENGTH OF LINK MESSAGE
BRTEXT1 DC C'BRTESTX - ABOUT TO XCTL TO OSB-CICS'
*****>THE FOLLOWING DSECTS ALL EXIST IN CICS DYNAMIC STORAGE<*****
OSBPRML DS H LENGTH OF PARMS IN HURNPARM
OSBPARM DS CL161 PARMS (CAN BE LARGER)
OSBCOML EQU *-OSBCOMA LENGTH OF DSECT
To start a TIBCO Object Service Broker session with EXEC CICS XCTL, create a Channel with the desired Containers and transfer to the appropriate TIBCO Object Service Broker CICS client program.
The following program shows the use of EXEC CICS XCTL, which accesses the TIBCO Object Service Broker CICS client program
S6BCSSC2 and does not return to the assembler application.