CNS DOCWEB Home
CNS Home Page
CNS Publications Page
Search All CNS Docs

DOCWEB Logo Entire document
Available as PDF


Table of Contents

IUTPROGM
JCL for Using IUTPROGM
Command Input
Examples
Documentation

No Longer Supported

IUTPROGM is a locally written program that is no longer supported. We recommend that IBM's IEHPROGM or IDCAMS utility programs be used instead.

IUTPROGM

IUTPROGM allows you to do the following:

  • allocate, scratch (delete), rename, catalog and uncatalog data sets

  • create a partitioned dataset member alias

  • display DSCB information

  • list the space remaining on any online volume

IUTPROGM performs many of the same functions as IBM's IEHPROGM utility. IUTPROGM's syntax, however, is easier to use than IEHPROGM's. Unless otherwise noted, the keywords and operands described here for IUTPROGM have the same meaning as they do in the IBM JCL manuals or for IEHPROGM in the IBM utilities manual.

IUTPROGM cannot be used to create generation data groups. GDGs must be defined using IBM's IDCAMS utility.

JCL for Using IUTPROGM

Figure 14. JCL for Using IUTPROGM

//jobname JOB ,'your name',CLASS=class,TIME=(mm,ss),LINES=lines
/*ROUTE PRINT node.location
//GO EXEC PGM=IUTPROGM
//SYSPRINT     DD SYSOUT=A
...additional DD statements for PDS members...
//SYSIN        DD *
...input statements...

Additional DD Statements for PDS Members

If you want to process the members of more than one partitioned data set, you need to include an additional DD statement for each volume. If the data sets all reside on the same volume, you need to include only one additional DD statement with VOL=SER=. These additional DD statements are not required if processing does not specify PDS members.

If the data set is cataloged, you can use the data set name rather than the volume name; IUTPROGM will look the volume up in the system catalog, as in this example:

//SYSPRINT DD SYSOUT=A
//VOL      DD DSN=U.userid.PROJECT,DISP=SHR
//SYSIN    DD *

Command Input

Commands can appear anywhere between columns 1 and 72 on the input statement. Continuation to another line is allowed, and is indicated by a trailing comma on the first line. Any unique abbreviation can be used for the commands and keywords. (As stated above, unless otherwise noted, the keywords have the same meaning as they do in the IBM JCL manuals or for IEHPROGM in the IBM utilities manual.)

IUTPROGM allows comment statements, indicated by an asterisk (*) in column one. Comment statements can be placed anywhere within the SYSIN data stream, even between successive lines of multi-line commands.

Commands and Operands

Required operands are indicated. Operands not indicated as required are optional. Abbreviations in parentheses indicate acceptable values for the operands.

ALLOCATE
DSNAME=

(Required) data set name

VOLSER=

(Required) volume on which to place data set

DSORG=

data set organization (IS, PS, DA, PO, ISU, PSU, DAU, POU, NONE)

BLKSIZE=

blocksize

LRECL=

logical record length

RECFM=

record format (U, UA, UM, F, FB, FBS, V, VB, VBS, VA, FA, FBA, FBSA, VB, VBSA, FM, FBM, FBSM, VM, VBM, VBSM, VS, FT, FS, NONE)

SPACE=

(Required) space allocation (TRK, ABSTR, BLK, CYL)

OPTCD=

option code (W, U, C, H, Q, Z, T, O, M, I, Y, L, R, NONE)

Note

Only one operand can be specified with the OPTCD= command when allocating a data set.

RKP=

record key position

KEYLE=

key length

ELNM=

element name (PRIME, INDEX, OVERFLOW)

NTM=

number of tracks in master index

SCRATCH
DSNAME=

(Required) data set name

VOLSER=

volume on which data set resides (if omitted, volume information will be obtained from the system catalog)

Note

Scratching a data set does not uncatalog it. You must also use the UNCATLG command to remove the name from the system catalog.

MEMBER=

member of data set to delete (if omitted, the entire data set will be deleted)

RENAME
DSNAME=

(Required) data set name

NEWNAME=

(Required) new name for data set or member

VOLSER=

volume on which data set resides (if omitted, the information will be obtained from the system catalog)

MEMBER=

name of member to be renamed (if omitted, the entire data set will be renamed)

Note

A data set is not automatically recataloged when it is renamed. You must use the CATLG command to catalog a renamed data set.

ALIAS
DSNAME=

(Required) data set name

NEWNAME=

(Required) alias for member

MEMBER=

(Required) member name to be given an alias

VOLSER=

volume on which data set resides (if omitted, the information will be obtained from the system catalog)

CATLG
DSNAME=

(Required) data set name

VOLSER=

(Required) list of volumes on which data set resides (up to 14 are currently supported)

UNIT=

(Required) IBM standard unit type of volume (e.g., UNIT=3380)

FILE=

tape file number if other than 1

UNCATLG
DSNAME=

(Required) data set to uncatalog

Note

Uncataloging a data set does not delete it.

DISPLAY
DSNAME=

(Required) data set name

VOLSER=

volume on which data set resides (if omitted, volume information will be obtained from the system catalog)

OPTION=

OPT=EXTENT generates extent information

SEARCH
DSNAME=

(Required) data set to look for

LSPACE
VOLSER=

list free space on specific volume

PREFIX=

list free space on all online volumes beginning with this prefix

OPTIONS=

OPT=ALL lists free space on all online volumes

OPTIONS
OPTIONS=

new options for this session. If none are specified, the default values will be restored. The only option currently supported is OPT=NOECHO to supress echoing of input commands to SYSPRINT.

CC
(number)

(Required) set current completion code.

Return Codes

0

Normal completion

8

At least one error was encountered

Note

If you do not supply a volser to be used, when IUTPROGM reads the system catalog it will issue a message indicating which volser was obtained.

Examples

Figure 16 shows a sample job setup for IUTPROGM using operands to scratch a PDS member and to rename a member.

Figure 15. IUTPROGM Example Using Partitioned Data Sets

//jobname JOB ,'your name',CLASS=class,TIME=(mm,ss),LINES=lines
/*ROUTE PRINT node.location
//GO EXEC PGM=IUTPROGM
//SYSPRINT DD SYSOUT=A
//name1    DD DSN=U.userid.MY.LIB
//name2    DD DSN=U.userid.MY.OLD.LIB,DISP=OLD
//SYSIN    DD *
SCRATCH  MEMBER=MEMBER1,DSNAME=U.userid.MY.LIB
RENAME   MEMBER=ONE,NEWNAME=TWO,
        DSNAME=U.userid.MY.OLD.LIB 

Figure 17 shows an example of displaying, then scratching a cataloged data set. Note that scratching a data set does NOT uncatalog it, so you must also use the UNCATLG command to remove the name from the system catalog.

Figure 16. IUTPROGM Example Using Sequential Data Sets

//jobname JOB ,'your name',CLASS=class,TIME=(mm,ss),LINES=lines
/*ROUTE PRINT node.location
//GO EXEC PGM=IUTPROGM
//SYSPRINT DD SYSOUT=A
//SYSIN    DD *
DISPLAY  DSNAME=U.userid.MY.NEW.FILE,OPT=EXTENT
SCRATCH  DSNAME=U.userid.MY.NEW.FILE
UNCATLG  DSNAME=U.userid.MY.NEW.FILE

Refer to the "Commands and Operands" section in this chapter for descriptions of required and optional operands.

Documentation

The CNS General Information: CNS Software and Software References manual (D0009) contains recommended references on IBM JCL and utilities, including information on how to order IBM manuals.

CNS DOCWEB Home
CNS Home Page
CNS Publications Page
Search All CNS Docs