× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Using CPYF with variables in CLP
  • From: "Peter Dow" <pcdow@xxxxxxxxxxxxxxx>
  • Date: Mon, 22 Jan 2001 11:54:47 -0800

Hi Darlene,

I see Ed's reply, but I don't see any response from you about it. I think he
has the right solution, but he didn't show you what he meant. Also, as I
modified your code, I noticed a couple of missing apostrophes. Try this:

 DCL        VAR(&FPRDN) TYPE(*CHAR) LEN(15)

  CPYF       FROMFILE(&LIBRARY/&FILE) +
               TOFILE(QTEMP/BMHSP100X) FROMMBR(&FMEMBER) +
               TOMBR(&TMEMBER) MBROPT(*ADD) +
               CRTFILE(*YES) INCREL((*IF PRDNO *EQ +
               '"' *CAT &FPRDN *CAT '"')) FMTOPT(*MAP *DROP) +
               ERRLVL(*NOMAX)

HTH,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


----- Original Message -----
From: "Ed Chabot" <echabot@marlinfirearms.com>
To: <RPG400-L@midrange.com>
Sent: Monday, January 22, 2001 7:21 AM
Subject: RE: Using CPYF with variables in CLP


> Try *CAT instead of *TCAT.
>
> Ed Chabot
> The Marlin Firearms Company
> 100 Kenna Drive
> North Haven, CT 06473
> (203)985-3254
>
> -----Original Message-----
> From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
> Behalf Of dbryant@banpharm.com
> Sent: Monday, January 22, 2001 9:12 AM
> To: RPG400-L@midrange.com
> Subject: Using CPYF with variables in CLP
>
>
>
>
> I am testing a program that is selecting a product number to copy from one
> file
> member to another. The problem is the CPYF is truncating the blanks at the
> end
> of the variable. I cannot figure out how to retain the blanks at the end
of
> the
> variable in the CPYF. Can anyone help me please......
>
> DCL        VAR(&FPRDN) TYPE(*CHAR) LEN(15)
>
>  CPYF       FROMFILE(&LIBRARY/&FILE) +
>               TOFILE(QTEMP/BMHSP100X) FROMMBR(&FMEMBER) +
>               TOMBR(&TMEMBER) MBROPT(*ADD) +
>               CRTFILE(*YES) INCREL((*IF PRDNO *EQ +
>               '" *TCAT &FPRDN *TCAT"')) FMTOPT(*MAP *DROP) +
>               ERRLVL(*NOMAX)
>
> If I leave the variable alone, the CPYF truncates the blanks at the end of
> the
> variable and copies all records that begins with the non-blank portion of
> the
> variable.
> I have tried a number of combinations for catenating the variable to
enable
> it
> to retain the blanks so I can compare 15 characters with 15 characters,
but
> no
> luck. CPYF is definitely different from OPNQRY.
>
> I've tried the IBM on-line website(s) but they are experiencing problems
> with
> their Internal server.
>
> Any help is GREATLY appreciated!
> Darlene Bryant
>
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.