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: 7935
Location: Bellevue, IA

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 TAPE VERIFY utility?? MrExtraordinare JCL & VSAM 3 Fri Dec 09, 2016 10:57 pm
No new posts Best IMS DB Unload Utility jjabez10 IMS DB/DC 12 Thu Sep 22, 2016 11:15 pm
No new posts Any docs / links for isub- cobol comp... SRICOBSAS COBOL Programming 4 Fri Aug 26, 2016 2:35 pm
No new posts Comparex utility to Syncsort conversion mistah kurtz SYNCSORT 11 Fri Jul 22, 2016 1:53 pm
No new posts DXT unload utility - DVRE0000 mistah kurtz DB2 1 Thu Jul 07, 2016 4:56 pm


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