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 Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am
No new posts Occurrence of various strings within ... TS70363 JCL & VSAM 1 Thu Apr 27, 2017 8:18 pm


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