IBM Mainframe Forum

[ranga_subham]

Hi,

I have a list of datasets (differ in length) and want to apply single quote on beginning and ending of each dataset.

Select all

MERIAM.KIDE1.MARE2
MERIAM.SILJA1
MERIAM.FERET1.BODE2.BAREN3

Expected Output:

Select all

'MERIAM.KIDE1.MARE2'
'MERIAM.SILJA1'
'MERIAM.FERET1.BODE2.BAREN3'

Please help.

Thanks.

[BillyBoyo]

Experiment with and research something like this:

Select all

 INREC OVERLAY=(1:1,44,
                JFY=(SHIFT=LEFT,
                     LEAD=C'''',
                     TRAIL=C'''''))

[ranga_subham]

BillyBoyo, it has worked and I got the results after removing extra single quote in TRAIL !

I was over-analyzing to achieve it with PARSE but don't know if that too was possible

Thanks a lot.

[ranga_subham]

another way of doing it but don't know efficient than what BillyBoyo suggested

Select all

//SYSIN    DD *                       
 SORT FIELDS=COPY                     
 INREC FIELDS=(C'''',1,44,C'''')       
 OUTREC FIELDS=(1,46,SQZ=(SHIFT=LEFT))

How to achieve the same with PARSE though

Thanks.