Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

I want to delete data from 10 to 30 column in a PDS meber

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
sunilmfs

New User


Joined: 09 Nov 2010
Posts: 20
Location: hyderabad

PostPosted: Tue May 24, 2011 11:58 am    Post subject: I want to delete data from 10 to 30 column in a PDS meber
Reply with quote

I want to delete data from 10 to 30 column in a PDS member.each line having different data col 10 to 30.


Please help me
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue May 24, 2011 12:03 pm    Post subject: Reply to: I want to delete data from 10 to 30 column in a PD
Reply with quote

Until You clarify better what You mean by delete ...
Code:
c p'^' ' ' 10 30 all
Back to top
View user's profile Send private message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Tue May 24, 2011 12:13 pm    Post subject:
Reply with quote

Is it only one PDS member or all the members in the PDS?
Back to top
View user's profile Send private message
sunilmfs

New User


Joined: 09 Nov 2010
Posts: 20
Location: hyderabad

PostPosted: Tue May 24, 2011 12:13 pm    Post subject: Please help in change all command
Reply with quote

=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 RUN PROGRAM(XXXXX0069) +
000002 RUN PROGRAM(XXXXX0070) +
000003 RUN PROGRAM(XXXXX0071) +
000004 RUN PROGRAM(XXXXX0072) +

col 16 to 31 having different data... how to delete that one with single command
Back to top
View user's profile Send private message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Tue May 24, 2011 12:15 pm    Post subject: Re: Reply to: I want to delete data from 10 to 30 column in
Reply with quote

enrico-sorichetti wrote:
Until You clarify better what You mean by delete ...
Code:
c p'^' ' ' 10 30 all


Hi Enrico,

Can you please explain me what the above command does?
Back to top
View user's profile Send private message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Tue May 24, 2011 12:17 pm    Post subject: Re: Please help in change all command
Reply with quote

sunilmfs wrote:
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 RUN PROGRAM(XXXXX0069) +
000002 RUN PROGRAM(XXXXX0070) +
000003 RUN PROGRAM(XXXXX0071) +
000004 RUN PROGRAM(XXXXX0072) +

col 16 to 31 having different data... how to delete that one with single command


What does delete mean? Can you please show us the sample output?
Back to top
View user's profile Send private message
sunilmfs

New User


Joined: 09 Nov 2010
Posts: 20
Location: hyderabad

PostPosted: Tue May 24, 2011 12:19 pm    Post subject: Reply to: I want to delete data from 10 to 30 column in a PD
Reply with quote

Hi barat. did you get what i am asking...
Back to top
View user's profile Send private message
sunilmfs

New User


Joined: 09 Nov 2010
Posts: 20
Location: hyderabad

PostPosted: Tue May 24, 2011 12:22 pm    Post subject:
Reply with quote

Input =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 RUN PROGRAM(XXXXX0069) +
000002 RUN PROGRAM(XXXXX0070) +
000003 RUN PROGRAM(XXXXX0071) +
000004 RUN PROGRAM(XXXXX0072) +

Output
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 RUN PROGRAM +
000002 RUN PROGRAM +
000003 RUN PROGRAM +
000004 RUN PROGRAM +
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7232

PostPosted: Tue May 24, 2011 12:26 pm    Post subject:
Reply with quote

It is an editor command (change) to delete all the characters of a PDS member (that is being edited) by changing them all (the characters to be deleted) to a space.

A perfect solution given the wooliness of your specified requirement.

If you don't recognise the command (which seems so) I suggest you use the PF1 key and find out, because you can do lots of useful things with "pictures".
Back to top
View user's profile Send private message
GuyC

Senior Member


Joined: 11 Aug 2009
Posts: 1278
Location: Belgium

PostPosted: Tue May 24, 2011 12:30 pm    Post subject:
Reply with quote

This is how I would do it, but maybe there is an easier way

Display the boundary : bnds on any line & enter
Code:
bnds   RUN PROGRAM(XXXXX0069) +
000002 RUN PROGRAM(XXXXX0070) +

Code:
=BNDS> <                       
000001 RUN PROGRAM(XXXXX0069) +
000002 RUN PROGRAM(XXXXX0070) +

set left boundary on pos 10: type < on pos 10 on the bnds line & enter

Code:
 =BNDS>            <           
 000001 RUN PROGRAM(XXXXX0069) +
 000002 RUN PROGRAM(XXXXX0070) +

