IBM Mainframe Forum

Posted: **Sat Jul 18, 2009 7:30 am**

Hi all,

I tried to create mutiple outputs (OUTPUT1/2/3) using a input DS via SORT, here is my JCL:

OPTION COPY
OUTFIL FNAMES=OUTPUT1,OUTREC=(C'OUTPUT1',1,18,55X)
OUTFIL FNAMES=OUTPUT2,OUTREC=(C'OUTPUT2',1,18,55X)
OUTFIL FNAMES=OUTPUT3,OUTREC=(C'OUTPUT3',1,18,55X)

My expected results are:
OUTPUT1 DS contents: string 'OUTPUT1, col 1~18 from input DS and blanks'
OUTPUT2 DS contents: string 'OUTPUT2, col 1~18 from input DS and blanks'
OUTPUT3 DS contents: string 'OUTPUT3, col 1~18 from input DS and blanks'
But all the output DS content: string 'OUTPUT3, col 1~18 from input DS and blanks'

Please kindly advise, any input is appreciated. Thanks.

Posted: **Sun Jul 19, 2009 3:06 am**

Hello and welcome to the forum,

Please post the complete jcl and the informational output generated when this was run. Be sure to include the message ids.

Posted: **Sun Jul 19, 2009 9:35 am**

Hi,

Please find blow of the JCL and SORT LOG:

Select all

//STOUTFIL EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=USER.TEST.EXEC(INPUT)
//OUTPUT1 DD DISP=OLD,DSN=USER.TEST.PDS1(SORTOT01)
//OUTPUT2 DD DISP=OLD,DSN=USER.TEST.PDS1(SORTOT02)
//OUTPUT3 DD DISP=OLD,DSN=USER.TEST.PDS1(SORTOT03)
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=OUTPUT1,OUTREC=(C'OUTPUT1',1,18,55X)
OUTFIL FNAMES=OUTPUT2,OUTREC=(C'OUTPUT2',1,18,55X)
OUTFIL FNAMES=OUTPUT3,OUTREC=(C'OUTPUT3',1,18,55X)
/*

Select all

ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE000I 1 - CONTROL STATEMENTS FOR 5740-SM1, DFSORT REL 14.0 - 08:51 ON SAT JUL 18, 2009 -
OPTION COPY
OUTFIL FNAMES=OUTPUT1,OUTREC=(C'OUTPUT1',1,18,55X)
OUTFIL FNAMES=OUTPUT2,OUTREC=(C'OUTPUT2',1,18,55X)
OUTFIL FNAMES=OUTPUT3,OUTREC=(C'OUTPUT3',1,18,55X)
ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED
ICE088I 0 USERA.STOUTFIL. , INPUT LRECL = 80, BLKSIZE = 27920, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,4194304,4194304)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (4136944,4136944)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=4194304,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=SYSOUT
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB1
ICE131I 0 OPTIONS: TMAXLIM=4194304,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=N,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=2097152,SOLRF=Y,VLLONG=N,VSAMIO=N
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 35840, ABOVE 16M = 6261760
ICE210I 0 OUTPUT1 : BSAM USED, LRECL = 80, BLKSIZE = 27920, TYPE = FB
ICE210I 0 OUTPUT2 : BSAM USED, LRECL = 80, BLKSIZE = 27920, TYPE = FB
ICE210I 0 OUTPUT3 : BSAM USED, LRECL = 80, BLKSIZE = 27920, TYPE = FB
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 1, OUT: 1
ICE227I 0 OUTPUT1 : DELETED = 0, REPORT = 0, DATA = 1
ICE228I 0 OUTPUT1 : TOTAL IN = 1, TOTAL OUT = 1
ICE227I 0 OUTPUT2 : DELETED = 0, REPORT = 0, DATA = 1
ICE228I 0 OUTPUT2 : TOTAL IN = 1, TOTAL OUT = 1
ICE227I 0 OUTPUT3 : DELETED = 0, REPORT = 0, DATA = 1
ICE228I 0 OUTPUT3 : TOTAL IN = 1, TOTAL OUT = 1
ICE751I 0 C5C6C7C8E9C9E5E7EFCBF0E8
ICE052I 0 END OF DFSORT

Posted: **Mon Jul 20, 2009 8:56 pm**

You cannot write to three members of the same PDS in parallel that way. You can only do that with a PDSE or different PS data sets.

IBM Mainframe Forum

SORT to mutiple output

SORT to mutiple output

Re: SORT to mutiple output

Re: SORT to mutiple output

Re: SORT to mutiple output