INTRODUCTION TO JCL OBJECTIVES

1. What is JCL?
2. Basic syntax of JCL statements
3. Three types of JCL statements (JOB, EXEC, DD)
4. The JOB statement
5. The EXEC statement
6. The DD statement for tapes
7. The DD statement for printed output
8. OUTPUT JCL statement
9. JES3 control statements
10. Example FORTRAN and SAS programs
11. Sources of Help

1. WHAT IS JCL?

1.1 JOB CONTROL LANGUAGE consists of control statements that:

• introduce a computer job to the operating system

• request hardware devices
• direct the operating system on what is to be done in terms of running applications and scheduling
resources

JCL is not used to write computer programs. Instead it is most concerned with input/output--- telling the
operating system everything it needs to know about the input/output requirements. It provides the means
of communicating between an application program and the operating system and computer hardware.

1.2 IS JCL DIFFICULT? ... NOT NECESSARILY!

The role of JCL sounds complex and it is---JCL can be downright difficult.

JCL can be difficult because of the way it is used. A normal programming language, however difficult,
soon becomes familiar through constant usage. This contrasts with JCL in which language features are
used so infrequently that many never become familiar.

JCL can be difficult because of its design - JCL:

• consists of individual parameters, each of which has an effect that may take pages to describe
• has few defaults--must be told exactly what to do
• requires specific placement of commas and blanks
• is very unforgiving--one error may prevent execution

JCL is not necessarily difficult because most users only use a small set of similar JCL that never changes
from job to job.

1.3 HOW DO YOU SEND INFORMATION TO THE COMPUTER?

BATCH PROCESSING VS. INTERACTIVE PROCESSING

Interactive Processing means that you give the computer a command and the computer responds to
your command request. It is more like a conversation.

Batch Processing means that you give the computer a whole group of commands, usually in the form of
some sort of program you have written, and have the computer process this group of commands. It is
more like writing a letter.

2. BASIC SYNTAX OF JCL STATEMENTS

//NAME OPERATION OPERAND,OPERAND,OPERAND COMMENTS

| | | |
name field operation field operand field comment
field

