Just Enough XPEDITER

to be dangerous

By Gabe Gargiulo

Apr 1999

Just Enough Xpediter. Mainframe info, downloads http://www.touniteamerica.com/programming/index.html 1

The purpose of this booklet is to get you started with XPEDITER when there is no other
way - you dont have time to go to a class, dont want to buy a complete book on it and
try to find the things you need to know, you just dont have time, etc.
This is nowhere near being complete. It just gets you going. For the complete story,
contact me about courses in XPEDITER (and COBOL, SQL, REXX, JCL) send E Mail
to gabe1@touniteamerica.com or see
http://www.touniteamerica.com/programming/courses.html

Setting up to test a program under XPEDITER can be tricky. However its worth doing
because XPEDITER is a valuable tool for testing your program.
Wherever the booklet says userid, replace it with your TSO userid. Be aware that some
companies have messed around with normal naming conventions, and so youll have to
follow their standards.

http://www.touniteamerica.com/programming/index.html

Just Enough XPEDITER to be dangerous.. 2

A Walk Through XPEDITER

Before starting, you will need:
COBOL source library and member name
Executable program (LOAD) library
New name for your DDIO library (XPEDITER will create it)

userid.XPEDITER.DDIO is suggested

Valid JCL JOB statement

Print/sysout class for the job, preferably a held class
Name(s) of COBOL compiler SYSLIB libraries. Obtain by inspecting working compile JCL

Name(s) of Linkage Editor SYSLIB libraries. Obtain by inspecting working compile JCL

Name of existing library to contain file allocations. This may be your current JCL library
Member name for the preceding. This must be a NEW name
The JCL that currently runs your program

(Gen)

Get into Xpediter using the menu options at your company

Youll see this screen.
---------------------OPTION ===>

or

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

0
1
2
3

DEFAULTS
PREPARE
TSO
BATCH

UTILITIES

- Perform utility functions

B
T
X

BULLETIN
TUTORIAL
EXIT

- Display summary of changes for this release

- Display information about XPEDITER/TSO
- Exit primary menu

Profile ===> DEFAULT

Press ENTER to process

XPEDITER/TSO 6.3 - PRIMARY MENU

Specify defaults
Prepare programs for debugging
Debug programs interactively under TSO
Debug programs interactively under batch

- *** NO DESCRIPTION ***

enter END command to terminate

Type 1
ENTER
-----------------OPTION ===> 2
1
2
3
4

XPEDITER/TSO - PROGRAM PREPARATION MENU

CONVERT COMPILE JCL

COMPILE FACILITY
BIND FACILITY
EDIT ALLOCATION LIST

Press ENTER to process

Type 2
ENTER

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

Convert compile JCL for XPEDITER

Compile programs for XPEDITER
Bind application plans for File-AID DB2
Edit file allocation lists
or

enter END command to terminate

---------------------- XPEDITER/TSO - COMPILE FACILITY -----------------------COMMAND ===> SE

Primary Commands: Listing (Display output) SEtup (Display general settings)
Source Dsname ===> Cobol source library and member name
Preparation ===> EDITJCL
(Batch/Editjcl/Foreground)
Language ===> COB2
(COB/COB2/COB370/CAOPT/HASM/HLASM/PLI/PLI370)
SEL Options:

D - Display settings and process

SEL
--_
_
D
D

Type in SE
Type in or verify information
ENTER

STEPS
------------------1. DB2 Precompile
2. CICS Translation
3. Compile
4. Linkedit

From http://www.touniteamerica.com commercial use or resale of this document is a violation of copyright laws.

S - Process only

-------------------- COMPILE FACILITY - GENERAL SETTINGS ---------------------COMMAND ===>

Listing ID ===>
(Optional)

Batch Processing
Sysout Class
Monitor Status
Display Results

Items:
===> H (or whatever your held class is)
===> N (Y/N)
===> Y (Y/N)

Job Statement
===> //UseridC JOB (accounting info),'STUDENT NAME ',
===> //
CLASS=job class,MSGCLASS=held class,NOTIFY=Userid
===> //*
===> //*
Press ENTER to update

type in JOB information

Type in or verify information
ENTER

or

enter END command to terminate

---------------------- XPEDITER/TSO - COMPILE FACILITY -----------------------COMMAND ===>

Primary Commands: Listing (Display output) SEtup (Display general settings)
Source Dsname ===> Cobol source library and member name
Preparation ===> EDITJCL
(Batch/Editjcl/Foreground)
Language ===> COB2
(COB/COB2/COB370/CAOPT/HASM/HLASM/PLI/PLI370)
SEL Options:

