Page 1 of 1

ICE027A Error in a very simple chop job

PostPosted: Wed Apr 25, 2018 3:25 pm
by golemis
Hi folks,
I have a FB130 dataset and need to produce a new FB120 chopping out the first 10 bytes of the original. Thought that it would be quite simple to achieve it by :
//NEWSTEP  EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSLIST  DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=HLQ.FB130.FILE
//SORTOUT  DD DSN=HLQ.FB120.FILE,
//            DISP=(NEW,CATLG),
//            SPACE=(CYL,(1,1),RLSE),UNIT=SYSDA,
//            DCB=(RECFM=FB,LRECL=120)
//SYSIN    DD *
   OPTION COPY
   OUTFIL BUILD=(11,120)
/*

However, I get ABEND ABENDU0027 and message
ICE027A 9 END OF SORTOUT  FIELD BEYOND MAXIMUM RECORD LENGTH

with any attempt with larger lrecl's, VB, and any other similar attempt.

Any ideas would be greatly appreciated.

Thanks, George

Re: ICE027A Error in a very simple chop job

PostPosted: Wed Apr 25, 2018 4:40 pm
by NicC
When you do a 3.2 on the data set what does it say?

Re: ICE027A Error in a very simple chop job

PostPosted: Wed Apr 25, 2018 5:26 pm
by golemis
Organization . . . : PS
Record format . . . : FB
Record length . . . : 130
Block size . . . . : 27950

Re: ICE027A Error in a very simple chop job

PostPosted: Wed Apr 25, 2018 7:27 pm
by NicC
I somehow do not think that you are getting thsat message. I get:
ICE213A 0 INVALID OUTFIL STATEMENT OPERAND

so check that you are looking at the correct step.

Re: ICE027A Error in a very simple chop job

PostPosted: Wed Apr 25, 2018 7:30 pm
by golemis
This is the one and only step ...

Re: ICE027A Error in a very simple chop job

PostPosted: Wed Apr 25, 2018 7:36 pm
by golemis
Pls consider it solved, was using a DIFFERENT dataset for SORTIN, than the one I though and I should. And when NicC asked me for the DCB of the dataset, i posted the DCB of the dataset I should use, and not the one I was using. My apologies.

Now everything works fine, RC0