Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
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
 
JCL using Fileaid utility.

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

New User


Joined: 29 Jan 2006
Posts: 1
Location: hyderabad

PostPosted: Fri Mar 26, 2010 5:57 pm    Post subject: JCL using Fileaid utility.
Reply with quote

Hi all,
I have requirement like there is an flat file which contains customer information in different locations. say for eg., firstname and last name may be in poisition 10 and 30 and other information will be in some other location. for some of the fields (say more than 3 columns) i need to replace with new values. I tried doing in Fileaid utility in JCL but I not able to give multiple if conditions to validate the record. Is it possible to give multiple if's for validation the different locations of records.
//SYSIN DD *
$$DD01 COPYALL IF=(225,EQ,C'MI,BC'),
MOVE=(163,2,225),
MOVE=(165,C'12345'),
ELSE,
MOVE=(163,C' '),
MOVE=(165,8,227),
IF=(225,EQ,C'ON'),
MOVE=(163,2,225),
MOVE=(165,C'A1B2C3'),
ELSE,
MOVE=(163,C' '),
MOVE=(165,8,227),
MOVE=(1,26,42),MOVE=(27,34,73), 1ST AND LAST NAME
MOVE=(61,39,108),MOVE=(100,39,148), ADDR1 AND ADD2
MOVE=(139,24,195) CITY
/*
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8620
Location: Back in jolly old England

PostPosted: Fri Mar 26, 2010 6:05 pm    Post subject:
Reply with quote

Don't know. Why don't YOU try it out and report back to us if it's possible icon_rolleyes.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8201
Location: Dubuque, Iowa, USA

PostPosted: Fri Mar 26, 2010 6:42 pm    Post subject:
Reply with quote

Why not something like
Code:
IF=(225,EQ,C'ON'),
MOVE=(163,2,225),
MOVE=(165,C'A1B2C3'),
IF=(225,NE,C'ON'),
MOVE=(163,C' '),
MOVE=(165,8,227),
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 Change NULL indicator in UNLOAD utility Khadhar Basha DB2 2 Fri Dec 15, 2017 3:01 pm
No new posts NULLFILE on ICEGENER Utility Ashishpanpaliya DFSORT/ICETOOL 5 Wed Nov 08, 2017 10:45 pm
No new posts Table(Unicode(Graphic) table) loading... muralikrishnan_new DB2 0 Thu Oct 05, 2017 5:10 pm
No new posts How to Use DebugTool CodeCoverage Uti... neo4u IBM Tools 0 Thu Jun 22, 2017 6:38 pm
No new posts Search utility(3.14) using JCl and Cobol RKS3 COBOL Programming 12 Sat Jun 10, 2017 10:24 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us