View previous topic :: View next topic
|
Author |
Message |
vasanthkumarhb
Active User
Joined: 06 Sep 2007 Posts: 275 Location: Bang,iflex
|
|
|
|
Hi,
If i have 100 Records in my input File. During sort operation is it possible to omit 75th record alone(input file record format is FB)
pls give me the information about this.
Regard's
Vasanth |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
Add a sequence number while inputting and omit the 75th record while removing the sequence number on output.... |
|
Back to top |
|
|
krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
vasanthkumarhb
Need any help?
Then provide the i/p and o/p RECFM and LRECL! |
|
Back to top |
|
|
vasanthkumarhb
Active User
Joined: 06 Sep 2007 Posts: 275 Location: Bang,iflex
|
|
|
|
Hi Prem,
LRECL = 1284 and RECFM = FB, I need to ignore the 75th record pls help me prem,
not aligned pls look in to it.
regard's
Vasanth......... |
|
Back to top |
|
|
krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
vasanthkumarhb
This SORT JCL, omit's the 75th record and copies the remaing records as it is.
Code: |
//*******************************************************
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=i/p file (FB/1284)
//SORTOUT DD DSN=o/p file (FB/1284)
//SYSIN DD *
INREC OVERLAY=(1285:SEQNUM,8,PD)
SORT FIELDS=COPY
OMIT COND=(1285,8,PD,EQ,+75)
OUTREC BUILD=(1,1284)
/*
|
|
|
Back to top |
|
|
vasanthkumarhb
Active User
Joined: 06 Sep 2007 Posts: 275 Location: Bang,iflex
|
|
|
|
Hi Prem and CICS guy,
Thank you very much for your valuable reply,
Thank you prem...
Regard's
Vasanth.......... |
|
Back to top |
|
|
krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
You are welcome...
But did you try the SORT JCL that i gave you? It wont work
Here the right one..
Code: |
//*******************************************************
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=i/p file (FB/1284)
//SORTOUT DD DSN=o/p file (FB/1284)
//SYSIN DD *
INREC OVERLAY=(1285:SEQNUM,8,PD)
SORT FIELDS=COPY
OUTFIL OMIT=(1285,8,PD,EQ,+75),OUTREC=(1,1284)
/* |
|
|
Back to top |
|
|
vasanthkumarhb
Active User
Joined: 06 Sep 2007 Posts: 275 Location: Bang,iflex
|
|
|
|
Hi Prem,
I correct it,and i got the answer, thank you very much.....
Regard's
Vasanth.......... |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You can do this kind of thing quite easily with the new SUBSET operator of DFSORT's ICETOOL available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008). Here's an example:
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file
//OUT DD DSN=... output file
//TOOLIN DD *
SUBSET FROM(IN) TO(OUT) INPUT REMOVE RRN(75)
/*
|
For complete details on the new SUBSET function and the other new functions available with PTF UK90013, see:
Use [URL] BBCode for External Links |
|
Back to top |
|
|
|