IBM Mainframe Forum

by **Enlighten** » Fri Oct 16, 2015 3:53 pm

Hi,

I have a PS file with FB record format having records in the way:

AB001.d9999.sample
AB001.d9999.sample1
AB001.d9991.sample11
AB001.d99.samp
AB001.d9999.sample190

I want records seen above to shift a position and add a prefix and suffix as can be seen below:

DELETE AB001.d9999.sample(*)
DELETE AB001.d9999.sample1(*)
DELETE AB001.d9991.sample11(*)
DELETE AB001.d99.samp(*)
DELETE AB001.d9999.sample190(*)

Please advise. Your help is highly appreciated.

Thanks in advance.

Code'd

by **NicC** » Fri Oct 16, 2015 4:23 pm

So you can easily add the DELETE string because you searched the forum and found similar examples, yes?

by **BillyBoyo** » Fri Oct 16, 2015 5:27 pm

And for the "(*)", use FINDREP with DO=1 to change two blanks to C'(*)'.

Restructure records of file using DFSORT