copy file problem / documented 'feature' -- MIDRANGE-L

>Date: Wed, 27 Sep 2000 17:05:23 -0500
>From: Jim Langston <jlangston@conexfreight.com>
>Subject: Re: MIDRANGE-L Digest V3 #730

>Have you tried making &Name equal to ''TEST '' ?

>CHGVAR &NAME '''TEST '''

>('' = single quite inside quotes. first ' is for the entire string. ' ''test '' ' would come
>out to ' 'test ' ')

>Regards,

>Jim Langston

Jim,

Tried this:

CHGVAR &WRK ('''' *CAT &NAME *BCAT '''')

which gives &wrk as "'TEST ' "

CPYF FROMFILE(file1) TOFILE(lib1/file2) +
MBROPT(*REPLACE) CRTFILE(*YES) +
INCREL((*IF DQNAME *EQ &WRK))

which because CPYF command processor automagically inserts quotes for char strings, processes as:

CPYF FROMFILE(file1) TOFILE(lib1/file2) +
MBROPT(*REPLACE) CRTFILE(*YES) +
INCREL((*IF DQNAME *EQ '''TESTX '''))

which returns no records because no DQNAME begins with a quote.

Nice try though, thanks for playing :)

>Date: Thu, 28 Sep 2000 12:47:40 +0100
>From: "Brendan Bispham" <midrangel@black-and-blue.com>
>Subject: Re: MIDRANGE-L Digest V3 #727

>There are other solutions, but you might overcome the problem with another
>field (changes in lowercase):

>> DCL VAR(&NAME) TYPE(*CHAR) LEN(10)
>dcl &namel *char 10
>chgvar &namel (&namel *tcat 'A')

>> CPYF FROMFILE(file1) TOFILE(lib1/file2) +
>> MBROPT(*REPLACE) CRTFILE(*YES) +
>> INCREL((*IF DQNAME *EQ &NAME))
> (*and dqname *lt &namel))
>>

Brendan,

This works! (probably should use a cent sign or period instead of "A" in case DQNAME contains special characters).

Still not very clear or elegant, but a workable work-around.

+--- | 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 +---