SORT to mutiple output



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

SORT to mutiple output

Postby autobox » 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.
autobox
 
Posts: 2
Joined: Sat Jul 18, 2009 7:20 am
Has thanked: 0 time
Been thanked: 0 time

Re: SORT to mutiple output

Postby dick scherrer » 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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: SORT to mutiple output

Postby autobox » Sun Jul 19, 2009 9:35 am

Hi,

Please find blow of the JCL and SORT LOG:

//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)     
/*


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                     
autobox
 
Posts: 2
Joined: Sat Jul 18, 2009 7:20 am
Has thanked: 0 time
Been thanked: 0 time

Re: SORT to mutiple output

Postby Frank Yaeger » 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.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
User avatar
Frank Yaeger
Global moderator
 
Posts: 1079
Joined: Sat Jun 09, 2007 8:44 pm
Has thanked: 0 time
Been thanked: 15 times


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post