danylele74
New User
Joined: 03 Jul 2014 Posts: 28 Location: Italy
|
|
|
|
this is my jcl:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=TNPH.FORME.TECNICHE
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL PARSE=(%01=(ENDBEFR=C';',FIXLEN=5),
%02=(ENDBEFR=C';',FIXLEN=5),
%03=(ENDBEFR=C';',FIXLEN=3),
%04=(ENDBEFR=C';',FIXLEN=25),
%05=(ENDBEFR=C';',FIXLEN=7),
%06=(ENDBEFR=C';',FIXLEN=4),
%07=(ENDBEFR=C';',FIXLEN=100),
%08=(ENDBEFR=C';',FIXLEN=60),
%09=(ENDBEFR=C';',FIXLEN=3),
%10=(ENDBEFR=C';',FIXLEN=60),
%11=(ENDBEFR=C';',FIXLEN=3),
%12=(ENDBEFR=C';',FIXLEN=60),
%13=(ENDBEFR=C';',FIXLEN=3),
%14=(ENDBEFR=C';',FIXLEN=60)),
BUILD=(1:%01,
6:%02,
11:%03,
14:%04,
39:%05,
46:%06,
50:%07,
150:%08,
210:%09,
213:%10,
273:%11,
276:%12,
336:%13,
339:%14)
/*
|
but there is an error that i don't understand:
Code: |
ICE251A 9 MISSING RDW OR DATA FOR SORTOUT : REASON CODE 05, IFTHEN 0
ICE751I 0 C5-I21470 C6-BASE C7-K96411 C8-I15445 E9-BASE E7-I12417
ICE052I 3 END OF DFSORT
|
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
I wasn't suggesting that you SORT it, I was suggesting that you use your SORT product. And you are. ICEMAN is DFSORT.
Your input file is variable, so your output file must be variable unless you arrange otherwise.
OUTFIL VTOF will be what you want. |
|