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 Limit in Length for a CICS START seahawk789 CICS 6 Mon Apr 02, 2018 8:34 pm
No new posts Extract the records with a PD field's... sudhakar84 DFSORT/ICETOOL 11 Mon Apr 02, 2018 7:26 pm
No new posts Merge 2 records sancraig16 SYNCSORT 19 Tue Mar 27, 2018 8:17 pm
No new posts How could i share my personal dataset... James Halley TSO/ISPF 1 Fri Mar 23, 2018 9:41 pm
This topic is locked: you cannot edit posts or make replies. How could i share my personal dataset... samenxia163 TSO/ISPF 1 Fri Mar 09, 2018 12:18 pm

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