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

Change/modify the record length of the PDS


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sivasu_usavis

New User


Joined: 28 Jun 2006
Posts: 21
Location: Chennai

PostPosted: Fri Dec 15, 2006 6:19 pm
Reply with quote

can we change/modify the record length of the partitioned DS? If so how?


Thans
siva
Back to top
View user's profile Send private message
cobolunni

Active User


Joined: 07 Aug 2006
Posts: 127
Location: kerala,india

PostPosted: Fri Dec 15, 2006 6:22 pm
Reply with quote

Once pds is created i dont think that there is any option to update the properties
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Fri Dec 15, 2006 6:26 pm
Reply with quote

Oh yes? icon_wink.gif Just copy some jcl to you load lib and see.... icon_lol.gif
Back to top
View user's profile Send private message
cobolunni

Active User


Joined: 07 Aug 2006
Posts: 127
Location: kerala,india

PostPosted: Fri Dec 15, 2006 6:30 pm
Reply with quote

William, I cant follow you if u had any idea of changing the properties of a data set
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Fri Dec 15, 2006 6:53 pm
Reply with quote

Quote:
I have a PDS ..or more like had a PDS ...a standard PDS RECFM=80, LRECL=80 and stuff .....one fine day i like a smart @ss do an XDC from my SFSD to create a new member in my pds and it conked it off ...now the stats for my PDS look liks



Organization . . . : PO Used cylinders . . : 2

Record format . . . : FBA Used extents . . . : 2

Record length . . . : 121

Block size . . . . : 1210

1st extent cylinders: 2

Secondary cylinders : 500

Data set name type : PDS



Now it won't let me do anything(read/create) with the any member in my PDS except the XDC thingy which i ported in there ....any suggestions on how i can recover this pds ...i tried things like IEBCOPY and stuff...but no use....

Quote:
Code:
//xxxxxxxF JOB (yyyy,zzzzzzzz),'aaaaaaaa - bbbbbbbbb',

//             CLASS=C,

//             MSGCLASS=9,

//             NOTIFY=&SYSUID

//*  I AM xxxxxxx.TSO.JCL(FIXPDS)

//*

//FIXPDS  EXEC PGM=IEBGENER

//SYSPRINT DD  SYSOUT=*

//SYSIN    DD  DUMMY

//SYSUT2   DD  DSN=pds.to.be.fixed(DELETEME),

//             DISP=MOD,

//             BLKSIZE=27920,

//             LRECL=80,

//             RECFM=FB

//SYSUT1   DD  *

DELETE ME

//*

//
Back to top
View user's profile Send private message
sivasu_usavis

New User


Joined: 28 Jun 2006
Posts: 21
Location: Chennai

PostPosted: Sat Dec 16, 2006 10:22 pm
Reply with quote

so, there is no possible to change the properties of PDS???
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Sat Dec 16, 2006 10:27 pm
Reply with quote

sivasu_usavis wrote:
so, there is no possible to change the properties of PDS???

Huh? What didn't you understand of my last post?????
Back to top
View user's profile Send private message
sivasu_usavis

New User


Joined: 28 Jun 2006
Posts: 21
Location: Chennai

PostPosted: Mon Dec 18, 2006 1:01 pm
Reply with quote

William Thompson wrote:
sivasu_usavis wrote:
so, there is no possible to change the properties of PDS???

Huh? What didn't you understand of my last post?????



Sorry, I didnt get u. Whats that XDC? Could u explain more detaily? Actually i've the PDS with 120 length LRECL size, but i want to change that into 80 size....
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Mon Dec 18, 2006 1:15 pm
Reply with quote

Your safest bet would be to rename the current, allocate the new and copy mem over. To dynamically redefine the lrecl, you risk loss of data.
Back to top
View user's profile Send private message
sivasu_usavis

New User


Joined: 28 Jun 2006
Posts: 21
Location: Chennai

PostPosted: Mon Dec 18, 2006 1:23 pm
Reply with quote

William Thompson wrote:
Your safest bet would be to rename the current, allocate the new and copy mem over. To dynamically redefine the lrecl, you risk loss of data.


I did what u suggest me and i got thru my task. but i need to know, whether can i able to modify that parameter or not?
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Mon Dec 18, 2006 2:42 pm
Reply with quote

sivasu_usavis wrote:
but i need to know, whether can i able to modify that parameter or not?

Look at my longer post from Friday, the person had a pds originally 80 lrecl, that he suddenly found with a 121 lrecl. The gener job fixed it, in other words, modified that parameter - the lrecl.
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk

PostPosted: Tue Dec 19, 2006 12:45 pm
Reply with quote

Hi William

Quote:
the person had a pds originally 80 lrecl, that he suddenly found with a 121 lrecl. The gener job fixed it, in other words, modified that parameter - the lrecl.


I dint understand how he managed to change the LRECL from 80 to 121 while doing XDC.

Thanks
Arun
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Tue Dec 19, 2006 5:46 pm
Reply with quote

Code:
               HELP: Job Data Set Panel -- Action Characters  Panel 2 of 2
COMMAND INPUT ===>                                                       
                                                                         
          V     View a job's page-mode data sets using GDDM.             
          X     Print output data sets.  You can add the following:       
                C - Close the print file after printing (XC)             
                D - Display the Open Print Data Set panel (XD or XDC)     
                F - Display the Open Print File panel (XF or XFC)         
                S - Display the Open Print panel (XS or XSC)             


An XDC gives you a this
Code:
                            SDSF Open Print Data Set                     
COMMAND INPUT ===>                                            SCROLL ===>
                                                                         
                                                                         
Data set name  ===>                                                       
Member to use  ===>                                                       
Disposition    ===>            (OLD, NEW, SHR, MOD)                       
                                                                         
If the data set is to be created, specify the following.                 
Volume serial will be used to locate existing data sets if specified.     
                                                                         
Management class     ===>           (Blank for default management class) 
Storage class        ===>           (Blank for default storage class)     
  Volume serial      ===>           (Blank for authorized default volume)
  Device type        ===>           (Generic unit or device address)     
Data class           ===>           (Blank for default data class)       
  Space units        ===> BLKS      (BLKS, TRKS, CYLS, BY, KB, or MB)     
  Primary quantity   ===> 500       (In above units)                     
  Secondary quantity ===> 500       (In above units)                     
  Directory blocks   ===>           (Zero for sequential data set)       
  Record format      ===> VBA                                             
  Record length      ===> 240                                             
  Block size         ===> 3120                                           

and if you point the output of the print to an 80 byte lrecl pds, things will change.
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 -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Copy only TEXT or String from a record SYNCSORT 4
No new posts combine multiple unique records into ... DFSORT/ICETOOL 2
No new posts SORT on detail record, then repeat he... DFSORT/ICETOOL 3
No new posts how to complete the end of a record w... DFSORT/ICETOOL 2
No new posts Sort based on the record type DFSORT/ICETOOL 1
Search our Forums:

Back to Top