Answer / harsha

it will copy eliminated duplicates in to another file

Answer / pradeep

XSUM is just to store the bypassed data during a SORT JCL.

For example see the below given JCL,
//STEPSORT EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=XXX.PV.SUMIN.SAMF
//SORTOF01 DD DISP=SHR,DSN=XXX.PV.SUMOUT.SAMF
//SORTXSUM DD DSN=XXX.PV.DUPLIC.SAMF,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(50,50),RLSE),
// DCB=(RECFM=FB,LRECL=60,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,1,CH,A)
OUTFIL FILES=01,INCLUDE=(6,6,CH,EQ,C' ')
SUM FIELDS=NONE,XSUM
/*

Answer / uma

Hi friends,
I need some clarification regarding sorting.
//S010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=MSI1390.TEST.INFILE,DISP=SHR
//SORTOUT DD DSN=MSI1390.TEST.OUTFILE1,DISP=SHR
//SORTXSUM DD DSN=MSI1390.TEST.OUTFILE2,DISP=SHR
//SYSIN DD *
SORT FIELDS=(2,10,CH,A)
SUM FIELDS=NONE,XSUM
/*
by using the above code, am facing the error message :
"ICE172A E XSUM IS NOT SUPPORTED - USE ICETOOL SELECT IF
APPROPRIATE"

Now i want the unique records in SORTOUT and the eliminated
duplicates in SORTXSUM...How can i do this?
also...we dont know the difference b/w DFSORT and
SYNCSORT...how and when to use SYNCSORT
Please suggest

Answer / pradeep

the error "ICE172A" says that the SORT Tool used by your
shop is ICETOOL and so the SYNCSORT tool options cannot be
used in this case. If you would like to confirm what is the
sort tool that your shop is using, try to do a Quick ref
(eg: QW SORT) at the command line and find which is the
tool that is installed. Also, you can achive similar
results by using the NODUPS options with ICETOOL. There is
a difference b/w NODUPS and SUM FIELDS=NONE. NODUPS will
eliminate all the related duplicate records along with its
first occurrence, but, in SYNCSORT, the first occurence of
the duplicate record will not be removed from the main
input file.
Hope this answers!!

Answer / murali

DFSORT does not support the XSUM parameter provided by a
competitive sort
product to write records deleted by SUM processing to a
SORTXSUM DD data
set. However, ICETOOL’s SELECT operator can perform the same
function as
XSUM with FIELDS=NONE. For example, this ICETOOL job:


u can use by this way

//S1EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SORTIN DD DSN=...
SUM Control Statement
//SORTOUT DD DSN=...
//SORTXSUM DD DSN=...
//TOOLIN DD *
SELECT FROM(SORTIN) TO(SORTOUT)-
ON(5,4,CH) FIRST DISCARD(SORTXSUM)
/*

Answer / uma

Thankyou pradeep.
can any one please provide me some details about ICETOOL
and its Usage...also any working code or some study
material.

Answer / sethu

Pls refer the link
http://www.geocities.com/srcsinc/drona/programming/languages
/jcl/jcl.sort.html

One dataset is creating in the step1 with LRECL of 133 and the same dataset is used in the next step in DISP=SHR mode, but while scanning the JCL the following error is thrwon. Please verify the below JCL $/SEPP030.PROVIDER DD DSN=Z1225BT.F5750PG9.F5910PRV.QC#A6868 //ERRORRPT DD DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE, --ERRORRPT DD DSN=F5910PG.F5910EPP.ERRORRPT.P, // DISP=&DISNCD,UNIT=&DELQ, -- DISP= (NEW,CATLG,DELETE),UNIT=DELQ, // SPACE=(TRK, (30,15),RLSE), // DCB=&DCB2 -- DCB= (PPG.METMODEL,BLKSIZE=0,LRECL=133,RECFM=FB) $/SEPP030.ERRORRPT DD DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT //SEPP040 EXEC PGM=FILEAID,COND= (0002,EQ,SEPP030) //SYSPRINT DD SYSOUT=* //SYSLIST DD SYSOUT=* //DD01 DD DSN=SYSCMN.PROD.CCLIB (F5910EP1),DISP=SHR $/SEPP040.DD01 DD DSN=Z1225BT.TEST.CCLIB (F5910EP1) E1 - DSS20791E - DATA SET 'Z1225BT.F5910EPP.ERRORRPT.AOUTPUT' HAS AN LRECL OF 133 COULD NOT BE OPENED BECAUSE THE CODED LRECL WAS 80. // DD DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE, -- DD DSN=F5910PG.F5910EPP.ERRORRPT.P, // DISP=SHR $/ DD DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT please find the error code in the above mentioned lines and please suggest me about the error and the solution for that.

3 Answers   Cognizant,

What is a GDG? How is it referenced? How is it defined? What is a MODELDSCB?

3 Answers  

01 GROUP-ITEM 05 AMOUNT-1 PIC 99V9 USAGE COMP VALUE 50 05 AMOUNT-2 PIC 9(4)V99 USAGE COMP MOVE ZERO TO GROUP-ITEM ADD 50 TO AMOUNT-1 what will be the content of AMOUNT-1? a.50 b.100 c.0 d.unpredictable

1 Answers  

The maximum number of steps in a job?

4 Answers  

How can I override a dsn that is contained in a proc called by another proc? I need to do the override in the calling JCL.

3 Answers  

What is a PROC? What is the difference between an instream and a catalogued PROC?

2 Answers  

How to find in aparticular step how many versions a paricular gdg base have?

4 Answers   TCS,

How do you skip a particular step in a proc/JOB?

5 Answers   CSC, CTS,

How to resolve the error "WER488A JOIN CAPACITY EXCEEDED" I am using SYNCSORT with JOINKEYS to compare 2 files. I am Getting error - > WER488A JOIN CAPACITY EXCEEDED There are 2 files to be compared with about 2 million records each. LRECL is 3665. Can somebody give a pointer as to how to resolve this problem? I am using SYNCSORT with JOINKEYS to compare 2 files. I am Getting error - > WER488A JOIN CAPACITY EXCEEDED There are 2 files to be compared with about 2 million records each. LRECL is 3665. Can somebody give a pointer as to how to resolve this problem?

1 Answers  

What is the error/SOC code if dd names are not sysut1 and sysut2 in IEBGENER?

1 Answers   CTS,

Explain the purpose of dd * statement in jcl?

0 Answers  

Max generations in GDG??

15 Answers   Xansa,