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
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
This topic is locked: you cannot edit posts or make replies. Sort card to replace text using cross... Susanta SYNCSORT 32 Tue Sep 13, 2016 4:17 pm
No new posts Creating a dynamic sort card in JCL u... ChitraChhabra DFSORT/ICETOOL 4 Wed Aug 03, 2016 6:15 pm
No new posts Using Field names in FILEAID Batch CO... Atul Banke Compuware & Other Tools 2 Wed Jun 29, 2016 9:54 pm
No new posts Control-M manuals JPVRoff All Other Mainframe Topics 0 Fri May 20, 2016 11:15 am


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