Wednesday, February 8, 2012

Using QA Hiperstation to record a CICS session


This article explains how to record the CICS transactions that you execute in a CICS region in a dataset using QA Hiperstation.


Select option “1” for “Hiperstation for VTAM”


------------------------ Hiperstation - Product Menu --------------------------
 Option  ===> 1                                                                
                                                                               
                                                                               
   0  Hiperstation Profiles              Set user profiles                     
   1  Hiperstation for VTAM              VTAM Application Testing              
   2  Hiperstation for Mainframe Server  SNA/APPC & HTTP Testing (Not licensed)
   3  Hiperstation for WebSphere MQ      WebSphere MQ Message Tes (Not licensed)
                                                                               
      Profile         ===>                                                     
      Profile dataset ===>                                                      
                                                                               
      Leave Profile blank for selection list                                   
      Leave Profile dataset blank to create new dataset                        
      Leave both blank to run with no Profile                                  
                                                                               
                                                                                
               See Hiperstation frequently asked questions at:                 
                        http://frontline.compuware.com                         
                                                                                
     Copyright (C) 1994, 2009 Compuware Corporation.  All Rights Reserved.     
  Unpublished-rights Reserved Under the Copyright Laws of the United States .   
                                                                               
 Type LEGAL on the command line for Copyright/Trade Secret Notice information  


Select option “1”

-------------------------  Hiperstation - Main Menu  --------------------------
 Option  ===> 1                                                                
                                                                               
                                                      Product Release: 07.08.00
   1  Domain Traveler              Record and Playback                         
   2  Quick Play                   Select a Script and Go                      
   3  Session Demo                 Demonstrate Online Applications             
   4  Global Recording             System and Application Test Creation        
   5  Archive/Search               Audit and Help Desk Functions               
   6  Script Processors            Automatic Script Editing                    
   7  Unattended Processing        Setup Unattended Playback and Compare Jobs  
   8  File Manager                 File Manager                                
   9  ATV Manager                  Automated Testing Vehicle (ATV) Manager     
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               

Type CICS region name as shown below
                                                                                

------------------------ Hiperstation * Domain Traveler -----------------------
 Command ===>                                                                  
                                                                                
   Use this panel to connect to one of your site's domains.  When              
   connected you can record your session or play back previous sessions.       
                                                                                
    Domain Destination . CICSTEST                                              
                                                                               
      Change session options (Enter "/")                                       
                                                                                
                                                                               
     Start = ISPF , Zoom = F23  , LUName = Default  , Restore Keyboard         
     Logmode = D4A32782 , Model = 3-(32X80) , SNA = Yes , Queriable = Yes      
     Application Profiling(Off) , IMS = Y                                      
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
Type command “ RECORD ON ” to record the transactions
                                                                               


ZOOM:F23 ------------------ HIPERSTATION ------------------------ LINE 1 OF 24
 Command ===> record on                                        Scroll ===> PAGE
 Record OFF  Play OFF  Journal OFF  Compare Log OFF  autoDoc OFF               
                            Signon to CICS                       APPLID CICSTEST
                                                                               
 WELCOME TO CICS/TS 4.1.0 REGION CICSTEST                                      
                                                                                
                                                                               
                                                                               
                                                                                
 Type your userid and password, then press ENTER:                              
                                                                               
          Userid . . . .             Groupid . . .                              
          Password . . .                                                       
          Language . . .                                                       
                                                                               
      New Password . . .                                                       
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               

In the ISPF 3.2 screen allocate a PDS as shown below.
                                                                               
                                                                               
   Menu  RefList  Utilities  Help                                               
 ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
                             Allocate New Data Set                             
 Command ===>                                                                  
                                                                    More:     +
 Data Set Name  . . . : TSUXXXX.QAH                                            
                                                                               
 Management class . . .                (Blank for default management class)    
 Storage class  . . . .                (Blank for default storage class)       
  Volume serial . . . .                (Blank for system default volume) **    
  Device type . . . . .                (Generic unit or device address) **     
 Data class . . . . . .                (Blank for default data class)          
  Space units . . . . . CYLINDER       (BLKS, TRKS, CYLS, KB, MB, BYTES        
                                        or RECORDS)                            
  Average record unit                  (M, K, or U)                            
  Primary quantity  . . 2              (In above units)                        
  Secondary quantity    2              (In above units)                         
  Directory blocks  . . 0              (Zero for sequential data set) *        
  Record format . . . . VB                                                     
  Record length . . . . 256                                                     
  Block size  . . . . .                                                        
  Data set name type    LIBRARY        (LIBRARY, HFS, PDS, LARGE, BASIC, *     
                                        EXTREQ, EXTPREF or blank)              
  Extended Attributes                  (NO, OPT or blank)                      


Type the PDS allocated above with a member as shown below


------------------------ Hiperstation * Recording Setup -----------------------
 Command ===>                                                                   
                                                                               
 Recording File Name:                                                          
  Project . . . .                                                               
  Group . . . . .                                                              
  Type  . . . . .                                                              
  Member  . . . .                 (Blank or pattern for member selection list) 
  Other Dsn . . . 'TSUXXXX.QAH(TEST)'                                          
                                                                               
 Description  . .                                                               
                                                                               
 Recording Options:                                                            
   Enter "/" to select option                                                  
     Replace Like Member(s)                                                    
   / Format Recording                                                          
     Record Inputs Only                                                        
     Stop Recording                                                             
   / Script Recovery                                                           
     Input fields in (row,column) format                                       
     File Manager                                                               
                                                                               
              Press ENTER to begin recording,  END to cancel setup.            
                                                                                

