MVSFORUMS.com

[Siddheart22]

Hi,

Input File is variable length with maximum length as 400 bytes:
01 Input-Record.
05 Filler pic x(43).
05 Emp-Number pic s9(09) comp-3.
05 Filler pic x(37).
05 Emp-name pic x(11).
05 filler pic x(64).

Requirement:
- I need to Replace the Emp-Name by 'Jane Doe ' and in the Emp-Number field I need to replace the first 3 bytes by 3 binary zeroes.

- Output file attributes should be identical as input.

Following is my SORT card:

SORT FIELDS=(COPY)
OUTFIL OUTREC=(1,4,5,43,3Z,47,2,49,37,C'JANE DOE ',93)

Question:
I am getting an abend while running the Sort program. The abend says - SORTOUT HAS INCOMPATIBLE LRECL'

In my JCL, I have defined the LRECL parameter for SORTOUT as 400.
I am not sure what could be the problem.

Could someone advise please.

Thanks,

[kolusu]

Siddheart22,

Try this sort card

[Siddheart22]

Thanks Kolusu.
It did work..

Regards,