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

Does the terms, JOBLOG, SPOOL and SYSOUT indicate the same thing, i.e., where JCL and JES messages and statements are written ?

2 Answers  

I have GDG defined e.g. GDG.smaplegdg.base, after processing the GDG. it contains some records and which is input to the second step2. How can I use GDG to use it as input file at step2.

3 Answers   Wipro,

How system will identify whether user wants to create PS or PDS? If answer is SPACE parameter then why we need to pass ps or po as dataset organisation while creation

1 Answers  

i am trying to copy a PS file into VSAM file in step2 by using PGM=IDCAMS,COND=(0,LT) and the pS file is getting sorted in the step1. I got the return code 00 for step1 but step2 got flushed. can u please help on this. Below is My JCL. SEPP050 EXEC PGM=SORT,REGION=6144K SYSIN DD DSN=SYSCMN.PROD.CCLIB (F5910BNN), DISP=SHR SYSOUT DD SYSOUT=* SYSUDUMP DD SYSOUT=A SORTIN DD DSN=Z1225BT.F5910EPP.HISOUT, DISP=SHR SORTOUT DD DSN=Z1225BT.F5910EPP.HISOUT.SORTOUT5, DISP= (NEW,CATLG,DELETE),UNIT=DELQ, SPACE=(CYL, (500,500),RLSE), DCB= (RECFM=FB,LRECL=1606,BLKSIZE=16060,BUFNO=15) SORTWK01 DD UNIT=SYSDA,SPACE=(CYL, (1)) SORTWK02 DD UNIT=SYSDA,SPACE=(CYL, (1)) SORTWK03 DD UNIT=SYSDA,SPACE=(CYL, (1)) SORTWK04 DD UNIT=SYSDA,SPACE=(CYL, (1)) SYSIN1 DD UNIT=VIO,SPACE= (80,1) * SEPP060 EXEC PGM=IDCAMS,COND= (0,LT) SYSPRINT DD SYSOUT=* SYSOUT DD SYSOUT=* SYSLIST DD SYSOUT=* *** DD01 DD DSN=Z1225BT.F5910EPP.HISOUT.SORTOUT, // DISP=SHR //*** //DD01O DD DSN=Z1225BT.F5910PHS, // DISP=SHR, // AMP=(AMORG,'BUFND=12,BUFNI=5') //SYSIN DD DSN=SYSCMN.PROD.CCLIB(F5910BBB), // DISP=SHR Output RC for the two steps: SDCBPJ05 SEPP050 00 236 .00 .00 .0 SDCBPJ05 SEPP060 FLUSH 0 .00 .00 .0

3 Answers  

what are the types of abends that occur on job failure? And explain the possible causes of these

0 Answers  

describe the dd statement,its meaning,syntax and keywords?

1 Answers  

Brief description of inline procedure of jcl.

0 Answers  

Are there any set of rules for the names of the steps used in a job?

0 Answers  

How to find the number of duplicates in a file using Sort?

4 Answers   Fidelity,

What is STEPLIB, JOBLIB? What is it used for?

2 Answers  

Explain how can a jobs execution priority be modified?

0 Answers  

I HAVE A VB BLOCK WHICH IS USED AS INPUT IN COBOL CONATINING SOME RECORDS CAN I CHANGE THE FILE FROM VB TO FB?

0 Answers