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
 

 

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 Extra character appears in file when ... Balu5491 All Other Mainframe Topics 1 Wed Jul 26, 2017 2:39 pm
No new posts Browse dataset cvnlynn CLIST & REXX 4 Tue Jul 18, 2017 3:52 am
No new posts How to Clear all TSQs during CICS sta... Hooman24 CICS 10 Mon Jun 26, 2017 9:46 pm
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm


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