IBM Mainframe Forum

Hi All,

I was trying to resolve this issue, could you plesae help me..i'm getting folowing error,

ICE201I E RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE126A 2 INCONSISTENT *INREC IFTHEN 1 REFORMATTING FIELD FOUND

for the control card statements

SORT FIELDS=COPY
ALTSEQ CODE=(5AFC,E0EC,4A63,A159,D0DC,6ACC,C043,
43C0,59A1,634A,7CB5,B57C,CC6A,DCD0,ECE0,FC5A)
INREC IFTHEN=(WHEN=(12,7,CH,EQ,C'WPK'),
BUILD=(1,27,TRAN=ALTSEQ))
OUTREC IFTHEN=(WHEN=(5,1,CH,EQ,C'C'),
BUILD=(1,327,TRAN=ALTSEQ))


Thanks in advance

There are several problems with your statements.



Since you're working with a VB input file, you have to account for the RDW in positions 1-4 so your BUILD should be:



I don't know if you took the RDW into account for the starting position of 12.

Your OUTREC statement is also in error.

Since I don't know what you're trying to do, I can't tell you how to correct your statements.

Start over and show an example of the records in your input file and what you expect for output. Explain the "rules" for getting from input to output.

Thankx yaegar,

Here's my input file,

SSD00100VOR GCB2009072220090722004841000001041Etb WP-Stammdaten
SSD00100KLH DE000AK0EMP0AK0EMPD1334 EDF000000000000000000 ETB 00000000
SSD00100WPK DE000@@0EMP0AK0EMPD1334 EDF1NN31.12.999922.06.2009EURETBJ J


My requirement is,

If 9-12 column contains "WPK" then I need to translate from cols 1 to 27 and for others I need to translate the whole row

I think this will clear,

thankx in advance

Here's a DFSORT job that will do what I think you're asking for: