View previous topic :: View next topic
|
Author |
Message |
manoz_k
New User
Joined: 08 Mar 2007 Posts: 23 Location: CHENNAI
|
|
|
|
I need to convert FileAid utility related procs to other utils like SORT or any IBM utilities.
Please let me know what exactly the following SYSIN means in File Aid.
I need to mimic the same using SORT.
$$DD01 COPY IF=(23,EQ,C'1'),RA=(37,0,X'00',X'40'),
IF=(23,NE,C'1'),RA=(819,15,X'00',X'40') |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
This seems like a pretty easy thing to find in the manual -- what did your search find? |
|
Back to top |
|
|
manoz_k
New User
Joined: 08 Mar 2007 Posts: 23 Location: CHENNAI
|
|
|
|
Robert Sample wrote: |
This seems like a pretty easy thing to find in the manual -- what did your search find? |
I could not understand the PARMs inside the RA clause... it seems it trying to convery NULLS to SPACES but what 37 and 0 tells is quite cryptic for me.
Generally 37,1 means only one byte that is 37th byte.But 37,0 i could not understand.
Code: |
$$DD01 COPY IF=(23,EQ,C'1'),RA=(37,0,X'00',X'40'), |
Thank you very much for looking into this !!! |
|
Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
the use of 0 is used to scan to the end of the record.
Gerry |
|
Back to top |
|
|
manoz_k
New User
Joined: 08 Mar 2007 Posts: 23 Location: CHENNAI
|
|
|
|
gcicchet wrote: |
Hi,
the use of 0 is used to scan to the end of the record.
Gerry |
That means can i say it is replacing all NULLS with BLANKS wherever it encounters after 37th Byte.
Thanks so much for your help. |
|
Back to top |
|
|
ramsri
Active User
Joined: 18 Oct 2008 Posts: 380 Location: India
|
|
|
|
Code: |
$$DD01 COPY IF=(23,EQ,C'1'),RA=(37,0,X'00',X'40'),
IF=(23,NE,C'1'),RA=(819,15,X'00',X'40')
|
This FIle-Aid statement does copy the records
1). IF 23rd column of input record has '1' while replacing all the low-values with SPACES starting from 37th column till end of record.
2). Also, copies records when 23rd column is NOT equal to '1' while replacing 15 bytes starting from 819 column with SPACES.
Thanks. |
|
Back to top |
|
|
|