Utilities

Home Up Search Credits Site Map Contact Info. Links Disclaimer Download

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

  1. 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

  1. 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
/*
//

  1. 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
/*
//

  1. 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
/*
//

  1. 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

  1. 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
/*
//

  1. 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
/*
//

  1. 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
/*
//

  1. 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
/*
//

  1. 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
/*
//

  1. 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

  1. 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).
  2. 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

  1. 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)

  1. 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
/*
//

  1. 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)
/*
//

  1. 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
/*
//

  1. When compressing a partitioned file using IEBCOPY, add the parameter REGION=100K to the EXEC card.

IEHMOVE

  1. 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.
  2. 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

  1. 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

  1. 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

  1. 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
/*
//

  1. 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
/*
//

  1. 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
/*
//

  1. 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
/*
//

  1. 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
/*
//

  1. 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
/*
//

  1. 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

  1. 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

  1. 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)
/*
//

  1. 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)
/*
//

  1. 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.
  2. 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

  1. 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

  1. 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
/*
//

  1. 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.

  1. 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
/*
//

  1. 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
/*
//

  1. 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
/*
//

  1. 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. 

The information on this site is the combined effort of a lot of people, please credit the authors if you use their information.
Please read the Disclaimer page for the restrictions, copyright, and other uses of the information contained on this site.
For problems or questions regarding this web contact Bob.
Last updated: September 04, 2001.