IDCAMS Command Stream for Name Swapping report
The IDCAMS Command Stream for Name Swapping report contains the IDCAMS commands that should be used in the manual data set name swapping.
This report is generated when you have specified NAMESWAP=NO. For the details of manual data set name swapping, see Performing manual name swapping.
The following figure is an example of an IDCAMS Command Stream for Name Swapping report for a non-HALDB.
IMS DB REORG EXPERT "IDCAMS COMMAND STREAM FOR NAME SWAPPING" PAGE: 1
5655-S35 02/01/2023 19.05.04
IF MAXCC EQ 0 THEN -
DO
ALTER TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1331 -
NEWNAME(TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1331.T )
ALTER TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1331.D -
NEWNAME(TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1331.D.T )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1332 -
NEWNAME(TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1332.T )
ALTER TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1332.D -
NEWNAME(TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1332.D.T )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1331.Z -
NEWNAME(TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1331 )
ALTER TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1331.Z.D -
NEWNAME(TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1331.D )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1332.Z -
NEWNAME(TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1332 )
ALTER TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1332.Z.D -
NEWNAME(TEMPDS.IPRV3.OIFC0101.DBHD1330.DDHD1332.D )
ENDThe following figure is an example of an IDCAMS Command Stream for Name Swapping report for a HALDB.
IMS DB REORG EXPERT "IDCAMS COMMAND STREAM FOR NAME SWAPPING" PAGE: 1
5655-S35 02/01/2023 10.06.31
/* PARTITION=PHIV01A */
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.A00001 -
NEWNAME(TESTDS.OSFC5101.PHIV0100.A00001.T )
ALTER TESTDS.OSFC5101.PHIV0100.A00001.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.A00001.DATA.T )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.L00001 -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00001.T )
ALTER TESTDS.OSFC5101.PHIV0100.L00001.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00001.DATA.T )
ALTER TESTDS.OSFC5101.PHIV0100.L00001.INDEX -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00001.INDEX.T )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.X00001 -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00001.T )
ALTER TESTDS.OSFC5101.PHIV0100.X00001.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00001.DATA.T )
ALTER TESTDS.OSFC5101.PHIV0100.X00001.INDEX -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00001.INDEX.T )
END
/* PARTITION=PHIV01B */
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.A00002 -
NEWNAME(TESTDS.OSFC5101.PHIV0100.A00002.T )
ALTER TESTDS.OSFC5101.PHIV0100.A00002.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.A00002.DATA.T )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.L00002 -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00002.T )
ALTER TESTDS.OSFC5101.PHIV0100.L00002.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00002.DATA.T )
ALTER TESTDS.OSFC5101.PHIV0100.L00002.INDEX -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00002.INDEX.T )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.X00002 -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00002.T )
ALTER TESTDS.OSFC5101.PHIV0100.X00002.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00002.DATA.T )
ALTER TESTDS.OSFC5101.PHIV0100.X00002.INDEX -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00002.INDEX.T )
ENDIMS DB REORG EXPERT "IDCAMS COMMAND STREAM FOR NAME SWAPPING" PAGE: 2
5655-S35 02/01/2023 10.06.31
/* PARTITION=PHIV01A */
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.A00001.Z -
NEWNAME(TESTDS.OSFC5101.PHIV0100.A00001 )
ALTER TESTDS.OSFC5101.PHIV0100.A00001.Z.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.A00001.DATA )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.L00001.Z -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00001 )
ALTER TESTDS.OSFC5101.PHIV0100.L00001.Z.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00001.DATA )
ALTER TESTDS.OSFC5101.PHIV0100.L00001.Z.INDEX -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00001.INDEX )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.X00001.Z -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00001 )
ALTER TESTDS.OSFC5101.PHIV0100.X00001.Z.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00001.DATA )
ALTER TESTDS.OSFC5101.PHIV0100.X00001.Z.INDEX -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00001.INDEX )
END
/* PARTITION=PHIV01B */
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.A00002.Z -
NEWNAME(TESTDS.OSFC5101.PHIV0100.A00002 )
ALTER TESTDS.OSFC5101.PHIV0100.A00002.Z.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.A00002.DATA )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.L00002.Z -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00002 )
ALTER TESTDS.OSFC5101.PHIV0100.L00002.Z.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00002.DATA )
ALTER TESTDS.OSFC5101.PHIV0100.L00002.Z.INDEX -
NEWNAME(TESTDS.OSFC5101.PHIV0100.L00002.INDEX )
END
IF MAXCC EQ 0 THEN -
DO
ALTER TESTDS.OSFC5101.PHIV0100.X00002.Z -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00002 )
ALTER TESTDS.OSFC5101.PHIV0100.X00002.Z.DATA -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00002.DATA )
ALTER TESTDS.OSFC5101.PHIV0100.X00002.Z.INDEX -
NEWNAME(TESTDS.OSFC5101.PHIV0100.X00002.INDEX )
END