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 

Joining VB files

 
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
jajularamesh
Beginner


Joined: 14 Apr 2006
Posts: 87
Topics: 33
PostPosted: Mon Aug 20, 2007 2:52 pm    Post subject: Joining VB files Reply with quote
Hi ,

Can any one help how to join to VB files and get the final file as a vb file.I used the code below but i am getting FB file(i know i will be getting FB file is there any way to get a VB file).Actully Input file are VB files
of length 1943
Code:

//STEP1    EXEC PGM=SORT                             
//SORTJNF1 DD DSN=TPLAN01.COLA.ACCOUNT.RUN1,DISP=SHR
//SORTJNF2 DD DSN=TPLAN01.COLA.ACCOUNT.RUN2,DISP=SHR
//SYSOUT   DD SYSOUT=*                             
//SORTOUT  DD DSN=TPLAN01.COLA.ACCOUNT.XXX,         
//            DISP=(NEW,CATLG,DELETE),               
//            UNIT=SYSDA,DCB=*.SORTJNF1             
//SYSIN     DD  *                                   
 JOINKEYS FILES=F1,FIELDS=(5,27,A)      //REQUEST ID
 JOINKEYS FILES=F2,FIELDS=(5,27,A)       //REQUEST ID
 REFORMAT FIELDS=(F1:1,1943)                         
 SORT FIELDS=COPY
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12383
Topics: 75
Location: San Jose
PostPosted: Mon Aug 20, 2007 4:28 pm    Post subject: Reply with quote
Quote:

REFORMAT FIELDS=(F1:1,1943)

jajularamesh,

Just change the above statement to the following

Code:

REFORMAT FIELDS=(F1:1,4,5)


Since your input file is a vb file you need to specify the RDW

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
jajularamesh
Beginner


Joined: 14 Apr 2006
Posts: 87
Topics: 33
PostPosted: Mon Aug 20, 2007 5:45 pm    Post subject: Reply with quote
Thanks a lot kolusu
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