Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
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: 413
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 COB2 file processing rizwanaccy COBOL Programming 8 Tue Jan 02, 2018 1:00 pm
No new posts KSDS and Index file in cobol deepak14450 COBOL Programming 9 Fri Dec 22, 2017 9:36 am
No new posts Preserve order in Input File pshongal DFSORT/ICETOOL 13 Thu Dec 21, 2017 4:20 pm
No new posts ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am

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