JCL 1.0
JCL 1.0
Any business application is divided into logical modules and these modules are
developed using programming languages. These programs should be executed in a
pre-defined sequence to achieve the business functionality.
JCL (Job Control Language) is used to DEFINE and CONTROL the JOB to the
operating system.
Definition involves definition of the programs need to be executed, the data for the
programs and the sequence of programs. CONTROL involves controlling the
execution or bypassing of a program in the sequence based on the result of the prior
program execution.
123 11 16 73 80
NAME OPERATION OPERANDS
JCL statements should have // in column 1 and 2. STAR (‘*‘) in the third column,
indicates that the line is a comment line.
NAME is optional field. If coded, it should start at column3 and can have maximum 8
characters. The first character should be an alphabet or national character (@, # or
$). Remaining characters can be any alphanumeric or national characters.
OPERATION follows NAME field. There should be at least one space between NAME
and OPERATION. If NAME is not coded then OPERATION can start at fourth column
itself. Typical OPERATION keywords are JOB, EXEC and DD.
OPERANDS are the parameters for the operation. OPERANDS follow OPERATION and
there should be at least one space between them. A comma separates parameters
and there should not any space between parameters. If the OPERANDS are more,
then they can be continued in the next line. To continue the current line, end the
current line before column 72 with ‘,’ and start the next line anywhere between
columns 4-16. Columns 1-3 should be ‘// ‘.
End of Job is identified by NULL statement. NULL statement has // in column 1 and 2
with no NAME, OPERATION or OPERAND fields. The statements coded after NULL
statement will not be processed.
DELIMITER – Some times we pass the data in the JCL itself. This is called in-stream
data. The starting of data is identified by ‘*’ in the operand field of DD operation.
DELIMITER indicates the end of data. /* in column 1 and 2 is the default delimiter.
Mainframe Refresher Part-1 JCL-Page:2
Job Entry Subsystem (JES) is the job processor of MVS operating system.
MVS installation can have either JES2 or JES3. The submitted jobs are taken by JES
for processing.
JCL Statements
JOB. It should be the first statement in the JCL. It indicates accounting information
and JOB related information to the system. If the member being submitted contains
multiple job cards, then multiple jobs will be submitted. These jobs will run
concurrently or one after other based on job name, class and initiator availability.
EXEC. The name of the program or procedure to be executed is coded here. Every
EXEC statement in a JOB identifies one step. Maximum of 255 EXEC statements can
be coded in a JOB.
DD. Data Descriptor. The dataset details are coded here. Dataset contains the
data that need to be processed by the program or data that is produced by the
program. Maximum 3273 DD statements can be coded in a step.
JCL ERROR:
1. Errors before job starts execution: If there are syntax errors, then the whole
job is rejected with error message in JES MESSAGES. Typically this needs
correction and resubmission of the whole JOB.
2. Errors before step starts execution: If there is any allocation issues in a
particular (like dataset not found, duplicate dataset), then also the job will be
error out but in this case there might be already n steps got executed.
Typically this needs correction and restart in the JOB.
ABEND:
Unlike JCL Errors, ABEND happens during the execution of a program in a
step. ABENDS are classified into 2 categories.
System ABEND(Snnn): System abend occurs when the system is not able to
execute a statement that is instructed in the program. Divide by ZERO results SOCB
system abend. The OS throws it.
Mainframe Refresher Part-1 JCL-Page:3
User ABEND(Unnnn): When some unexpected condition occurs in the data passed,
the program will call an abend routine and abend the step with proper displays. This
is thrown by application based on the requirement.
JOB Statement
Sample Syntax:
//JOBNAME JOB
(ACCOUNTING
INFO),
(PROGRAMMER
NAME),
//
TIME=(MINUTE
S,SECONDS),
CLASS=A,MSGC
LASS=A,PRTY=
14,ADDR=VIRT,
//
REGION=nK,MS
GLEVEL=(A,B),
COND=(N,OPER
ATOR),
TYPRUN=SCAN
JOBNAME
It identifies name of the job. The job is identified in the JES SPOOL using this
name. Naming rules are already mentioned in the coding sheet section.
PROGRAMMER NAME
Programmer name or program functionality or group can be mentioned. It is
used for documentation (Max 20 chars)
PRTY
Syntax: PRTY=N (N can be 0 –15).
8. While selecting the jobs with same class for execution, JES schedules the high
priority jobs first. The job coded with PRTY=15 has the highest priority and
PRTY=0 has the lowest priority.
2. PRTY works within the JOBCLASS. If there are 2 jobs with CLASS A is submitted
and one with PRTY 3 and other with PRTY 4 then PRTY 4 will get into execution
queue first.
3. PRTY function is disabled in most of the installations.
MSGLEVEL
Syntax: MSGLEVEL=(X,Y) (X can be 0-2 & Y can be 0-1)
4. It is used to control the lists of information appear in the Job log. To get
Mainframe Refresher Part-1 JCL-Page:4
ADDRSPC
It is used to specify whether the job will run in the Real storage or Virtual
storage.
Syntax: ADDRSPC={REAL|VIRT}
REAL – Allocation is done in REAL storage and the program is not
page-able. VIRT – Allocation is done in VIRTUAL storage and the program is
page-able.
REGION
Syntax: REGION={xK | yM} (x can be 1-2096128 & y can be 1-
2047).
3. It is used to specify the amount of central /virtual storage the job
requires.
It can be requested in the units of kilobytes (xK) or megabytes (yM). If
requested
in terms of kilobytes, then x should be multiple of 4 or the system will round it to
nearest 4K allocates for your job.
2. REGION can be coded in EXEC statement also. REGION parameter coded on JOB
card overrides the parameter coded on EXEC card.
3. Maximum virtual memory available is 2GB.
4. Region=0M allocate all the available memory in the address space to this job.
5. Region related ABENDS: When the requested region is not available, the JOB will
ABEND with S822. When the requested region is not enough for the program to
run, you will get ABEND S80A or S804.
RESTART
RESTART parameter allows restarting from any particular step in the job.
Syntax: RESTART = Step-name in the job
RESTART = * means restart from the beginning.
To restart from any procedure steps, code RESTART=PROCSTEP.STEPNAME
Whereas PROCSTEP=name of the JCL step that invoked the PROC &
STEPNAME=name of the proc step where you want execution to start.
RESTART ignores any condition in the step being restarted and it can also be step
that is in the ELSE part of the IF..ELSE..ENDIF.
TYPRUN
It is used to request special job processing.
6. TYPRUN=SCAN checks the syntax errors without actual execution.
7. TYPRUN=HOLD checks the syntax error and if there is any error, it is notified and
if there are no errors, the job is kept in awaiting execution queue and it should
be released by user for execution. Release can be done by typing ‘A’ against the
job name in SDSF.
3. TYPRUN=JCLHOLD Function is same as HOLD but the syntax check starts only
after the release of the job.
Mainframe Refresher Part-1 JCL-Page:5
TIME
It defines the maximum allowable CPU time for the JOB. The parameter can be
coded at EXEC card also. On EXEC, it defines CPU limit of step.
Syntax: TIME = (MINUTES, SECONDS), MINUTES <= 1440 and SECONDS < 60
TIME=NOLIMIT/1440/MAXIMUM means the job can use CPU for unlimited time
TIME=0 will produce unpredictable results.
If TIME is coded on both JOB as well as EXEC, then EXEC Time limit or the
time left out in the job Time limit – whichever is smaller will be the time permitted
for the step to complete.
If a JOB runs more than allowed time, then it will ABEND with system ABEND
code S322. If there is no TIME parameter, then the CPU time limit pre-defined with
CLASS Parameter will be effective.
NOTIFY
TSO User-id to whom the job END / ABEND / ERROR status should be
notified. NOTIFY=&SYSUID will send the notification to the user who submitted the
job.
COND
1. It is used for conditional execution of JOB based on return code of JOB steps.
2. The return code of every step is checked against the condition coded on JOB
card. If the condition is found TRUE, then all the steps following it are bypassed.
3. Maximum eight conditions can be coded in the COND parameter. In case of
multiple conditions, if ANY of the condition is found TRUE then the JOB stops
proceeding further.
Syntax: COND=(CODE,OPERATOR,STEPNAME)
STEPNAME is optional. If you code it, then that particular step-name
return
code is checked against the CODE with the OPERATOR. If omitted, then the
return codes of all the steps are checked. On comparison, if the condition found to
be true, then all the following steps are bypassed.
CODE can be 0-4095
OPERATOR can be GT, LT, GE, LE, EQ
It can be coded on EXEC statement. STEP level control is popular then JOB
level control. On EXEC statement, you may find ONLY, EVEN keywords against COND
parameter.
COND=ONLY allows the step execution only if any prior step is
ABENDED. COND=EVEN allows the step execution independent of any
prior ABENDS.
EXEC Statement
It defines the Step and Step level information to the
system. Syntax: //STEPNAME EXEC {PGM=program-name |
PROC=proc-
name
| proc-name}
Mainframe Refresher Part-1 JCL-Page:6
STEPNAME
It is an OPTIONAL field but it is needed if you want to restart a job from this
step and for the same reason, it should be unique within the job.
PGM or PROC
Code the Program name or PROC name to be executed. (1-8
characters)
DPRTY
PRTY assigns priority to a job and DPRTY assigns dispatching priority to job
step. Syntax: DPRTY=(value1, value2). Value1 and value2 can be 0-15. D-Priority is
calculated using the formula (value1*16 + value)
IF /THEN/ELSE/END-IF
It is used for conditionally executing one or more steps. Nesting is possible up
to 15 levels. The meaning is same as programming IF. If the coded condition is true,
the following steps till ELSE will be executed. If the condition is false, then
the steps coded on ELSE part will be executed.
Syntax:
//name IF (relational operation) THEN
//…Steps..
// ELSE
//…Steps..
// ENDIF.
PROC PEND INCLUDE ‘/*’ ‘// ‘ ‘//*’ are executed irrespective of their place.
Don’t specify JOBLIB, JCLLIB, JOBCAT, STEPCAT, JOB, SYSCHK within
the
THEN or ELSE Scope of IF statement.
Relational condition can be also coded as follows:
STEPNAME.ABEND=TRUE, STEPNAME.RUN=TRUE, STEPNAME NOT
RUN
STEPNAME.ABENDCC = any-abend-code or
DD Statement
It defines the data requirements of the program. It is coded for every file
used in the program. If the employee details are stored in a file and catalogued with
the name ‘SMSXL86.EMPLOYEE.DETAILS’, one of the programs (EMPPGM) in the
application reads this file, then JCL card for the DD looks like.
Mainframe Refresher Part-1 JCL-Page:7
DSNAME(DSN)
The name of the dataset is coded in the DSN parameter. Dataset name can
contain 44 characters including the periods in between qualifier. Each
qualifier can have 8 characters and there can be 22 qualifiers. But usually we don’t
code more than 4 qualifiers.
DSN=XXXX.YYYY.ZZZZ,DISP=SHR
Temporary datasets are indicated by && in the DSN (DSN=&&temp).
If DSN is not specified, then the system assigns the specific name to dataset.
If DSN=NULLFILE or DUMMY is coded, then all the I/O s against this file are
bypassed.
DISP
It is used to describe the status of a dataset to the system and
instructs the
system what to do with that dataset after successful/unsuccessful termination
of the step or job.
DISP=(current-status, normal-termination-status, abnormal-termination-
status)
NEW Current-status
Dataset does notcanexist.
be: It will be created in this step
SHR Dataset already exist and this step need it without any exclusive access
OLD Dataset already exist and this step need it with exclusive access
MOD If the dataset does not exist, it is to be created. If it already exists, records
are to be added to the end of the dataset. In both the cases, exclusive is
needed.
Normal-termination-status:
Abnormal-termination-status:
PASS is not allowed. Meaning of CATLG, UNCATLG, KEEP, DELETE are same as
normal-termination status.
Absence of any parameter should be mentioned with ‘,’ as they are positional
parameters. Ex: DISP=(,,CATLG). If the dataset is a new dataset and DISP is not
coded, then the default in effect would be DISP=(NEW,DELETE,DELETE).
RECFM
It specifies format of the dataset. It can be Fixed, Variable, Undefined,
Fixed
Blocked, variable Blocked. (F, V, U, FB, VB). Other special record formats are VBS,
FBS, VT, FT, FBA.
LRECL
It specifies logical record length. The length of the record is as in the
program
for fixed length records, length of the longest record with four more bytes for
variable length records.
BLKSIZE
It contains physical record length. That is the length of the record in the
storage medium. One block contains one or more logical records. It is suggested to
code BLKSIZE as 0 so that the best size is chosen by the system, based on device.
If you explicitly code it, then it should multiple of LRECL for FB
datasets and
should not be less than length of the longest records with eight more bytes
for VB dataset. In the extra eight bytes, four bytes are used for length of the
record and four bytes are used for length of the block.
DSORG.
PS (Physical sequential) PO (Partitioned organization)
.
Mainframe Refresher Part-1 JCL-Page:9
SPACE
It is used to request space for the new dataset. It is mandatory for all the
NEW datasets.
Primary-qty - Specifies the amount of primary space required in terms of the space
unit (tracks/cylinders/number of data blocks). One volume must have enough space
for the primary quantity. If a particular volume is requested and it does not have
enough space available for the request, the job step is terminated.
Second-qty - Specifies the number of additional tracks, cylinders, blocks to be
allocated, if additional space is required.
Directory - Specifies the number of 256-byte records needed in the directory of a
PDS. (In every block we can store 5-6 members)
RLSE - requests that space allocated to an output dataset, but not used, is to be
released when the dataset is closed. Release occurs only if dataset is open for output
and the last operation was a write.
CONTIG - requests that space allocated to the dataset must be contiguous. It affects
only primary space allocation.
MIXIG – It is used to specify that space requested should be allocated to the largest
contiguous area of space available on the volume. It affects only primary allocation.
ROUND - When the first parameter specifies the average block length, this
parameter requests that allocated space must be equal to an integral number of
cylinders. Else ignored.
Mainframe Refresher Part-1 JCL-Page:12
UNIT
It is used to request the system to place the dataset on a specific device/a
certain type or group of devices or the same device as another dataset.
UNIT=((device-number | device-type | group-name)
(,unit-count | P)
(,DEFER))
OR
UNIT=AFF=ddname
device-type - Requests a device by its IBM supplied generic name. (Eg. 3380)
DEFER - Asks the system to assign the dataset to the device but requests that
the volume(s) not be mounted until the dataset is opened. DEFER is ignored for a
new dataset on direct access.
VOLUME
A reel of TAPE or a disk pack is called as one volume. VOLUME parameter is
used to identify the volume(s) on which a dataset resides or will reside.
VOLUME = ((PRIVATE)
(,RETAIN)
(,volume-sequence-
number) (,volume-count))
(SER=serial-number1,
serial
number2......)
PRIVATE - Requests a private volume, that is exclusive use of volume for the
dataset specified. Only one job can access it at a time. TAPES are PRIVATE by
default.
SYSOUT=class | *
It is used to identify this dataset as a system output dataset. The SYSOUT
dataset is assigned to an output class. The attributes for each class are defined
during JES initialization, including device or devices for the output class. ’*’
refer- backs to MSGCLASS character of JOB CARD.
In-stream data
The data passed in the JCL stream along with JCL statements is called in-
stream data.
&&&& Meaning
* The data follows from the next line and ends when any // or /* appears
at column 1& 2. So ‘//’ and ‘/*’ cannot be passed to the program.
//EMPFILE DD *
2052MUTHU
1099DEV
/*
DATA The data follows from the next line and ends when any /* appears at
column 1 & 2. So ‘/*’ cannot be passed to the program.
//SYSUT1 DD DATA
//STEP1 EXEC PGM=INV1040
//INVLSTA DD SYSOUT=A
//INVLSTB DD SYSOUT=A
/*
DATA, The data follows from the next line and ends when the characters coded
DLM=@@ in DLM appears at column 1 & 2.
//SYSIN DD DATA,DLM=##
//EMPFILE DD
* 2052MUTHU
1099DEV
/*
##
Mainframe Refresher Part-1 JCL-Page:15
// INCLUDE MEMBER1
MEMBER1 should exist in the procedure library. Procedure libraries are coded using
JCLLIB statement. Include must not be used to execute a PROC. It is possible to nest
up to 15 levels of INCLUDE statements.
Concatenation Rules
Concatenation allows naming of more than one dataset in a single input file
without physically combining them:
//STEPLIB DD DSN=PROD.LIBRARY,DISP=SHR
// DD DSN=TEST.LIBRARY,DISP=SHR
// DD DSN=USR.LIBRARY,DISP=SHR
REFERBACK
The backward reference or refer back permits you to obtain information from
a previous JCL statement in the job stream. STAR (*) is the refer-back operator.
It improves consistency and makes the coding
easier. DCB, DSN, VOL=SER, OUTPUT, PGM can be
referred-back.
Special DD names
STEPLIB
It follows EXEC statement. Load modules will be checked first in this library
and then in the system libraries. If it is not found in both places, then the JOB would
ABEND with S806 code.
JOBLIB
It follows the job statement. Load modules of any steps (EXEC) that
don’t
have respective STEPLIB will be looked into this PDS. If not found, it will be
checked against system libraries. If it is not found there also, then the JOB would
ABEND with S806.
JCLLIB
It follows JOB statement. Catalogued procedures in the JOB are searched in
this PDS. If they are not found, they will be checked in system procedure libraries.
If they are not there, then there will be JCLERROR with ‘Proc not found’
message.
Syntax: //PROCLIB JCLLIB ORDER(PDS1,PDS2)
INCLUDE members are also kept in procedure libraries. (JCLLIB)
ABEND DATASETS
In case of ABEND, one of the following three datasets will be useful. If more
than one of the three datasets is coded, then the last coded DD will be effective.
SYSUDUMP
Prints the program area, contents of registers, and gives a trace back of
subroutines called. It will be in hexadecimal format.
SYSABEND
Same as SYSUDUMP, but also prints the system nucleus. Don't use unless you
need the nucleus. It will be in hexadecimal format.
SYSMDUMP
Same information as SYSABEND, but dump will be in machine language.
Used to store dumps in a data set to be processed by an application program.
SYSIN
In-stream data can be coded in SYSIN DD *. Using ACCEPT statement,
these
records are read into the program. Every accept will read one line into
working storage (80 column).
Mainframe Refresher Part-1 JCL-Page:18
Procedures
Set of Job control statements that are frequently used are defined separately
as a procedure and it can be invoked as many times as we need from the job.
The use of procedures helps in minimizing duplication of code and
probability of error.
Procedure Modification
Procedure should be generic so that it can easily be used by the multiple
JOBS by simple overrides. During the invoking of procedures in the JOB, one can do
the following.
1. Override: Change the dataset names or parameters that are already coded in
the procedure
2. Addition: Add new datasets or parameters in the already existing steps of the
procedure.
3. Nullify: Omit the datasets or parameters that are already coded in procedure.
When you override a cataloged procedure, the override applies just to that execution
of the job. The cataloged procedure itself isn't changed.
1.DD statement overrides should be done in the same order they appear in
procedure. Within a DD statement, the order of parameters does not matter.
2.Any additions should follow modifications. In a step, if you want to override the
dataset attribute of one existing dataset and add another dataset, you should
override the old one before adding the new one.
Ex: If you want to override UNIT Parameter value of all the DD statements, define
this as symbolic parameter in proc.
//STEP1 EXEC PROC1,UNIT=TEMPDA will set &UNIT as TEMPDA for this run of
procedure.
IEBCOPY
It is used to copy one or more members from an existing dataset to a new or
existing PDS data set. It can be also used for compressing PDS, Loading PDS to TAPE
and unloading from TAPE to disk. This utility needs two work files SYSUT3 and
SYSUT4 in addition to SYSIN and SYSPRINT.
FIELD Meaning
COPY Function is COPY
SELECT Specifies the members to be copied/replaced
Syntax: (NAME-IN-OUTPUT,NAME-IN-OUTPUT,REPLACE-IF-EXISTS)
EXCLUDE Specifies the members to be excluded from copy
LIST=YES Displays the copied members in the SYSPRINT.
INDD Points to input dataset
OUTDD Points to output dataset. Should exist on the same line of COPY.
IEBGENER
In addition to SYSIN and SYSPRINT datasets, it needs SYSUT1 and SYSUT2
datasets. SYSUT1 is coded with input dataset and SYSUT2 is coded with output
dataset. If attributes were not given for SYSUT2, then the program would assume
SYSUT1 attributes for SYSUT2.
It is primarily used as COPY utility. If you want to copy any TAPE file to DISK
or DISK to TAPE, then no SYSIN is needed.
If you want to reformat your input file or if you want to create members out
of your PS file, then you need control card (SYSIN) and the first statement should be
GENERATE.
FIELD Meaning
GENERATE First Statement which sets the values for MAXNAME,MAXGPS,
MAXLITS, MAXFLDS
MAXNAME Maximum MEMBER statements that can follow.(During member
generation)
Syntax: MAXNAME=3
MAXGPS Maximum IDENT statement that can follow. (During member
generation)
MAXFLD Maximum FILED statements that can follow. (During reformatting)
Syntax: MAXFLDS=10
MAXLITS Maximum size of literal during reformatting.
MEMBER It identifies the name of the member to be created.
Syntax: MEMBER NAME=MEM1
RECORD It usually follows MEMBER statement to identify the last record to be
IDENT copied from the input dataset.
RECORD IDENT= (Length,’Literal’,Start-Column)
IEBGENER- SYSIN CARD FOR CREATING THREE MEMBERS FROM INPUT PS FILE
//SYSIN DD *
GENERATE MAXNAME=3,MAXGPS=2
MEMBER NAME= MEMB1
RECORD IDENT=(8,'11111111'.1)
MEMBER NAME=MEMB2
RECORD IDENT=(8,'22222222',1)
MEMBER NAME=MEMB3
//
IEBGENER creates three members. It reads input file writes into memb1 until it finds
11111111 in column 1. In the same way it reads and writes the records into memb2
until it finds 22222222 in column 1. The remaining records in the input dataset are
copied into MEMB3.
Mainframe Refresher Part-1 JCL-Page:23
IEHLIST
It is used to list
1. The entries in the catalog. (SYSIN KEYWORD- LISTCTLG)
2. Directory(s) of 1-10 PDS (SYSIN KEYWORD- LISTPDS)
3. The entries in VTOC. (SYSIN KEYWORD-LISTVTOC)
Code SYSIN, SYSPRINT and one more DD that will mount the volume queried in
SYSIN.
IEHMOVE
It is used to move one dataset from one volume to another volume.
IEBCOMPR
It is used to compare two PS or PDS datasets. Two PS are same, if the
number of records is same and all the records are identical. SYSIN is not needed for
PS comparison. If they are not identical, then the following will be listed in the
SYSPRINT.
DD statements that define the dataset, Record and Block numbers, the
unequal records and maximum of 10 unequal records found.
Two PDS are same, if the corresponding members contain same number of
records and all the records are identical. SYSIN should have COMPARE TYPE=PO for
PDS.
//SYSUT1 INPUT DATASET 1
//SYSUT2 INPUT DATASET 2
//SYSPRINT
//SYSIN DD *
DFSORT
If you do a global search of your JCL inventory, you will find the program that
is used very frequently is SORT. There are two famous SORT products are available
in the market. One is DFSORT and the other is SYNCSORT. The basic commands in
both the products are same.
ICETOOL provides a lot more than what SORT can offer and it comes with
DFSORT product. SYNCTOOL comes with SYNCSORT product. PGM=SORT can point
to DFSORT or SYNCSORT. It is actually an alias to SORT product in your installation.
DFSORT is IBM product and it needs the following datasets for its
operation.
SORTIN (Input dataset), SORTOUT (Output dataset), SYSIN (Control
Card) and SYSOUT (Message dataset).
Mainframe Refresher Part-1 JCL-Page:28
IEHPROGM
It is used to
1.Catalog a dataset (CATLG DSNAME=A.B.C, VOL=SER=nnnn)
2.Uncatalog a dataset (UNCATLG DSNAME=A.B.C)
3. Rename a dataset (RENAME
DSNAME=A.B.C,VOL=SER=nnnn,NEWNAME=D.E.F)
4.Create an index for GDG (BLDG INDEX=gdg-name, LIMIT=n, [,EMPTY][,DELETE])
5.Deleting the index for GDG (DLTX INDEX=index-name)
The SYSIN cards are given in bracket. The utility needs two work datasets and
SYSPRINT for messages. Continuation of control card needs to be indicated by ‘X’ in
72nd column.
If your shop installed SMS, then uncatalog wont work it out because SMS
handles the catalog.
Mainframe Refresher Part-1 JCL-Page:29
IEHINITT
It is used to initialize a tape. It will write the volume serial number to the tape.
Advantage of GDG
1. GDG datasets are referred in the JCL using GDG base and relative number. So
the same JCL can be used again and again without changing the dataset name and
this is the biggest advantage of GDG.
2. GDG Base has pointers to all its generations. When you want to read all the
transactions done till today, you can easily do it by reading the GDG base if it is
available. Otherwise you have to concatenate all the transaction files before reading.
Creation of GDG
SCRATCH/ SCRATCH un-catalogue and deletes the versions that are not
NOSCRATCH kept.
NOSCRATCH just does un-cataloguing and it is not physically
deleted from the volume.
OWNER Owner of the GDG.
FOR DAYS (n) / Expiry date. Can be coded either in the unit of days or till
TO (DATE) particular date.
2. Model dataset is defined after or along with the creation of base. Once model DCB
is defined, then during the allocation of new versions, we no need to code DCB
parameter. Model DCB parameter can be overridden by coding new parameter while
creating the GDG version. It is worth to note that two GDG version can exist in two
different formats.
ABENDS
SD37,
SE37
S80A, Region Problem. Refer REGION parameter for solution.
S804,
S822
S122, Job is cancelled. S122 – Operator cancelled your job as it requests some
S222 unavailable resource. S222-You cancelled your job.
S322 TIME OUT. Refer TIME parameter for solution.
S522 JOB exceeded maximum wait time.
S722 Output lines exceeded the limit set by OUTLIM OR LINES parameter.
S706 Load module found but it is not executable
S806 Load module not found.
S0C1 Operation exception. Misspelled DD names
S0C4 Protection exception – Trying to access a memory location for which you
don’t have access.
Ex: Accessing 11th element of an array of size 10 in the program compiled
with SSRANGE, Trying to read/write an unopened file.
S0C5 Addressing exception – Trying to access a memory location that is not
available in memory.
Mainframe Refresher Part-1 JCL-Page:31
What is PSW?
PSW is program status word. It is double word control register that is
managed by both MVS and the hardware. Second word contains the next sequential
instruction to be executed.
If the space parameter is SPACE=(TRKS,(20,20,10)) ,What you can say about this
dataset?
This dataset needs 20 tracks for primary allocation and 20 * 15 = 300 tracks
secondary allocation (step-by-step). So it can get 320 tracks in the best case. In the
worst case, it can get as low as 80 tracks. (Refer the extents section of the JCL). The
dataset is a PDS and 10 directory blocks are allocated for this PDS. We can
store 50- 60 members in this dataset. (10 *(5-6) = 50-60).
member names. Any PDSE can contain as many as 524286 members, assuming
there is enough space to store them- PDSE is faster compared with PDS.
When PDS compressing gives me more space, why the same is not happening with
PS?
In PS, data is overwritten every time. In PDS, every change creates a new
version on SAVE command. The compression of PDS releases the space occupied by
all prior versions and so you are getting more space. That is the reason why
frequent save commands are avoided in PDS.
Does it mean that I can retrieve the previous version of a member in PDS?
If you didn’t compress your PDS, you can retrieve all the prior versions before
the previous compression. But ISPF didn’t provide option for this. You have to go for
some third part product like STARTOOL (Serena).
I want to schedule my job tonight at 12:00 PM for some specific requirement (in test
region). I don’t want to stay late, just to submit a long running job. Can I schedule
this job so that it can automatically submitted at 12:00 PM?
If you are using JES3, then you can try with DEADLINE command. But most of
the installations have JES2. In JES2, distributed environment, such commands are
not provided. But you can do it if you know the SLEEP function of OS. You
can submit a job before you leave for the day, which invokes a REXX program in
batch.
The REXX program can use sleep function and it can check the time for every
1 hour till 11 reaches and then for every 10 minutes till 11:50 reaches and
afterwards for every 1 minute. And as soon as 12:00 PM is reached, using
TSO SUBMIT command, it can submit the job. REXX can stay late instead of you!!
(Check our REXX section for SLEEP command syntax).