Xpediter for Batch Tutorial

                                       About Us          Services          Courses          Case Studies          Mainframe Forum          Mainframe Jobs          Contact Us           Mainframe Connectivity


Sample program used in the xpediter for debugging

OZA059.SAMPLE.SOURCE(PROG1)

 
IDENTIFICATION DIVISION.                     
PROGRAM-ID. PROG1.                           
ENVIRONMENT DIVISION.                        
DATA DIVISION.                               
WORKING-STORAGE SECTION.                     
77 NUM1            PIC 9(3).                 
77 NUM2            PIC 9(3) VALUE ZERO.      
77 NUM3            PIC 9(3) VALUE ZERO.      
77 NUM4            PIC 9(3) VALUE ZERO.      
77 ADD1            PIC 9(4) VALUE ZERO.      
77 MUL1            PIC 9(4) VALUE ZERO.      
77 SUB1            PIC 9(4) VALUE ZERO.      
PROCEDURE DIVISION.                          
MAIN-PARA.                                   
     PERFORM ACCEPT-PARA.                    
     PERFORM ADDITION-PARA.                  
     PERFORM MULTIPLICATION-PARA.            
     PERFORM SUBTRACT-PARA.                  
     PERFORM DISPLAY-PARA.                     
     STOP RUN.                                 
ACCEPT-PARA.                                   
     ACCEPT NUM1.                              
     ACCEPT NUM2.                              
     ACCEPT NUM3.                              
     ACCEPT NUM4.                              
ADDITION-PARA.                                 
     DISPLAY  'IN ADDITION PARA'.              
     COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4. 
MULTIPLICATION-PARA.                           
     DISPLAY  'IN MULTIPLICATION PARA'.        
     COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4. 
SUBTRACT-PARA.                                 
     DISPLAY  'IN SUBTRACT PARA'.              
     COMPUTE SUB1 = NUM3 - NUM2.               
DISPLAY-PARA.                                  
     DISPLAY  'IN DISPLAY PARA'.               
     DISPLAY 'ADD1  :' ADD1.     
     DISPLAY 'MUL1  :' MUL1.     
     DISPLAY 'SUB1  :' SUB1.


Execution JCL for the above sample program    

OZA059.SAMPLE.SOURCE(PROG1JCL)

