MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

changind the LRECL of a version in a GDG

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
Milind
Beginner


Joined: 29 Dec 2004
Posts: 26
Topics: 20
PostPosted: Thu Jul 21, 2005 12:48 am    Post subject: changind the LRECL of a version in a GDG Reply with quote
Hi Guys,

I need to change GDG length with the entire version saved. I'm having GDG now due to some changes it is required to change LRECL=472 to 474 for the entire version and with previous data saved. If some JCL is required for this just send me that.
It's really urgent....
Thanks for your co-operation.

Milind Deshmukh.
Back to top
View user's profile Send private message Send e-mail
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
PostPosted: Thu Jul 21, 2005 1:17 am    Post subject: Reply with quote
You do not change the LRECL for a GDG. You change it for a generation of a GDG. I am sure you understand the difference between a generation and a version.

Is the generation, for which you have to change the LRECL, the most recent one? If yes, then simlpy delete it and recreate by simply changing the DCB. If not, then copy (=3.3) this generation with a different version number. That is, copy MY.GDG.G0001V00 to MY.GDG.G0001V01.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
Brian
Beginner


Joined: 12 Aug 2003
Posts: 95
Topics: 6
PostPosted: Thu Jul 21, 2005 1:17 am    Post subject: Reply with quote
Hi,

You can try this out. As you already have generations hanging onto your base, repplace all existing generations with their corresponding versions. Run this tool which would do it.

Make sure you change the job card accordingly and the DCB parameters of the versions.

Code:

/* REXX */                                               
                                                         
DO QUEUED()                                             
   PULL DUMMY                                           
END                                                     
                                                         
QUEUE "//DXTTARA$ JOB CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID"
QUEUE "//*"                                             
                                                         
X = OUTTRAP("GDG.");                                     
"LISTC LEVEL('"DXTTARA.GDG"')"                           
X = OUTTRAP("OFF")                                       
STEPCTR = 1                                             
                                                         
DO C = 1 TO GDG.0 BY 2                                   
   PARSE VAR GDG.C NONVSAM DASH DS                       
   DS = STRIP(DS)                                       
   GEN01 = SUBSTR(DS,1,LENGTH(DS) - 2)                   
   GEN02 = SUBSTR(DS,LENGTH(DS) - 1,2)                   
   GEN03 = GEN02 + 1                                             
   IF GEN03 < 9 THEN GEN03 = "0"||GEN03                         
   NEWGDG = GEN01 || GEN03                                       
   STEPCTR = STEPCTR + 1                                         
   QUEUE "//STEP"||STEPCTR "    EXEC PGM=IEBGENER"               
   QUEUE "//SYSUT1   DD   DISP=SHR,DSN="DS                       
   QUEUE "//SYSUT2   DD   DISP=(,CATLG),DSN="NEWGDG","           
   QUEUE "//         UNIT=SYSDA,SPACE=(TRK,(100,40),RLSE),"     
   QUEUE "//         DCB=(DSORG=PS,LRECL=100,RECFM=FB,BLKSIZE=0)"
   QUEUE "//SYSPRINT DD   SYSOUT=*"                             
   QUEUE "//SYSIN    DD   DUMMY"                                 
   QUEUE "//*"                                                   
END                                                             
QUEUE "$$"                                                       
RC = OUTTRAP("OUT.")                                             
ADDRESS TSO                                                     
"SUBMIT * END($$)"                                               
J = OUT.0                                                       
PARSE VAR OUT.J 'JOB' JID 'SUBMITTED' .                         
SAY "JOB " JID "HAS BEEN SUBMITTED"
EXIT(0)                             



Cheers
Brian
Back to top
View user's profile Send private message
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
PostPosted: Thu Jul 21, 2005 1:27 am    Post subject: Reply with quote
Quote:
As you already have generations hanging onto your base, repplace all existing generations with their corresponding versions.

Umm...Brian. Isn't that an overkill? I mean, why not just create a new version for the generation in problem?
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
Brian
Beginner


Joined: 12 Aug 2003
Posts: 95
Topics: 6
PostPosted: Thu Jul 21, 2005 1:31 am    Post subject: Reply with quote
Cogito,

The versions will replace the generations in question. If you try a list of the gdg you will find only versions.

Cheers
Brian
Back to top
View user's profile Send private message
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
PostPosted: Thu Jul 21, 2005 2:01 am    Post subject: Reply with quote
True, Brian. And, that is my point. Why change ALL of the generations?
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
Brian
Beginner


Joined: 12 Aug 2003
Posts: 95
Topics: 6
PostPosted: Thu Jul 21, 2005 2:57 am    Post subject: Reply with quote
I believe the poster wanted to change the LRECL of all the generations that are tagged to the base. Doing one by one could be a back breaker.

Did i read the post right at the first place Rolling Eyes

Brian
Back to top
View user's profile Send private message
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
PostPosted: Thu Jul 21, 2005 3:16 am    Post subject: Reply with quote
Brian,
Note that he says, 'entire version saved'. I took that to mean to be a particular generation that has to be changed. I also asked him in the first post, if he is sure about generation and version.

Hmm. Milind, can you please clarify if it is all generations or a particular generations ?

Rolling Eyes
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group