name field - identifies the statement so that other statements or the system can refer to it. The name field
must begin immediately after the second slash. It can range from 1 to 8 characters in length, and can
contain any alphanumeric (A to Z) or national (@ $ #) characters.
operation field - specifies the type of statement: JOB, EXEC, DD, or an operand command.
operand field - contains parameters separated by commas. Parameters are composites of prescribed
words (keywords) and variables for which information must be substituted.
comments field - optional. Comments can be extended through column 80, and can only be coded if there
is an operand field.

General JCL Rules:

• Must begin with // (except for the /* statement) in columns 1 and 2

• Is case-sensitive (lower-case is just not permitted)
• NAME field is optional
• must begin in column 3 if used
• must code one or more blanks if omitted
• OPERATION field must begin on or before column 16
• OPERATION field stands alone
• OPERANDS must end before column 72
• OPERANDS are separated by commas
• All fields, except for the operands, must be separated by one blank.

2.1 CONTINUATION OF JCL STATEMENTS

//LABEL OPERATION OPERAND, OPERAND,

// OPERAND,OPERAND,
// OPERAND,
// OPERAND

When the total length of the fields on a control statement exceeds 71 columns, continue the fields onto
one or more following statements.
 • Interrupt the field after a complete operand (including the comma that follows it) at or before
column 71
• Code // in columns 1 and 2 of the following line
• Continue the interrupted statement beginning anywhere in columns 4 to 16.

2.2 COMMENTING JCL

//* THIS IS A COMMENT LINE

JCL should be commented as you would any programming language. The comments statement
contains //* in columns 1 to 3, with the remaining columns containing any desired comments. They can be
placed before or after any JCL statements following the JOB statement to help document the JCL.
Comments can also be coded on any JCL statement by leaving a blank field after the operand field.

3. THREE TYPES OF JCL STATEMENTS

JOB Identifies the beginning of a job

EXEC Indicates what work is to be done

DD Data Definition, i.e., Identifies what resources are needed and where to find them

4. THE JOB STATEMENT

The JOB statement informs the operating system of the start of a job, gives the necessary accounting
information, and supplies run parameters. Each job must begin with a single JOB statement.//jobname
JOB USER=userid

jobname - a descriptive name assigned to the job by the user which is the banner on your printout
- any name from 1 to 8 alphanumeric (A-Z,0-9) or national ($,@,#) characters
- first character must be alphabetic or national

JOB - indicates the beginning of a job

Userid - a 1 to 7 character user identification assigned to access the system

4.1 ADDITIONAL OPERANDS OF THE JOB STATEMENT

//jobname JOB USER=userid, TIME=m, MSGCLASS=class, NOTIFY=userid

USER=userid Identifies to the system the user executing the job

TIME=m Total machine (m)inutes allowed for a job to execute
MSGCLASS=class Output class for the job log
NOTIFY=userid User to receive a TSO message upon completion of a job

4.1.1 MSGCLASS

The MSGCLASS parameter allows you to specify the output class to which the operating system MVS is
to write the job log or job entry subsystem (JES) messages. If you do not code the MSGCLASS
parameter, MSGCLASS=J is the default and will be used. MSGCLASS=J indicates the output will be
printed on 8 1/2" by 11" hole paper.

This includes the following:

1. Job Entry Subsystem (JES) Messages

2. Error Messages
3. JCL Statements
4. Dataset Dispositions
5. Accounting information

Here is a list of available output classes:

• A greenbar paper
• 5-9 TSO held output
• C-Z IBM page printer output classes. See chart in section "Sys-out Classes for IBM Print" on
page 28.

5. THE EXEC STATEMENT

Use the EXEC (execute) statement to identify the application program or cataloged or in-stream
procedure that this job is to execute and to tell the system how to process the job.

//stepname EXEC procedure,REGION=####K

or

//stepname EXEC PGM=program,REGION=####K

stepname - an optional 1 to 8 character word used to identify the step

EXEC - indicates that you want to invoke a program or cataloged procedure
procedure - name of the cataloged procedure to be executed
program - name of the program to be executed
REGION=####K - amount of storage to allocate to the job

5.1 PROGRAMS AND CATALOGED PROCEDURES

// EXEC PGM=pgmname

A program referred to on the EXEC PGM= statement is a compiled and linked version of a set of source
language statements that are ready to be executed to perform a designed task. It is also known as an
executable load module. It must reside in a partitioned dataset.

// EXEC cataloged-procedure-name

Because the same set of JCL statements are often used repeatedly with little or no change they can be
stored in cataloged procedures. JCL provides programmers with the option of coding these statements
only once, recording and cataloging the statements under an appropriate name in a procedure library,
and then invoking these statements through an EXEC statement. Such a previously established set of
JCL statements is known as a "cataloged procedure." The effect of using a cataloged procedure is the
same as if the JCL statements in the procedure appeared directly in the input stream in place of the
EXEC statement calling the procedure. This saves the user from writing lengthy error-prone JCL
statements. In short, this is JCL that does not have to be included in batch jobs.

* Note that within cataloged procedures a program will be executed.

5.1.1 Modifying Cataloged Procedures

Additional statements may be added to the JCL comprising a cataloged procedure at the time of
invocation. Also, operand values on existing JCL statements may be altered or parameters defined in the
procedure may be substituted at invocation time.

The value in the override statement replaces the value for the same parameter in the cataloged
procedure. Cataloged procedure statements must be overridden in the same order as they appear in the
procedure.

//procstepname.ddname DD parameter=value

You can modify cataloged procedures by:

• Overriding parameters in an existing DD statement

• Adding DD statements to the procedure. To add new DD statements let them follow any changed
DD cards for that step.

To modify an existing DD statement, only those operands to be changed need be coded on the modifying
DD statement. The remaining operands of the DD statement within the procedure will be unchanged. If
more than one DD statement in a procedure is to be modified, the modifying DD statements must be
placed in the same order as the original DD statements occur in the procedure.

To add a DD statement to an existing procedure, place the DD statement after the procdure invocation
EXEC statement and any modified DD statements within the job step.

// EXEC SAS
//NEWDD DD DSN=user.file,DISP=SHR

When looking at your output, the following symbols will determine what kind of statement is indicated
when your job runs:

// Indicates JCL statements

XX Indicates cataloged procedure statements

X/ Indicates a modified cataloged procedures statement

6. DATA DEFINITION (DD) STATEMENT

A DD (Data Definition) statement must be included after the EXEC statement for each data set used in
the step. The DD statement gives the data set name, I/O unit, perhaps a specific volume to use, and the
data set disposition. The system ensures that requested I/O devices can be allocated to the job before
execution is allowed to begin.
The DD statement may also give the system various information about the data set: its organization,
record length, blocking, and so on.

//ddname DD operand,operand,etc.

ddname - a 1 to 8 character name given to the DD statement

DD - DD statement identifier

operand - parameters used to define the input or output dataset

The DD Statement

• appears after an EXEC statement

• gives the system information on many things, including the dataset attributes, the disposition of
the dataset when the job completes, and which input/output device(s) to use

6.1 DD STATEMENT FOR INSTREAM DATA

Instream data is perhaps the most common form of input. To include data in the input stream, code:

//ddname DD *
.
.
.
/* (to specify end of data)

SYSIN is often used as a ddname for instream data. The /* marks the end of the data.

6.2 EXAMPLE PROGRAMS WITH INSTREAM DD STATEMENTS

6.2.1 Fortran Example

In this example, the userid UGUSER is executing a Fortran procedure with the Fortran program inserted
after the FORT.SYSIN line and the data inserted after the GO.SYSIN line.

//FORTRUN JOB USER=UGUSER

// EXEC FORTVCLG,REGION=1500K
//FORT.SYSIN DD *
FORTRAN statements
/*
//GO.SYSIN DD *
data lines
/*
//
6.2.2 SAS Example

In this example, the userid UGIBM is executing a SAS procedure with the SAS program inserted after the
SYSIN line.

//SASRUN JOB USER=UGIBM

// EXEC SAS,REGION=1500K
//SYSIN DD *
SAS statements
/*
//

6.3 DATA DEFINITION (DD) STATEMENT FOR DISK DATASETS

//ddname DD UNIT=unittype,
// DSN=userid.name,
// DISP=(beginning,normal-end,abnormal-end),
// SPACE=(TRK,(primary,secondary,directory)),
// RECFM=xx,LRECL=yy,MGMTCLAS=retainx

ddname - data definition name; a 1-8 character word of your choice, must begin with a letter or $, @, #

DD - DD statement identifier

UNIT = unittype - an I/O unit is a particular type of I/O device: a disk, tape, etc. UNIT=SYSDA refers to
the next available disk storage device.

DSN=userid.name DSN parameter names the data set. Data sets can be temporary or nontemporary. A
temporary data set is created and deleted within the job, whereas nontemporary data sets can be
retained after the job completes. A data set name can contain up to 44 characters including periods.

Ex. UGIBM.DATA

mgmtclas - MGMTCLAS specifies the name of the Management Class which is a set of specifications for
the way the storage occupied by the data set should be treated by SMS. Generally, this deals with how
long you want to keep this data set around. UCNS has set up the following management classes:

MGMTCLAS Days Retention MGMTCLAS Days Retention

RETAIN0 0 (DEFAULT) RETAIN8 8
RETAIN1 1 RETAIN9 9
RETAIN2 2 RETAIN10 10
RETAIN3 3 RETAIN14 14
RETAIN4 4 RETAIN28 28
 RETAIN5 5 RETAIN56 56
RETAIN6 6 RETAIN95 95
RETAIN7 7 STANDARD (18 months past last use)

6.4 DATA DEFINITION (DD) STATEMENT FOR TAPE DATASETS

//ddname DD UNIT=unittype,VOL=SER=unitname,
// DSN=filename,
// DISP=(beginning,normal-end,abnormal-end),
// DCB=(RECFM=xx,LRECL=yy,BLKSIZE=zz,DEN=density),
// LABEL=(file#,labeltype,,mode)

ddname - data definition name; a 1-8 character word of your choice, must begin with a letter or $, @, #

DD - DD statement identifier

UNIT=unittype - an I/O unit is a particular type of I/O device: disk, tape, etc.
TAPE16 refers to a 1600 bpi tape drive
TAPE62 refers to a 6250 bpi tape drive
TAPECA refers to a 38K or XF catridge tape drive

VOL=SER=unitname - VOL=SER parameter is needed if the data set is to be placed on a specific tape
volume. This refers to the volume serial number on an internal tape label.

DSN=filename - DSN parameter names the file on the tape. The filename can be from 1 to 17 characters
in length.
Ex. COWDATA

6.4.1 Disposition (DISP) Parameters

The DISP parameter describes the current status of the data set (old, new, or to be modified) and directs
the system on the disposition of the dataset (pass, keep, catalog, uncatalog, or delete) either at the end of
the step or if the step abnormally terminates. DISP is always required unless the data set is created and
deleted in the same step.

// DISP = (beginning, normal-termination ,abnormal-termination)

_________ _________________ ___________________
| | |
NEW CATLG DELETE
OLD KEEP KEEP
SHR PASS CATLG
MOD DELETE UNCATLG
UNCATLG

6.4.1.1 Beginning Dispositions

This is the status of the data set at the beginning of the step. If the data set is new, the system creates a
data set label; if it is old, the system locates it and reads its label

NEW creates a new data set

OLD designates an existing data set; it can be an input data set or an output data set to rewrite

SHR identical to OLD except that several jobs may read from the data set at the same time.

MOD modifies a sequential data set - positions the pointer at the end of the data set in order to add new
data to the data set.

6.4.1.2 Normal Termination and Abnormal Termination Dispositions

Normal disposition, the second term in the DISP parameter, indicates the disposition of the data set when
the data set is closed or when the job terminates normally. The abnormal dispositions, effective only if the
step abnormally terminates, are the same as normal dispositions except that PASS is not allowed.

PASS passes the data set on to subsequent job steps, and each step can use the data set once.

KEEP keeps nontemporary data sets.

DELETE deletes data sets.

CATLG catalogs a nontemporary data set. CATLG is similar to KEEP except that the unit and volume of
the data set are recorded in the catalog along with the data set name.

UNCATLG uncatalogs a data set. UNCATLG is the same as KEEP except that the data set name is
removed from the catalog.

6.4.1.3 Examples of DISP parameters

// DISP=SHR read from

// DISP=OLD write to
// DISP=(NEW,CATLG,DELETE) create and catalog; delete if there is a system abend
// DISP=(OLD,PASS) dataset already exists; pass it to the next step
// DISP=MOD write to the bottom of an existing dataset

6.4.2 SPACE Parameter

All new data sets on disk volumes must be allocated space. Storage on disk volumes can be allocated in
units of blocks, cylinders, tracks, kilobytes, and bytes.

The space may be requested as a primary and a secondary amount. The primary amount is allocated
when the data set is opened with a disposition of NEW. The secondary amount is allocated if the primary
amount is exceeded.

The primary amount can be conservative, with the secondary amount providing a reserve. The secondary
amount provides for data set growth over time.
// SPACE=(TRK,(primary,secondary,directory))

primary receive this amount of space initially

secondary receive this amount of space each time more is needed (up to 15 times)

directory reserve this amount of blocks to keep the directory of a partitioned dataset (NOT USED for a
sequential dataset)
1 directory block allows for 5 members in a partitioned dataset

Total Space = (1 * primary) + (15 * secondary)

6.4.2.1 Partitioned Dataset vs. Sequential Dataset

Any named collection of data is called a data set. A partitioned dataset consists of multiple files within one
data structure. A sequential dataset consists of one file within a data structure.

Partitioned Dataset

• individual members are read/manipulated without disturbing other members

• it is advisable to never write directly to a partitioned dataset in your program
• on DD statememt: DSN=userid.file(member)
• call from editor: file(member)

Sequential Dataset

• dataset must be read from top to bottom

• on DD statement: DSN=userid.file
• call from editor: file

PARTITIONED DATASET SEQUENTIAL DATASET

DSN='userid.data-set-name(member)' DSN='userid.data-set-name'
______________ ______________
| DIRECTORY | | |
|-----------------| | |
| MEMBER1 | | |
|-----------------| | DATASET |
| MEMBER2 | | |
|-----------------| | |
| ....... | | |
|-----------------| | |
| MEMBERn | | |
|--------------------------| |_______________|
|_______________|

A partitioned dataset differs from a sequential dataset in that it has a directory of its members. Whenever
you refer to a member of a partitioned dataset, you include the member name in parentheses.

6.4.2.2 DFSMS (System Managed Datasets)

 On the TSO service, data sets are typically created and reside on disk volumes. A volume is a standard
unit of storage. These disk volumes are referred to as DASD, which stands for Direct Access Storage
Device. Each block of data on a DASD volume has a distinct location and a unique address, making it
possible to find any record without extensive searching. One DASD volume can be used for many
different data sets, and space on it can be reallocated and reused.

At the University of Georgia, you are now required to utilize the Data Facilities Storage Management
Subsystem (DFSMS) to establish permanent data sets. The Storage Management Subsystem (SMS) is
an operating environment that automates the management of storage. With SMS, users can allocate data
sets more easily. The data sets allocated through the Storage Management Subsystem are called
system-managed. System-managed means that the system determines data placement and automatically
manages data availability, performance, space, reclamation, and security. One of the most beneficial
goals of System-managed storage is to relieve users of performance, availability, space, and device
management details.

DFSMS stores data in a device-independent format so that it can easily move the data to any of the
following devices:

• 3490E Magnetic Catridge Tape

• DASD for models 3380 and 3390

The migration and movement of data depends on such factors as:

• Management Class
• Data set Usage
• Minimum percent free space on a DASD Volume
• Request by storage administrator or user

DFSMS records the location of each dataset it moves in a control data set. The actual migration is
handled by DFHSM (Data Facilities Hierarchical Storage Manager). DFHSM is a DASD management
product tool for managing low-activity and inactive data.

Data sets that have reached the end of their retention period (expired) will be deleted. Data sets with a
management class of STANDARD will be deleted if the data set has not been referenced for a period of
eighteen months. A notification will be sent to the user after a STANDARD data set has not been
referenced for six months informing the user of the STANDARD deletion policy. At this time the data set
will be moved to tape.

All data sets that have a management class of RETAIN95 or STANDARD will be automatically backed up
by DFHSM. Two copies of each will be kept. The change indicator will trigger the backup after the first
backup is made. A user can use the HBACK command to add non-STANDARD and non-RETAIN95 data
sets to this.

6.4.2.3 SPACE Parameter (Partitioned Dataset)

// SPACE=(TRK,(primary,secondary,directory))

This SPACE example allows a total of 40 tracks for the dataset with 1 block of space reserved for the
directory.

// SPACE=(TRK,(10,2,1))
Total Space = (1*10) + (15*2) = 10 + 30 = 40 tracks
Directory = (1*5) = 5 members/dataset

This SPACE example allows a total of 100 tracks for the dataset with 8 blocks reserved for the directory.

// SPACE=(TRK,(25,5,8))

Total Space = (1*25) + (15*5) = 25 + 75 = 100 tracks

Directory = (8*5) = 40 members/dataset
* Note that the track capacity for 3380 is 1 track = 47,476 characters.

6.4.2.4 SPACE Parameter (Sequential Dataset)

// SPACE=(TRK,(primary,secondary))

This SPACE example allows a total of 53 tracks for the dataset.

// SPACE=(TRK,(8,3))

Total Space = (1*8) + (15*3) = 8 + 43 = 53 tracks

This SPACE example allows a total of 520000 bytes for the dataset.

// SPACE=(80,(5000,100))

Total Space = (1*400000) + (15*8000) = 400000 + 120000 = 520000 bytes

* Note that directory blocks are always 0 for sequential datasets; therefore, the directory parameter is
NOT USED for sequential datasets.

6.4.3 Data Set Attributes

With SMS, you do not need to use the DCB parameter to specify data set attributes. ALL of the DCB
keyword subparameters (record length, record format, and blocksize) can be specified without the need to
code DCB=.

For example, the following DD statement:

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)

can be specified as:

// RECFM=FB,LRECL=80

The blocksize parameter can be omitted because SMS will select the optimum blocksize.

RECFM=xx specifies the record format. The format can be one or more of the following characters:
F fixed-length records
V variable-length records
U undefined-length records
FB fixed and blocked
FBA fixed, blocked, with ANSI carriage control characters
VB variable and blocked
VBA variable, blocked, with ANSI carriage control characters
LRECL=yy specifies the length of records
equal to the record length for fixed-length records

equal to the size of the largest record plus the 4 bytes describing the record's size for
variable-length records

omit the LRECL for undefined records

LRECL can range from 1 to 32760 bytes

BLKSIZE=zz specifies the blocksize if you wish to block records

• must be a multiple of LRECL for fixed-length records

• must be equal to or greater than LRECL for variable-length records
• must be as large as the longest block for undefined-length records
• BLKSIZE can range from 1 to 32760 bytes

6.4.3.1 Fixed Block

// RECFM=FB,LRECL=80,BLKSIZE=9040

This dataset will have fixed length records with a length of 80. There will be 113 records of data per
block.

BLKSIZE/LRECL = 9040/80 = 113 records of data per block

.4.3.2 Variable Block

// RECFM=VB,LRECL=255,BLKSIZE=3120

This dataset will have variable length records with a maximum of 255 characters. The blocksize of the
dataset will be 3120.

6.4.4 DCB and LABEL Parameters for Tapes

RECFM=xx specifies the record format. The format can be one or more of the following characters:
F fixed-length records
V variable-length records
U undefined-length records
FB fixed and blocked
FBA fixed, blocked, with ANSI carriage control characters
VB variable and blocked
VBA variable, blocked, with ANSI carriage control characters
LRECL=yy specifies the length of records
equal to the record length for fixed-length records
equal to the size of the largest record plus the 4 bytes describing the record's size for variable-
length records
omit the LRECL for undefined records
LRECL can range from 1 to 32760 bytes

BLKSIZE=zz specifies the blocksize if you wish to block records

must be a multiple of LRECL for fixed-length records
must be equal to or greater than LRECL for variable-length records
must be as large as the longest block for undefined-length records
BLKSIZE can range from 1 to 32760 bytes

DEN=density measures the number of bits that are stored in a unit of measurement on the tape. This
measurement is commonly referred to as BPI (bits per inch).

densities are represented in the DEN parameter as follows:

2 800 BPI
3 1600 BPI
4 6250 BPI
* 38K OR XF BPI

when adding files to an existing tape all new files will be written at the same density as the
first file no matter if you specify differently.

The LABEL parameter tells the type of label, the relative file number on the tape, and whether the data
set is to be protected for input or output.

// LABEL=(file#,labeltype,,mode)

file - the relative file number on the tape (1-4 digits)

type - the type of label on the tape

NL No Label
SL Standard Label
AL American National Standard Label
BLP Bypass Label Processing

mode IN/OUT parameter

IN protects the file from being opened for output
OUT protects it from being opened for input
// LABEL=(3,SL,,IN) File 3 on a SL tape can only be read

// LABEL=(1,NL,,OUT) File 1 on a NL tape is open for output

6.5 EXAMPLE PROGRAMS WITH DD STATEMENTS

6.5.1 Fortran Job for Reading from Disk Dataset

In this example, the userid UGIBM is executing a Fortran procedure with the Fortran program inserted
after the FORT.SYSIN line, and the data is being read by UNIT 3 from the data set UGIBM.FOOD.

//FORTRUN JOB USER=UGIBM

// EXEC FORTVCLG,REGION=2000K
//FORT.SYSIN DD *

read(3,10) x,y
10 format(1x,f4.1,1x,f4.1)

/*
//GO.FT03F001 DD DSN=UGIBM.FOOD,UNIT=SYSDA,DISP=SHR
/*
//

6.5.2 SAS Job for Reading from Disk Dataset

In this example, the userid UGIBM is executing a SAS procedure with the SAS program inserted after the
SYSIN line and the data is being read from the data set UGIBM.DATA.

//SASRUN JOB USER=UGIBM

// EXEC SAS,REGION=2000K
//OLDDATA DD DSN=UGIBM.DATA,UNIT=SYSDA,DISP=SHR
//SYSIN DD *

data one; infile olddata;

input x y z;

/*
//

6.5.3 Fortran Job for Writing to Disk Dataset

In this example, the userid UGABC is executing a Fortran procedure with the Fortran program inserted
after the FORT.SYSIN line, and the results are written by UNIT 8 to the data set UGABC.NEWFILE. This
dataset will only be retained for 7 days. If the user decides to keep the dataset for a longer period of time,
the ALTER command can be issued. For example, ALTER 'UGABC.NEWFILE' MGMTCLAS(RETAIN14),
will keep the dataset around for another week. Since the BLKSIZE is not specified, SMS will determine
the most efficient blocksize.
//FORTRUN JOB USER=UGABC
// EXEC FORTVCG,REGION=2000K
//FORT.SYSIN DD *

write(8,10) x,y
10 format(1x,f4.1,1x,f4.1)

/*
//GO.FT08F001 DD DSN=UGABC.NEWFILE,UNIT=SYSDA,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(40,10),RLSE),
// RECFM=FB,LRECL=80,MGMTCLAS=RETAIN7
/*
//

6.5.4 SAS Job for Writing to Disk Dataset

In this example, the userid UGXYZ is executing a SAS procedure with the SAS program inserted after
the SYSIN line and the results are written to the data set UGXYZ.SAS.DATA. This dataset, based on the
management class of standard, will be retained on the system as long as the user utilizes it.

//SASRUN JOB USER=UGXYZ

// EXEC SAS,REGION=2000K
//NEWDATA DD UNIT=SYSDA,
// DSN=UGXYZ.SAS.DATA,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(40,10),RLSE),
// RECFM=FB,LRECL=80,MGMTCLAS=STANDARD
//SYSIN DD *

data example;
input x y z;
cards;
123
456
;
data _null_; set example; file newdata;
put x y z;
return;

/*
//

7. DD STATEMENT FOR PRINTED OUTPUT

The SYSOUT parameter provides a convenient means of routing output to printers or other devices.
//ddname DD SYSOUT=class

ddname - a 1 to 8 character name given to the DD statement

DD - DD statement identifier

SYSOUT=class - defines this data set as a system output data set, usually called a sysout data set and
assigns this sysout data set to an output class. Here is a list of available output classes:

• A greenbar paper
• 5-9 TSO held output
• C-Z IBM page printer output classes. See chart in section "Sysout Classes for IBM Print" on page
28.

* same class as specified on the MSGCLASS parameter

* Note that if a sysout data set has the same class as the MSGCLASS parameter, the job log appears on
the same output listing as this sysout data set.

7.1 SYSOUT CLASSES FOR IBM PRINT

SYSOUT* CLASS PAPER ORIENTATION SIDES IMAGES CHAR/LINE LINES/IMAGE

C hole landscape 1 1 132 62
D hole portrait 1 1 80 62
F bond landscape 2 1 132 62
G bond portrait 2 1 80 62
H bond landscape 2 2 90 80
I bond portrait 2 1 80 70
J hole landscape 2 1 132 62
K hole portrait 2 1 80 62
Q bond landscape 1 1 132 62
S bond portrait 1 1 80 62
W hole portrait 2 2 132 62
X bond portrait 2 2 132 62
Y bond landscape 2 1 132 62
Z hole landscape 2 1 132 62

Graybar Overlay: The paper used for classes C,F,H,J, and Q is shaded to mimic standard greenbar
paper.

Service Site Page Printers: To route your output to one of the page printers in the Journalism or Aderhold
sites, you must use a SYSOUT class or message class (MSGCLASS) with a paper type of "hole" (C, D, J,
K, W, or Z).

Line Printer SYSOUT Class: To route your output to a line printer, use a SYSOUT class or message class
(MSGCLASS) of A. Your output will be printed on greenbar paper.
Special Hold Classes: To route your output to a hold queue, use a SYSOUT class or message class
(MSGCLASS) of 5, 6, 7, 8, or 9.
------------------------

* SYSOUT class values may be used for message class (MSGCLASS).

8. OUTPUT JCL STATEMENT

The OUTPUT statement is used to specify processing options for a system output data set. These options
are used only when the OUTPUT statement is explicitly or implicitly referenced by a sysout DD statement.

//name OUTPUT FORMDEF=fdef,PAGEDEF=pdef,CHARS=ch,FORMS=form,

// COPIES=n,DEST=dest,DEFAULT=dd

name - a 1 to 8 character name given to the OUTPUT statement

OUTPUT - OUTPUT statement identifier

FORMDEF=fdef - specifies whether to use duplex or simplex and overlay

DUP1 duplex, no overlay
DUP2 duplex, grey bar overlay
SMP1 simplex, no overlay
SMP2 simplex, grey bar overlay

PAGEDEF=pdef - specifies the logical page length and width, fonts, lines within a page, and multiple
logical pages on a physical page
POR1 portrait, 62 lines at 6 lines per inch
POR2 portrait, 70 lines at 6 lines per inch
POR3 portrait, 2 up format, 62 lines per frame
LAN1 landscape, 62 lines at 8 lines per inch
LAN2 landscape, 2 up format, 80 lines per frame

CHARS=ch - names the character set

GT12 Gothic font at 12 characters per inch
GT13 Gothic font at 13 characters per inch
GT18 Gothic font at 18 characters per inch

FORMS=form - specifies the type of form

BOND plain bond paper
HOLE 3 hole drilled bond paper

COPIES=n - specifies how many copies of the sysout data set are to be printed
DEST=dest - specifies a printer destination for the sysout data set
LOCAL Boyd Graduate Studies
SSS02 Journalism Building
SSS03 Aderhold Building
NCT19 Brooks Hall

DEFAULT=dd - specifies that this OUTPUT statement can or cannot be referenced by a sysout DD
statement
YES specifies that this is the default OUTPUT statement for for all print files within a job
NO specifies that this is not the default OUTPUT statement

* Note if you are going to HOLD a print dataset with an OUTPUT statement associated with it, you will
have to fully specify all of the parameters on the OUTPUT statement. Contact the UCNS Helpdesk for
more details.

8.1 EXAMPLES OF THE OUTPUT STATEMENT

To request that the "gray bar" overlay not print on a landscape sysout class for all print files, code:

//OUT1 OUTPUT FORMDEF=DUP1,DEFAULT=YES

To request simplex (one sided) printing for a duplex sysout class for all print files, code:

//OUT1 OUTPUT FORMDEF=SMP1,DEFAULT=YES

To request multiple copies of a print file, code:

//OUT1 OUTPUT COPIES=12

- with -

//ddname DD SYSOUT=F,OUTPUT=*.OUT1

9. JES3 CONTROL STATEMENTS

9.1 //*MAIN STATEMENT

The //*MAIN statement is used to define the processor requirements for the current job. It specifies what
time the job will be executed, how many lines in the job, and where the job is to be printed.

//*MAIN CLASS=x,LINES=y,ORG=UGAIBM1.org
CLASS=x specifies the job class for this job
B Batch (default) Anytime daily
NITE 6:00 PM until 7:00 AM daily
WEEKEND 6:00 PM Friday until 7:00 AM Monday
Z 1:30 AM until 7:00 AM daily, weekends, holidays
BL 6:00 PM until 7:00 AM daily, more than 8 MEG region
ZL 1:30 AM until 7:00 AM daily, more than 8 MEG region

LINES specifies the maximum number of lines of data to be printed from this job in multiples of a
thousand (default = 5000)

ORG=UGAIBM1.org specifies a printer destination for the sysout dataset

LOCAL Boyd Graduate Studies
SSS02 Journalism Building
SSS03 Aderhold Building
NCT19 Brooks Hall

9.2 JOB SCHEDULING SPECIFICATIONS

Since TSO is a time sharing operating system, it allows many people to use the computer at the same
time in such a way that each is unaware that the computer is being used by others. Time sharing attempts
to to maximize an individuals use of the computer, not the efficiency of the computer itself. In order to do
this, job scheduling is used to assign jobs to a certain class in order to maximize the resources available
to each user.

Priority
-------
___________
BATCH | 4
|
| __________ 3
____
NITE | ____ 2

Any job can be scheduled to run at night or on the weekend by coding:

//*MAIN CLASS=NITE

or

//*MAIN CLASS=WEEKEND

9.2.1 Table of Resource Limitations for Job Scheduling

 Priority CPU Time Region (K) Estimated Lines Setups Required
(seconds)

6 0-30 0-2048 0-5000 0

4 32-120 2049-3072 5001-10000 0

3 121-300 3073-4096 10001-40000 1-3

2 301+ 4097+ 40000+ 4+

9.3 //*OPERATOR STATEMENT

The //*OPERATOR statement is primarily used to issue a message to the operator requesting that the
tape with the specific VRN, VSN and KEYWORD is to be mounted for the job.

//*OPERATOR VRN=#9999 VSN=U9999 KEY=HELP

VRN will be assigned when the tape is checked in. This identifies the tape in the tape library. Cartridge
Tapes must have #C in the first two column positions on the vrn parameter.

VSN the volume serial number on the the internal label of a standard labeled tape. This must be the
actual internal label. For non-labeled tapes, this can be any arbitrary name. In both cases, the VSN must
match the VOL=SER parameter on the DD card.

KEY is a password that you will assign to the tape for security purposes. The operator will check the
keyword in your JCL against the keyword on the tape before mounting the tape.

The //*Operator statement in the JCL stream is placed after the JOB or //*MAIN statement and before the
EXEC statement. Each //*Operator statement should be referenced by a DD statement to read or write a
file to the tape.

The following example illustrates the operator card with the referencing DD statement. Note that the VSN
and the VOL=SER must be the same. In this example, the user is going to read the first file on a standard
labeled (SL) tape with the name COWDATA. The tape is going to be read on a 6250 BPI tape drive.

//SEMINAR JOB USER=USERID

//*MAIN LINES=20
//*OPERATOR VRN=#1111 VSN=0211ZZ KEY=KFJD
//STEP1 EXEC ...
//INFILE DD UNIT=TAPE62,VOL=SER=0211ZZ,
// LABEL=(1,SL,,IN),
// DSN=COWDATA,
// DISP=(OLD,PASS)

10. EXAMPLE FORTRAN AND SAS PROGRAMS

10.1 EXAMPLE FORTRAN PROGRAM

In this example, the userid UGA001 is executing a Fortran procedure with the Fortran program inserted
after the FORT.SYSIN line and the data inserted after the GO.SYSIN line. This job will not begin
executing until after 6:00PM, and the output will be held to the terminal by the MSGCLASS=6.

//CONVERT JOB USER=UGA001,MSGCLASS=6,NOTIFY=UGA001

//*MAIN CLASS=NITE,LINES=40,ORG=UGAIBM1.LOCAL
// EXEC FORTVCLG,REGION=2000K
//FORT.SYSIN DD *

read(5,10) cent
10 format(f6.2)
fahr=(cent*9/5)+32
write(6,20) cent,fahr
20 format(f6.2,' cent = ',f6,2,'fahr')

/*
//GO.SYSIN DD *
100.00
/*
//

10.2 EXAMPLE SAS PROGRAM

In this example, the userid RESRCH is executing a SAS procedure with the SAS program inserted after
the SYSIN line and the data is being read from the first file of a standard labeled cartridge tape with the
file name of DATAFIL. The output will go directly to the printer with the sysout class of S.

//ANALYSIS JOB USER=RESRCH,NOTIFY=RESRCH,TIME=3,MSGCLASS=S

//*MAIN LINES=10
//*OPERATOR VRN=#C1234 VSN=WGCF KEY=KFJD
// EXEC SAS,REGION=2500K
//SAMPDATA DD UNIT=TAPECA,VOL=SER=WGCF,
// LABEL=(1,SL,,IN),
// DSN=DATAFIL,
// DISP=(OLD,PASS)
//SYSIN DD *

data one;
infile sampdata;
input a b c d;
proc print;

/*
//
 11. SOURCES OF HELP

11.1 UCNS HELPDESK

The UCNS Helpdesk, located in the Computer Services Annex on the corner of East Campus Road and
Cedar Street and on the first floor of the Boyd Graduate Studies Research Center, function as the initial
contact point for all computer related needs associated with the University of Georgia computer systems.
The primary purpose of the Helpdesk is to aid faculty, staff, and students with the use of our computer
systems through general consulting and information requests. Assistance is provided through telephone
contacts, walkins, and electronic mail.

Hours: Monday - Friday, 8:00AM - 5:00PM

Phone: (404) 542-3106

E-mail Address: HELPDESK@UGA

Internet Address: [email protected]

Limited assistance is available at all staffed UCNS Computer Service Sites.

11.2 HELPFUL IDS DOCUMENTS

• Common IBM System Error Messages and Abend Codes

• The Case of the Sinister Syntax Error
• Facility Access and Services Guide

11.3 BASIC JCL REFERENCES

• IBM MVS JCL Publication No. GC28-1300 - This manual is the basic reference document on the
syntax and usage of IBM JCL. This manual is available for reference at the Client Services Help
Desk.
• System/370 Job Control Language by Gary Deward Brown - This reference is a standard and
popular textbook for introducing IBM JCL to persons familiar with computers but not necessarily
IBM 370 systems.