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 

How To Disintegrate A File thru JCL
Goto page Previous  1, 2
 
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
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Sat Apr 15, 2006 6:55 am    Post subject: Reply with quote
Quote:

Both of them in fact........

ranga_subham,

The following JCL will give you the desired results of splitting a single record in 6 records

Code:

//STEP0100 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*               
//SYSLIST  DD SYSOUT=*               
//DD01     DD DSN=YOUR INPUT FILE TO SPLIT,
//            DISP=SHR
//OUTPUT1  DD DSN=YOUR OUTPUT FILE SPLIT INTO 6 RECORDS,
//            DISP=(NEW,CATLG,DELETE),                               
//            UNIT=SYSDA,                                             
//            SPACE=(CYL,(X,Y),RLSE),                                 
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=480)
//SYSIN    DD *                 
$$DD01 USER MOVE=(001,080,001),WRITE=OUTPUT1,
            MOVE=(001,080,081),WRITE=OUTPUT1,
            MOVE=(001,080,161),WRITE=OUTPUT1,
            MOVE=(001,080,241),WRITE=OUTPUT1,
            MOVE=(001,080,321),WRITE=OUTPUT1,
            MOVE=(001,080,401),WRITE=OUTPUT1
/*


The following JCL will give you the desired results of combing 6 records into a single record.

Code:

//STEP0200  EXEC PGM=FILEAID
//SYSPRINT  DD SYSOUT=*
//DD01      DD DSN=YOUR INPUT FILE WHICH IS SPLIT INTO 6 RECORDS,
//             DISP=SHR,LRECL=480
//DD01O     DD DSN=YOUR OUTPUT FILE WHICH COMBINES 6 RECORDS INTO ONE,
//             DISP=(NEW,CATLG,DELETE),                               
//             UNIT=SYSDA,                                           
//             SPACE=(CYL,(X,Y),RLSE)                                 
//SYSIN     DD *                                                   
$$DD01 COPY
/*


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
ranga_subham
Intermediate


Joined: 31 Jan 2006
Posts: 255
Topics: 72
PostPosted: Sun Apr 16, 2006 11:08 am    Post subject: Reply with quote
Oh...File-Aid simplify the things a lot. Thanks a lot Kolusu.
_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Sun Apr 16, 2006 7:21 pm    Post subject: Reply with quote
Quote:

Oh...File-Aid simplify the things a lot. Thanks a lot Kolusu.


ranga_subham,

Compared to what? I guess both sort and file-aid solutions are simple.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
ranga_subham
Intermediate


Joined: 31 Jan 2006
Posts: 255
Topics: 72
PostPosted: Tue Apr 18, 2006 12:21 am    Post subject: Reply with quote
I mean looking at all those '/' and other things in SORT I feel using File-aid is rather simple.
_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Tue Apr 18, 2006 10:38 am    Post subject: Reply with quote
Each / just means start a new line. Hard to see how MOVE/WRITE for each line is "simpler" than / for each line. You can write the OUTFIL statement like this if it seems "simpler" to you:

Code:

   OUTFIL OUTREC=(1,80,/,
          81,80,/,
          161,80,/,
          241,80,/,
          321,80,/,
          401,80)

_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
ranga_subham
Intermediate


Joined: 31 Jan 2006
Posts: 255
Topics: 72
PostPosted: Wed Apr 19, 2006 11:42 pm    Post subject: Reply with quote
Yes Frank. Now, it has clarity. Thanks.
_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Mon Nov 01, 2010 3:33 pm    Post subject: Reply with quote
With z/OS DFSORT V1R10 PTF UK90025 or z/OS DFSORT V1R12 PTF UK90026 (Oct,2010), you can now use the new RESIZE operator of DFSORT's ICETOOL to easily create larger records from smaller records, or smaller records from larger records. For example, to create 480 byte records from 80 byte records, you would use:

Code:

RESIZE FROM(SMALL) TO(LARGE) TOLEN(480)


and to create 80 byte records from 480 bytes records, you would use:

Code:

RESIZE FROM(LARGE) TO(SMALL) TOLEN(80)


For complete details on the new functions for DFSORT and DFSORT's ICETOOL available with the Oct, 2010 PTF, see:

http://www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000242
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
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
Goto page Previous  1, 2
Page 2 of 2

 
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