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 Profile Log in to check your private messages Log in
 
Overwriting one files information into other

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

Active User


Joined: 20 Sep 2008
Posts: 102
Location: Bangalore

PostPosted: Fri Sep 26, 2008 10:45 am    Post subject: Overwriting one files information into other
Reply with quote

Hi all,

I stucked up in a place where i need your help.

My task is like,

st_no h_no
0011
0092 0100
0040 5500
0070 6400

It need to be sort first as ST_no and then h_no and if the h_no col is space aor st_no col is space for some row then than row need to be deleted from the output. So here th output should be like,

st_no h_no
0040 5500
0070 6400
0092 0100

I suppoose i am clear with my question.

If anybody knows the Sort card then please send me.

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

Niki

Active User


Joined: 20 Sep 2008
Posts: 102
Location: Bangalore

PostPosted: Fri Sep 26, 2008 10:59 am    Post subject:
Reply with quote

Hi all,

I have one more question too.

If i am having PDS whose length is 70. and another whose length is 20.

I need to replace the datas present in PDS1's 5 to position number 25 with the values of PDS2 when the the data present in 5 tho 10 location of PDS1 = 1 to 5 of PDS2.

I suppose i m clear with it.

Please help me regarding this.
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Fri Sep 26, 2008 11:02 am    Post subject:
Reply with quote

Hello Niki,

Please use following sort card for your request

Code:

  OMIT COND=(1,4,CH,EQ,C' ',OR,5,4,CH,EQ,C' ')
  SORT FIELDS=(1,4,CH,A,5,4,CH,A)                   
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Fri Sep 26, 2008 11:08 am    Post subject:
Reply with quote

Hello Niki,

Quote:
If i am having PDS whose length is 70. and another whose length is 20.

I need to replace the datas present in PDS1's 5 to position number 25 with the values of PDS2 when the the data present in 5 tho 10 location of PDS1 = 1 to 5 of PDS2.


Could u please provide us sample i/p & o/p for it?
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Fri Sep 26, 2008 11:09 am    Post subject:
Reply with quote

Quote:

I have one more question too.

Then idealy should start new topic not post reply.

i think what you are looking for is allready discussed.
Below links may help you
http://ibmmainframes.com/viewtopic.php?t=34557&highlight=splice
http://ibmmainframes.com/viewtopic.php?t=34564&highlight=splice
Back to top
View user's profile Send private message
Niki

Active User


Joined: 20 Sep 2008
Posts: 102
Location: Bangalore

PostPosted: Fri Sep 26, 2008 11:21 am    Post subject:
Reply with quote

Thank you all

and Sambhaji i ll start new topic from next time onwards. Sorry for this time.
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 Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts Information About the Equifax Securit... Rohit Umarjikar PC Guides & IT News 6 Mon Sep 11, 2017 9:10 pm
No new posts Join records from 2 files with No Dup... Poha Eater DFSORT/ICETOOL 21 Sun Aug 27, 2017 10:35 pm
No new posts Match two files using multiple keys a... santoshks1987 SYNCSORT 11 Fri Aug 18, 2017 10:50 am
No new posts retrieving envelope information out o... VintageReceiver TSO/ISPF 6 Thu Aug 10, 2017 8:13 pm

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