Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

To Omit the 75th record alone in inputfile of 100 records

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
vasanthkumarhb

Active User


Joined: 06 Sep 2007
Posts: 276
Location: Bang,iflex

PostPosted: Mon Nov 05, 2007 3:39 pm    Post subject: To Omit the 75th record alone in inputfile of 100 records
Reply with quote

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
View user's profile Send private message

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Mon Nov 05, 2007 3:43 pm    Post subject:
Reply with quote

Add a sequence number while inputting and omit the 75th record while removing the sequence number on output....
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon Nov 05, 2007 5:03 pm    Post subject:
Reply with quote

vasanthkumarhb
Need any help?
Then provide the i/p and o/p RECFM and LRECL!
Back to top
View user's profile Send private message
vasanthkumarhb

Active User


Joined: 06 Sep 2007
Posts: 276
Location: Bang,iflex

PostPosted: Mon Nov 05, 2007 5:31 pm    Post subject:
Reply with quote

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......... icon_smile.gif
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon Nov 05, 2007 5:38 pm    Post subject:
Reply with quote

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
View user's profile Send private message
vasanthkumarhb

Active User


Joined: 06 Sep 2007
Posts: 276
Location: Bang,iflex

PostPosted: Tue Nov 06, 2007 12:13 pm    Post subject:
Reply with quote

Hi Prem and CICS guy,


Thank you very much for your valuable reply,


Thank you prem...




Regard's
Vasanth.......... icon_smile.gif
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Tue Nov 06, 2007 12:34 pm    Post subject:
Reply with quote

Quote:
Thank you prem...

You are welcome...
But did you try the SORT JCL that i gave you? It wont work icon_evil.gif

icon_lol.gif 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
View user's profile Send private message
vasanthkumarhb

Active User


Joined: 06 Sep 2007
Posts: 276
Location: Bang,iflex

PostPosted: Tue Nov 06, 2007 5:30 pm    Post subject:
Reply with quote

Hi Prem,


I correct it,and i got the answer, thank you very much.....


Regard's
Vasanth.......... icon_smile.gif
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Mon Aug 04, 2008 10:44 pm    Post subject:
Reply with quote

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:

www.ibm.com/systems/support/storage/software/sort/mvs/ugpf/
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm
No new posts Include/omit with "ALL" pa... mgl DFSORT/ICETOOL 6 Wed Jun 14, 2017 2:31 pm
No new posts Need to write record of PS File in ex... Chandan1993 JCL & VSAM 1 Wed Jun 07, 2017 1:35 am
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us