IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Count the length of the record & display in a new line


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sreekusr
Warnings : 1

New User


Joined: 28 Aug 2006
Posts: 54
Location: Madrid

PostPosted: Thu Mar 23, 2017 7:52 pm
Reply with quote

Hi All,

Please could someone help me with a clever SORT to tackle below task -

Input file (FB dataset - XML way)
Code:

<DATARECORDS>ABCD  EF</FRMTDDATA>
<DATARECORDS>GHIJKLM</FRMTDDATA>
<DATARECORDS>NO P</FRMTDDATA>
<DATARECORDS>QRST  UVWXYZ</FRMTDDATA>


Expected Output
Code:

DATA,33
<DATARECORDS>ABCD  EF</FRMTDDATA>
DATA,32
<DATARECORDS>GHIJKLM</FRMTDDATA>
DATA,29
<DATARECORDS>NO P</FRMTDDATA>
DATA,37
<DATARECORDS>QRST  UVWXYZ</FRMTDDATA>


Thanks in advance.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK

PostPosted: Thu Mar 23, 2017 8:01 pm
Reply with quote

If you want a sort answer why post in JCL & VSAM - neither of which are a Sort product - instead of posting in one of the Sort sections of the forum?
Topic moved.
Back to top
View user's profile Send private message
sreekusr
Warnings : 1

New User


Joined: 28 Aug 2006
Posts: 54
Location: Madrid

PostPosted: Thu Mar 23, 2017 8:06 pm
Reply with quote

Oops. Sorry. My bad. Thanks for shifting it to SORT and next time I will be careful.
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk

PostPosted: Thu Mar 23, 2017 8:24 pm
Reply with quote

Converting to VB will help storing the length, in the first 2 bytes in BI format (part of RDW).
You could then write 2 records - first : the length from the first 2 bytes and second : the actual data.
Back to top
View user's profile Send private message
sreekusr
Warnings : 1

New User


Joined: 28 Aug 2006
Posts: 54
Location: Madrid

PostPosted: Thu Mar 23, 2017 10:05 pm
Reply with quote

Hi Arun,

Thanks it worked.

Code:

//TOOLIN DD *                                           
COPY FROM(IN) USING(CTL1)                               
COPY FROM(T1) TO(OUT) USING(CTL2)                       
/*                                                       
//CTL1CNTL DD *                                         
  OUTFIL FNAMES=T1,FTOV,VLTRIM=X'00'                     
/*                                                       
//CTL2CNTL DD *                                         
  OUTFIL VTOF,                                           
  BUILD=(C'DATA,',1,2,BI,SUB,+4,TO=ZD,LENGTH=4,/,         
         5,3000)                                         
/*                                                       
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Compare the file record count percent... DFSORT/ICETOOL 3
No new posts Command line placement in DB2I panels TSO/ISPF 2
No new posts Converting a file from PD to display ... SYNCSORT 4
No new posts Record count of RECFM=U tape file DFSORT/ICETOOL 17
No new posts Checking the total counts inside a re... JCL & VSAM 5
Search our Forums:

Back to Top