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
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm


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