Packed Fromkey/Tokey Copy in CL

["Debbie Panco" <dpanco43@xxxxxxxxxxxxx>]

Hello group,

I have a question.  I am trying to do a fromkey/tokey file copy
inside a CL where the file key is packed.  The key needs to look
like this x'12345678901F'.    I am doing a RCVF in the cl in order
to get the actual key value but am having trouble putting the string
together.  Needing to have the single quote as part of the string is
giving me problems.  I am trying to declare the 3 parts and then
concatinate them like this:

    DCL VAR(&LIT1) TYPE(*CHAR) LEN(2)
    DCL VAR(&NBR)  TYPE(*CHAR) LEN(11) VALUE('12345678901')
    DCL VAR(&LIT2) TYPE(*CHAR) LEN(2)

    CHGVAR(&LIT1)     VALUE(  )    <====?
    CHGVAR(&LIT2)     VALUE(  )    <====?
    CHGVAR(&FROMKEY)  VALUE(&LIT1 *CAT &NBR *CAT &LIT2)

The value of LIT1 needs to be x'.
The value of LIT2 needs to be F'.
How can I move these values in using the CHGVAR command?


Debbie

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---