View previous topic :: View next topic
|
Author |
Message |
fawzy47 Currently Banned New User
Joined: 22 Oct 2005 Posts: 42
|
|
|
|
Hi every one,
I need to go from TSO tO CICS, I am expert in TSO, but I never work with CICS before, so how can I go to CICS Region test system
Thank you |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
I don't know about your CICS region test, but you can interact with CICS from TSO using the EXCI interface, which is well documented in the fine manual.
O. |
|
Back to top |
|
|
fawzy47 Currently Banned New User
Joined: 22 Oct 2005 Posts: 42
|
|
|
|
The question was about loging on C ICS, WHEN YOU are TSO READY prompt, what did you do to sign on to cics system |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
I repeat: You can use EXCI to do that. I did it before using program. Here is my code:
Code: |
ID DIVISION.
PROGRAM-ID. CICSCESN.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.
*----------------------------------------------------------------*
DATA DIVISION.
*----------------------------------------------------------------*
WORKING-STORAGE SECTION.
01 INPUT-PARM.
05 WS-USERID PIC X(8).
05 WS-PASSWORD PIC X(8).
05 FILLER PIC X(84).
01 WS-ESMREASON PIC S9(4) COMP.
01 WS-ESMRESP PIC S9(4) COMP.
01 WS-RESP PIC S9(8) COMP.
01 WS-RESP2 PIC S9(8) COMP.
01 WS-ABEND PIC X(4).
01 WS-TERMID PIC X(4).
*----------------------------------------------------------------*
LINKAGE SECTION.
*----------------------------------------------------------------*
01 DFHCOMMAREA PIC X(5).
*================================================================*
*----------------------------------------------------------------*
PROCEDURE DIVISION.
*----------------------------------------------------------------*
*
1000-START.
MOVE 'TEST ' TO WS-USERID
MOVE 'OFER83 ' TO WS-PASSWORD.
*
2000-SIGNON.
*
EXEC CICS
HANDLE CONDITION INVREQ(2500-REPORT)
HANDLE CONDITION NOTAUTH(2500-REPORT)
HANDLE CONDITION USERIDERR(2500-REPORT)
END-EXEC
*
EXEC CICS
HANDLE ABEND LABEL(2500-REPORT)
END-EXEC
*
EXEC CICS
SIGNON USERID(WS-USERID)
PASSWORD(WS-PASSWORD)
ESMREASON(WS-ESMREASON)
ESMRESP(WS-ESMRESP)
END-EXEC.
*
2500-REPORT.
MOVE EIBRESP TO WS-RESP
MOVE EIBRESP2 TO WS-RESP2
MOVE EIBRCODE TO WS-ABEND
MOVE EIBTRMID TO WS-TERMID
MOVE EIBTRMID TO DFHCOMMAREA.
*
3000-TERMINATE.
*
EXEC CICS
RETURN
END-EXEC.
STOP RUN.
|
O. |
|
Back to top |
|
|
fawzy47 Currently Banned New User
Joined: 22 Oct 2005 Posts: 42
|
|
|
|
Still, the question not answered.
If you are at TSO READY PROMPT, you can for example access DB2 via
DSN RUN COMMAND, but how can you get into CICS System to develope your cics probtam, then how can you run your transactions
Thank you |
|
Back to top |
|
|
bhoja
New User
Joined: 31 Jan 2006 Posts: 49
|
|
|
|
Is there any command in TSO for enter into CICS region. |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
I don't get you. I just posted an example that works !!!
O. |
|
Back to top |
|
|
Paddy
New User
Joined: 12 Sep 2005 Posts: 46 Location: Paris France
|
|
|
|
Hi Friend,
What want to do you exactly ? you log to CICS and to work with? In that case the better way for you to log to CICS is a USS table and call CICS through VTAM (ex : LOGON APPLID(MYCICS)).
When you see READY prompt you're already logged on TSO application and if you want to log on CICS you need a special interface or some special porcedure (ex rexx proc who call socket CICS or a assembler program).
Regards.
Paddy |
|
Back to top |
|
|
|