|
View previous topic :: View next topic
|
| Author |
Message |
delago
New User
Joined: 29 Jul 2005
Posts: 21
Location: Brazil
|
|
|
|
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 |
|
 |
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| 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)......  |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
You need to delete the pds you have and allocate a new one per Bill's post. |
|
| Back to top |
|
|
mmwife
Super Moderator
Joined: 30 May 2003
Posts: 1592
|
|
|
|
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.  |
|
| Back to top |
|
|
Steve Coalbran
New User
Joined: 01 Feb 2007
Posts: 89
Location: Stockholm, Sweden
|
|
|
|
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 |
|
|
Phrzby Phil
Senior Member
Joined: 31 Oct 2006
Posts: 1042
Location: Richmond, Virginia
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
Even better - Write a tiny REXX.
O. |
|
| Back to top |
|
|
delago
New User
Joined: 29 Jul 2005
Posts: 21
Location: Brazil
|
|
|
|
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!
 |
|
| Back to top |
|
|
|
|
