|
View previous topic :: View next topic
|
| Author |
Message |
varalakshmi.G
New User
Joined: 04 Jun 2007
Posts: 55
Location: Hyderabad
|
|
|
|
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 |
|
 |
murmohk1
Senior Member
.jpg)
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
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 |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
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 |
|
|
varalakshmi.G
New User
Joined: 04 Jun 2007
Posts: 55
Location: Hyderabad
|
|
|
|
but this control card giving error
like no valid function |
|
| Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
Lakshmi,
The control card provided use SORT utility not FA. |
|
| Back to top |
|
|
varalakshmi.G
New User
Joined: 04 Jun 2007
Posts: 55
Location: Hyderabad
|
|
|
|
| please suggest me with fileaid utility |
|
| Back to top |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
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 |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
Aaru,
Good point. |
|
| Back to top |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
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 |
|
|
varalakshmi.G
New User
Joined: 04 Jun 2007
Posts: 55
Location: Hyderabad
|
|
|
|
Hi Aaru,
My Problem was resolved with your JCL.
Thanks for your help.
Regards,
Lakshmi |
|
| Back to top |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
Glad that i was able to help you  |
|
| Back to top |
|
|
|
|
