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 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 Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts BUILD OUTFIL based on condition other... balaji81_k DFSORT/ICETOOL 13 Fri Sep 08, 2017 11:06 pm
No new posts XMITIP sends it out. Can it copy on l... Rommel Dayon Rustia IBM Tools 0 Tue Sep 05, 2017 10:16 am
No new posts Skip file from delete pema_yozer All Other Mainframe Topics 3 Tue Aug 29, 2017 3:19 pm
No new posts editting the file by inserting zeros ... pramodrsingh DFSORT/ICETOOL 9 Mon Aug 21, 2017 5:58 pm

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