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
 
copying every nth record using File-Aid.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
ranga_subham

New User


Joined: 01 Jul 2005
Posts: 51

PostPosted: Thu May 11, 2006 8:48 am    Post subject: copying every nth record using File-Aid.
Reply with quote

Hi,

Can you give me a File-Aid sysin card to copy every nth record of an input data to the output dataset?

Thanks in advance.
Back to top
View user's profile Send private message

shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 171
Location: Bangalore

PostPosted: Thu May 11, 2006 9:17 am    Post subject:
Reply with quote

Hi Ranga,

//COPY EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=A
//SYSLIST DD SYSOUT=A
//DD01 DD DSN=xxxxx.TEST.SORT,DISP=SHR
//DD01O DD DSN=xxxxx.TEST.SORTOUT,DISP=(,CATLG,DELETE),
// UNIT=SYSD@,LABEL=RETPD=90,
// DCB=(BLKSIZE=58200,LRECL=300,RECFM=FB),
// SPACE=(58200,(14000,135),RLSE,,ROUND)
//SYSIN DD *
$$DD01 COPY SELECT=2,OUT=100
/*

it will select every 2nd record and you can limit here the output by 100 records.
Back to top
View user's profile Send private message
ranga_subham

New User


Joined: 01 Jul 2005
Posts: 51

PostPosted: Thu May 11, 2006 12:57 pm    Post subject:
Reply with quote

Shrivatsa, Thanks a lot. Have a good day.
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 -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts query to fetch record which has only ... maxsubrat DB2 12 Mon Dec 11, 2017 5:03 pm
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
No new posts Extract record for change in combinat... Trinadh DFSORT/ICETOOL 6 Thu Nov 23, 2017 3:32 pm

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