Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
about ps file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
nandakumar
Warnings : 2

New User


Joined: 05 May 2005
Posts: 49

PostPosted: Sat Jun 04, 2005 6:59 am    Post subject: about ps file
Reply with quote

hi,
can anybody please tell me that how copy data from one ps to another ps,
leaving one particular field.for example my ps file contains the following data,

111 aaa 2000 1) what utility should i use for this?

222 bbb 3000 2)give me small example prog.

333 ccc 4000

444 ddd 5000


i want to copy this data in one ps to another ps,leaving any one the field.

ex:may be 111 (or) 222 etc (or) aaa (or) bbb etc (or) 2000 (or) 4000
Back to top
View user's profile Send private message
References
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 4613
Location: San Jose, CA

PostPosted: Sat Jun 04, 2005 8:10 pm    Post subject:
Reply with quote

It's not clear to me what you want to do. What does "leaving one particular field" and "leaving any one the field" mean exactly? Are you trying to find a particular value, like aaa, in the file and just copy the record with that value to the output file? If so, you can do that with the following DFSORT job. I've assumed your input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.

Code:

//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYMNAMES DD *
Target,'aaa'
/*
//SORTIN DD DSN=...  input file (FB/80)
//SORTOUT DD DSN=...  output file (FB/80)
//SYSIN DD *
  OPTION COPY
   INCLUDE COND=(1,80,SS,EQ,Target)
/*


The output from your input example would be:

111 aaa 2000

If that's not what you want, then you need to explain in more detail what you do want.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1