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

FileAid Utility


IBM Mainframe Forums -> Compuware & Other Tools
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
manoz_k

New User


Joined: 08 Mar 2007
Posts: 23
Location: CHENNAI

PostPosted: Fri Aug 21, 2009 12:24 am
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Fri Aug 21, 2009 1:09 am
Reply with quote

This seems like a pretty easy thing to find in the manual -- what did your search find?
Back to top
View user's profile Send private message
manoz_k

New User


Joined: 08 Mar 2007
Posts: 23
Location: CHENNAI

PostPosted: Fri Aug 21, 2009 4:34 am
Reply with quote

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
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Fri Aug 21, 2009 5:22 am
Reply with quote

Hi,

the use of 0 is used to scan to the end of the record.


Gerry
Back to top
View user's profile Send private message
manoz_k

New User


Joined: 08 Mar 2007
Posts: 23
Location: CHENNAI

PostPosted: Fri Aug 21, 2009 6:08 am
Reply with quote

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
View user's profile Send private message
ramsri

Active User


Joined: 18 Oct 2008
Posts: 380
Location: India

PostPosted: Fri Aug 21, 2009 1:05 pm
Reply with quote

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
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 -> Compuware & Other Tools

 


Similar Topics
Topic Forum Replies
No new posts Search two or more word with FILEAID Compuware & Other Tools 15
No new posts REASON 00D70014 in load utility DB2 6
No new posts ISRSUPC search utility - using high l... TSO/ISPF 2
No new posts Generate output lines (SYSIN card for... DFSORT/ICETOOL 4
No new posts Any JCL or VSAM Utility to get number... JCL & VSAM 1
Search our Forums:

Back to Top