Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

From TSO to CICS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
fawzy47
Currently Banned

New User


Joined: 22 Oct 2005
Posts: 42

PostPosted: Tue Feb 07, 2006 6:58 am    Post subject: From TSO to CICS
Reply with quote

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
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Feb 07, 2006 9:22 am    Post subject:
Reply with quote

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
View user's profile Send private message
fawzy47
Currently Banned

New User


Joined: 22 Oct 2005
Posts: 42

PostPosted: Wed Feb 08, 2006 5:35 am    Post subject:
Reply with quote

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
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Feb 08, 2006 10:42 am    Post subject:
Reply with quote

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
View user's profile Send private message
fawzy47
Currently Banned

New User


Joined: 22 Oct 2005
Posts: 42

PostPosted: Thu Feb 09, 2006 9:05 am    Post subject:
Reply with quote

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
View user's profile Send private message
bhoja

New User


Joined: 31 Jan 2006
Posts: 49

PostPosted: Thu Feb 09, 2006 10:19 am    Post subject:
Reply with quote

Is there any command in TSO for enter into CICS region.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu Feb 09, 2006 11:28 am    Post subject:
Reply with quote

I don't get you. I just posted an example that works !!!

O.
Back to top
View user's profile Send private message
Paddy

New User


Joined: 12 Sep 2005
Posts: 46
Location: Paris France

PostPosted: Thu Feb 09, 2006 12:31 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm
No new posts Asynchronous CICS Processing Question moezbud CICS 0 Mon Mar 06, 2017 6:13 pm
No new posts CICS Question RE: Browse, Readnext an... moezbud CICS 7 Sun Mar 05, 2017 5:45 am
No new posts how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm
No new posts Mainframe Interview Questions CICS,CO... akshathan Mainframe Interview Questions 6 Thu Feb 09, 2017 6:38 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us