//OZA059EX JOB '',REGION=7168K I                              
//STEP1    EXEC PGM=PROG1                                     
//STEPLIB  DD DSN=OZA059.SAMPLE.LOADLIB,DISP=SHR              
//SYSPRINT DD SYSOUT=*                                        
//SYSOUT   DD SYSOUT=*                                        
//SYSIN    DD *                                               
500                                                           
400                                                           
300                                                           
200                                                           
/*                                                            
//                                                           


******************************************************************************
 

                         SELECTIVE - Development DEV                             
    For assistance please phone Service Point on     
 Command ===> XPE                                                Userid OZA059 
                                                                               
 Enter Fastpath, Option or (S)elect                                            
                                                                               
           Fastpath  Option    Description                                     
                                                                    More:     +
           PDF          0    - Program Development Facility                    
           BR           1    - PDF Browse                                      
           ED           2    - PDF Edit                                        
           UTils        3    - PDF Utility Functions                           
           FOre         4    - PDF Foreground Functions                        
           BATch        5    - PDF Batch Functions                             
           COMMAND      6    - TSO Command/Clist                               
                                                                               
           XPE          XPE  - Xpeditor 
           FA           FA   - File Aid   
           CM           CM   - Change man                  
                                                                                
     Enter END to terminate ISPF.                                                                                           

 

************************************************************************************

 


 ----------------------- XPEDITER PRODUCT OPTIONS MENU -------------------------
 COMMAND ===> 2                                                                
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
        1     Xpediter/TSO and Xpediter/IMS                                    
        2     Xpediter/CICS                                                    
                                                                               
        ?     Help                                                             
        X     Exit (Return to Previous Menu)                                   
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                              

 

 

 

 ----------------------  XPEDITER/TSO 7.4 - PRIMARY MENU  ----------------------
 OPTION  ===>                                                                  
                                                                               
          0  DEFAULTS      - Specify defaults                                  
          1  PREPARE       - Prepare programs for debugging                    
          2  TSO           - Debug programs interactively under TSO            
          3  BATCH         - Debug programs interactively under batch          
                                                                               
          5  UTILITIES     - Perform utility functions                         
          F  FADB2         - Invoke File-AID for DB2                           
          C  CODE COVERAGE - Code Coverage Reports and Utilities               
          B  BULLETIN      - Display summary of changes for this release       
          T  TUTORIAL      - Display information about XPEDITER/TSO            
          X  EXIT          - Exit primary menu                                 
                                                                               
                                                                               
                                                                               
    Profile ===> DEFAULT  - *** NO DESCRIPTION ***                             
                                                                               


**********************************************************************************
 


 ----------------------  XPEDITER/TSO 7.4 - PRIMARY MENU  ----------------------
 OPTION  ===> 1                                                                
                                                                               
          0  DEFAULTS      - Specify defaults                                  
          1  PREPARE       - Prepare programs for debugging                    
          2  TSO           - Debug programs interactively under TSO            
          3  BATCH         - Debug programs interactively under batch          
                                                                               
          5  UTILITIES     - Perform utility functions                         
          F  FADB2         - Invoke File-AID for DB2                           
          C  CODE COVERAGE - Code Coverage Reports and Utilities               
          B  BULLETIN      - Display summary of changes for this release       
          T  TUTORIAL      - Display information about XPEDITER/TSO            
          X  EXIT          - Exit primary menu                                 
                                                                               
    Profile ===> DEFAULT  - *** NO DESCRIPTION ***                             
                                                                               
        Copyright (c) 1998, Compuware Corporation.  All rights reserved.       
                                 (001) 422-5311                                 
        Release Level 7.4 - if you have any problems call Compuware Corporation        
                                                                                
            Press ENTER to process  or  enter END command to terminate        

 

 ------------------  XPEDITER/TSO - PROGRAM PREPARATION MENU  ------------------
 OPTION  ===> 2                                                                
                                                                               
         1  CONVERT COMPILE JCL  - Convert compile JCL for XPEDITER            
         2  COMPILE FACILITY     - Compile programs for XPEDITER               
         3  BIND FACILITY MENU   - Bind application plans or packages          
         4  EDIT ALLOCATION LIST - Edit or Create file allocation lists        
                                                                               
                                                                               
      For the COMPILE FACILITY, you may use the Compile Profile field          
        below as a method of selecting a specific profile that contains        
        or will contain the desired compile parameters.  If an existing        
        name is entered, the compile parameters previously saved under         
        that name will be used.  If a new name is entered, a new profile       
        will be created to hold the newly entered compile parameters.          
        A '?' in the Compile Profile field will display a member list of       
        existing names permitting profiles to be selected, displayed or        
        maintained (i.e., COPY, RENAME, DELETE, etc.).                         
                                                                               
 Compile Profile ===> DEFAULT  DEFAULT COMPILE PROFILE                         
                                                                               
                                                                               
            Press ENTER to process  or  enter END command to terminate        


*************************************************************************************                                                                               


 ---------------------- XPEDITER/TSO - COMPILE FACILITY ------------------------
 COMMAND ===>                                                                  
                                                                               
 Primary Commands: Listing (Display output) SEtup (Display general settings)   
                                                                               
 Compile Profile:  DEFAULT  - DEFAULT COMPILE PROFILE                          
                                                                               
 Source Dsname ===> 'OZA059.SAMPLE.SOURCE(PROG1)'                              
   Preparation ===> BATCH       (Batch/Editjcl/Foreground)                     
      Language ===> E-COBOL     Select From The List Below                     
   (E-COBOL/HLASM)                                                             
   ()                                                                          
                                                                               
 SEL Options:  D - Display settings                                            
               S - Process only                                                
                                                                               
   SEL        STEPS                        S - Select DB2 Precompile libraries 
   --- -------------------                 ----------------------------------- 
    _  1. DB2 Precompile                         _  RDSA                       
    _  2. CICS Translation                                                     
    D  3. Compile                                                              
    D  4. Linkedit                                                             
                                                                               
                                                                              

 ------------------------ COMPILE STEP - ---------------------------------------


 COMMAND ===>                                                                  
                                                                               
         Options ===>                                                          
                 ===>                                                          
                                                                               
     SYSLIB Datasets:                                                          
             (1) ===>                                                          
             (2) ===>                                                          
             (3) ===>                                                          
             (4) ===>                                                          
             (5) ===>                                                          
             (6) ===>                                                          
             (7) ===>                                                          
             (8) ===>                                                          
                                                                               
                                                                               
  Object Library ===> 'OZA059.SAMPLE.OBJLIB'                                   
                                                                               
       DDIO File ===> 'OZA059.SAMPLE.DDIO'                                     
  LP Options DSN ===>                                                          
                                                                               
            Press ENTER to update  or  enter END command to terminate          
                                                                               

************************************************************************************


 ----------------------------- LINKEDIT STEP -----------------------------------
 COMMAND ===>                                                                  
                                                                               
         Options ===>                                                          
                 ===>                                                          
                                                                               
    Load Library ===> 'OZA059.SAMPLE.LOADLIB'                                  
                                                                               
     SYSLIB Datasets:                                                          
             (1) ===>                                                          
             (2) ===>                                                          
             (3) ===>                                                          
             (4) ===>                                                          
             (5) ===>                                                          
             (6) ===>                                                          
             (7) ===>                                                          
             (8) ===>                                                          
                                                                               
 SYSLIN Control Statements:                                                    
 ===>                                                                          
 ===>                                                                          
                                                                               
            Press ENTER to update  or  enter END command to terminate          
                                                                              

 

 ---------------------- XPEDITER/TSO - COMPILE FACILITY ------------------------
 COMMAND ===>                                                                  
                                                                               
 Primary Commands: Listing (Display output) SEtup (Display general settings)   
                                                                               
 Compile Profile:  DEFAULT  - DEFAULT COMPILE PROFILE                          
                                                                               
 Source Dsname ===> 'OZA059.SAMPLE.SOURCE(PROG1)'                              
   Preparation ===> BATCH       (Batch/Editjcl/Foreground)                     
      Language ===> COBOL     Select From The List Below                     
   (COBOL)                                                             
   ()                                                                          
                                                                               
 SEL Options:  D - Display settings                                            
               S - Process only                                                
                                                                               
   SEL        STEPS                        S - Select DB2 Precompile libraries 
   --- -------------------                 ----------------------------------- 
    _  1. DB2 Precompile                         _  RDSA                       
    _  2. CICS Translation                                                     
    D  3. Compile     |`````````````````````````````````                       
    D  4. Linkedit    K JOB OZA059C(JOB34523) SUBMITTED K                      
                      {`````````````````````````````````¬                      
                                                                               
*********************************************************************************

 PROG1 RC=04: COMPILE     OZA059                                               
 PROG1 RC=00: LINKEDIT    OZA059                                               
 ***                                                                           
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                              

 

 ----------------------  XPEDITER/TSO 7.4 - PRIMARY MENU  ----------------------
 OPTION  ===> 2                                                                
                                                                               
          0  DEFAULTS      - Specify defaults                                  
          1  PREPARE       - Prepare programs for debugging                    
          2  TSO           - Debug programs interactively under TSO            
          3  BATCH         - Debug programs interactively under batch          
                                                                               
          5  UTILITIES     - Perform utility functions                         
          F  FADB2         - Invoke File-AID for DB2                           
          C  CODE COVERAGE - Code Coverage Reports and Utilities               
          B  BULLETIN      - Display summary of changes for this release       
          T  TUTORIAL      - Display information about XPEDITER/TSO            
          X  EXIT          - Exit primary menu                                 
                                                                               
                                                                               
                                                                               
    Profile ===> DEFAULT  - *** NO DESCRIPTION ***                             
                                                                               
        Copyright (c) 1998, Compuware Corporation.  All rights reserved.       
                                                                               
            Press ENTER to process  or  enter END command to terminate        


***********************************************************************************


 Profile: DEFAULT ------  XPEDITER/TSO - STANDARD (2.1)  -----------------------
 COMMAND ===>                                                                  
                                                                               
 COMMANDS:  SEtup (Display Setup Menu)                                         
            PROFile (Display Profile List)                                     
 TEST SELECTION CRITERIA:                                                      
                                                                               
                Program ===> PROG1                                             
            Entry Point ===>                                                   
            Load Module ===> PROG1                                             
                                                                               
         Initial Script ===>                                                   
            Post Script ===>                                                   
                                                                               
   PARM  ( Caps = YES ) ===>                                                   
                                                                               
   File List/JCL Member ===> 'OZA059.SAMPLE.SOURCE(PROG1JCL)'                  
         Preview Files? ===> NO                                                
    Code Coverage Test? ===> NO                                                
    Is This a DB2 Test? ===> NO    Plan ===>            System ===>            
                                                                               
            Press ENTER to process  or  enter END command to terminate         
                                                                               
                                                                              

 


 Profile: DEFAULT ------  XPEDITER/TSO - STANDARD (2.1)  -----------------------
 COMMAND ===> SE                                                               
                                                                               
 COMMANDS:  SEtup (Display Setup Menu)                                         
            PROFile (Display Profile List)                                     
 TEST SELECTION CRITERIA:                                                      
                                                                               
                Program ===> PROG1                                             
            Entry Point ===>                                                   
            Load Module ===> PROG1                                             
                                                                               
         Initial Script ===>                                                   
            Post Script ===>                                                   
                                                                               
   PARM  ( Caps = YES ) ===>                                                   
                                                                               
   File List/JCL Member ===> 'OZA059.SAMPLE.SOURCE(PROG1JCL)'                  
         Preview Files? ===> NO                                                
    Code Coverage Test? ===> NO                                                
    Is This a DB2 Test? ===> NO    Plan ===>            System ===>            
                                                                               
            Press ENTER to process  or  enter END command to terminate         
                                                                               

**************************************************************************************


 Profile: DEFAULT -------  XPEDITER/TSO - SETUP MENU  --------------------------
 OPTION  ===>                                                                  
                                                                               
           0  ENVIRONMENT  - Execution environments menu                       
           1  LOADLIBS     - Application load module libraries                 
           2  DDIO         - DDIO files                                        
           3  INCLUDES     - Test script libraries                             
           4  LOG          - Session log dataset disposition                   
           5  SCRIPT       - Test script dataset disposition                   
           6  DSNLOAD      - DB2 system names and DSNLOAD libraries            
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
           C  CODE COVERAGE- Code Coverage setup options                       
           D  DOCUMENT     - Document dataset disposition                      
           E  EXTENDED     - Extended Setup Menu                               
           A  ALL          - Display all of the above in succession (except 0) 
                                                                               
            Press ENTER to process  or  enter END command to terminate        

 

 Profile: DEFAULT -------  XPEDITER/TSO - SETUP MENU  --------------------------
 OPTION  ===> 0                                                                
                                                                               
           0  ENVIRONMENT  - Execution environments menu                       
           1  LOADLIBS     - Application load module libraries                 
           2  DDIO         - DDIO files                                        
           3  INCLUDES     - Test script libraries                             
           4  LOG          - Session log dataset disposition                   
           5  SCRIPT       - Test script dataset disposition                   
           6  DSNLOAD      - DB2 system names and DSNLOAD libraries            
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
           C  CODE COVERAGE- Code Coverage setup options                       
           D  DOCUMENT     - Document dataset disposition                      
           E  EXTENDED     - Extended Setup Menu                               
           A  ALL          - Display all of the above in succession (except 0) 
                                                                               
            Press ENTER to process  or  enter END command to terminate        


************************


 Profile: DEFAULT ------  XPEDITER/TSO - ENVIRONMENTS MENU  --------------------
 OPTION  ===>                                                                  
                                                                               
     XPEDITER/TSO                                                              
     ==>   1   STANDARD  - Test a program with no special environment services 
           2   DIALOG    - Test programs that make ISPF dialog manager calls   
           3   IMS       - Test a program that makes IMS/DB calls              
           4   BTS       - Test programs using BTS                             
           5   BATCHPEM  - Test a program in a Hogan BATCHPEM environment      
                                                                               
                                                                               
                                                                               
     XPEDITER/IMS                                                              
           8   MPP       - Test programs in an IMS message region              
           9   BMP/IFP   - Test a program in a BMP or Fast Path region         
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
             Note: The environment highlighted is currently selected.          
                                                                               
            Press ENTER to process  or  enter END command to terminate        

 

 Profile: DEFAULT -------  XPEDITER/TSO - SETUP MENU  --------------------------
 OPTION  ===> 1                                                                
                                                                               
           0  ENVIRONMENT  - Execution environments menu                       
           1  LOADLIBS     - Application load module libraries                 
           2  DDIO         - DDIO files                                        
           3  INCLUDES     - Test script libraries                             
           4  LOG          - Session log dataset disposition                   
           5  SCRIPT       - Test script dataset disposition                   
           6  DSNLOAD      - DB2 system names and DSNLOAD libraries            
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
           C  CODE COVERAGE- Code Coverage setup options                       
           D  DOCUMENT     - Document dataset disposition                      
           E  EXTENDED     - Extended Setup Menu                               
           A  ALL          - Display all of the above in succession (except 0) 
                                                                               
            Press ENTER to process  or  enter END command to terminate        


**************************************


 Profile: DEFAULT ----  XPEDITER/TSO - LOAD MODULE LIBRARIES  ------------------
 COMMAND ===>                                                                  
 COMMANDS:  DOWN (for additional User Libraries)                               
 User Libraries:      --->>> Include ALL libraries your program requires <<<---
          (Even if the library is in LINKLST, ie. COBOL or LE runtime libraries)
       (1) ===> 'OZA059.SAMPLE.LOADLIB'                                        
       (2) ===>                                                                
       (3) ===>                                                                
       (4) ===>                                                                
       (5) ===>                                                                
       (6) ===>                                                                
       (7) ===>                                                                
       (8) ===>                                                                
 Installation Libraries: (Changes made to this list override installed default 
       (9) ===>                                                                
      (10) ===>                                                                
      (11) ===>                                                                
      (12) ===>                                                                
      (13) ===>                                                                
      (14) ===>                                                                
      (15) ===>                                                                
      (16) ===>                                                                
            Press ENTER to Process  or  Enter END Command to Terminate         
                                                                              


 Profile: DEFAULT -------  XPEDITER/TSO - SETUP MENU  --------------------------
 OPTION  ===> 2                                                                
                                                                               
           0  ENVIRONMENT  - Execution environments menu                       
           1  LOADLIBS     - Application load module libraries                 
           2  DDIO         - DDIO files                                        
           3  INCLUDES     - Test script libraries                             
           4  LOG          - Session log dataset disposition                   
           5  SCRIPT       - Test script dataset disposition                   
           6  DSNLOAD      - DB2 system names and DSNLOAD libraries            
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
           C  CODE COVERAGE- Code Coverage setup options                       
           D  DOCUMENT     - Document dataset disposition                      
           E  EXTENDED     - Extended Setup Menu                               
           A  ALL          - Display all of the above in succession (except 0) 
                                                                               
            Press ENTER to process  or  enter END command to terminate        


*******************************


 Profile: DEFAULT --------  XPEDITER/TSO - DDIO FILES  -------------------------
 COMMAND ===>                                                                  
                                                                               
                                                                               
 User Libraries:                                                               
                                                                               
       (1) ===>                                                                
       (2) ===>                                                                
       (3) ===>                                                                
       (4) ===>                                                                
       (5) ===>                                                                
       (6) ===>                                                                
                                                                               
                                                                               
 Installation Libraries: (This list contains overrides to installed defaults)  
                                                                               
       (7) ===> 'OZA059.SAMPLE.DDIO'                                           
       (8) ===>                                                                
       (9) ===>                                                                
                                                                               
                                                                               
                                                                               
            Press ENTER to process  or  enter END command to terminate         
                                                                              

 

 Profile: DEFAULT -------  XPEDITER/TSO - SETUP MENU  --------------------------
 OPTION  ===> 3                                                                
                                                                               
           0  ENVIRONMENT  - Execution environments menu                       
           1  LOADLIBS     - Application load module libraries                 
           2  DDIO         - DDIO files                                        
           3  INCLUDES     - Test script libraries                             
           4  LOG          - Session log dataset disposition                   
           5  SCRIPT       - Test script dataset disposition                   
           6  DSNLOAD      - DB2 system names and DSNLOAD libraries            
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
           C  CODE COVERAGE- Code Coverage setup options                       
           D  DOCUMENT     - Document dataset disposition                      
           E  EXTENDED     - Extended Setup Menu                               
           A  ALL          - Display all of the above in succession (except 0) 
                                                                               
            Press ENTER to process  or  enter END command to terminate        


*********************************************************************************


 Profile: DEFAULT ---  XPEDITER/TSO - TEST SCRIPT LIBRARIES  -------------------
 COMMAND ===>                                                                  
                                                                               
                                                                               
 User Libraries:                                                               
                                                                               
       (1) ===> 'OZA059.SAMPLE.COPYLIB'                                        
       (2) ===>                                                                
       (3) ===>                                                                
                                                                               
 Installation Libraries: (Changes made here will override installed defaults)  
                                                                               
       (4) ===>                                                                
       (5) ===>                                                                
       (6) ===>                                                                
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
            Press ENTER to Process  or  Enter END Command to Terminate         
                                                                              


 Profile: DEFAULT -------  XPEDITER/TSO - SETUP MENU  --------------------------
 OPTION  ===> 4                                                                
                                                                               
           0  ENVIRONMENT  - Execution environments menu                       
           1  LOADLIBS     - Application load module libraries                 
           2  DDIO         - DDIO files                                        
           3  INCLUDES     - Test script libraries                             
           4  LOG          - Session log dataset disposition                   
           5  SCRIPT       - Test script dataset disposition                   
           6  DSNLOAD      - DB2 system names and DSNLOAD libraries            
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
           C  CODE COVERAGE- Code Coverage setup options                       
           D  DOCUMENT     - Document dataset disposition                      
           E  EXTENDED     - Extended Setup Menu                               
           A  ALL          - Display all of the above in succession (except 0) 
                                                                               
            Press ENTER to process  or  enter END command to terminate        


*************************************************************************************


 -------------------------  XPEDITER/TSO - LOG DATASET  ------------------------
 COMMAND ===>                                                                  
                                                                               
 Log Dataset Name:                (DSNAME will be generated if blank)          
            DSNAME ===>                                                        
                                                                               
 Allocation Parameters:                   Process Options:  A (Append)         
        Data Class ===>                                     D (Delete)         
       Space Units ===> 9076                                K (Keep)           
           Primary ===> 10                                 PD (Print-Delete)   
         Secondary ===> 10                                 PK (Print-Keep)     
     Storage Class ===> STANDARD                            ? (Prompt)         
              Unit ===>                                                        
            Volume ===>                                                        
                                                                               
 Disposition After the Test:                                                   
    Process Option ===> D         (D, K, PD, PK, or ?)                         
                                                                               
 Disposition Before the Test:                                                  
    Process Option ===> D         (A, D, or ?  Used only if DSNAME is specified)
                                                                               
                                                                               
            Press ENTER to process  or  enter END command to terminate         
                                                                              


 Profile: DEFAULT -------  XPEDITER/TSO - SETUP MENU  --------------------------
 OPTION  ===> 5                                                                
                                                                               
           0  ENVIRONMENT  - Execution environments menu                       
           1  LOADLIBS     - Application load module libraries                 
           2  DDIO         - DDIO files                                        
           3  INCLUDES     - Test script libraries                             
           4  LOG          - Session log dataset disposition                   
           5  SCRIPT       - Test script dataset disposition                   
           6  DSNLOAD      - DB2 system names and DSNLOAD libraries            
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
           C  CODE COVERAGE- Code Coverage setup options                       
           D  DOCUMENT     - Document dataset disposition                      
           E  EXTENDED     - Extended Setup Menu                               
           A  ALL          - Display all of the above in succession (except 0) 
                                                                               
            Press ENTER to process  or  enter END command to terminate        


*******************************************************************************


 -----------------------  XPEDITER/TSO - SCRIPT DATASET  -----------------------
 COMMAND ===>                                                                  
                                                                               
 Script Dataset Name:             (DSNAME will be generated if blank)          
            DSNAME ===>                                                        
                                                                               
 Allocation Parameters:                   Process Options:  A (Append)         
        Data Class ===>                                     D (Delete)         
       Space Units ===> 9076                                K (Keep)           
           Primary ===> 10                                 PD (Print-Delete)   
         Secondary ===> 10                                 PK (Print-Keep)     
     Storage Class ===> STANDARD                            ? (Prompt)         
              Unit ===>                                                        
            Volume ===>                                                        
                                                                               
 Disposition After the Test:                                                   
    Process Option ===> D         (D, K, PD, PK, or ?)                         
                                                                               
 Disposition Before the Test:                                                  
    Process Option ===> D         (A, D, or ?  Used only if DSNAME is specified)
                                                                               
                                                                               
            Press ENTER to process  or  enter END command to terminate         
                                                                              


 Profile: DEFAULT -------  XPEDITER/TSO - SETUP MENU  --------------------------
 OPTION  ===> 6                                                                
                                                                               
           0  ENVIRONMENT  - Execution environments menu                       
           1  LOADLIBS     - Application load module libraries                 
           2  DDIO         - DDIO files                                        
           3  INCLUDES     - Test script libraries                             
           4  LOG          - Session log dataset disposition                   
           5  SCRIPT       - Test script dataset disposition                   
           6  DSNLOAD      - DB2 system names and DSNLOAD libraries            
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
           C  CODE COVERAGE- Code Coverage setup options                       
           D  DOCUMENT     - Document dataset disposition                      
           E  EXTENDED     - Extended Setup Menu                               
           A  ALL          - Display all of the above in succession (except 0) 
                                                                               
            Press ENTER to process  or  enter END command to terminate         

 

Profile: DEFAULT -------  XPEDITER/TSO -

*************************************************************


 Profile: DEFAULT -----  XPEDITER/TSO - DSNLOAD LIBRARIES  ---------------------
 COMMAND ===>                                                                  
                                                                               
                                                                               
          NAME      DSNLOAD DSNAME                                             
                                                                               
 (1) ===> RDSA ===> 'RDSA.DSNLOAD'                                             
 (2) ===>      ===>                                                            
 (3) ===>      ===>                                                            
 (4) ===>      ===>                                                            
 (5) ===>      ===>                                                            
 (6) ===>      ===>                                                            
 (7) ===>      ===>                                                            
 (8) ===>      ===>                                                            
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
   Note: Changes made to this screen override installed defaults               
                                                                               
                                                                               
            Press ENTER to Process  or  Enter END Command to Terminate         
                                                                              

--------------------------------------------------


 Profile: DEFAULT ------  XPEDITER/TSO - STANDARD (2.1)  -----------------------
 COMMAND ===> PROF                                                             
                                                                               
 COMMANDS:  SEtup (Display Setup Menu)                                         
            PROFile (Display Profile List)                                     
 TEST SELECTION CRITERIA:                                                      
                                                                               
                Program ===> PROG1                                             
            Entry Point ===>                                                   
            Load Module ===> PROG1                                             
                                                                               
         Initial Script ===>                                                   
            Post Script ===>                                                   
                                                                               
   PARM  ( Caps = YES ) ===>                                                   
                                                                               
   File List/JCL Member ===> 'OZA059.SAMPLE.SOURCE(PROG1JCL)'                  
         Preview Files? ===> NO                                                
    Code Coverage Test? ===> NO                                                
    Is This a DB2 Test? ===> NO    Plan ===>            System ===>            
                                                                               
            Press ENTER to process  or  enter END command to terminate         
                                                                               

                                                                               
*************************************************************************************

 

 ------------------------  XPEDITER/TSO - PROFILE (0.4)  -----------------------
 COMMAND ===>                                                  SCROLL ===> PAGE
                                                                               
 LINE COMMANDS:  S (Select)    D (Delete)    C (Copy)    R (Rename)    U (Use) 
 PRIMARY COMMANDS:  MERGE (copy profiles)    Locate (reposition table)         
   CURRENT                                                                     
   PROFILE ===> DEFAULT  > *** NO DESCRIPTION ***                             <
                                                                               
 CMD  PROFILE   NEW NAME      DESCRIPTION                                      
 -------------------------------------------------------------------------------
  _ * DEFAULT            > *** NO DESCRIPTION ***                             <
 ******************************* Bottom of data ********************************
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
Start executing the Xpediter:

 Profile: DEFAULT ------  XPEDITER/TSO - STANDARD (2.1)  -----------------------
 COMMAND ===>                                                                  
                                                                               
 COMMANDS:  SEtup (Display Setup Menu)                                         
            PROFile (Display Profile List)                                     
 TEST SELECTION CRITERIA:                                                      
                                                                               
                Program ===> PROG1                                             
            Entry Point ===>                                                   
            Load Module ===> PROG1                                             
                                                                               
         Initial Script ===>                                                   
            Post Script ===>                                                   
                                                                               
   PARM  ( Caps = YES ) ===>                                                   
                                                                               
   File List/JCL Member ===> 'OZA059.SAMPLE.SOURCE(PROG1JCL)'                  
         Preview Files? ===> NO                                                
    Code Coverage Test? ===> NO                                                
    Is This a DB2 Test? ===> NO    Plan ===>            System ===>            
                                                                               
            Press ENTER to process  or  enter END command to terminate         
                                                                               

*****************************************************************************                                                                               


 Profile: DEFAULT -------------------  TEST  ------------------ Files Allocated
 COMMAND ===>                                                                  
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
               ************************************************                
               *                                              *                
               *    Entering XPEDITER/TSO Test Environment    *                
               *                                              *                
               ************************************************                
               *          TYPE OF TEST: STANDARD              *                
               *               PROFILE: DEFAULT               *                
               *  PROGRAM TO INTERCEPT: PROG1                 *                
               *           ENTRY POINT:                       *                
               *           LOAD MODULE: PROG1                 *                
               ************************************************                
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                              

 

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                          BEFORE BREAKPOINT ENCOUNTERED                        
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 =====> B  PROCEDURE DIVISION.                                              0004
 000014    MAIN-PARA.                                                       0005
 000015         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020 A       STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007
 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/10/2007 COMP TIME:11:29:13
          ** END **                                                            

                                                                               

*************************************************************************                                                                               
                                                                               

                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032    SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007
 000034         COMPUTE SUB1 = NUM3 - NUM2.                                 0007
 000035    DISPLAY-PARA.                                                    0008
 000036         DISPLAY  'IN DISPLAY PARA'.                                 0008
 000037         DISPLAY 'ADD1  :' ADD1.                                     0008
 000038         DISPLAY 'MUL1  :' MUL1.                                     0008
 000039         DISPLAY 'SUB1  :' SUB1.                                     0008
 ****************************** BOTTOM OF MODULE *******************************

 

 

 

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/10/2007 COMP TIME:11:29:13
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 B00029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032    SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007
 000034         COMPUTE SUB1 = NUM3 - NUM2.                                 0007
 000035    DISPLAY-PARA.                                                    0008
 000036         DISPLAY  'IN DISPLAY PARA'.                                 0008
 000037         DISPLAY 'ADD1  :' ADD1.                                     0008
 000038         DISPLAY 'MUL1  :' MUL1.                                     0008
 000039         DISPLAY 'SUB1  :' SUB1.                                     0008
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
                                                                              

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                             1 COMMAND(S) COMPLETED                            
          ** END **                                                            
                                                                               
                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029 B  MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032    SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007
 000034         COMPUTE SUB1 = NUM3 - NUM2.                                 0007
 000035    DISPLAY-PARA.                                                    0008
 000036         DISPLAY  'IN DISPLAY PARA'.                                 0008
 000037         DISPLAY 'ADD1  :' ADD1.                                     0008
 000038         DISPLAY 'MUL1  :' MUL1.                                     0008
 000039         DISPLAY 'SUB1  :' SUB1.                                     0008
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
                                                                              

                                                                               
 


------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                             1 COMMAND(S) COMPLETED                            
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029 B  MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032 B  SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007
 000034         COMPUTE SUB1 = NUM3 - NUM2.                                 0007
 000035 B  DISPLAY-PARA.                                                    0008
 000036         DISPLAY  'IN DISPLAY PARA'.                                 0008
 000037         DISPLAY 'ADD1  :' ADD1.                                     0008
 000038         DISPLAY 'MUL1  :' MUL1.                                     0008
 000039         DISPLAY 'SUB1  :' SUB1.                                     0008
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
********************************************************************************                                                                               
------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/10/2007 COMP TIME:11:29:13
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:14 <>
 000013 B  PROCEDURE DIVISION.                                              0004
 =====>    MAIN-PARA.                                                       0005
 000015         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020 A       STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007

 

 


 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/10/2007 COMP TIME:11:29:13
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:21 <>
 000013 B  PROCEDURE DIVISION.                                              0004
 000014    MAIN-PARA.                                                       0005
 000015         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020 A       STOP RUN.                                                   0005
 =====>    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007

-------------------------------------------------------------

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                          BEFORE BREAKPOINT ENCOUNTERED                        
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:29 <>
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 =====> B  MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032 B  SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007
 000034         COMPUTE SUB1 = NUM3 - NUM2.                                 0007
 000035 B  DISPLAY-PARA.                                                    0008
 000036         DISPLAY  'IN DISPLAY PARA'.                                 0008
 000037         DISPLAY 'ADD1  :' ADD1.                                     0008
 000038         DISPLAY 'MUL1  :' MUL1.                                     0008
 000039         DISPLAY 'SUB1  :' SUB1.                                     0008
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
                                                                              

 

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                          BEFORE BREAKPOINT ENCOUNTERED                        
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:32 <>
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029 B  MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 =====> B  SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007
 000034         COMPUTE SUB1 = NUM3 - NUM2.                                 0007
 000035 B  DISPLAY-PARA.                                                    0008
 000036         DISPLAY  'IN DISPLAY PARA'.                                 0008
 000037         DISPLAY 'ADD1  :' ADD1.                                     0008
 000038         DISPLAY 'MUL1  :' MUL1.                                     0008
 000039         DISPLAY 'SUB1  :' SUB1.                                     0008
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
********************************************************************************                                                                               

DELETING BREAK POINTS:

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>   DEL ALLL                                        SCROLL ===> CSR 
                          BEFORE BREAKPOINT ENCOUNTERED                        
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:32 <>
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 00D029 B  MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 =====> B  SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007
 000034         COMPUTE SUB1 = NUM3 - NUM2.                                 0007
 000035 B  DISPLAY-PARA.                                                    0008
 000036         DISPLAY  'IN DISPLAY PARA'.                                 0008
 000037         DISPLAY 'ADD1  :' ADD1.                                     0008
 000038         DISPLAY 'MUL1  :' MUL1.                                     0008
 000039         DISPLAY 'SUB1  :' SUB1.                                     0008
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
                                                                              

 

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                            DELETE COMMAND PROCESSED                           
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:32 <>
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 =====>    SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007
 000034         COMPUTE SUB1 = NUM3 - NUM2.                                 0007
 000035    DISPLAY-PARA.                                                    0008
 000036         DISPLAY  'IN DISPLAY PARA'.                                 0008
 000037         DISPLAY 'ADD1  :' ADD1.                                     0008
 000038         DISPLAY 'MUL1  :' MUL1.                                     0008
 000039         DISPLAY 'SUB1  :' SUB1.                                     0008
 ****************************** BOTTOM OF MODULE *******************************
********************************************************************************                                                                               
How to keep the variables:
------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> KEEP NUM1                                        SCROLL ===> CSR  <<<<<<===============
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/10/2007 COMP TIME:11:29:13
 000010   77 ADD1                            >  1400                     DECIMAL
          ** END **                                                            
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:37 <>
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020 A       STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032 B  SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007

 


 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> KEEP NUM3                                        SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/10/2007 COMP TIME:11:29:13
 000006 K 77 NUM1                            >  500                      DECIMAL
 000007 K 77 NUM2                            >  400                      DECIMAL
 000010   77 ADD1                            >  1400                     DECIMAL
          ** END **                                                            
                                                                               
 ------   -------------------------------------------------- Before PROG1:37 <>
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020 A       STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032 B  SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007

************************************************************************

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/10/2007 COMP TIME:11:29:13
 000006 K 77 NUM1                            >  500                      DECIMAL
 000007 K 77 NUM2                            >  400                      DECIMAL
 000008 K 77 NUM3                            >  300                      DECIMAL
 000010   77 ADD1                            >  1400                     DECIMAL
          ** END **                                                            
 ------   -------------------------------------------------- Before PROG1:37 <>
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020 A       STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032 B  SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007

-------------------------------------

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/10/2007 COMP TIME:11:29:13
 000006 K 77 NUM1                            >  500                      DECIMAL
 000007 K 77 NUM2                            >  400                      DECIMAL
 000008 K 77 NUM3                            >  300                      DECIMAL
 000010   77 ADD1                            >  1400                     DECIMAL
          ** END **                                                            
 ------   -------------------------------------------------- Before PROG1:37 <>
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020 A       STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007
 K00028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007 <<===
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032 B  SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007

HOW TO DELETE THE KEEP VARIABLES:
 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> D ALL                                            SCROLL ===> CSR 
                             1 COMMAND(S) COMPLETED                            
 000006 K 77 NUM1                            >  500                      DECIMAL
 000007 K 77 NUM2                            >  400                      DECIMAL
 000008 K 77 NUM3                            >  300                      DECIMAL
 000011 K 77 MUL1                            >  0000                     DECIMAL
 000010 K 77 ADD1                            >  1400                     DECIMAL
 ------   -------------------------------------------------- Before PROG1:37 <>
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020 A       STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032 B  SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007


 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                            DELETE COMMAND PROCESSED                               
 000010   77 ADD1                            >  1400                     DECIMAL
          ** END **                                                            
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:37 <>
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032    SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007

**********************************************************************************                                                                              
                                                                               
 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                             1 COMMAND(S) COMPLETED                            
 000010 K 77 ADD1                            >  1400                     DECIMAL
 000006 K 77 NUM1                            >  500                      DECIMAL
 000010   77 ADD1                            >  1400                     DECIMAL
          ** END **                                                            
                                                                               
 ------   -------------------------------------------------- Before PROG1:37 <>
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007
 0K3028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032    SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007
------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                             1 COMMAND(S) COMPLETED                            
 000010 K 77 ADD1                            >  1400                     DECIMAL
 000006 K 77 NUM1                            >  500                      DECIMAL
 000007 K 77 NUM2                            >  400                      DECIMAL
 000010   77 ADD1                            >  1400                     DECIMAL
          ** END **                                                            
 ------   -------------------------------------------------- Before PROG1:37 <>
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007
 000028         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032    SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007

**********************************************************************************
TEST COMPLETION:
                                                                               
 ------------------------- XPEDITER/TSO - LOG ---------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                                 TEST COMPLETED                                
 ----------------------------------------------------------------------------->
   GO 1                                                                        
PAUSE Before PROG1:38 IN DISPLAY-PARA: DISPLAY 'MUL1  :' MUL1.                 
------------------------------ PROG1    KEPT ITEMS -----------------------------
                                                                               
                                                ----                           
 000011   77 MUL1                            >  0000                     DECIMAL
--------------------------------------------------------------------------------
   GO 1                                                                        
PAUSE Before PROG1:39 IN DISPLAY-PARA: DISPLAY 'SUB1  :' SUB1.                 
------------------------------ PROG1    KEPT ITEMS -----------------------------
                                                                               
                                                ----                           
 000012   77 SUB1                            >  0100                     DECIMAL
--------------------------------------------------------------------------------
   GO 1                                                                        
PAUSE Before PROG1:20 IN MAIN-PARA: STOP RUN.                                  
   GO 1                                                                        
*** APPLICATION PROGRAM HAS COMPLETED ***                                      
*** CONDITION CODE = 0                                                         
******************************** BOTTOM OF DATA ********************************                                             
How to go to the sub program source:                                 
                                                                               
------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> SOURCE PROG2                                     SCROLL ===> CSR 
                    MODULE OR PROCEDURE NAME CANNOT BE FOUND                   
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:21 ->
 000014     000014         000500 MAIN-PARA.                                   
 000015     000015         000510      PERFORM ACCEPT-PARA.                    
 000016     000016         000520      PERFORM ADDITION-PARA.                  
 000017     000017         000530      PERFORM MULTIPLICATION-PARA.            
 000018     000018         000531      PERFORM SUBTRACT-PARA.                  
 000019     000019         000540      PERFORM DISPLAY-PARA.                   
 000020 A   000020         000560      STOP RUN.                               
 =====>     000021         000600 ACCEPT-PARA.                                 
 000022     000022         000610      ACCEPT NUM1.                            
 000023     000023         000620      ACCEPT NUM2.                            
 000024     000024         000630      ACCEPT NUM3.                            
 000025     000025         000640      ACCEPT NUM4.                            
 000026     000026         000700 ADDITION-PARA.                               
 000027     000027         000701      DISPLAY  'IN ADDITION PARA'.            
 000028     000028         000710      COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.

********************************************************************************

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/10/2007 COMP TIME:11:29:13
 000011   77 MUL1                            >  0000                     DECIMAL
 000006   77 NUM1                            >  500                      DECIMAL
 000007   77 NUM2                            >  400                      DECIMAL
 000008   77 NUM3                            >  300                      DECIMAL
 000009   77 NUM4                            >  200                      DECIMAL
 ------   -------------------------------------------------- Before PROG1:31 ->
 000028     000028         000710      COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.
 000029     000029         000720 MULTIPLICATION-PARA.                         
 000030     000030         000721      DISPLAY  'IN MULTIPLICATION PARA'.      
 =====>     000031         000730      COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.  <<<<<<===============
 000032     000032         000750 SUBTRACT-PARA.                               
 000033     000033         000760      DISPLAY  'IN SUBTRACT PARA'.            
 000034     000034         000770      COMPUTE SUB1 = NUM3 - NUM2.             
 000035     000035         000800 DISPLAY-PARA.                                
 000036     000036         000801      DISPLAY  'IN DISPLAY PARA'.             
 000037     000037         000810      DISPLAY 'ADD1  :' ADD1.                 
 000038     000038         000820      DISPLAY 'MUL1  :' MUL1.                 
 000039     000039         000830      DISPLAY 'SUB1  :' SUB1.                 
 ****************************** BOTTOM OF MODULE *******************************

Come out from Xpediter without completing the run: using EXIT

 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> EXIT                                             SCROLL ===> CSR

                                 INVALID COMMAND                               
 000012   77 SUB1                            >  0000                     DECIMAL
 000008   77 NUM3                            >  300                      DECIMAL
 000007   77 NUM2                            >  400                      DECIMAL
          ** END **                                                            
                                                                               
 ------   -------------------------------------------------- Before PROG1:34 ->
 000031     000031         000730      COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.
 000032     000032         000750 SUBTRACT-PARA.                               
 000033     000033         000760      DISPLAY  'IN SUBTRACT PARA'.            
 =====>     000034         000770      COMPUTE SUB1 = NUM3 - NUM2.             
 000035     000035         000800 DISPLAY-PARA.                                
 000036     000036         000801      DISPLAY  'IN DISPLAY PARA'.             
 000037     000037         000810      DISPLAY 'ADD1  :' ADD1.                 
 000038     000038         000820      DISPLAY 'MUL1  :' MUL1.                 
 000039     000039         000830      DISPLAY 'SUB1  :' SUB1.                 
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
**********************************************************************************                                                                               


 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                          BEFORE BREAKPOINT ENCOUNTERED                        
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 =====> B  PROCEDURE DIVISION.                                              0004
 000014    MAIN-PARA.                                                       0005
 000015         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020 A       STOP RUN.                                                   0005
 000021    ACCEPT-PARA.                                                     0006
 000022         ACCEPT NUM1.                                                0006
 000023         ACCEPT NUM2.                                                0006
 000024         ACCEPT NUM3.                                                0006
 000025         ACCEPT NUM4.                                                0006
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007

 


 Profile: DEFAULT ------  XPEDITER/TSO - STANDARD (2.1     Log & Script Created
 COMMAND ===>                                                                  
                                                                               
 COMMANDS:  SEtup (Display Setup Menu)  Log (Browse LOG)  SCript (Edit Script) 
            PROFile (Display Profile List)                                     
 TEST SELECTION CRITERIA:                                                      
                                                                               
                Program ===> PROG1                                             
            Entry Point ===>                                                   
            Load Module ===> PROG1                                             
                                                                               
         Initial Script ===>                                                   
            Post Script ===>                                                   
                                                                               
   PARM  ( Caps = YES ) ===>                                                   
                                                                               
   File List/JCL Member ===> 'OZA059.SAMPLE.SOURCE(PROG1JCL)'                  
         Preview Files? ===> NO                                                
    Code Coverage Test? ===> NO                                                
    Is This a DB2 Test? ===> NO    Plan ===>            System ===>            
                                                                               
            Press ENTER to process  or  enter END command to terminate        

************************************************************************************
If you have any abend it will show like below:
                                                                                                                             
 ------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
    S0C7 ABEND ENCOUNTERED, USE "AA SNAP" COMMAND FOR ADDITIONAL INFORMATION   
 000010   77 ADD1                            >  0000                     DECIMAL
 000006   77 NUM1                            >  ????             INVALID DECIMAL
 000007   77 NUM2                            >  400                      DECIMAL
 000008   77 NUM3                            >  300                      DECIMAL
 000009   77 NUM4                            >  200                      DECIMAL
 ------   ------------------------------------------------ Abend at PROG1:28 <>
 000026    ADDITION-PARA.                                                   0007
 000027         DISPLAY  'IN ADDITION PARA'.                                0007
 =====>         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007  
 000029    MULTIPLICATION-PARA.                                             0007
 000030         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000031         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000032    SUBTRACT-PARA.                                                   0007
 000033         DISPLAY  'IN SUBTRACT PARA'.                                0007
 000034         COMPUTE SUB1 = NUM3 - NUM2.                                 0007
 000035    DISPLAY-PARA.                                                    0008
 000036         DISPLAY  'IN DISPLAY PARA'.                                 0008
 000037         DISPLAY 'ADD1  :' ADD1.                                     0008
 000038         DISPLAY 'MUL1  :' MUL1.                                     0008
 000039         DISPLAY 'SUB1  :' SUB1.                                     0008

 


------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> SOURCE PROG2                                     SCROLL ===> CSR 
                          BEFORE BREAKPOINT ENCOUNTERED                        
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 =====> B  PROCEDURE DIVISION.                                              0004
 000014    MAIN-PARA.                                                       0005
 000015         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         CALL 'PROG2'.                                               0005
 000021 A       STOP RUN.                                                   0005
 000022    ACCEPT-PARA.                                                     0006
 000023         ACCEPT NUM1.                                                0006
 000024         ACCEPT NUM2.                                                0006
 000025         ACCEPT NUM3.                                                0006
 000026         ACCEPT NUM4.                                                0006
 000027    ADDITION-PARA.                                                   0007

**************************************************************************************

------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG2      MODULE: PROG1    COMP DATE:  08/13/2007 COMP TIME:05:35:22
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 00B005    PROCEDURE DIVISION.                                              0004
 000006         DISPLAY 'HHHHHHH'.                                          0005
 000007         EXIT PROGRAM.                                               0005
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                              


------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                             1 COMMAND(S) COMPLETED                            
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 000005 B  PROCEDURE DIVISION.                                              0004
 000006         DISPLAY 'HHHHHHH'.                                          0005
 000007         EXIT PROGRAM.                                               0005
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
Then Press enter: and press F9, the execution will start from the beginning..

------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/13/2007 COMP TIME:05:35:47
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:14 <>
 000013 B  PROCEDURE DIVISION.                                              0004
 =====>    MAIN-PARA.                                                       0005
 000015         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         CALL 'PROG2'.                                               0005
 000021 A       STOP RUN.                                                   0005
 000022    ACCEPT-PARA.                                                     0006
 000023         ACCEPT NUM1.                                                0006
 000024         ACCEPT NUM2.                                                0006
 000025         ACCEPT NUM3.                                                0006
 000026         ACCEPT NUM4.                                                0006
 000027    ADDITION-PARA.                                                   0007

 

 

 


We can USE INTERCEPT or INT Commands also to go to the subprogram source: 


------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> INTERCEPT PROG2                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/13/2007 COMP TIME:05:35:47
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:14 <>
 000013 B  PROCEDURE DIVISION.                                              0004
 =====>    MAIN-PARA.                                                       0005
 000015         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         CALL 'PROG2'.                                               0005
 000021 A       STOP RUN.                                                   0005
 000022    ACCEPT-PARA.                                                     0006
 000023         ACCEPT NUM1.                                                0006
 000024         ACCEPT NUM2.                                                0006
 000025         ACCEPT NUM3.                                                0006
 000026         ACCEPT NUM4.                                                0006
 000027    ADDITION-PARA.                                                   0007

**************************************************************************************

------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG2      MODULE: PROG1    COMP DATE:  08/13/2007 COMP TIME:05:35:22
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:14 <>
 000005 B  PROCEDURE DIVISION.                                              0004
 000006         DISPLAY 'HHHHHHH'.                                          0005
 000007 A       EXIT PROGRAM.                                               0005
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
Using the RETEST command we can start the debugging again from the beginning.

------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> RETEST                                           SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/13/2007 COMP TIME:05:35:47
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:30 <>
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         CALL 'PROG2'.                                               0005
 000021 A       STOP RUN.                                                   0005
 000022    ACCEPT-PARA.                                                     0006
 000023         ACCEPT NUM1.                                                0006
 000024         ACCEPT NUM2.                                                0006
 000025         ACCEPT NUM3.                                                0006
 000026         ACCEPT NUM4.                                                0006
 000027    ADDITION-PARA.                                                   0007
 000028         DISPLAY  'IN ADDITION PARA'.                                0007
 000029         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 =====>    MULTIPLICATION-PARA.                                             0007

**************************************************************************************

------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
                          BEFORE BREAKPOINT ENCOUNTERED                        
          ** END **                                                            
                                                                               
                                                                              
                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 =====> B  PROCEDURE DIVISION.                                              0004
 000014    MAIN-PARA.                                                       0005
 000015         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         CALL 'PROG2'.                                               0005
 000021 A       STOP RUN.                                                   0005
 000022    ACCEPT-PARA.                                                     0006
 000023         ACCEPT NUM1.                                                0006
 000024         ACCEPT NUM2.                                                0006
 000025         ACCEPT NUM3.                                                0006
 000026         ACCEPT NUM4.                                                0006
 000027    ADDITION-PARA.                                                   0007


How to use the PEEK option:

------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> PEEK NUM1                                        SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/13/2007 COMP TIME:05:35:47
          ** END **                                                            
                                                                              
                                                                               
 ------   -------------------------------------------------- Before PROG1:15 <>
 000013 B  PROCEDURE DIVISION.                                              0004
 000014    MAIN-PARA.                                                       0005
 =====>         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         CALL 'PROG2'.                                               0005
 000021 A       STOP RUN.                                                   0005
 000022    ACCEPT-PARA.                                                     0006
 000023         ACCEPT NUM1.                                                0006
 000024         ACCEPT NUM2.                                                0006
 000025         ACCEPT NUM3.                                                0006
 000026         ACCEPT NUM4.                                                0006
 000027    ADDITION-PARA.                                                   0007

**************************************************************************************

------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/13/2007 COMP TIME:05:35:47
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   -------------------------------------------------- Before PROG1:15 <>
 000005    WORKING-STORAGE SECTION.                                         0003
 000006 P  77 NUM1            PIC 9(3).      >  ????             INVALID DECIMAL
 000007 P  77 NUM2            PIC 9(3) VALUE >  000                      DECIMAL
 000008    77 NUM3            PIC 9(3) VALUE ZERO.                          0003
 000009    77 NUM4            PIC 9(3) VALUE ZERO.                          0003
 000010    77 ADD1            PIC 9(4) VALUE ZERO.                          0003
 000011    77 MUL1            PIC 9(4) VALUE ZERO.                          0003
 000012    77 SUB1            PIC 9(4) VALUE ZERO.                          0003
 000013 B  PROCEDURE DIVISION.                                              0004
 000014    MAIN-PARA.                                                       0005
 =====>         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005

How to see the reverse execution of the program: use of MONITOR and REVERSE commands

First issue the MONITOR command and do the debugging, when we want to see the reverse execution
we have to use REVERSE or REV command. Use F9 for reverse line by line
and F12 for reverse break point to break point.

------------------------- XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> MONITOR                                          SCROLL ===> CSR 
                          BEFORE BREAKPOINT ENCOUNTERED                        
          ** END **                                                            
                                                                               
                                                                               
                                                                               
                                                                               
 ------   ----------------------------------------------------- Before PROG1 <>
 =====> B  PROCEDURE DIVISION.                                              0004
 000014    MAIN-PARA.                                                       0005
 000015         PERFORM ACCEPT-PARA.                                        0005
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         CALL 'PROG2'.                                               0005
 000021 A       STOP RUN.                                                   0005
 000022    ACCEPT-PARA.                                                     0006
 000023         ACCEPT NUM1.                                                0006
 000024         ACCEPT NUM2.                                                0006
 000025         ACCEPT NUM3.                                                0006
 000026         ACCEPT NUM4.                                                0006
 000027    ADDITION-PARA.                                                   0007

*************************************************************************************

---------------MNTR------ XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===> REVERSE                                          SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/13/2007 COMP TIME:05:35:47
          ** END **                                                            
                                                                               
 ------   -------------------------------------------------- Before PROG1:31 <>
 000030    MULTIPLICATION-PARA.                                             0007
 =====>         DISPLAY  'IN MULTIPLICATION PARA'.                          0007
 000032         COMPUTE MUL1 = NUM1 * NUM2 * NUM3 * NUM4.                   0007
 000033    SUBTRACT-PARA.                                                   0007
 000034         DISPLAY  'IN SUBTRACT PARA'.                                0007
 000035         COMPUTE SUB1 = NUM3 - NUM2.                                 0007
 000036    DISPLAY-PARA.                                                    0008
 000037         DISPLAY  'IN DISPLAY PARA'.                                 0008
 000038         DISPLAY 'ADD1  :' ADD1.                                     0008
 000039         DISPLAY 'MUL1  :' MUL1.                                     0008
 000040         DISPLAY 'SUB1  :' SUB1.                                     0008
 ****************************** BOTTOM OF MODULE *******************************
                                                                               
                                                                               
 ---------------MNTR------ XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/13/2007 COMP TIME:05:35:47
 000009   77 NUM4                            >  000                      DECIMAL
          ** END **                                                            
                                                                               
                                                                               
                                                                               
 ------   ---------------------------------------- Reverse - Before PROG1:26 <>
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         CALL 'PROG2'.                                               0005
 000021 A       STOP RUN.                                                   0005
 000022    ACCEPT-PARA.                                                     0006
 000023         ACCEPT NUM1.                                                0006
 000024         ACCEPT NUM2.                                                0006
 000025         ACCEPT NUM3.                                                0006
 =====>         ACCEPT NUM4.                                                0006
 000027    ADDITION-PARA.                                                   0007
 000028         DISPLAY  'IN ADDITION PARA'.                                0007
 000029         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000030    MULTIPLICATION-PARA.                                             0007

*********************************************************************************                                                                              

---------------MNTR------ XPEDITER/TSO - SOURCE ------------------------------
 COMMAND ===>                                                  SCROLL ===> CSR 
 PROGRAM: PROG1      MODULE: PROG1    COMP DATE:  08/13/2007 COMP TIME:05:35:47
 000008   77 NUM3                            >  000                      DECIMAL
          ** END **                                                            
                                                                               
                                                                               
                                                                               
 ------   ---------------------------------------- Reverse - Before PROG1:25 <>
 000016         PERFORM ADDITION-PARA.                                      0005
 000017         PERFORM MULTIPLICATION-PARA.                                0005
 000018         PERFORM SUBTRACT-PARA.                                      0005
 000019         PERFORM DISPLAY-PARA.                                       0005
 000020         CALL 'PROG2'.                                               0005
 000021 A       STOP RUN.                                                   0005
 000022    ACCEPT-PARA.                                                     0006
 000023         ACCEPT NUM1.                                                0006
 000024         ACCEPT NUM2.                                                0006
 =====>         ACCEPT NUM3.                                                0006
 000026         ACCEPT NUM4.                                                0006
 000027    ADDITION-PARA.                                                   0007
 000028         DISPLAY  'IN ADDITION PARA'.                                0007
 000029         COMPUTE ADD1 = NUM1 + NUM2 + NUM3 + NUM4.                   0007
 000030    MULTIPLICATION-PARA.                                             0007


DDIO FILE FACILITY                                                           
                                                                             
A DDIO file is required by XPEDITER during compile time to store source      
listings containing the information necessary for XPEDITER/TSO to reference  
various elements of your program during testing.                             
                                                                             
NOTE:  In some cases, a DDIO file was created and formatted during the       
installation of Compuware's Shared Services.  If not, you can use this utility
to create a DDIO file.                                                       
                                                                             
Option 3 (DDIO FILE FACILITY) on the Utilities Menu enables you to create and
format a DDIO file; obtain format information about the file; copy, move,    
export, or import DDIO files; obtain a list of DDIO file members and browse, 
delete, print, lock, or unlock members from that list.  When you access the  
DDIO File Facility, the DDIO File Facility screen is displayed.             

**********************************************************************************
Xpediter commands:
Keyword:       Topic:                                      
AA             Command usage and syntax for AA SNAP        
ABENDcdS       XPEDITER/TSO user abend codes               
ABENDS         XPEDITER/TSO user abend codes               
ACCEPT         Command usage and syntax for ACCEPT         
After          Command usage and syntax for AFTER          
ALLOCate       Command usage and syntax for ALLOCATE       
AT             Command usage and syntax for AT             
ATTENTion      Attention key processing                    
BATCH          Testing with XPEDITER/TSO in batch          
BATCHCON       Using the BATCH CONNECT facility            
Before         Command usage and syntax for BEFORE         
BOTtom         Command usage and syntax for BOTTOM         
BREAKs         Breakpoints                                 
BROwse         Command usage and syntax for BROWSE         
CICSCON        CICS single point of entry                  
COBOLII        VS COBOL II support                         
CODEGEN        Code generator support                      
COLON          Command usage and syntax for COLON (:)      
COLORs         Specifying screen colors                    
CONNECT        Command usage and syntax for CONNECT        
Count          Command usage and syntax for COUNT          
COVer          Command usage and syntax for COVER          
DATABASE       Discussion of support for various databases 
DB2            ACCESSING File-AID for DB2                  
DB2EXT         Debugging programs w/ File-Aid/DB2 extension
DB2TABle       Browsing and editing DB2 tables data        
DBCS           Supporting double byte character set        
DDIO           DDIO file facility                          
DEBUG          Sample debugging session                    
DEFaults       Overriding XPEDITER/TSO default setting     
DELete         Command usage and syntax for DELETE         
DFHDRP         Shared DL/I database (DFHDRP) support       
DLEFT          Command usage and syntax for DLEFT          
DLI            Command usage and syntax for DLI            
DOCument       Command usage and syntax for DOCUMENT       
DOWN           Command usage and syntax for DOWN           
DRIGHT         Command usage and syntax for DRIGHT         
DROP           Command usage and syntax for DROP           
END            Command usage and syntax for END            
ENHFIND        Testing with Enhanced FIND                  
ENVIRON        Operating environment                       
ERRhandl       Error handling information                  
eXclude        Command usage and syntax for EXCLUDE        
EXIT           Command usage and syntax for EXIT           
EXPLAIN        Command usage and syntax for EXPLAIN        
FADB2          Command usage and syntax for FADB2          
FIND           Command usage and syntax for FIND           
First          Command usage and syntax for F(irst)        
GEN            Command usage and syntax for GEN            
GETMAIN        Command usage and syntax for GETMAIN        
GO             Command usage and syntax for GO             
GOTO           Command usage and syntax for GOTO           
GPREGS         Command usage and syntax for GPREGS         
Help           Command usage and syntax for HELP           
HOWTO          How to get started with XPEDITER            
IF             Conditional usage and syntax for IF         
IMSCODEs       IMS status codes explanation                
IMSDC          Testing in the IMS/DC region                
IMSMSGs        XPEDITER/IMS messages written to the Log    
INClude        Command usage and syntax for INCLUDE        
INDEX          Help topics and keywords, sorted by topic   
INSert         Command usage and syntax for INSERT         
INTercept      Command usage and syntax for INTERCEPT      
Keep           Command usage and syntax for KEEP           
Last           Command usage and syntax for L(ast)         
LE370          LE/370 support                              
LEFT           Command usage and syntax for LEFT           
LIne           Command usage and syntax for LINE           
LOAD           Command usage and syntax for LOAD           
LOCate         Command usage and syntax for LOCATE         
LOG            Command usage and syntax for LOG            
MEMory         Command usage and syntax for MEMORY         
MIXEDLang      Mixed language support                      
MODIFY         Modifying program logic temporarily         
MONitor        Command usage and syntax for MONITOR        
MOVE           Command usage and syntax for MOVE           
MSGS           Messages written to the Log                 
MULTItsk       Multitasking                                
NOLines        Command usage and syntax for NOLINES        
NOSource       Debugging a program without source          
OPTimize       Discussion of support for optimized programs
ONCODEs        Condition codes for PL/I                    
PACKages       Third party packages                        
PANexec        PANEXEC support                             
PAUSE          Command usage and syntax for PAUSE          
Peek           Command usage and syntax for PEEK           
PFKEYS         PF key definitions and scope                
PROFiles       Using profiles to ypur advantage            
PROGData       Inspecting program data                     
PROGFlow       Analyzing program logic                     
QUALIFY        Qualification rules                         
REGION         Logn region size requirements               
REGISTERs      Displaying and changing memory and registers
REGS           Displaying and changing memory and registers
RESet          Command usage and syntax for RESET          
RESUME         Command usage and syntax for RESUME         
RETest         Command usage and syntax for RETEST         
RETURN         Command usage and syntax for RETURN         
REVerse        Command usage and syntax for REVERSE        
RIGHT          Command usage and syntax for RIGHT          
RUN            Command usage and syntax for RUN            
SB14           ABEND notes                                 
SB37           ABEND notes                                 
SCREEN         Explanation of the XPEDITER test screen     
SCRIPTs        Creating and using test scripts             
SD37           ABEND notes                                 
SET            Command usage and syntax for SET            
SHow           Command usage and syntax for SHOW           
Skip           Command usage and syntax for SKIP           
SNAP           Command usage and syntax for AA SNAP        
SNAPAID        Displaying environmental data               
SCRNSAVE       Copy screen image to the Xpediter log       
SORTexit       Testing with SORT exit routines             
SOurce         Command usage and syntax for SOURCE         
SOURCELESS     Debugging a program without source          
SPLITscrn      Split screen                                
SQLCODEs       SQL return code explanations                
SQLMSGS        XPEDITER for DB2 message explanations       
STatus         Command usage and syntax for STATUS         
STRINGfind     Searching for character strings             
SUBs           Testing subroutines under XPEDITER/TSO      
SYNTAX         Syntax of commands and keywords             
S0C1           ABEND notes                                 
S0C4           ABEND notes                                 
S0C5           ABEND notes                                 
S0C7           ABEND notes                                 
S001           ABEND notes                                 
S013           ABEND notes                                 
S031           ABEND notes                                 
S106           ABEND notes                                 
S213           ABEND notes                                 
S806           ABEND notes                                 
T              Command usage and syntax for T(emplate)     
TEST           Command usage and syntax for TEST           
TOGGLE         Command usage and syntax for TOGGLE         
TOP            Command usage and syntax for TOP            
TRAce          Command usage and syntax for TRACE          
TSO            Command usage and syntax for TSO            
UP             Command usage and syntax for UP             
USE            Command usage and syntax for USE            
UTILities      Utilities                                   
WHEN           Command usage and syntax for WHEN           
WHEREIS        Command usage and syntax for WHEREIS        
XCHANGE        Command usage and syntax for XCHANGE        
XPED           Command usage and syntax for XPED           
XPEDIO         XPEDITER/TSO input and output              

                                                                                                                                                                            http://www.mainframesguru.com