I have input file having lrecl=62
if assign_code EQ 'G' or 'P' then move 'A' at the 63 position
else move 'U' at the 63
and
dats30 <= 30 move 1 at 64 position else move 0 at 64 position
IF I give the below code,it is giving syntax at the overlay after none statement
This is from dfsort application programming guide...
Quote:
IFTHEN clauses are processed in the following order:
1 WHEN=INIT clauses
2 WHEN=(logexp) clauses and WHEN=ANY clauses
3 WHEN=NONE clauses
you dont have all WHEN=NONE clauses followed by all of the WHEN=logical expr
This was about syntax error you are getting..
Apart from it, there is lot of optimization could be done in your code if you tell good requirement..
like file format,lrecl, field positions and possibly some sample records...