D - Display settings and process

SEL
STEPS
--- ------------------_ 1. DB2 Precompile
_ 2. CICS Translation
D 3. Compile
D 4. Linkedit

S - Process only

Type in or verify information

ENTER

------------------------ COMPILE STEP - VS COBOL II --------------------------COMMAND ===>

Options ===> LIST,MAP,NONUM
===>
SYSLIB Datasets:
(1) ===>
(2) ===>
(3) ===>

none needed (check your installations requirements)

Object Library ===>

DDIO File ===> DDIO library (fill in the name you used)
LP Options DSN ===>
Press ENTER to update

ENTER

or

enter END command to terminate

------------------------ COMPILE STEP - VS COBOL II --------------------------COMMAND ===>

RC=8: DATASET NOT FOUND. ENTER 'C' ON COMMAND LINE TO CREATE/FORMAT?
Options ===> LIST,MAP,NONUM
===>
SYSLIB Datasets:
(1) ===>
(2) ===>
(3) ===>
Object Library ===>
DDIO File ===> DDIO library
LP Options DSN ===>
Press ENTER to update

or

enter END command to terminate

------------------------ COMPILE STEP - VS COBOL II --------------------------COMMAND ===> C

RC=8: DATASET NOT FOUND. ENTER 'C' ON COMMAND LINE TO CREATE/FORMAT?
Options ===> LIST,MAP,NONUM
===>
SYSLIB Datasets:
(1) ===>
(2) ===>
(3) ===>
Object Library ===>
DDIO File ===> DDIO library
LP Options DSN ===>
Press ENTER to update

Type C on command line

ENTER

or

enter END command to terminate

----------------COMMAND ===>

XPEDITER/TSO - DDIO CREATE/FORMAT FACILITY

Commands: SEtup (Setup panel)

DDIO File
Preparation
File Type
Storage Class

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

D (Delete file)

===> DDIO library

===> FOREGROUND (Batch/Editjcl/Foreground)
===> VSAM
(Vsam/Sequential)
===>
(optional)

Space Units ===> TRACKS

Primary Quantity ===> 200
Number of Members ===> 500
Press ENTER to process

(Blocks/Tracks/Cylinders)
(1 to 32767)
or

enter END command to terminate

type in or verify information

ENTER, to create the DDIO file
-----------------

XPEDITER/TSO - DDIO CREATE/FORMAT FACILITY ---------------COMMAND ===>

RC=0: "FORMAT" COMPLETED FOR DDIO library
Commands: SEtup (Setup panel) D (Delete file)
DDIO File ===> DDIO library
Preparation ===> FOREGROUND (Batch/Editjcl/Foreground)
File Type ===> VSAM
(Vsam/Sequential)
Storage Class ===>
(optional)
Space Units ===> TRACKS
Primary Quantity ===> 200
Number of Members ===> 500
Press ENTER to process

type in or verify information

ENTER

(Blocks/Tracks/Cylinders)
(1 to 32767)
or

enter END command to terminate

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

XPEDITER/TSO - DDIO CREATE/FORMAT FACILITY

COMMAND ===> SE
Commands: SEtup (Setup panel)

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

D (Delete file)

DDIO File ===> DDIO library

Preparation ===> FOREGROUND (Batch/Editjcl/Foreground)
File Type ===> VSAM
(Vsam/Sequential)
Storage Class ===>
Volume ===>
Unit ===>

(optional)
(optional)
(optional)

Space Units ===> TRACKS

Primary Quantity ===> 200
Number of Members ===> 500
Press ENTER to process

(Blocks/Tracks/Cylinders)
(1 to 32767)
or

enter END command to terminate

Type SE
type in or verify other information
ENTER
------------------

XPEDITER/TSO - DDIO CREATE/FORMAT SETUP

COMMAND ===>
Prompt this panel upon process ===> N
Format Options:
Groupcount ===>
Autodelete ===> NO

-----------------(Y/N)

DEFAULTS:
(1 to 2048) ........... 4
(Dups/Yes/No/Staged) .. DUPS

Jobcard Information:
===> //UseridC JOB (accounting info),'STUDENT NAME ',
===> //
CLASS=job class,MSGCLASS=held class,NOTIFY=Userid
===> //*
===> //*

Press ENTER to update

type in or verify JOB information

ENTER
PF3

or

enter END command to return

