View previous topic :: View next topic
|
Author |
Message |
vasco ferreira
New User
Joined: 12 Jul 2008 Posts: 32 Location: sintra - portugal
|
|
|
|
Hi, i want to delete a member in a partioned dsn. Using this program i can scratch the member. The problem happens when the dsn is too long and all the line passes the72 column.
I tried to divided the command but it's not possible.
Is there other way? |
|
Back to top |
|
|
guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Hello Vasco,
From the FM
Quote: |
Utility control statements are coded on cards or as online input and are contained in columns 1 through 71. A statement that exceeds 71 characters must be continued on one or more additional records. A nonblank character must be placed in column 72 to indicate continuation. |
If it still fails please provide us the code & error message |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Why not use good old IDCAMS, IEHPROGM main use is for non SMS datasets these days. |
|
Back to top |
|
|
vasco ferreira
New User
Joined: 12 Jul 2008 Posts: 32 Location: sintra - portugal
|
|
|
|
many thanks Guptae, i did, but doesn't work, please see the attach. Regards. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
First, not everyone is allowed to download attachments. Please repost your output using BBcode instead -- which also, unlike Word, preserves spacing so we can verify exactly what IEHPROGM is indicating.
Second, have you verified with your site support group that VOL=3390 is supported at your site for IEHPROGM? |
|
Back to top |
|
|
vasco ferreira
New User
Joined: 12 Jul 2008 Posts: 32 Location: sintra - portugal
|
|
|
|
Sorry for the attachments (was the first and the last).
Could, anyone, show me the way of delete a member in a partitioned?
Many thanks |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Code: |
//STEP1 EXEC PGM=IEHPROGM,REGION=0M
//SYSPRINT DD SYSOUT=*
//DD01 DD DISP=SHR,DSN=TTSSRS0.LONG.DATASET.NAME.PDS
//SYSIN DD *
SCRATCH VOL=3390=STRS10,DSNAME=TTSSRS0.LONG.DATASET.NAME.PDS, X
MEMBER=TEST2
/* |
returns results of
Code: |
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---->
1SYSTEM SUPPORT UTILITIES ---- IEHPROGM
-
SCRATCH VOL=3390=STRS10,DSNAME=TTSSRS0.LONG.DATASET.NAME.PDS, X
MEMBER=TEST2
NORMAL END OF TASK RETURNED FROM SCRATCH
-
UTILITY END
******************************** Bottom of Data ******************************** |
so use IEHPROGM for your task. |
|
Back to top |
|
|
vasco ferreira
New User
Joined: 12 Jul 2008 Posts: 32 Location: sintra - portugal
|
|
|
|
Ok, it does work. Many thanks. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
As previously suggested, and IMHO an easier option
Code: |
//DCOLLECT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE PDS name(member) NONVSAM |
|
|
Back to top |
|
|
|