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

how to migrate data from one layout to another layout


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sbalajibe

New User


Joined: 15 Aug 2005
Posts: 62

PostPosted: Thu Mar 02, 2006 11:44 am
Reply with quote

Hi all,


I am having a GDG A with 110 versions with below Layout as given below in OLD-VSAMNTB and I want to copy the GDG to a new GDG B with below layout as mentioned in NEWNTB

Now I want to migrate the data in existing GDG A generation to the new GDG B of same generation number

How can I do it..

Note : The fields in red are newly added and offsets are changed?


old vsamntb

01 a.
05 B PIC X(40)
05 C OCCURS 10 TIMES
10 D PIC X(20)
05 E PIC X(40)
05 FILLER X(60)
newntb

05 B PIC X(40)
05 C OCCURS 10 TIMES
10 D PIC X(20)
10 FILLER PIC X(60)
05 E PIC X(40)
05 FILLER X(60)
Back to top
View user's profile Send private message
Rupesh.Kothari

Member of the Month


Joined: 27 Apr 2005
Posts: 463

PostPosted: Thu Mar 02, 2006 4:12 pm
Reply with quote

Hi,

I believe you need to a short COBOL program to reformat it from Old to New.

Hope it helps

Regards
Rupesh
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Thu Mar 02, 2006 6:55 pm
Reply with quote

I think this is the proper SORT job:
Code:

//STEP0001 EXEC PGM=SORT                           
//SORTIN   DD   DISP=SHR,DSN=vsamntb
//SORTOUT  DD   DSN=newntb,
//         DISP=(,CATLG,DELETE),UNIT=SYSDA,       
//         SPACE=(CYL,(1,1),RLSE)                 
//SYSOUT   DD   SYSOUT=*                           
//SYSIN    DD   *                                 
  OPTION COPY                                     
  OUTREC FIELDS=(1:1,40,41:41,20,121:61,20,       
    201:81,20,281:101,20,361:121,20,               
    441:141,20,521:161,20,601:181,20,             
    681:201,20,761:221,20,841:241,40,             
    881:281,60)                                   
/*                                                 
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 -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
No new posts SCOPE PENDING option -check data DB2 2
No new posts Check data with Exception Table DB2 0
No new posts JCL EXEC PARM data in C Java & MQSeries 2
This topic is locked: you cannot edit posts or make replies. Automation need help in sorting the data DFSORT/ICETOOL 38
Search our Forums:

Back to Top