I assume you aren't installing the display file because of locking issues?
If so, my workaround for that issue is to create a copy of the display
file, named something else, and point the RPG program to that display file.
Then, once everyone has exited the original version of the program, I
install the mod to the original display file and modify the RPG.
If my assumption is incorrect, and you're avoiding installing the display
file for a different reason, you're going to have to revert the display
file field back to 7, and create another field for the 8 characters and
truncate in program. I'm kind of surprised you were able to even define
the field in your program, since it should have already been externally
defined, but I figure your program is hiding the relationship somehow with
the datastructure.
From: "Fajardo, Eduardo" <eduardo.fajardo@xxxxxxxxx>
To: "RPG400-L@xxxxxxxxxxxx" <RPG400-L@xxxxxxxxxxxx>
Date: 06/01/2015 08:33 AM
Subject: Display file field
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>
Hi,
I have a program and a display file. A screen field, say CCCCCCC, is
defined in the display header format as 7char. The same field is defined in
the program DS as 7char, initialized to a certain value.
I am working on a project which aims to increase the length of field C from
7 to 8 so I changed and recompiled the program as well as the display file.
I forgot to deploy the display file and went on to test the new changes
which means I am now using the latest program(8char fieldC) over an old
display file (7char fieldC). Initially, I assumed it will just
drop/truncate the last character. I was wrong. The last character of field
C was placed in the next field and the rest of the fields in the screen
format moved a character to the right as seen below.
I know it is best practice to deploy both but given this instance, I'd like
to know if this is the correct behavior. If so, are there workarounds aside
from deploying the latest display file?
Before
FldA FldB FldC FldD FldE
PGMNM ENQ XXXXXXX TITLE CCYYMMDD <-- Data value
After
FldA FldB FldC FldD FldE
PGMNM ENQ XXXXXXX XTITL ECCYYMMD <-- Data value
"Misys" is the trade name of the Misys group of companies. This email and
any attachments have been scanned for known viruses using multiple
scanners. This email message is intended for the named recipient only. It
may be privileged and/or confidential. If you are not the named recipient
of this email please notify us immediately and do not copy it or use it for
any purpose, nor disclose its contents to any other person. This email does
not constitute the commencement of legal relations between you and Misys.
Please refer to the executed contract between you and the relevant member
of the Misys group for the identity of the contracting party with which you
are dealing.
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/rpg400-l.
midrange.com
