IBM MAINFRAME HELP & SUPPORT FORUMS

nandakumar · Joined: 05 May 2005 Posts: 49

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

Frank Yaeger · Joined: 15 Feb 2005 Posts: 4579 Location: San Jose, CA

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.