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
 
I have a dataset in which records start with

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
karthi_ind

Active User


Joined: 24 Feb 2004
Posts: 131
Location: Chennai

PostPosted: Fri Sep 24, 2004 11:30 am    Post subject: I have a dataset in which records start with
Reply with quote

hi

i hve a doubt. I hve a dataset in which records start with
1, 2 and 2 are thre, i want to retrieve only those records start with
1 and store in another dataset. How can i do ths ?

Can anyone help???

Col1 col2
1 df
2 dr
3 ew
1 rr
2 ss
1 pp

o/p will be ( in a new dataset)

Col1 Col2
1 df
1 rr
1 pp

thanks in advance

karthi G.
Back to top
View user's profile Send private message

sandip_datta

Active User


Joined: 02 Dec 2003
Posts: 151
Location: Tokyo, Japan

PostPosted: Fri Sep 24, 2004 12:49 pm    Post subject:
Reply with quote

Karthi,

Following SORT will give you the result -
Code:
//SORT01   EXEC PGM=SORT
//SORTLIB  DD   DSN=SYS1.SORTLIB,DISP=SHR
//SORTWK01 DD   UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK02 DD   UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SYSOUT   DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//SORTIN   DD   DSN=Your Input file,DISP=SHR
//SORTOUT  DD   DSN=Your output file
//SYSIN    DD   *
   SORT FIELDS=COPY
   INCLUDE COND=(1,1,ZD,EQ,1)
/*
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 -> JCL & VSAM 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
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
No new posts Addition of two records on 2 fields amar143 SYNCSORT 8 Tue Oct 03, 2017 11:14 am
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 10 Tue Sep 05, 2017 4:24 pm

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