concacenate strings

[hosti2011]

Hi,
i read a pli data file and want to replace values in null fields of db2 by '? 'depending on the indicator field.
For this purpose i use the findrep clause:

Code: Select all

OUTREC IFTHEN=(WHEN=INIT,
  FINDREP=(STARTPOS=71,ENDPOS=81,
   IN=C'         0?',
  OUT=C'?         ?')),

that should mark the input field as containing null, by writing '?' in the first column.
the first 10 bytes are the data field and the 11th is the according indicator field as in db2.

Now i have a char field with length 60.
is there a facility to write the in= and out= string in a shorter way?
i know there is the '9X' for nine blanks.
but i need '9X' !! C'0' !! C'?'.
Is there a way to concatenate char expressions?

thanks in forward

[Anuj Dhawan]

I believe it can be done, however, I'm not very sure how your input looks like. It'd be nice if you show at least one example of sample records for us to have a better idea of input and the expected output from that.

[Frank Yaeger]

Here's a simpler way to do what you want with DFSORT for the 61 byte string:

Code: Select all

 OUTREC IFTHEN=(WHEN=(71,59,CH,EQ,C' ',AND,130,2,CH,EQ,C'0?'),  
    OVERLAY=(71:C'?',59X,C'?'))                             

For the 11 byte string, it would be:

Code: Select all

 OUTREC IFTHEN=(WHEN=(71,9,CH,EQ,C' ',AND,80,2,CH,EQ,C'0?'),  
    OVERLAY=(71:C'?',9X,C'?'))