sudhakar_lendave
New User
Joined: 21 Nov 2006 Posts: 48 Location: mumbai
|
|
|
|
Hi,
I am trying to copy one VB file (with lenth 1079) to another file (with length 1063) .
I have already created FILEB with length 1063.
I written following code but it is abending with ABENDU0217.
Code: |
//STEP001 EXEC PGM=IEFBR14
//SYSOUT DD SYSOUT=*
//BICOUT DD DSN=FILEB,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VB,LRECL=1063),
// SPACE=(CYL,(10,10),RLSE),
// UNIT=SYSDA
//*-----------------------------------------------------
//*-- SORT STEP
//*-----------------------------------------------------
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=FILEA,DISP=SHR
//SORTOUT DD DSN=FILEB,
// DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY
/*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
|
Can you suggest what is the problem in the JCL?
Thanks,
Sudhakar. |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Quote: |
The input file FILEA doesnot contain any record with length more than 1063. |
I ran the scenario you mentioned with DFSORT (no records longer than 1063 in FILEA) and got a RC=0.
The U0217 is associated with message ICE217A which you would get if FILEA did contain a record with a length of more than 1063 bytes. For example, when FILEA had a record with a length of 1064 bytes, I received this ICE217A message:
ICE217A 0 1064 BYTE VARIABLE RECORD IS LONGER THAN 1063 BYTE MAXIMUM FOR SORTOUT
I assume you received a similar message indicating that at least one of your records is longer than 1063 bytes. The LRECL for FILEB must be large enough to contain the longest record from FILEA. |
|