Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Delete more than one lines in Edit Mode

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SMS & VSAM
Author Message
sandra

New User


Joined: 06 Apr 2005
Posts: 27

PostPosted: Mon May 23, 2005 8:36 pm    Post subject: Delete more than one lines in Edit Mode
Reply with quote

In my cobol pgm ,in the edit mode,I need to delete all the fields present from colum 66 to 70.Is there any command /short cut to delete these columns?
Back to top
View user's profile Send private message
References
priya

Moderator


Joined: 24 Jul 2003
Posts: 624
Location: Bangalore

PostPosted: Mon May 23, 2005 9:27 pm    Post subject:
Reply with quote

Go to Line 66 and type DD

Then Come to Line no 70 to type DD.

Now Press Enter.
Back to top
View user's profile Send private message
grepusr3

New User


Joined: 10 May 2005
Posts: 35

PostPosted: Tue May 24, 2005 4:06 am    Post subject: Re: Delete more than one lines in Edit Mode
Reply with quote

The question here is to delete columns (and not the lines)!

Please try these command in order listed under ISPF/PDF editor and confirm with a reply.

Command ===> reset
Command ===> bounds 66 70
Command ===> change p'^' x'40' ALL
Command ===> reset c

or

Command ===> reset
Command ===> change p'^' x'40' 66 70 ALL
Command ===> reset c

This will change all character (p'^') in columns 66 through 70 to a blank (x'40') in ALL lines. It will leave other colums as is and will not delete lines.

-Pelad
Back to top
View user's profile Send private message
SteveConway

New User


Joined: 26 May 2005
Posts: 30
Location: Northern VA, USA

PostPosted: Fri May 27, 2005 8:59 pm    Post subject: Re: Delete more than one lines in Edit Mode
Reply with quote

Similarly, coding
Code:
c p'=' ' ' 66 70 all

will change -anything- contained within columns 66 to 70 to a blank (x'40'). The '=' is the key, it says disregard what is in the column now, whether numeric, character, or undefined, and change it to the given value.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SMS & VSAM All times are GMT + 6 Hours
Page 1 of 1