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
 

 

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: 8593
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: 8117
Location: East Dubuque, Illinois, 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 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
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts DB2 - TERMINATE utility vasanthz DB2 5 Mon May 15, 2017 11:49 pm
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm


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