From http://www.touniteamerica.com commercial use or resale of this document is a violation of copyright laws.

------------------------ COMPILE STEP - VS COBOL II --------------------------COMMAND ===>

Options ===> LIST,MAP,NONUM
===>
SYSLIB Datasets:
(1) ===>
(2) ===>
(3) ===>
Object Library ===>
DDIO File ===> DDIO library
LP Options DSN ===>
Press ENTER to update

or

enter END command to terminate

ENTER
----------------------------- LINKEDIT STEP ----------------------------------COMMAND ===>
Options ===> LIST,LET
===>
Load Library ===> load library that your program is in
SYSLIB Datasets:
(1) ===> first library (see compile JCL)
(2) ===> second library
(3) ===> third and other libraries
(4) ===>
SYSLIN Control Statements:
===>
Press ENTER to update

type in or verify information

ENTER

or

enter END command to terminate

EDIT ---- USERID.SPFTEMP.CNTL---------------------- Columns 001 072

COMMAND ===>
SCROLL ===> PAGE
****** ***************************** Top of Data ******************************
==MSG> *======================================================================*
==MSG> * COMMANDS:
*
==MSG> *
SUB
- SUBMIT THIS JOB
*
==MSG> *
RUN
- SUBMIT THIS JOB AND CHECK STATUS
*
==MSG> *
LISTING - DISPLAY JOB OUTPUT LISTING
*
==MSG> *
END
- RETURN TO PREVIOUS PANEL
*
==MSG> *======================================================================*
000001 //UseridC JOB (accounting info),'STUDENT NAME ',
000002 //
CLASS=job class,MSGCLASS=held class,NOTIFY=Userid
000003 //*
000004 //*
000005 //*
000006 //*-----------------------------------------------------------------000007 //* COMPILE STEP
(COB2)
000008 //*-----------------------------------------------------------------000009 //COMPILE EXEC PGM=CWPCMAIN,REGION=4M,COND=(8,LT),
000010 // PARM=('LIST,MAP,NONUM',
000011 //
'')
000012 //SYSTERM DD SYSOUT=(*)
000013 //SYSPRINT DD SYSOUT=(H)

Type SUBMIT
ENTER
PF3
PF3
examine the results of the job with SDSF, IOF or other sysout viewer.

-----------------OPTION ===> 4
1
2
3
4

XPEDITER/TSO - PROGRAM PREPARATION MENU

CONVERT COMPILE JCL

COMPILE FACILITY
BIND FACILITY
EDIT ALLOCATION LIST

Press ENTER to process

Type 4
ENTER

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

Convert compile JCL for XPEDITER

Compile programs for XPEDITER
Bind application plans for File-AID DB2
Edit file allocation lists

or

enter END command to terminate

----------------------COMMAND ===>

XPEDITER/TSO - EDIT FILE LIST

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

Specify File Allocation List Below:

ISPF Library:
Project
Group
Type
Member

===>
===>
===>
===>

(Blank for member selection list)

Other Partitioned or Sequential Dataset:

Dataset Name ===> library for file allocations
Volume Serial ===>
(If not cataloged)
Copy from JCL, CLIST, or Other File Allocation List
Dataset Name ===>
Copy Option ===> PROMPT
(Replace, Append, Prompt, or Cancel copy)
Automatic Expand ===> YES
(Yes/No)
Step Selection ===>
(Program name for automatic step selection)
Press ENTER to Process

or

Enter END Command to Terminate

Type in the name of an existing library (your JCL library will work)
with a new member name
ENTER

---------------------- XPEDITER/TSO - EDIT FILE LIST Primary Command Invalid

COMMAND ===> ALLOC
SCROLL ===> CSR
Line Commands:
Primary Commands:
D (Delete)
S (Select detail)
CANcel
(Quit without saving)
I (Insert)
BR (Browse dataset)
COPY
(Copy JCL or File List)
R (Repeat)
ED (Edit dataset)
ALLOCate (Allocate and continue)
END
(Save and End)
File Allocation List: library for file allocations
----------------------- DSNAME ----------------------- DISP
DDNAME
DUMMY, TEMP, TERM, SYSOUT, *, OR A DATASET NAME
STATUS
------------------------------------------------------------------------------'''''
SYSOUT
'userid.test.sysout.data'
NEW
'''''
INFILE
'userid.test.data(testdata)'
SHR
'''''
REPORT
'userid.test.report'
NEW
'''''

