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
 

 

File-Aid - Copy IF with MOVE

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
gorman
Currently Banned

New User


Joined: 23 Sep 2008
Posts: 10
Location: Chennai

PostPosted: Wed Sep 24, 2008 10:24 pm    Post subject: File-Aid - Copy IF with MOVE
Reply with quote

Hi,

I have an input file as shown below:

Code:

123      PENTAFAMTS12347XL5
X455     CURRYMENTS34543XL5
T255     FIJMARSNTS34543TL5
P675     QUERYPENTS15644XL5


I am using below SYSIN card to copy only the records having 'XL5' at column 25 and move the content from 10th positon to 1st position of length 18 bytes.

Code:

//SYSIN    DD  *                             
$$DD01 COPYALL IF=(25,EQ,C'XL5'),MOVE=(1,18,10)
/*


Though job ends with MAXCC=0, it is copying all the four records to sysout !

Present output:
Code:

PENTAFAMTS12347XL5         
CURRYMENTS34543XL5         
T255     FIJMARSNTS34543TL5
QUERYPENTS15644XL5         


Expected output:
Code:

PENTAFAMTS12347XL5         
CURRYMENTS34543XL5         
QUERYPENTS15644XL5         


Please help.

Thanks.
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Sep 24, 2008 11:39 pm    Post subject:
Reply with quote

Hello,

Try COPY rather than COPYALL. I believe COPYALL tells FileAid to ignore the test criteria and work on the entire file.
Back to top
View user's profile Send private message
gorman
Currently Banned

New User


Joined: 23 Sep 2008
Posts: 10
Location: Chennai

PostPosted: Thu Sep 25, 2008 8:46 am    Post subject: Dick did the Trick !
Reply with quote

Hey D,

That had done the trick. icon_wink.gif

Thank you... icon_biggrin.gif
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Sep 25, 2008 8:56 am    Post subject: Reply to: File-Aid - Copy IF with MOVE
Reply with quote

You're welcome - thanks for letting us know it worked icon_smile.gif

d
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 Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 1 Fri Mar 24, 2017 3:25 pm
No new posts splitting a file abdulrafi DFSORT/ICETOOL 3 Fri Mar 24, 2017 11:51 am
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm


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