Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Selecting Every 1000. record

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

New User


Joined: 22 Feb 2008
Posts: 70
Location: Turkey

PostPosted: Tue Dec 29, 2009 8:15 pm    Post subject: Selecting Every 1000. record
Reply with quote

Hello,
I am using SUBSET option for selecting some data from an input to output,
for example;
Code:
//SORTST1  EXEC  PGM=ICETOOL                                         
//TOOLMSG  DD    SYSOUT=*                                           
//DFSMSG   DD    SYSOUT=*                                           
//IN        DD    DSN=XXX.YYY.ZZZ,DISP=SHR   
//OUT      DD    DSN=XXX.YYY.ZZZ2,DISP=MOD                       
//TOOLIN   DD    *                                                   
SUBSET FROM(IN) TO(OUT) INPUT KEEP RRN(1000) -
RRN( 2000) RRN(3000) RRN(4000)                       


But I want to select every 1000. records to output.
(1000. record, 2000. record, 3000. record.....)

is it possible?
Thanks..
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Tue Dec 29, 2009 8:43 pm    Post subject: Reply to: Selecting Every 1000. record
Reply with quote

see if this can help
http://ibmmainframes.com/viewtopic.php?t=43126&highlight=sort+sample
Back to top
View user's profile Send private message
ozgurseyrek

New User


Joined: 22 Feb 2008
Posts: 70
Location: Turkey

PostPosted: Tue Dec 29, 2009 8:56 pm    Post subject:
Reply with quote

Thanks you enrico-sorichetti,
I have solved it like you recommended.

(Exact code for my requerment)

Code:
//SORTST1  EXEC  PGM=ICEMAN                                         
//TOOLMSG  DD    SYSOUT=*                                           
//DFSMSG   DD    SYSOUT=*                                           
//SYSOUT   DD    SYSOUT=*                                           
//SORTIN   DD    DSN=XXX.YYY.ZZZ,DISP=SHR
//SORTOUT  DD    DSN=XXX.YYY.ZZZ2,DISP=MOD                       
//SYSIN    DD    *                                                   
  OPTION COPY                                                       
  OUTFIL STARTREC=1000,SAMPLE=1000                                   
/*                                                                   
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Tue Dec 29, 2009 8:58 pm    Post subject: Reply to: Selecting Every 1000. record
Reply with quote

glad to hear it icon_biggrin.gif
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 Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
This topic is locked: you cannot edit posts or make replies. Selecting two copybooks of different ... Vignesh Sid COBOL Programming 8 Tue Sep 05, 2017 7:28 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts Repeat part of record multiple times Learncoholic DFSORT/ICETOOL 4 Tue Aug 29, 2017 11:33 am
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us