copy file problem / documented 'feature'

[RBBaird@xxxxxxxxxxx]

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