|
| |
OS Utilities
Here is a chart of action words and parameters and a list
of all the rules for eight frequently used OS Utilities: (click
Utility or Action Word to see example)
The
source for this information was an Appendix to An Introduction to Utilities
by Ron Lane. This book, published in 1975, is long out-of-print.
However, if you are interested in reading the entire book, you may be able to
find a copy in a library. At the time I write this, there is a single
copy listed with Advanced
Book Exchange.
|
Utility |
Action Words |
Parameters |
| IEHLIST |
LISTVTOC |
FORMAT, VOL= |
| LISTPDS |
DSNAME=, VOL= |
| LISTCTLG |
CVOL= |
| IEHDASDR |
ANALYZE |
TODD=, VTOC=,
EXTENT=, NEWVOLID=, PURGE=YES, PASSES= |
| DUMP |
FROMDD=, TODD=,
BEGIN=, END= |
| RESTORE |
FROMDD=, TODD=,
PURGE=YES |
| LABEL |
TODD=, NEWVOLID= |
| IEBGENER |
|
|
| IEBCOPY |
COPY |
INDD=, OUTDD= |
| SELECT |
MEMBER= |
| EXCLUDE |
MEMBER= |
| IEHMOVE |
COPY |
PDS=, FROM=,
FROMDD=, TO=, TODD= |
| IEHPROGM |
CATLG |
DSNAME=, VOL= |
| UNCATLG |
DSNAME= |
| SCRATCH |
DSNAME=, VOL=,
PURGE, VTOC, MEMBER= |
| RENAME |
DSNAME=, VOL=,
MEMBER=, NEWNAME= |
| IEBPTPCH |
PRINT |
TYPORG=PO,
MAXNAME=, MAXFLDS= |
| MEMBER |
NAME= |
| RECORD |
FIELD= |
| PUNCH |
TYPORG=PO,
MAXNAME=, MAXFLDS=, CDSEQ=, CDINCR= |
| IEBUPDTE |
CHANGE |
NAME=, UPDATE=INPLACE |
| ADD |
NAME=, LIST=ALL |
| NUMBER |
NEW1=, INCR= |
| DELETE |
SEQ1=, SEQ2= |
| ENDUP |
|
The 41 Rules with Examples
IEHLIST
- IEHLIST needs one DD card for the disk pack you want
information from, specifying the whole pack, with any DD name.
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
- Printing a VTOC using IEHLIST
requires one control card, and LISTVTOC is the action word. The
parameters are: FORMAT, which stands alone; and VOL, which gives the unit
type and number of the pack whose VTOC is being listed.
//LISTVTOC JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHL!ST
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
LISTVTOC FORMAT,V0L=3330=D10040
/*
//
- Listing the directory of a
partitioned file using IEHLIST requires one control card, and LISTPDS is the
action word. The parameters are: DSNAME, to name the file; and VOL, to
give the unit type and pack number the file is on.
//LISTLIB JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHLIST
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D1004O,DISP=OLD
//SYSIN DD *
LISTPDS DSNAME=LOADLIB,VOL=3330=D10040
/*
//
- Listing the catalog using
IEHLIST requires one control card, and LISTCTLG is the action word. There
are no other parameters.
//LISTCAT JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHLIST
//SYSPRINT DD SYSOUT=A
//DRUM DD UNIT=2305,VOL=SER=DD2305,DISP=OLD
//SYSIN DD *
LISTCTLG
/*
//
- Listing a secondary catalog using IEHLIST requires one
control card, and LISTCTLG is the action word. The one parameter is
CVOL, where you give the unit type and serial number of the disk pack or
drum that the secondary catalog is on.
//SECCATLG JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHLIST
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=DIOO4O,DISP=OLD
//SYSIN DD *
LISTCTLG CVOL=3330=D10040
/*
//
IEHDASDR
- Initializing a new disk pack
using IEHDASDR requires no DD card, and the disk must be offline.
ANALYZE is the action word. The parameters are: TODD, to specify the
offline disk drive; VTOC, which tells where the VTOC is to begin; EXTENT,
which gives the length of the VTOC; and NEWVOLID, which assigns a volume
serial number.
//INITLIZE JOB (accnt),NAME,MSGLEVEL(1,1)
//STEP1 EXEC PGM=IEHDASDR
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
ANALYZE TODD=230,VTOC=1,EXTENT=5,NEWVOLID=D10040
/*
//
- Reinitializing a disk pack using IEHDASDR, the disk is
left online, and one DD card with any DD name is needed for the whole pack.
ANALYZE is the action word. The parameters VTOC, EXTENT, and NEWVOLID
are the same as for the offline initialization, TODD names the DD card, and
PURGE=YES allows it to erase information on the pack.
//ANALYZE JOB (accnt),NAME,MSGLEVEL(1,1)
//STEP1 EXEC PGM=IEHDASDR
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
ANALYZE TODD=DISK,VTOC=1,EXTENT=5,NEWVOLID=D10040 C
PURGE=YES
/*
//
- Giving an old pack a new volume serial number by
using IEHDASDR is called relabeling a disk pack. It has one DD card,
referring to the whole pack being relabeled. The action word on the control
card is LABEL, and the two parameters are TODD, naming the DD card, and
NEWVOLID, giving the new volume serial number.
//RELABEL JOB (accnt),NAME,MSGLEVEL(1,1)
//STEP1 EXEC PGM=IEHDASDR
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=DI 0040,DISP=OLD
//SYSIN DD *
LABEL TODD=DISK,NEWVOLID=D10041
/*
//
- Creating a backup tape using IEHDASDR requires two
DD cards, one for the disk you’re dumping from (specifying the whole
pack), and the other for the tape you’re dumping to (specifying a new
tape). On the control card, DUMP is the action word. The
parameters are: FROMDD, giving the name of the disk DD card; and TODD,
giving the name of the tape DD card.
//DUMP JOB (accnt),NAME,MSGLEVEL(1,1)
//STEP1 EXEC PGM=IEHDASDR
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//TAPE DD DSN=TAPE,UNIT=3400-3,DISP=(NEW,KEEP)
//SYSIN DD *
DUMP FROMDD=DISK,TODD=TAPE
/*
//
- Printing specific tracks of a disk pack using IEHDASDR is part of the dump
function, and is the same as dumping the pack to tape except that the DD
card for the tape is left out. The TODD parameter refers to the
SYSPRINT file (dumping to the printer), and the two new parameters are BEGIN
and END, giving the cylinder and track numbers (eight hexadecimal numbers in
all) with which to start and stop printing.
//PRINTRKS JOB (accnt),NAME,MSGLEVEL(1,1)
//STEP1 EXEC PGM=IEHDASDR
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
DUMP FROMDD=DISK,TODD=SYSPRINT,BEGIN=00050002, C
END=00060002
/*
//
- Restoring a disk from a backup tape using IEHDASDR
requires two DD cards: one is for the tape you are restoring from,
specifying an old tape (DSNAME, VOL, UNIT, DISP=OLD); the other is for the
disk you are restoring to, specifying the whole disk. On the control
card, RESTORE is the action word. The parameters are: FROMDD, naming
the DD card for the tape; TODD, naming the DD card for the disk; and
PURGE=YES, allowing it to erase any information still on the disk.
//RESTORE JOB (accnt),NAME,MSGLEVEL(1,1)
//STEP1 EXEC PGM=IEHDASDR
//SYSPRINT DD SYSOUT=A
//TAPE DD DSN=TAPE,VOL=SER=004000,UNIT=3400-3,
//
DISP=OLD
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
RESTORE FROMDD=TAPE,TODD=DISK,PURGE=YES
/*
//
IEBGENER
- IEBGENER requires a special parameter on its SYSUT2 (output) DD card --
DCB=BLKSIZE= -- where you specify how big you want to block the information
on the output file. The blocksize must be an even multiple of the size
of a record. For the card punch, it is always DCB=BLKSIZE=8O
(unblocked); for the printer, it is always equal to the size of one record
(also not blocked).
- IEBGENER copies information from an input file to an output file.
The name of the DD card for the input file must be SYSUT1, and can be cards
(//SYSIN DD *) or an old file on tape or disk (DSN, UNIT, VOL=SER, DISP).
The name of the DD card for the output file must be SYSUT2, which can be the
printer (SYSOUT=A), punched cards (SYSOUT=B), a new file on tape (DSN, UNIT,
DISP), or a new file on disk (DSN, UNIT, VOL=SER, DISP, SPACE). The
DCB=BLKSIZE parameter must also be on this card. No control card is
needed, and its absence is indicated by a //SYSIN DD DUMMY card.
Copying tape to tape:
//DUPTAPE JOB (accnt),NAME,MSGLEVEL=(1 ,1)
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT-A
//SYSUT1 DD DSN=TAPE,UNIT=3400-3,VOL=SER=004000,
//
DISP=OLD
//SYSUT2 DD DSN=TAPE,UNIT=3400-3,DISP=(NEW,KEEP),
//
DCB=BLKSIZE=80
//SYSIN DD DUMMY
Tape to print:
//PRNTTAPE JOB (accnt),NAME,MSGLEVEL=(1 ,1)
//STEP1 PGM=IEBGENER
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=TAPE,UNIT=3400-3,VOL=SER=004000,
//
DISP=OLD
//SYSUT2 DD SYSOUT=A,DCB=BLKSIZE=80
//SYSIN DD DUMMY
Card to tape:
//CARDTAPE JOB (accnt),NAME,MSGLEVEL=(1 ,1)
//STEP1 PGM=IEBGENER
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD *
[card file to be put on tape goes here]
/*
//SYSUT2 DD DSN=TAPE,UNIT=3400-3,DISP=(NEW,KEEP),
//
DCB=BLKSIZE=80
//SYSIN DD DUMMY
IEBCOPY
- IEBCOPY always uses two temporary work files on disk, and a DD card is
needed for each (UNIT and SPACE parameters needed only). The DD names
must be SYSUT3 and SYSUT4; each usually needs about five tracks of space.
//SYSUT3 DD UNIT=3330,SPACE=(TRK,5)
//SYSUT4 DD UNIT=3330,SPACE=(TRK,5)
- Copying a partitioned file from one disk to another
using IEBCOPY requires four DD cards, two for work files SYSUT3 and SYSUT4
plus one for the old file you are copying from (DSNAME, UNIT, VOL=SER, DISP)
and one for the new file you are copying to (DSNAME, UNIT, VOL=SER,
DISP, SPACE), both with any DD names. There is one control card, and
COPY is the action word. The two parameters are: INDD, giving the name
of the DD card describing the old file; and OUTDD, giving the name of the DD
card describing the new file.
//COPY JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=A
//FROM DD DSN=FROMLIB,UNIT=3330,VOL=SER=D10040,
//
DISP=OLD
//TO DD DSN=TOLIB,UNIT=3330,VOL=SER=D10080,
//
DISP=(NEW,KEEP),SPACE=(TRK,(400,,50))
//SYSUT3 DD UNIT=3330,SPACE=(TRK,5)
//SYSUT4 DD UNIT=3330,SPACE=(TRK,5)
//SYSIN DD *
COPY INDD=FROM,OUTDD=TO
/*
//
- Copying individual members from one partitioned
file to another using IEBCOPY requires four DD cards: two for the SYSUT3 and
SYSUT4 work files, plus one for the old file from which you are copying (DSN,
UNIT, VOL=SER, DISP) and one for the old file to which you are copying (DSN,
UNIT, VOL=SER, DISP), both with any DD names. There are two control
cards. COPY is the action word of the first, with the parameters INDD
and OUTDD: the action word for the second is either SELECT or EXCLUDE, with
the parameter MEMBER giving the names of the members you eigher want
included or excluded from the copy operation.
//COPYMEM JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=A
//FROM DD DSN=FROMLIB,UNIT=3330,VOL=SER=D10040,
//
DISP=OLD
//TO DD DSN=TOLIB,UNIT=3330,VOL=SER=D10080,DISP=OLD
//SYSUT3 DD UNIT=3330,SPACE=(TRK,5)
//SYSUT4 DD UNIT=3330,SPACE=(TRK,5)
//SYSIN DD *
COPY INDD=FROM,OUTDD=TO
SELECT MEMBER=(PROGA,PROGB)
/*
//
- Compressing a partitioned file using IEBCOPY requires one DD card --
besides those for the SYSUT3 and SYSUT4 work files -- for the file being
compressed, which is an old file on disk (DSN, UNIT, VOL, DISP). The
card can have any DD name, and there is one control card, COPY is the action
word. The two parameters INDD and OUTDD both specify the same
name of the DD card for the file being compressed.
//COMPRESS JOB (accnt),NAME,MSGLEVEL=(1,1)
// STEP1 EXEC PGM=IEBCOPY,REGION=100K
//SYSPRINT DD SYSOUT=A
//LIB DD DSNAME=LIBFILE,UNIT=3330,VOL=SER=D10040
//
DISP=OLD
//SYSUT3 DD UNIT=3330,SPACE=(TRK,5)
//SYSUT4 DD UNIT=3330,SPACE=(TRK,5)
//SYSIN DD *
COPY INDD=LIB,OUTDD=LIB
/*
//
- When compressing a partitioned file using IEBCOPY, add the parameter
REGION=100K to the EXEC card.
IEHMOVE
- IEHMOVE needs a special DD card for disk work space that looks like this:
//SYSUT1 DD UNIT=3330,SPACE=(TPK,30). More disk space is needed in the
rare instances when the partitioned file you are working with has over 800
members.
- When using IEHMOVE to move a partitioned file from disk onto tape
(unloading) or from the tape back onto the disk (restoring), two DD cards
are needed, one for disk and one for tape. They can have any DD names.
The one for the disk specifies a whole pack (UNIT, VOL, DISP). The DD
card for the tape specifies a new file on tape (DSN, UNIT, DISP=(NEW,KEEP))
when unloading the file to tape, and specifies an old file on tape (DSN,
UNIT, VOL, DISP=OLD) when restoring.
Unloading:
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//TAPE DD DSN=TAPE,UNIT=3400-3,DISP=(NEW,KEEP)
Restoring:
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//TAPE DD DSN=TAPE,UNIT=3400-3,VOL=SER=000040,DISP=OLD
- lEHMOVE needs one control card, and COPY is the
action word; PDS gives the name of the partitioned file. FROM and TO
specify the unit type and volume serial numbers of the devices we are moving
the file from and to (when unloading, say TO=3400-3=SCRTCH).
Unloading:
//UNLDPDS JOB (accnt),NAME,MSGLEVEL=(1 ,1)
//STEP1 EXEC PGM=IEHMOVE
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD UNIT=3330,SPACE=(TRK,30)
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//TAPE DD DSN=TAPE,UNIT=3400-3,DISP=(NEW,KEEP)
//SYSIN DD *
COPY PDS=PARTFILE,FROM=3330=D10040,
C
TO=3400-3=SCRTCH,TODD=TAPE
/*
//
Restoring:
//RSTRPDS JOB (accnt),NAME,MSGLEVEL=(1 ,1)
//STEP1 EXEC PGM=IEHMOVE
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD UNIT=3330,SPACE=(TRK,30)
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//TAPE DD DSN=TAPE,UNIT=3400-3,VOL=SER=000040,
//
DISP=OLD
//SYSIN DD *
COPY PDS=PARTFILE,FROM=3400-3=000040,
C
TO=3330=D10040,FROMDD=TAPE
/*
//
IEHPROGM
- IEHPROGM needs one DD card for the disk or drum you are working with,
specifying the whole pack (UNIT, VOL, DISP).
//DRUM DD UNIT=2305,VOL=SER=DD2305,DISP=OLD
- Cataloging a file using IEHPROGM requires one
control card, and CATLG is the action word. The two parameters are
DSNAME, giving the name of the file, and VOL, giving the unit type and
volume serial number of the disk or tape the file is on.
//CATLG JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
CATLG DSNAME=FILE=VOL=3330=D10040
/*
//
- Uncataloging a file using IEHPROGM requires one
control card, and UNCATLG is the action word. The one parameter is
DSNAME, giving the name of the file to be uncataloged.
//UNCATLG JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
UNCATLG DSNAME=FILE
/*
//
- Renaming a file using IEHPROGM requires one
control card, and RENAME is the action word. The parameters are:
DSNAME, giving the file’s current name; VOL, giving the unit type and
volume serial number of the pack the file is on; and NEWNAME, specifying the
new name you want to give to the file.
//RENAME JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
RENAME DSNAME=LIB,VOL=3330,D10040,NEWNAME=LIBA
/*
//
- Renaming a member of a partitioned file using IEHPROGM requires one
control card, and RENAME is the action word. The parameters are:
DSNAME, giving the name of the whole partitioned file; VOL, with the unit
type and volume serial number of the pack that the file is on; MEMBER,
giving the name of the member to be renamed; and NEWNAME specifies what you
want the member’s new name to be.
//RENAMEM JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
RENAME DSNAME=LIB,VOL=3330,D10040,MEMBER=MEM, C
NEWNAME=MEMA
/*
//
- Scratching a file using IEHPROGM requires one
control card, and SCRATCH is the action word. The parameters are:
DSNAME, naming the file you want scratched; and VOL, giving the unit type
and number of the pack it’s on; the parameter PURGE can be added if the
file is to be scratched before its expiration date.
//SCRFILE JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
SCRATCH DSNAME=SOMEFILE,VOL=3330=D10040
/*
//
- Scratching a member of a partitioned file using IEHPROGM requires one
control card, and SCRATCH is the action word. The parameters are:
DSNAME, giving the name of the partitioned file; VOL, telling which unit
type and pack the file is on; and MEMBER, naming the member to be scratched.
//SCRMEM JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
SCRATCH DSNAME=SOMEFILE,VOL=3330=D10040,
C
MEMBER=SOMEMEM
/*
//
- Scratching all the files on a disk pack using IEHPROGM requires one
control card, and SCRATCH is the action word. The parameters are: VTOC,
with no equal sign; and VOL, giving the unit type and number of the pack to
be cleaned out; the parameter PURGE can be added to scratch files that
haven’t yet expired.
//SCRVTOC JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=A
//DISK DD UNIT=3330,VOL=SER=D10040,DISP=OLD
//SYSIN DD *
SCRATCH VTOC,VOL=3330=D10040,PURGE
/*
//
IEBPTPCH
- IEBPTPCH needs two DD cards. The first, which must have the name
SYSUT1, describes the file you are printing from (often a cataloged,
partitioned file on disk, needing DSN and DISP). The second DD card,
which must have the name SYSUT2, describes the printer (SYSOUT=A).
//SYSUT1 DD DSNAME=SYS1.PROCLIB,DISP=SHR
//SYSUT2 DD SYSOUT=A
- Printing out individual members of a partitioned
card image file using IEBPTPCH requires three types of control cards.
On the first card, PRINT is the action word. Its three parameters are:
TYPORG=PO, specifying the partitioned organization of the file; MAXNAME,
giving the number of MEMBER cards that follow; and MAXFLDS, giving the
number of RECORD cards that follow. After that comes a pair of cards
for every member to be printed. MEMBER is the action word of the first
card of each pair; its parameter, NAME, names the member to be printed;
RECORD is the action word on the second card of each pair, and its
parameter, FIELD, gives the length of the record (usually FIELD=(80)).
//PRINTMEM JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSNAME=SYS1.PROCLIB,DISP=SHR
//SYSUT2 DD SYSOUT=A
//SYSIN DD *
PRINT TYPORG=PO,MAXNAME=2,MAXFIELDS=2
MEMBER NAME=WTR
RECORD FIELD=(8O)
/*
//
- Printing all the members of a partitioned card image file using IEBPTPCH
requires two control cards. On the first card, PRINT is the action
word. Its parameters are: TYPORG=PO, specifying partitioned
organization; and MAXFLDS=1, saying that one RECORD card follows.
RECORD is the action word of the second card, and its parameter is
FIELD=(80), specifying the length of each record.
//PRINTLIB JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSNAME=SYS1.PROCLIB,DISP=SHR
//SYSUT2 DD SYSOUT=A
//SYSIN DD *
PRINT TYPORG=PO,MAXFIELDS=1
RECORD FIELD=(8O)
/*
//
- Punching out members of a partitioned card image
file using IEBPTPCH involves the same DD cards and control cards used for
printing the members, except that the SYSUT2 (output) DD card must refer to
the card punch (SYSOUT=B), and the action word on the first control
card is PUNCH.
- To duplicate a card deck and put new sequence numbers in columns 73- 80 of
the new card deck using IEBPTPCH requires two DD cards. SYSUT1 is the
name of the first, which refers to the old card deck (SYSUT1 DD *) and is
followed by the deck itself; the name of the second DD card is SYSUT2, which
refers to the card punch (SYSOUT=B). There are two control cards.
PUNCH is the action word of the first, and its three parameters are:
MAXFLDS=l1; CDSEQ, to assign a beginning sequence number; and CDINCR,
to assign an increment for following sequence numbers. The second
control card is RECORD FIELD=(72), meaning you just want to duplicate the
first 72 columns of the old card deck.
//SEQCARDS JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD *
[card deck to be resequenced goes here]
/*
//SYSUT2 DD SYSOUT=B
//SYSIN DD *
PUNCH MAXFIELDS=1,CDSEQ=0,CDINCR=100
RECORD FIELD=(72)
/*
//
IEBUPDTE
- Modifying a partitioned card image file using IEBUPDTE requires two DD
cards, the first with the name SYSUT1, and the second with the name SYSUT2,
they both refer to the same file, the one being updated, which is an old
file on disk.
//SYSUT1 DD DSNAME=SYS1.PROCLIB,DISP=OLD
//SYSUT2 DD DSNAME=SYS1.PROCLIB,DISP=OLD
- Adding a new member to a partitioned card image
file using IEBUPDTE requires three control cards, each with a ./ in columns
1 and 2. ADD is the action word on the first. Its two parameters are:
NAME, giving a name to the new member; and LIST=ALL saying you want the
member printed out. NUMBER is the action word on the second control
card. Its parameters are: NEW1, specifying the number the first card
image is to have in columns 73-80; and INCR, saying how much larger than the
one before it you want the number in each card image to be. ENDUP is
the action word of the last card; it has no parameters. Between the
NUMBER and ENDUP cards are put the actual cards that are to become the new
member.
//ADDMEM JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEBUPDTE
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=SYS1.PROCLIB,DISP=OLD
//SYSUT2 DD DSN=SYS1.PROCLIB,DISP=OLD
//SYSIN DD DATA
./ ADD NAME=SAMPLE,LIST=ALL
./ NUMBER NEW1=10,INCR=10
//STEP1 EXEC PGM=EXAMPLE
//SYSPRINT DD SYSOUT=A
./ ENDUP
/*
//
- When using IEBUPDTE, the SYSIN DD card shoud look like this:
//SYSIN DD DATA
-- telling the system not to treat any JCL cards that follow as JCL cards
until after the next /* card.
- Replacing card images of a member in a partitioned
card image file using IEBUPDTE requires two control cards, both with a ./ in
columns 1 and 2. CHANGE is the action word on the first. Its two
parameters are: NAME, giving the name of the member to be updated; and
UPDATE=INPLACE, saying that the member can remain in the room it now
occupies. ENDUP is the action word on the second control card, which
has no parameters. In between them are put the replacement cards, each
having in columns 73-80 the number that matches the card image it is to
replace.
//UPDATE JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEBUPDTE
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=SYS1.PROCLIB,DISP=OLD
//SYSUT2 DD DSN=SYS1.PROCLIB,DISP=OLD
//SYSIN DD DATA
./ CHANGE NAME=SAMPLE,UPDATE=INPLACE
//STEP2 EXEC PGM=EXAMPLE2
00000010
./ ENDUP
/*
//
- Adding new card images to a member of a partitioned card image file using
IEBUPDTE requires two control cards, both with a ./ in columns 1 and 2.
CHANGE is the action word of the first. Its one parameter is NAME,
giving the name of the member to be changed. ENDUP is the action word
of the second control card, and it has no parameters. ln between them are
put the cards to be added, each having in columns 73-80 a number that
indicates in between which card images it should be inserted.
//UPDATE2 JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEBUPDTE
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=SYS1.PROCLIB,DISP=OLD
//SYSUT2 DD DSN=SYS1.PROCLIB,DISP=OLD
//SYSIN DD DATA
./ CHANGE NAME=SAMPLE
//EXTRADD DD SYSOUT=A
00000015
./ ENDUP
/*
//
- Deleting card images from a member of a
partitioned card image file using IEBUPDTE requires two cards, both with a
./ in columns 1 and 2. The action word of the first is CHANGE, and its one
parameter is NAME giving the name of the member to be changed; DELETE is the
action word of the second control card, where SEQ1 gives the sequence number
of the first card image to be deleted and SEQ2 gives the sequence number of
the last card image to be deleted; the card images with those two sequence
numbers and any in between are deleted. If only one card image is to
be deleted, both SEQ1 and SEQ2 give the sequence number of the same card
image, the one to be deleted.
//DELETE JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEBUPDTE
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=SYS1.PROCLIB,DISP=OLD
//SYSUT2 DD DSN=SYS1.PROCLIB,DISP=OLD
//SYSIN DD *
./ CHANGE NAME=SAMPLE
./ DELETE SEQ1=15,SEQ2=20
/*
//
- When creating a new partitioned card image file using IEBUPDTE, the SYSUT1
DD card is left out; the SYSUT2 DD card is for a new file on disk (DSN,
UNiT, DISP=(NEW,KEEP), SPACE (reserving space for the directory too), and
usually VOL=SER to put it on a specific pack). The control cards are
the same as for adding to an existing partitioned card image file, with the
ADD and NUMBER control cards being repeated for and followed by each new
member. The ADD control card gives each member a different name, and there
is only one ENDUP card, which goes at the very end.
//NEWPDS JOB (accnt),NAME,MSGLEVEL=(1,1)
//STEP1 EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD DSN=NEWLIB,UNIT=3330,VOL=SER=D10040,
//
SPACE=(TRK,(50,,34)),DISP=(NEW,KEEP)
//SYSIN DD DATA
./ ADD NAME=SAMPLE,LIST=ALL
./ NUMBER NEW1=10,INCR=10
//STEP1 EXEC PGM=EXAMPLE
//SYSPRINT DD SYSOUT=A
./ ADD NAME=SAMPLE2,LIST=ALL
./ NUMBER NEW1=10,INCR=10
//STEP2 EXEC PGM=EXAMPLE2
//SYSPRINT DD SYSOUT=A
./ ENDUP
/*
//
This information was obtained from Jay Moseley's WEB
Site and reproduced with permission. |