Type in the file allocations (look at the run JCL for your program)
Type ALLOC on command line
ENTER
PF3
PF3
PF3
2 - to TSO
ENTER
About the file allocations: One for each JCL DD statement found in the JCL that you use to execute the program
//SYSOUT
should be allocated to a dataset
other DDs
allocated to the proper datasets
SHR means it exists
NEW means it doesnt exist but will be created
DUMMY
says there is no data
TERM
says the terminal is the file (not a good idea!)
SYSOUT
will send the output to a printer (not a good idea!)

PROFILE: DEFAULT -----COMMAND ===> SE

COMMANDS:

XPEDITER/TSO - STANDARD (2.1)

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

SEtup (Display Setup Menu)

TEST SELECTION CRITERIA:

Program ===> TEST1
Entry Point ===>
Load Module ===> TEST1

(this is the program-id)

this is the executable program name

Initial Script ===>

Post Script ===>
PARM String ===>

File Allocation List ===> library for file allocations

Is This a DB2 Test? ===> NO
Press ENTER to process

Type in SE
Type in or verify information
ENTER

Plan ===>
or

System ===>

enter END command to terminate

PROFILE: DEFAULT ------OPTION ===> 1

XPEDITER/TSO - SETUP MENU

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

0
1
2
3
4
5
6

ENVIRONMENT
LOADLIBS
DDIO
INCLUDES
LOG
SCRIPT
DSNLOAD

Execution environments menu

Application load module libraries
DDIO files
Test script libraries
Session log dataset disposition
Test script dataset disposition
DB2 system names and DSNLOAD libraries

TCF

- Test Case Facility

ALL

- Display all of the above in succession (except 0)

Press ENTER to process

or

enter END command to terminate

Type in 1
ENTER
From http://www.touniteamerica.com commercial use or resale of this document is a violation of copyright laws.

PROFILE: DEFAULT ---- XPEDITER/TSO - LOAD MODULE LIBRARIES -----------------COMMAND ===>

