View previous topic :: View next topic |
Author |
Message |
nsraj Beginner
Joined: 26 Aug 2003 Posts: 2 Topics: 1 Location: india
|
Posted: Fri Aug 29, 2003 12:35 am Post subject: rename a pds using iehprogrm |
|
|
Hi Readers
I am new to this forum,I would like to know how jcl code looks to rename a PDS/a PDS member using IEHPROGM
I tried the following code
Code: |
//step1 EXEC PGM=IEHPROGM
//DD1 DD UNIT=<UNIT>,VOL=SER=<LABEL>,DISP=OLD
//SYSIN DD *
RENAME DSNAME=<DSNAME>
NEWNAME=DSNAME,VOL=<UNIT>=,<LABEL>
/*
|
THE ERRORS
CONTROL STATEMENTS INVALID |
|
Back to top |
|
|
nsraj Beginner
Joined: 26 Aug 2003 Posts: 2 Topics: 1 Location: india
|
Posted: Fri Aug 29, 2003 12:37 am Post subject: |
|
|
|
|
Back to top |
|
|
raggop Beginner
Joined: 05 Feb 2003 Posts: 19 Topics: 3
|
Posted: Fri Aug 29, 2003 2:33 am Post subject: |
|
|
//STEP010 EXEC PGM=IEHPROGM,REGION=1024K
//*
//SYSPRINT DD SYSOUT=X
//DD1 DD UNIT=3390,VOL=SER=AH4T11,DISP=OLD
//*
//SYSIN DD *
RENAME DSNAME=SDRXG12.RAG.JCL,VOL=3390=AH4T11, X
NEWNAME=SDRXG12.GAR.JCL
/*
note you need to code 'X' in col 72 to continue
hope this helps |
|
Back to top |
|
|
Tintxiko Beginner
Joined: 22 Aug 2003 Posts: 11 Topics: 3 Location: Spain
|
Posted: Fri Aug 29, 2003 3:01 am Post subject: |
|
|
Try this:
//step1 EXEC PGM=IEHPROGM
//DD1 DD UNIT=disk,VOL=SER=<LABEL>,DISP=OLD
//SYSIN DD *
RENAME DSNAME=OLDname,VOL=disk=<LABEL>,NEWNAME=NEWname
/*
tintxiko. _________________ Thanks - Tintxiko |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
|
|
Back to top |
|
|
|
|