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 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: 397
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 Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts BUILD OUTFIL based on condition other... balaji81_k DFSORT/ICETOOL 13 Fri Sep 08, 2017 11:06 pm
No new posts Skip file from delete pema_yozer All Other Mainframe Topics 3 Tue Aug 29, 2017 3:19 pm
No new posts Join records from 2 files with No Dup... Poha Eater DFSORT/ICETOOL 21 Sun Aug 27, 2017 10:35 pm
No new posts editting the file by inserting zeros ... pramodrsingh DFSORT/ICETOOL 9 Mon Aug 21, 2017 5:58 pm

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