Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

DFSORT VB File make 2 lines from 1

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
BridgetBrackenbury

New User


Joined: 12 Feb 2016
Posts: 4
Location: NZ

PostPosted: Fri Feb 12, 2016 3:48 am    Post subject: DFSORT VB File make 2 lines from 1
Reply with quote

Hi,
I have a VB file LRECL 5014 which I need to limit to an LRECL of 256. Most of the records are less than 256 but some aren't. The output file needs to be VB.

I need to find lines that are longer than 256 and split them up into 256 chunks with an intervening line with something like 'SPLIT LINE' on it so I can tell which lines have been split

I have got this far
Code:
//SRTNVAS  EXEC PGM=SORT                         
//SYSOUT   DD  SYSOUT=*                           
//SORTIN   DD  DISP=SHR,DSN=&URTHLQ..TEST.IN     
//SORTOUT  DD  DISP=(SHR),                       
//         DSN=&URTHLQ..TEST.OUT.TXT,             
//         RECFM=VB,SPACE=(TRK,(2,1)),UNIT=SYSDA 
//SYSIN    DD  *                                 
  OPTION COPY                                     
  OUTFIL IFTHEN=(WHEN=(1,2,BI,GT,200),           
          BUILD=(1,4,5,200,/))                   
/*         

but for the new line I am running into an error of missing the RDW
and I am not sure of the best method of breaking up the whole 5014.
Any help much appreciated
Back to top
View user's profile Send private message

RahulG31

Active User


Joined: 20 Dec 2014
Posts: 331
Location: USA

PostPosted: Fri Feb 12, 2016 4:52 am    Post subject: Reply to: DFSORT VB File make 2 lines from 1
Reply with quote

RDW is in position 1-4. You are using slash operator '/' to split records. So, the new record after '/' should start with 1,4 or 1,n for a VB.

I think this is why you are getting RDW Missing error.

.
Back to top
View user's profile Send private message
BridgetBrackenbury

New User


Joined: 12 Feb 2016
Posts: 4
Location: NZ

PostPosted: Fri Feb 12, 2016 5:04 am    Post subject: Reply to: DFSORT VB File make 2 lines from 1
Reply with quote

Yes Thanks That helped
Code:
//SYSIN    DD  *                                           
  OPTION COPY                                             
  OUTFIL     IFTHEN=(WHEN=(1,2,BI,GT,100),                     
          BUILD=(1,4,5,100,/,1,4,C'**SPLIT**',/,1,4,105)),
         IFTHEN=(WHEN=(1,2,BI,LT,100),                     
          BUILD=(1,4,5)) 
[/code]
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us