Page 2 of 2

Re: Sorting dataset with dfsort and icetool

PostPosted: Thu May 22, 2008 8:46 pm
by makies
I managed to solve the error somehow but still I cannot see the results. How can I see them because I got to SDSF and I cannot see any SORTOUT DD , I only see JES log messages . my code is this
//MYJOB JOB USER=SUR0016,MSGCLASS=H,CLASS=A,NOTIFY=SUR0016
//S1  EXEC  PGM=SORT                                       
//SYSOUT DD SYSOUT=*                                       
//SORTIN DD DSN=SURMSTR.TRDATA2,DISP=SHR                   
//SORTOUT DD SYSOUT=*                                     
//SYSIN    DD *                                           
  SORT FIELDS=(24,2,ZD,A)                                 
  OPTION ZDPRINT                                           
  SUM FIELDS=(27,7,ZD)                                     
/*                                                         


Thanks a lot

Re: Sorting dataset with dfsort and icetool

PostPosted: Thu May 22, 2008 8:56 pm
by Frank Yaeger
Try adding MSGLEVEL=(1,1) to your JOB card:

//MYJOB JOB USER=SUR0016,MSGCLASS=H,CLASS=A,NOTIFY=SUR0016,
// MSGLEVEL=(1,1)

I'm just guessing here. Isn't there anyone at your shop who can help you with these basic kinds of things?

Re: Sorting dataset with dfsort and icetool

PostPosted: Thu May 22, 2008 9:02 pm
by makies
Unfortunately no one can help me , I was assigned to do this stuff and I am not getting any support. I used MSGLEVEL=(1,1) as well but I do not see any difference:(

Is it possible to write the output in another dataset?

Re: Sorting dataset with dfsort and icetool

PostPosted: Fri May 23, 2008 3:40 am
by Frank Yaeger
You're going to have a very, very difficult time of it if you can't see the SYSOUT=* messages.

Yes, you can write //SYSOUT to a permanent data set. Change the //SYSOUT DD to something like:

//SYSOUT DD DSN=SURMSTR.SYSOUT,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(5,5)),UNIT=SYSDA

Then you should be able to see the messages in SURMSTR.SYSOUT.

The next time you run, be sure to change //SYSOUT to

//SYSOUT DD DSN=SURMSTR.SYSOUT,DISP=OLD

since its already allocated.

Re: Sorting dataset with dfsort and icetool

PostPosted: Fri May 23, 2008 4:07 am
by skolusu
Makies,

Run the following job and after completion of the job check the contents of SUR0016.SURMSTR.SYSOUT dsn which contains the sysout messages and SUR0016.SURMSTR.SORTOUT dsn which contains the output from the sort step

//SUR0016A  JOB CLASS=A,USER=SUR0016,
//             MSGCLASS=H,                 
//             MSGLEVEL=(1,1),             
//             NOTIFY=SUR0016
//*                       
//STEP0100 EXEC PGM=IEFBR14
//FILE01  DD DSN=SUR0016.SURMSTR.SYSOUT,
//           DISP=(NEW,CATLG,DELETE),
//           UNIT=SYSDA,
//           SPACE=(TRK,(5,5),RLSE),
//           DCB=(LRECL=121,RECFM=FBA,BLKSIZE=121)
//*                                               
//FILE02  DD DSN=SUR0016.SURMSTR.SORTOUT,
//           DISP=(NEW,CATLG,DELETE),
//           UNIT=SYSDA,
//           SPACE=(CYL,(5,5),RLSE),
//           DCB=SURMSTR.TRDATA2
//*                                               
//STEP0200 EXEC PGM=SORT
//SYSOUT   DD DSN=SUR0016.SURMSTR.SYSOUT,DISP=OLD
//SORTIN   DD DSN=SURMSTR.TRDATA2,DISP=SHR
//SORTOUT  DD DSN=SUR0016.SURMSTR.SORTOUT,DISP=OLD
//SYSIN    DD *
  SORT FIELDS=(24,2,ZD,A)
  OPTION ZDPRINT
  SUM FIELDS=(27,7,ZD)
/*


Hope this helps...

Cheers