MVSFORUMS.com

ranga_subham · Intermediate Joined: 31 Jan 2006 Posts: 255 Topics: 72

Hi,

Can you give me a Syncsort JCL to copy every 100th record out of a huge file (Contains 20,000,000 records).

Thanks in advance.
_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard

kolusu · Posted: Tue Jan 31, 2006 10:53 am Post subject:

ranga_subham,

Try this.

mf_user · Intermediate Joined: 01 Jun 2003 Posts: 372 Topics: 105

Hi Kolusu,

I tried the solution you've given. It gave me these errors.

SYSIN :
SORT FIELDS=COPY
OUTREC FIELDS=(1,LRECL,SEQNUM,2,ZD)
*
OUTFIL INCLUDE=(LRECL+1,2,ZD,EQ,0),
*
OUTREC=(1,LRECL)
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

We are using "SYNCSORT FOR Z/OS 1.1DR TPF3A"

Any other way around?
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==

ranga_subham · Intermediate Joined: 31 Jan 2006 Posts: 255 Topics: 72

Hi,

The solution did not work. Is it for DFSORT or SYNCSORT?

If you happen to correct the solution what you've provided here earlier, can you pls make in a generic one. Why because, somebody may want to copy every nth record !!!

Thanks.
_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard

pzmohanty · Posted: Wed Feb 01, 2006 5:04 am Post subject:

Hi,
currently I don't have any idea , how we can accomplish this in a single step, but we can do this in two steps .

USING SORT
==========
Step 1 :

SORT FIELDS=COPY
OUTREC FIELDS=(1,17,SEQNUM,3,ZD)

Step 2:

SORT FIELDS=COPY
OUTREC FIELDS=(1,17,(18,3,ZD,SUB,((18,3,ZD,DIV,+2),MUL,+2)),ZD)
OUTFIL FILES=1,INCLUDE=(18,15,ZD,EQ,0)

We can also do it using File-Aid Batch : (in single step)
=================================

//STEP001 EXEC PGM=FILEAID
//SYSIN DD *
$$DD01 COPY SELECT=n
//DD01 DD DSN='UR.INPUT.DATASET.NAME'
//DD01O DD DSN='UR.OUTPUT.DATASET.NAME'
// DISP=(NEW,CATLG,DELETE),

kolusu · Posted: Wed Feb 01, 2006 5:16 am Post subject:

pzmohanty · Posted: Wed Feb 01, 2006 5:19 am Post subject:

Hi ,

In my previous post

pzmohanty · Posted: Wed Feb 01, 2006 5:38 am Post subject:

Hi Kolusu ,

ranga_subham · Intermediate Joined: 31 Jan 2006 Posts: 255 Topics: 72

Yes Kolusu. Sorry. That was my mistake only. Sad

Anyway, how to make it generic? Suppose, it somebody wants to copy every 49th record or every 82nd record.....in this case !!??

Thanks a lot for the details.
_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard

kolusu · Posted: Wed Feb 01, 2006 8:53 am Post subject:

ranga_subham · Intermediate Joined: 31 Jan 2006 Posts: 255 Topics: 72

Wow.......thanks a lot.........so great of you.

May I ask this question to you. Surprised

Is it possible to copy the GDG versions in a reverse way (old first and latest last) into a flat file using the Syncsort Question

_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard

kolusu · Posted: Wed Feb 01, 2006 9:31 am Post subject:

ranga_subham · Intermediate Joined: 31 Jan 2006 Posts: 255 Topics: 72

Yeah....I found that posting but did not understand what it does Embarassed

_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard

ranga_subham · Intermediate Joined: 31 Jan 2006 Posts: 255 Topics: 72

Thanks for the link......... Smile

_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard

Frank Yaeger · Posted: Wed Feb 01, 2006 11:32 am Post subject: