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

File-Aid - Copy IF with MOVE
IBM Mainframe Forums -> Compuware & Other Tools
Post new topic   Reply to topic Quick References
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
 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

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Wed Sep 24, 2008 11:39 pm
 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
 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

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Thu Sep 25, 2008 8:56 am
 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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> Compuware & Other Tools

 

Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 2
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us