I am reading a table and putting the data into variables. I then need to strip the apostrophes from the variable because it will be used in a sql statement later and the apostrophes are erroring in the select statement. Here is my code. Any suggustions would be appreciated. I am running the type commands to help trouble shoot the results.

Thanks


-RUN
-READ FAS_PICK_RESULT &TDEPT_CD.10. &TFUND_CD.A10. &TTITLE.A82.
-TYPE '&TDEPT_CD'
-TYPE '&TFUND_CD'
-TYPE '&TTITLE'
-SET &TTITLE1 = STRIP(&TTITLE, 82, '-', 'A82');
-TYPE &TTITLE1

This message has been edited. Last edited by: Kerry,

The example list here shows a - in the strip statement. I was testing the - but used '''' when trapping for the apostrophes.

Try using the CTRAN function

decode_desc/A256V=CTRAN(256, BP8DESCRIPTION, 34, 39, decode_desc);

Mike
here's a snippet of code that will help you understand R2's answer.
you want to extract the byte value for the apostrophe (39), and replace it using the CTRAN function for something else, in this case a quote mark (byte value 34)

DEFINE FILE CAR
atsign/I4  WITH CAR = BYTVAL('@', 'I4');
EACUTE/I4 WITH CAR=BYTVAL('é','I4');
ZERO/I4 WITH CAR=BYTVAL('0','I4');
AMPERSAND/I4 WITH CAR=BYTVAL('&','I4');
DASH/I4      WITH CAR=BYTVAL('-','I4');
APOSTROPHE/I4      WITH CAR=BYTVAL('''','I4');
QUOTE/I4     WITH CAR=BYTVAL('"','I4');
COMMA/I4     WITH CAR=BYTVAL(',','I4');
PERIOD/I4    WITH CAR=BYTVAL('.','I4');
SLASH/I4     WITH CAR=BYTVAL('/','I4');
BKSLASH/I4     WITH CAR=BYTVAL('\','I4');
BLANK/I4     WITH CAR=BYTVAL(' ','I4');
PLUS/I4      WITH CAR=BYTVAL('+','I4');
UNDER/I4     WITH CAR=BYTVAL('_','I4');
LEFTBRKT/I4  WITH CAR=BYTVAL('<','I4');
RIGHTBRKT/I4  WITH CAR=BYTVAL('>','I4');
LEFTBRACE/I4 WITH CAR=BYTVAL('[','I4');
RIGHTBRACE/I4 WITH CAR=BYTVAL(']','I4');
POUND/I4     WITH CAR=BYTVAL('#','I4');
LEFTPAR/I4 WITH CAR=BYTVAL('(','I4');
RIGHTPAR/I4 WITH CAR=BYTVAL(')','I4');
DOLLAR/I4 WITH CAR=BYTVAL('$','I4');
PIPE/I4 WITH CAR=BYTVAL('|','I4');
ASTERISK/I4 WITH CAR = BYTVAL('*','I4');
UNDERSCORE/I4  WITH CAR = BYTVAL('_','I4');
EQUAL/I4 WITH CAR = BYTVAL('=','I4');
END
-RUN
TABLE FILE CAR
HEADING
"ASCII bytvals for ctran function"
 PRINT atsign AMPERSAND DASH   APOS  COMMA    QUOTE  PERIOD PIPE
OVER   SLASH  BLANK     PLUS  UNDER LEFTBRKT RIGHTBRKT POUND
OVER  LEFTPAR RIGHTPAR LEFTBRACE RIGHTBRACE NUMZERO EQUAL DOLLAR
OVER ASTERISK UNDERSCORE ZERO EACUTE BKSLASH
 
 IF RECORDLIMIT IS 1

END

Lookup the HEXBYT function and perhaps the BITVAL as well, and add them to your repertoire.
Hope this helps.
s

Mike,

The trick is to replace the quote by something that looks like a quote. What I usually do is use the CTRAN function. In your example:

  
-RUN
-READ FAS_PICK_RESULT &TDEPT_CD.10. &TFUND_CD.A10. &TTITLE.A82.
-TYPE &TDEPT_CD
-TYPE &TFUND_CD
-TYPE &TTITLE
-SET &TTITLE1 = CTRAN(82, &TTITLE, 39, 146, 'A82');
-TYPE &TTITLE1

39 is the decimal value of quote: '
146 is the decimal value of right-quote: ’

Another option is to use the STRREP function to replace a single apostophe with two. For us, the most common situation is using sql to update names. For example, take the last name of O'Neil. If I use STRREP to make the string O''Neil, then the SQL works just fine and I preserve the apostrophe.