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
 

 

control card in jcl with fileaid

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

New User


Joined: 04 Jun 2007
Posts: 55
Location: Hyderabad

PostPosted: Fri Nov 16, 2007 2:44 pm    Post subject: control card in jcl with fileaid
Reply with quote

hi ,

this control card is giving me erro.can any one help me out

$$DD01 OPTION COPY
OUTREC IFTHEN=(WHEN=(46,1,CH,NOT EQ,C' '),AND,
(1,1,CH,EQ,C'0'),
OVERLAY=(1:C' '))


problem: i need to check the coloum 46 for non-blank charector and also the ist coloumn equal to zero then replace the outfile of ist coloumn with space.

iam getting the error that no valid function in control card. i am using fileaid for copying.


can any one help me out.
Back to top
View user's profile Send private message

murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Fri Nov 16, 2007 2:54 pm    Post subject:
Reply with quote

Lakshmi,

Quote:
$$DD01 OPTION COPY
OUTREC IFTHEN=(WHEN=(46,1,CH,NOT EQ,C' '),AND,
(1,1,CH,EQ,C'0'),
OVERLAY=(1:C' '))

Wow!!!! good control card which uses FA as well as SORT statements.
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Fri Nov 16, 2007 3:06 pm    Post subject:
Reply with quote

Lakshmi,

Try the following -

Code:
  SORT FIELDS=COPY                                         
  INREC IFTHEN=(WHEN=(46,1,CH,EQ,X'40',AND,1,1,CH,EQ,C'0'),
                 OVERLAY=(1:X'40'))
Back to top
View user's profile Send private message
varalakshmi.G

New User


Joined: 04 Jun 2007
Posts: 55
Location: Hyderabad

PostPosted: Fri Nov 16, 2007 3:11 pm    Post subject:
Reply with quote

but this control card giving error

like no valid function
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Fri Nov 16, 2007 3:13 pm    Post subject:
Reply with quote

Lakshmi,

The control card provided use SORT utility not FA.
Back to top
View user's profile Send private message
varalakshmi.G

New User


Joined: 04 Jun 2007
Posts: 55
Location: Hyderabad

PostPosted: Fri Nov 16, 2007 3:16 pm    Post subject:
Reply with quote

please suggest me with fileaid utility
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Fri Nov 16, 2007 3:18 pm    Post subject: Reply to: control card in jcl with fileaid
Reply with quote

Lakshmi,

Execute a SORT utility and not FA.

Murali,

Lakshmi wrote:
Quote:
coloum 46 for non-blank charector


The control card should be

Code:
SORT FIELDS=COPY                                               
INREC IFTHEN=(WHEN=(46,1,CH,NE,X'40',AND,1,1,CH,EQ,C'0'),     
               OVERLAY=(1:X'40'))                             
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Fri Nov 16, 2007 3:20 pm    Post subject:
Reply with quote

Aaru,

Good point.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Fri Nov 16, 2007 3:51 pm    Post subject: Reply to: control card in jcl with fileaid
Reply with quote

Varalakshmi,

Use this FA JCL for your requirement.

Code:
//SYSIN    DD  *                             
$$DD01 COPY IF=(1,EQ,C'0'),                   
            AND=(46,NE,X'40'),               
            REPL=(1,X'40')                   
/*                                           
Back to top
View user's profile Send private message
varalakshmi.G

New User


Joined: 04 Jun 2007
Posts: 55
Location: Hyderabad

PostPosted: Fri Nov 16, 2007 6:47 pm    Post subject: control card in jcl with fileaid
Reply with quote

Hi Aaru,

My Problem was resolved with your JCL.
Thanks for your help.

Regards,
Lakshmi
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Sat Nov 17, 2007 9:41 pm    Post subject: Reply to: control card in jcl with fileaid
Reply with quote

Glad that i was able to help you icon_biggrin.gif
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 Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts PA02 - Programmtically control attent... dodithegreat IMS DB/DC 1 Thu Apr 06, 2017 8:33 pm
No new posts Sort Card to Remove Duplicate records... raj4neo SYNCSORT 2 Wed Jan 25, 2017 4:44 am
This topic is locked: you cannot edit posts or make replies. How to use 2 input files in control c... Gunapala CN DFSORT/ICETOOL 23 Thu Oct 13, 2016 3:42 pm


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