Re: Regarding *RNF7416 -types mismatch in display file and physical file fields

Thanks, but could you please explain here both options with examples

did you mean in my program instead of ' fld1 = 'Sum: ' +
%trim(%editw(fld3:' 0 '))'

i should write it like this :- 'fld1 = 'Sum: ' + %trim(fld3:' 0 '))' ?

and in the DDS of the display file I should write the field definition like
below:-?

A N70 FLD1 10Y 0O 4 62COLOR(PNK)
EDTWRD(' 0')

Also, could you please explain with an example how to use %BIF here ?


Thanks a lot..





On Fri, 8 Sept 2023 at 00:26, Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

If you use 10 Y the display file will do the editing for you. The
edit-word needs to be specified in the DDS. Alternatively, use the BIF as
you did in your RPG but change the DDS definition to character.


Jon P.

On Sep 7, 2023, at 2:48 PM, tim ken <timk2574@xxxxxxxxx> wrote:

Thanks , I used "10Y 0" as well this time for the display file field

,

but I got the same error in the program for the same statement.

On Fri, 8 Sept 2023 at 00:03, Daniel Gross <daniel@xxxxxxxx> wrote:

Hi Tim,

I hope I got everything right.

Am 07.09.2023 um 19:31 schrieb tim ken <timk2574@xxxxxxxxx>:

Thanks, after careful observation i found i's coming on below

statement:-

fld1 = 'Sum: ' + %trim(%editw(fld3:' 0 '))

whereas fld3 is defined in the program like this :-
d fld3 s 5s 0

So far, everything looks fine with fld3 - ok the edit word seems to be
longer than the variable, but that shouldn't be a problem.

I want this fld1 of the display file to be numeric of length 10 but not

sure which data type i should select out of the available options in

it's

DDS so that this error could be resolved or this fld3 should be defined

differently here ?

The definition in the DDS seems to be numeric - but you cannot assign a
value like

'Sum: ' + %trim(...


to a numeric display file field. That value is a string - you can't

assign

it to a numeric field.

The correct data type in DDS would be "10Y 0" - data type Y would enable
you to use EDTCDE or EDTWRD key words with that field. You could also

use

"10S 0", but that does not support the editing keywords.

HTH
Daniel
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.