IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

how to delete the dataset's content


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
LinkinPark
Warnings : 1

New User


Joined: 20 Nov 2005
Posts: 44
Location: DALIAN,CHINA

PostPosted: Sat Feb 25, 2006 11:10 am
Reply with quote

how to delete the dataset's content from 4th column to 5 column ?
my dataset like this
Code:
JPVPJ2.CMS.TAMNA.S5.TEMP.SE                      ZJP564+  PS    FB
JPVPJ2.CMS.TAMNA.S6.TEMP.SE                      ZJP589+  PS    FB
JPVPJ2.CMS.TAMNA.S7.TEMP.SE                      ZJP737+  PS    FB

how to change it to

Code:

JPVPJ2.CMS.TAMNA.S5.TEMP.SE                      PS    FB
JPVPJ2.CMS.TAMNA.S6.TEMP.SE                      PS    FB
JPVPJ2.CMS.TAMNA.S7.TEMP.SE                      PS    FB


thanks
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sat Feb 25, 2006 9:40 pm
Reply with quote

Link,

Your comments don't match your example.

Also you don't tell us if you want to do it in a pgm, ISPF, sort or whatever.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Sat Feb 25, 2006 9:45 pm
Reply with quote

You can use a DFSORT job like this one to do what you asked for:

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=... output file
//SYSIN    DD    *
   OPTION COPY
   OUTREC FIELDS=(1,49,59,8)
/*


If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

Use [URL] BBCode for External Links
Back to top
View user's profile Send private message
Sandy-is-here

New User


Joined: 16 Mar 2006
Posts: 6
Location: Bangalore

PostPosted: Tue Apr 04, 2006 11:16 am
Reply with quote

Hi Link,

You can try giving BNDS option in front of your first row and set the BNDS pointer '<' to the specific column want to delete. Then shift that many columns to left using ((8 (in your case) on first record and ((8 at the last record. Once that particular column is deleted, set back the BNDS pointer to the first column.
Try this out..might work faster for less number of records, where a file can open in edit mode..

-Sandy
Back to top
View user's profile Send private message
sathyajes

New User


Joined: 02 Mar 2006
Posts: 35
Location: Chennai

PostPosted: Tue Apr 04, 2006 1:19 pm
Reply with quote

Hi Link,

If want your requirement to be accomplished thru an ISPF Command the follwing on the Command line on Edit mode will suffice.

c all p'?' ' ' 30 40

This says - Change all chacters from 30th position to 40th position to space and also move the content towards left

If there is a <space> between the Quotes then it would be replaced by spaces alone and conten will not be moved left

c all p'?' ' ' 30 40

This would be handy if you want to edit a dataset very quickly

Hope it helps you !

With Regds,

Sathya
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts DELETE SPUFI DB2 1
No new posts DSNTIAUL driven delete IBM Tools 0
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Allocated cylinders of a dataset DB2 12
Search our Forums:

Back to Top