Below screen shows that Hiperstation is ready to record your transaction


ZOOM:F23 ------------------ HIPERSTATION --------------- RECORDING IN PROGRESS
 Command ===>                                                  Scroll ===> PAGE
 Recording TEST      Play OFF  Journal OFF  Compare Log OFF  autoDoc OFF       
                            Signon to CICS                       APPLID CICSTEST
                                                                                
 WELCOME TO CICS/TS 4.1.0 REGION CICSTEST                                      
                                                                               
                                                                               
                                                                                
                                                                               
 Type your userid and password, then press ENTER:                              
                                                                                
          Userid . . . .             Groupid . . .                             
          Password . . .                                                       
          Language . . .                                                        
                                                                               
      New Password . . .                                                       
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               


Use Shift+PF11 to toggle between the Hiperstation menu and the region.  Pressing Shift+PF11 key in the above screen, shows the below CICS screen in full screen mode.

                            Signon to CICS                       APPLID CICSTEST
                                                                               
 WELCOME TO CICS/TS 4.1.0 REGION CICSTEST                                      
                                                                               
                                                                                
                                                                               
                                                                               
 Type your userid and password, then press ENTER:                              
                                                                               
          Userid . . . . TSUXXXX     Groupid . . .                             
          Password . . .                                                        
          Language . . .                                                       
                                                                               
      New Password . . .                                                        
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
 DFHCE3520 Please type your userid.                                            
 F3=Exit                                                                        


Completed the above sign on screen and entered “CMAC” transaction.


CMAC                                                                           
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
 DFHCE3549 Sign-on is complete (Language ENU).                                 


Type “ASRA” to see the explanation


DFHCMC01              Display On-line Messages and Codes                      
                                                                               
                                                                                
 Type the required message identifier, then press Enter.                       
                                                                               
                                                                                
                                                                               
      Component ID. . . .      (for example, TC for Terminal Control           
                                             FC for File Control, etc.)        
                               This field is required for messages in the      
                               form DFHxxyyyy, where xx is the Component ID.   
                                                                                
      Message Number. . . ASRA (for example, 1060, 5718, or Abend Code         
                               such as ASRA, etc.)                             
                                                                                
                                                                               
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
 F3=Exit to CICS                                                               






           ASRA                                                                 
                                                                               
                                                                               
           EXPLANATION:  The task has terminated abnormally because            
           of a program check.                                                 
                                                                               
           SYSTEM ACTION:  The task is abnormally terminated and CICS          
           issues either message DFHAP0001 or DFHSR0001.  Message              
           DFHSR0622 may also be issued.                                       
                                                                                
           USER RESPONSE:  Refer to the description of the associated          
           message or messages to determine and correct the cause of           
           the program check.                                                   
                                                                               
           MODULE:  DFHSRP                                                     
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
 F3=Cancel                                                                     


Press clear key and then Shift+PF11 key to go back to Hiperstation and type “RECORD OFF” to stop the recording.

ZOOM:F23 ------------------ HIPERSTATION ------------------------ LINE 1 OF 24
 Command ===> RECORD OFF                                       Scroll ===> PAGE
 Recording TEST      Play OFF  Journal OFF  Compare Log OFF  autoDoc OFF       
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               




The blow screen shows that recording has stopped


ZOOM:F23 ------------------ HIPERSTATION ------------------- RECORDING STOPPED
 Command ===>                                                  Scroll ===> PAGE
 Record OFF  Play OFF  Journal OFF  Compare Log OFF  autoDoc OFF               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                



Type “CANCEL” to disconnect the CICS session


ZOOM:F23 ------------------ HIPERSTATION ------------------- RECORDING STOPPED
 Command ===> CANCEL                                           Scroll ===> PAGE
 Record OFF  Play OFF  Journal OFF  Compare Log OFF  autoDoc OFF               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                



Browsing the dataset shows that CICS transaction has been recorded in the dataset.


   Menu  Utilities  Compilers  Help                                            
 sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
 BROWSE    TSUXXXX.QAH(TEST) - 00.00                  Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> CSR 
********************************* Top of Data **********************************
************************************************************************       
* CREATED BY USER:  TSUXXXX TPF: CICSTEST TIME: 20:39 DATE: 02/08/12   *       
* DESC:                                                                *       
************************************************************************       
* LU: UHG02Q01   TPF: CICSTEST   LOGMODE: D4A32782                     *       
************************************************************************       
<VERSION>7                                                                      
<IMSUNLOK>Y                                                                    
<OUTPUT>0000001 (24,080)                                                       
<RESPONSE>00.00.000                                                             
<S01>............................Signon to CICS ......................APPLID.CIC
<S02>                                                                          
<S03>.WELCOME TO CICS/TS 4.1.0 REGION CICSTEST                                  
<S04>.                                                                         
<S05>.                                                                         
<S06>.                                                                          
<S07>                                                                          
<S08>.Type your userid and password, then press ENTER:                         
<S09>                                                                          


No comments:

Post a Comment

Note: Only a member of this blog may post a comment.