|
View previous topic :: View next topic
|
| Author |
Message |
brahmanandarm
New User
Joined: 15 Jun 2009
Posts: 28
Location: bangalore
|
|
|
|
Hi All,
I have a dataset Record format . . . : VB
Record length . . . : 27994.
I have a hex value of 02
DA5
I would need to delete the values form above ddatasetwhere ever the values comes with 02
DA5
Please advice how to proceed further.. |
|
| Back to top |
|
 |
brahmanandarm
New User
Joined: 15 Jun 2009
Posts: 28
Location: bangalore
|
|
|
|
Sory the hexavalue is
"Code'd" |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| is it X'02' or X'D5' or X'02' and X'D5' or is it X'02D5' ? |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
What should be used to "replace" these? |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
brahmanandarm,
If you want to remove X'02' values anywhere in your records, you can use DFSORT statements like this:
| Code: |
OPTION COPY
INREC FINDREP=(IN=X'02',OUT=C'')
|
If you want to do something else, you need to explain more clearly what exactly it is you want to do. |
|
| Back to top |
|
|
brahmanandarm
New User
Joined: 15 Jun 2009
Posts: 28
Location: bangalore
|
|
|
|
Thanks to all,
Now I ahve a new query..
I would need to remove the last characters
Record format . . . : VB
Record length . . . : 4092
Example of the record
Brahma emp1234 salary1234 insurance123412
sunil emp32121 salary2312 insurance12111
kumarswami emp32121 salary2312 insurance9123211
From the above records
I need to remove the value i.e. insurance*******
I want the output to be as
Brahma emp1234 salary1234
sunil emp32121 salary2312
kumarswami emp32121 salary2312
Please advice. |
|
| Back to top |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
brahmanandarm,
Use the following DFSORT JCL.
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=Your Input VB 4092 file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC PARSE=(%01=(ENDBEFR=C'INSURANCE',FIXLEN=4088)),BUILD=(1,4,%01)
OUTFIL VLTRIM=C' '
//* |
|
|
| Back to top |
|
|
|
|
