Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

FileAid Utility

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
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    Post subject: FileAid Utility
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: 8117
Location: East Dubuque, Illinois, USA

PostPosted: Fri Aug 21, 2009 1:09 am    Post subject:
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    Post subject: FileAid Utility
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: 1703
Location: Australia

PostPosted: Fri Aug 21, 2009 5:22 am    Post subject:
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    Post subject:
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to Use DebugTool CodeCoverage Uti... neo4u IBM Tools 0 Thu Jun 22, 2017 6:38 pm
No new posts Search utility(3.14) using JCl and Cobol RKS3 COBOL Programming 12 Sat Jun 10, 2017 10:24 pm
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts DB2 - TERMINATE utility vasanthz DB2 5 Mon May 15, 2017 11:49 pm
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us