Title : Deleting MFS Format Library Members using IEHPROGM

Submitter : Ruth Williams
            Rank Xerox Ltd
            Pheonix House
            Kemp Place
            Bushey
            Herts
            WD2 1DN

Phone : 081-420-5318

Release Submitter Details - Y

Text :-

This hint was raised as a result of a question during the 'Problems
Forum' session of a UK GUIDE IMS Working Group meeting when a member
asked for alternative methods of deleting redundant members from the MFS
FORMAT (or TFORMAT) library rather than using the MFS service utility.

The JCL and control cards shown below need careful study before
implementing this hint as the DIF & DOF member names contain hex and
lower case characters and they must be coded exactly.

Note also that before using this technique you must be fully au fait
with the organisation of MFS blocks and their relationships and should
also be aware of your own environment as far as with MID/MODs refer to
which DIFs & DOFs (although this warning also applies to the use of the
MFS utility!).


JCL :-

//stepname EXEC PGM=IEHPROGM
//DD1       DD  DSN=IMxx,FORMAT,DISP=OLD
//SYSPRINT  DD  SYSOUT=*
//SYSIN     DD  *
input card images


INPUT CARD IMAGES :-

 SCRATCH DSNAME=IMxx.FORMAT,VOL=uuuu=vvvvvv,MEMBER=member

uuuu is the UNIT type, vvvvvv is the VOLSER.
Note that the member name should be coded exactly (using hex editing
as necessary) including lower case characters where relevant.


<END>