MVSFORUMS.com

[selva21]

Hi,

We are using the following control card in a job:
RECORD TYPE=V
INREC FIELDS=(1:1,4,
5:19)
SORT FIELDS=(636,8,BI,A,5,13,BI,A)
OUTFIL FILES=(01),
INCLUDE=(34,4,CH,EQ,C'ANST')

The job is abending with:
ICE218A 0 340 BYTE VARIABLE RECORD IS SHORTER THAN 657 BYTE MINIMUM FOR FIELDS

The input file is having many short records.

Please help me in solving this problem.

Thanks,
Selva
_________________
--------------------------------------------------------
Knowledge is power. But Imagination is more important than Knowledge. -Albert Einstein
--------------------------------------------------------

[kolusu]

Selva,

You need to use the option VLSCMP.

VLSCMP specifies whether DFSORT is to pad "short" variable-length INCLUDE/OMIT compare fields with binary zeros. A short field is one where the variable-length record is too short to contain the entire field, that is, the field extends beyond the record. VLSCMP and NOVLSCMP apply to the INCLUDE and OMIT statements and to the INCLUDE and OMIT parameters of the OUTFIL statement. The compare fields are only padded temporarily for testing; they are not actually changed for output.

So change your control cards to the following

[selva21]

Thanks Kolusu for your help !

But the job again failed with the same return code.

The job is:

[kolusu]

selva,

oops I just remembered that VLSCMP affects only INCLUDE/OMIT only. You need OPTION VLSHRT which affects SORT/MERGE as well as SUM parms.

Change the option to VLSHRT and you don't need the record type=v

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[Frank Yaeger]

Actually, just adding VLSHRT won't work in this case because VLSHRT is turned off when INREC is specified.

Instead of having INREC shorten the record, you need to remove the INREC statement, and SORT on the original input record so you can use VLSHRT to take care of the short records. Then use OUTFIL OUTREC to shorten the record after it's sorted. You need to add 14 to each starting position to reflect the input record rather than the INREC record. Here's the DFSORT control statements you need:

[selva21]

Thanks Frank and Kolusu for your help !

It works now without the INREC .

OPTION VLSHRT
RECORD TYPE=V
SORT FIELDS=(650,8,BI,A,19,13,BI,A)
OUTFIL FILES=(01),
INCLUDE=(48,4,CH,EQ,C'ANST'),
OUTREC=(1:1,4,5:19)

Could you please explain why INREC is not working in this case?


Thanks,
Selva.
_________________
--------------------------------------------------------
Knowledge is power. But Imagination is more important than Knowledge. -Albert Einstein
--------------------------------------------------------

[Frank Yaeger]