Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Are There Increase the PDS to more than 80 columns?

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

New User


Joined: 29 Jul 2005
Posts: 21
Location: Brazil

PostPosted: Fri Feb 09, 2007 6:32 pm    Post subject: Are There Increase the PDS to more than 80 columns?
Reply with quote

Hi Guys,

I have a one question: Somebody knows how do I do to increase the number of columns for a PDS file?

I created one, but have only 80 columns.

Tks.

Fernando Delago :-)
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Fri Feb 09, 2007 6:41 pm    Post subject: Re: Are There Increase the PDS to more than 80 columns?
Reply with quote

delago wrote:
I have a one question: Somebody knows how do I do to increase the number of columns for a PDS file? I created one, but have only 80 columns.
Next time you create one, specify a different LRECL (record length)...... icon_smile.gif
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Feb 09, 2007 10:34 pm    Post subject:
Reply with quote

Hello,

You need to delete the pds you have and allocate a new one per Bill's post.
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sat Feb 10, 2007 9:52 pm    Post subject:
Reply with quote

This advice is spot on if you're NOT sharing the PDS, if you are, hopefully, for the sake of your physical wellbeing, it is protected. icon_lol.gif
Back to top
View user's profile Send private message
Steve Coalbran

New User


Joined: 01 Feb 2007
Posts: 85
Location: Stockholm, Sweden

PostPosted: Sun Feb 11, 2007 8:28 pm    Post subject: Re: Are There Increase the PDS to more than 80 columns?
Reply with quote

OK, I had a play (it's allowed!) and it looks like you can increase the record length like this if it's VB 'LIBRARY' (but FB goes pear shaped). I am not sure that this is 100% but may be worth a try...
Code:

//<jobcard>
//         SET LIB=<library>                           
//         SET LRECL=<newlrecl>                           
//FIXPDS   EXEC PGM=IEBGENER                                     
//SYSPRINT DD  SYSOUT=*                                         
//SYSIN    DD  DUMMY                                             
//SYSUT2   DD  DISP=MOD,DSN=&LIB(DELETEME),                     
//             LRECL=&LRECL,RECFM=VB                               
//SYSUT1   DD  *                                                 
DELETE ME                                                       
//                                                               

otherwise

  • catch the attributes of original library with LISTDSI
  • build an ALLOC statement for temporary-pds changing what you want
  • Execute the ALLOC
  • COPY original pds to temporary-pds one
  • DELETE original
  • RENAME temporary-pds to original
Back to top
View user's profile Send private message
Phrzby Phil

Active Member


Joined: 31 Oct 2006
Posts: 965
Location: Richmond, Virginia

PostPosted: Mon Feb 12, 2007 6:30 pm    Post subject:
Reply with quote

There are ways you can create a new PDS member specifying a different LRECL (e.g., writing from a SYSPRINT card: recfm=fba, lrecl=121 when it really is lrecl=133) and corrupt the PDS so that you cannot retrieve any members from it. So - don't do this.

Best method:
1. rename
2. alloc a new one
3. move or copy all members
4. delete the renamed one (later perhaps)
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Mon Feb 12, 2007 6:41 pm    Post subject:
Reply with quote

Even better - Write a tiny REXX.

O.
Back to top
View user's profile Send private message
delago

New User


Joined: 29 Jul 2005
Posts: 21
Location: Brazil

PostPosted: Tue Feb 13, 2007 12:07 am    Post subject:
Reply with quote

Hi everybody!

Thank's for the help.
I resolved my problem. I allocated a PDS file with RECFM=VB(variable).

That's it!

Thank's again!

icon_surprised.gif
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 unload data from table with lob columns farhad_evan DB2 1 Sat Apr 22, 2017 1:32 pm
This topic is locked: you cannot edit posts or make replies. Db2 SQL query to convert rows into co... subratarec DB2 5 Thu Nov 17, 2016 4:51 pm
No new posts Comparing Decimal and CHAR columns rakesh17684 DB2 7 Thu Oct 20, 2016 2:33 am
No new posts Increase the screen size after split mistah kurtz TSO/ISPF 2 Fri Sep 02, 2016 6:39 pm
No new posts Combine columns without breaking words Indrajit_57 SYNCSORT 1 Sat Mar 19, 2016 9:33 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us