mkk157
Active User
Joined: 17 May 2006 Posts: 310
|
|
|
|
Hi All,
This query is in continuation to my previous query.
I was using the sort card suggested earlier, which was working well till now.
Code: |
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,4,5:5,26,31:C'ABC',34:31)
/* |
Now I got additional requirement on the top of existing one, Which is to replace the CRLF character with SPACES.
I got the desired output with the following control card.
Code: |
//SYSIN DD *
SORT FIELDS=COPY
INREC FINDREP=(INOUT=(X'0D25',C' '))
OUTREC FIELDS=(1:1,4,5:5,26,31:C'ABC',34:31)
/* |
Now, I'm getting a doubt, using INREC and OUTREC together is a good idea? Is it a good practice? Is there any better way to get it done ? |
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Since you ignored all my advice in the last topic, there's not much point in my commenting, is there? :-)
For other readers, it probably makes little difference in a COPY/MERGE operation or in a SORT where the action in the OUTREC is not dependent on the result of the INREC. Sometimes it is convenient to just use an OUTREC rather than rearrange (using IFTHEN) the INREC. Test for large volumes of records. |
|