Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 447
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 Hex Value - vb file replace old date ... premnath DFSORT/ICETOOL 10 Sat Oct 17, 2020 3:15 am
No new posts Related to using a file in comparison Kumar Sandeep JCL & VSAM 4 Fri Oct 16, 2020 5:30 pm
No new posts Creating a single-record file with CO... Joerg.Findeisen DFSORT/ICETOOL 8 Tue Oct 06, 2020 8:19 pm
No new posts Altering output file attributes f8ful All Other Mainframe Topics 5 Tue Oct 06, 2020 4:07 pm
No new posts Join lines with dfsort kushkush DFSORT/ICETOOL 5 Mon Oct 05, 2020 12:16 pm

Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us