COMMANDS: DOWN (for additional User Libraries)
User Libraries:
(1) ===> your load library
(2) ===>
(3) ===>
(4) ===>
(5) ===>
(6) ===>
(7) ===>
(8) ===>
Installation Libraries: (Changes made to this list override installed default
(9) ===> first system library
(10) ===> second system library
(11) ===> third and other system libraries
(12) ===>
(13) ===>
(14) ===>
(15) ===>
(16) ===>
Press ENTER to Process

or

Enter END Command to Terminate

Type in the name of your programs load library

and the names of other libraries as your installation requires
ENTER
2 (DDIO)
ENTER

PROFILE: DEFAULT -------COMMAND ===>

XPEDITER/TSO - DDIO FILES

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

User Libraries:
(1)
(2)
(3)
(4)
(5)
(6)

===> DDIO library

===>
===>
===>
===>
===>

Installation Libraries: (Changes made to this list override installed default

(7) ===> 'SYSTEM.LIBRARY.DDIO'
(8) ===>
(9) ===>

Press ENTER to process

Type in the name of your DDIO library

ENTER
PF3

or

(normally you dont have to type it in)

enter END command to terminate

PROFILE: DEFAULT -----COMMAND ===>

COMMANDS:

XPEDITER/TSO - STANDARD (2.1)

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

SEtup (Display Setup Menu)

TEST SELECTION CRITERIA:

Program ===> TEST1
Entry Point ===>
Load Module ===> TEST1
Initial Script ===>
Post Script ===>
PARM String ===>

File Allocation List ===> library for file allocations

Is This a DB2 Test? ===> NO
Press ENTER to process

ENTER

Plan ===>
or

System ===>

enter END command to terminate

------------------------- XPEDITER/TSO - SOURCE -----------------------------COMMAND ===>

SCROLL ===> CSR
BEFORE BREAKPOINT ENCOUNTERED
** END **

---------------------------------------------------------- Before TEST1 <>

=====> B PROCEDURE DIVISION.
000053
DISPLAY 'PROGRAM TEST1'.
000054
MOVE ALL '!' TO COUNTERS-ALL.
000055
ADD 1 TO EMPLOYEE-ACC
000056
*
000057
*
000058
*
000059
*
000060
0A0061
GOBACK.
****************************** BOTTOM OF MODULE *******************************

Program is ready to run

it is suggested you put a breakpoint on the GOBACK by typing an A on its line number
PF9 will execute the program one line at a time

These are the PF key settings

------------ XPEDITER PF KEY DEFINITIONS AND LABELS COMMAND ===>

NUMBER OF PF KEYS ===> 24
PF1
PF2
PF3
PF4
PF5
PF6
PF7
PF8
PF9
PF10
PF11
PF12

===>
===>
===>
===>
===>
===>
===>
===>
===>
===>
===>
===>

PF1
PF4
PF7
PF10

LABEL
LABEL
LABEL
LABEL

TERMINAL TYPE ===> 3278

HELP
PEEK CSR
END
EXIT
FIND
LOCATE *
UP
DOWN
GO 1
LEFT
RIGHT
GO
===>
===>
===>
===>

PF2
PF5
PF8
PF11

LABEL
LABEL
LABEL
LABEL

===>
===>
===>
===>

PF3
PF6
PF9
PF12

LABEL
LABEL
LABEL
LABEL

===>
===>
===>
===>

Some Xpediter Commands

set up a breakpoint
just execute the program
choose next paragraph to be executed
choose next line to be executed
execute 1 line
display breakpoints
display file information
display value of variable
list all the commands
change data values
stop displaying the value of a variable
delete a breakpoint
end the session
EXIT
start monitoring (enables reverse command)
trace execution backwards

A on the line number

GO
GOTO paragraph
GOTO line number
GO 1 or PF9
SHOW BREAKS
SHOW FILES
KEEP variable
HELP
MOVE, as in COBOL
D on the line
D on the line
MONITOR
REVERSE

This is the program used as an example.

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. TEST1.
000800* BOMBER PROGRAM TO USE WITH XPEDITER
000900 ENVIRONMENT DIVISION.
001000 CONFIGURATION SECTION.
001100*
001500 INPUT-OUTPUT SECTION.
001600 FILE-CONTROL.
002000*
002100 DATA DIVISION.
002200 FILE SECTION.
005400 WORKING-STORAGE SECTION.
005500*
006106 01 COUNTERS-ALL.
006107
05 ALL-EMPLOYEES-DIV-ACC
PIC 9(04) VALUE 0 USAGE COMP-3.
006108
05 EMPLOYEE-ACC
PIC 9(02) VALUE 1 USAGE COMP-3.
006109
05 PAGE-NUM-ACC
PIC 9(03) VALUE 1 USAGE COMP-3.
006110*
006500 PROCEDURE DIVISION.
006510
DISPLAY 'PROGRAM TEST1'.
006600
MOVE ALL '!' TO COUNTERS-ALL.
006610
ADD 1 TO EMPLOYEE-ACC
007000
DISPLAY 'YOULL NEVER GET HERE!'
009210
GOBACK.

About this series.

Sometimes you need just enough information so that you can do something - it gets you started
when you dont have time to learn everything. Get them at
http://www.touniteamerica.com/programming/justenuf.html
Other Books for professionals:
REXX Reference
All REXX verbs, keywords, and built-in functions as found in MVS, VM/CMS and OS/2.
About 100 pages. Ready to ship.
Order from MVS Training (800) 356 9093. http://www.mvs-training.com
REXX Language Book
How to use the REXX programming language on TSO. Information, ordering at:
http://www.touniteamerica.com/programming/rexx2.html
ISPF Services: Using the Dialogue Manager with REXX
How to create ISPF panels on TSO. Examples are in REXX. Information, ordering at:
http://www.touniteamerica.com/programming/dmbook.html
Teach yourself SQL.
Description of all SQL verbs, keywords, and built-in functions
About 100 pages. Information, ordering at:
http://www.touniteamerica.com/programming/sqlbook.html
Model Programs for Business Applications. COBOL-2 Logic Examples.
Working programs! From simple logic to three level control break
and batch file update/match/merge. Validating data, Table handling, SEARCH,
Indexing, VSAM KSDS, variable format files. About 112 pages.
Ready to ship. Includes diskette containing all programs, data files and JCL.
Information, ordering at:
http://www.touniteamerica.com/programming/cobolbook.html
Teach yourself Perl.
Learn Perl on a Windows system.
About 100 pages. More information.
http://www.touniteamerica.com/programming/perl.html
The entire Just Enough series in one book.
Information, ordering, and individual books at:
http://www.touniteamerica.com/programming/justenuf.html
In the USA: To pay by check, mail a check for $27.00 for one book to Gabe F. Gargiulo
1285-A Silas Deane Hwy, PMB 290
Wethersfield CT 06109 USA.

Created by http://www.touniteamerica.com. You may copy this document provided this notice is attached.