View previous topic :: View next topic
|
Author |
Message |
sreekusr Warnings : 1 New User
Joined: 28 Aug 2006 Posts: 54 Location: Madrid
|
|
|
|
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 |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
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 |
|
|
sreekusr Warnings : 1 New User
Joined: 28 Aug 2006 Posts: 54 Location: Madrid
|
|
|
|
Oops. Sorry. My bad. Thanks for shifting it to SORT and next time I will be careful. |
|
Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
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 |
|
|
sreekusr Warnings : 1 New User
Joined: 28 Aug 2006 Posts: 54 Location: Madrid
|
|
|
|
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 |
|
|
|