Re: Why you shouldn't be afraid to use VARCHAR in RPGLE
Marco Facchinetti <marco.facchinetti-kthxv0ud/[email protected]>
| Newsgroups | gmane.comp.lang.as400.rpg |
|---|---|
| Message-ID | <CAMsgu4qZozCzh=81izTxg=F446MPzE4z=Y7WLxp1+7zepdTy6Q@mail.gmail.com> |
Hi Douglas, just move the Ds declaration before the varchar one:
dcl-ds frf_control extname('CONTROL');
dcl-s p_folder varchar(%len(actclon1));
HTH
--
Marco Facchinetti
Mr S.r.l.
Tel. 035 962885
Cel. 393 9620498
Skype: facchinettimarco
Il giorno lun 8 dic 2025 alle ore 15:56 DEnglander--- via RPG400-L <
[email protected]> ha scritto:
> Marco,
>
> I tried what you listed, and it won't compile. I am running V7R4, with TR
> 10. What version are you running?
>
>
> This is the line in my program:
>
> dcl-s p_folder varchar(%len(actclon1));
>
> ACTLON1 is a field in file CONTROL.
>
> I also have this a little further down in the source:
>
> dcl-ds frf_control extname('CONTROL');
>
> I get the RNF3320. What is even more strange in this program, is that I
> also have the CONTROL file opened for input in an F spec, and the compiler
> still is complaining. But the message appears to show its complaining
> about the varchar(%len()), not the actual field definition itself. That is
> why I'm thinking I need to maybe have TR 11 installed first.
>
> Thank you,
>
> Douglas Englander
> Senior Programmer/Analyst
> The C. D. Hartnett Company – Corporate Offices
> 1-817-594-3813 ext. 1636
>
> "CONFIDENTIALITY NOTICE: This e-mail transmission (and/or the attachments
> accompanying it) contain confidential information belonging to the sender.
> The information is intended only for the use of the intended recipient. If
> you are not the intended recipient, you are hereby notified that any
> disclosure, copying, distribution or the taking of any action in reliance
> on the contents of the information is strictly prohibited. Any
> unauthorized interception of this transmission is illegal under the law.
> If you have received this transmission in error, please promptly notify the
> sender by reply e-mail, and then destroy all copies of the transmission."
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: [email protected]
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: [email protected]
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact [email protected] for any subscription related
> questions.
>
>
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: [email protected]
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.
Please contact [email protected] for any subscription related questions.