shift left 10 pos:
Code:
=BNDS>            <           
((10   RUN PROGRAM(XXXXX0069) +
((     RUN PROGRAM(XXXXX0070) +

Reset bnds to pos 1 : : type < on pos 1 on the bnds line & enter
Code:
=BNDS> <                       
000001 RUN PROGRAM +           
000002 RUN PROGRAM +           
Back to top
View user's profile Send private message
Stefan

Active User


Joined: 12 Jan 2006
Posts: 110
Location: Germany

PostPosted: Tue May 24, 2011 12:31 pm    Post subject: Re: Reply to: I want to delete data from 10 to 30 column in
Reply with quote

gylbharat wrote:
Can you please explain me what the above command does?

Use the ISPF tutorial, a great resource of valuable information when manuals are not at your fingertips:

1. Press F1
Code:
 Tutorial --------------------- Table of Contents -------------------- Tutorial
 Option ===>                                                                   
                                                                               
                   ISPF Program Development Facility Tutorial                   
                                                                               
 The following topics are presented in sequence, or may be selected by entering
 a selection code in the option field:                                         
      G  General      - General information about ISPF                         
      0  Settings     - Specify terminal and user parameters                   
      1  View         - Display source data or output listings                 
      2  Edit         - Create or change source data                           
      3  Utilities    - Perform utility functions                               
      4  Foreground   - Invoke language processors in foreground               
      5  Batch        - Submit job for language processing                     
      6  Command      - Enter TSO command, CLIST, or REXX exec                 
      7  Dialog Test  - Perform dialog testing                                 
      9  IBM Products - Use additional IBM program development products         
      10 SCLM         - Software Configuration and Library Manager             
      11 Workplace    - ISPF Object/Action Workplace                           
      X  Exit         - Terminate ISPF using log and list defaults             
      The following topics will be presented only if selected by number:       
      A  Appendices   - Dynamic allocation errors and ISPF listing formats     
      I  Index        - Alphabetical index of tutorial topics                   
                                                                               

2. Enter i
Code:
 TUTORIAL -------------------------  INDEX  --------------------------- TUTORIAL
 COMMAND ===>                                                                   
                                                                               
                      -----------------------------------                       
                      !              INDEX              !                       
                      -----------------------------------                       
                                                                               
   Selected topics discussed in the tutorial can be found in this index.       
                                                                               
   To use the index, enter the first letter of the topic of interest.  The     
   index page containing subjects starting with that letter is displayed.       
   On an index page, any subject can be selected by entering the two           
   character option preceding that selection.                                   
                                                                               
   When you are on one index page, you can access any other index page by       
   entering its letter identification.  If you are in the tutorial but not     
   on an index page, you can get to the index by entering INDEX or I in         
   the command field.                                                           
                                                                               
   The index pages are presented in sequence if you press the ENTER key.

3. Enter c
Code:
 TUTORIAL ----------------------  INDEX - 'C'  ------------------------ TUTORIAL
 OPTION  ===>                                                                   
                                                                               
 To select a topic, enter code (letter and number) in the option field:         
                                                                               
  C1 - Cancel (breakpoint primary menu)                                         
  C2 - CANCEL command                                                           
  C3 - CANCEL primary command (edit)                                           
  C4 - CAPS primary command (edit)                                             
  C5 - Catalog data set name                                                   
  C6 - Changes for this Release                                                 
  C7 - CHANGE primary command (edit)                                           
  C8 - RCHANGE (repeat change) command (edit)                                   
  C9 - Client/Server install, ISPF                                             
 C10 - CMDE command                                                             
 C11 - COBOL compile (batch)                                                   
 C12 - COBOL compile (foreground)                                               
 C13 - COBOL interactive debug (batch)                                         
 C14 - COBOL interactive debug (foreground)                                     
 C15 - COLOR command                                                           
 C16 - COLUMNS primary command (browse)                                         
                                                                               
                           (continued on next page)

4. Enter c7
Code:
 TUTORIAL ------------------ EDIT - 'CHANGE' COMMAND ------------------ TUTORIAL
 OPTION  ===>                                                                   
                                                                               
   The CHANGE command is used to find and change the next occurrence of a       
   character string in the data being edited.                                   
        Command ===> change xxx yyy            changes the next "xxx" to "yyy".
                                                                               
                                                                               
   The cursor is placed at the end of the changed string.  Automatic           
   scrolling will be performed, if necessary, to bring the string into view.   
                                                                               
 Topics are presented in the following sequence, or may be selected by number: 
    1 - Specifying the character string                                         
    2 - Limiting the search to a specified range of lines                       
    3 - Limiting the search to specified columns                               
    4 - Optional parameters that can be used to indicate the direction and     
          starting point of the search ( next, prev, first, last, all )         
    5 - Optional parameters that can be used to limit the strings to be         
          found ( chars, prefix, suffix, word )                                 
    6 - Optional parameters that can be used to limit the lines to be           
          searched ( x, nx )                                                   
    7 - Using the RFIND (repeat find) and the RCHANGE (repeat change) commands 
    8 - Error and information messages                                         
    9 - Syntax rules when using optional parameters                             

5. Enter 1
Code:
 TUTORIAL -------------------- 'CHANGE' STRINGS ----------------------- TUTORIAL
 OPTION  ===>                                                                   
                                                                               
   On every CHANGE command, you must specify a "from" string and a "to"         
   string.  In most cases you simply enter CHANGE or its abbreviations         
   CHG or C, followed by the two character strings.                             
       Example -  ===> change demo test                                         
                                                                               
   If you want to use the same string that was used in the previous CHANGE     
   command, use an * (asterisk).                                               
       Example -  ===> chg * * 40 60      (change demo to test in cols 40 to 60)
                                                                               
   In some cases, you want to change a string of characters that cannot be     
   entered in the simple format shown above.  For these cases, special         
   strings can be entered.  For example, to change the expression "a = b" to   
   "c = d" you must use delimited strings as the expressions contain blanks.   
       Example -  ===> c 'a = b' 'c = d'                                       
                                                                               
 The following topics are presented in sequence, or may be selected by number: 
    1 - Delimited strings              4 - Text strings                         
    2 - Hex strings                    5 - Character strings                   
    3 - Picture strings

6. Enter 3
Code:
 TUTORIAL --------------------- 'CHANGE' STRINGS ---------------------- TUTORIAL
 COMMAND ===>                                                                   
                                                                               
   A picture string is used to describe the type of string to be changed       
   instead of the exact characters to be changed.                               
                                                                               
       Example -  ===> chg all p'^' 'x' 72    change all non-blanks in column   
                                              72 to the character "x"           
                                                                               
   A picture string is a quoted string that is preceded or followed by the     
   letter "P".  It can contain blanks, alphabetic and numeric characters       
   which represent themselves, or any of the special characters listed         
   below, each of which represents a class of characters.                       
   The special characters that can be used in a "from" picture string are:     
       =  - any character                 .  - invalid characters               
       ยง  - alphabetic characters         -  - non-numeric characters           
       #  - numeric characters            <  - lower case alphabetics           
       $  - special characters            >  - upper case alphabetics           
       ^  - non-blank characters                                               
   The special characters that can be used in a "to" picture string are:       
       =  - any character                 <  - lower case alphabetics           
       >  - upper case alphabetics                                             
                           (continued on next page)

6. Read the explanations, understand the concepts, be amazed about the power of the ISPF editor, and finally feel ashamed of not having tried to find this information by yourself.
Back to top
View user's profile Send private message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Tue May 24, 2011 12:58 pm    Post subject:
Reply with quote

Thanks Stefen...

We can use the below command also to accomplish the above requirement.
Code:

c all p'=' c'' 19 29;


Positions may vary.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue May 24, 2011 1:28 pm    Post subject:
Reply with quote

no,

Code:
c all p'=' ' ' 19 29
Back to top
View user's profile Send private message
sunilmfs

New User


Joined: 09 Nov 2010
Posts: 20
Location: hyderabad

PostPosted: Tue May 24, 2011 1:50 pm    Post subject:
Reply with quote

got the command ....





Thanks
Back to top
View user's profile Send private message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Tue May 24, 2011 2:41 pm    Post subject:
Reply with quote

dbzTHEdinosauer wrote:
no,

Code:
c all p'=' ' ' 19 29


Hi,

This will not move the + Sign to the left. While
Code:

c all p'=' C'' 19 29
does
Back to top
View user's profile Send private message
GuyC

Senior Member


Joined: 11 Aug 2009
Posts: 1278
Location: Belgium

PostPosted: Tue May 24, 2011 4:58 pm    Post subject:
Reply with quote

gylbharat wrote:

This will not move the + Sign to the left. While
Code:

c all p'=' C'' 19 29
does

only when the + is on pos 31, as soon as there are 2 consecutive spaces things won't shift.
Back to top
View user's profile Send private message
gylbharat

Active Member


Joined: 31 Jul 2009
Posts: 565
Location: Bangalore

PostPosted: Tue May 24, 2011 5:48 pm    Post subject:
Reply with quote

GuyC wrote:
gylbharat wrote:

This will not move the + Sign to the left. While
Code:

c all p'=' C'' 19 29
does

only when the + is on pos 31, as soon as there are 2 consecutive spaces things won't shift.


Yup... Correct.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
This topic is locked: you cannot edit posts or make replies. How to move a long alphanumeric data ... lind sh COBOL Programming 8 Mon Dec 05, 2016 7:51 pm
No new posts JCL to delete component in a package sundaram.naveen Compuware & Other Tools 14 Tue Nov 29, 2016 6:21 pm
No new posts ODPP(Optim Data privacy Provider) Iss... Rama kishore IBM Tools 1 Mon Nov 07, 2016 5:46 pm
No new posts SQZ pipe delimited file with 1 column... Rick Silvers DFSORT/ICETOOL 2 Sun Nov 06, 2016 8:11 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us