From DDS-Display manual:
ERRMSG
If you specify a response indicator, it should be the same as the option indicator used to condition
ERRMSG. On the input operation that follows the display of the error message, the IBM i operating
system >>>turns off the indicator<<<.
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Steve Jones
Sent: Thursday, March 12, 2020 09:19
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Exfmt
Came across something that I have never seen before.
We have a screen defined as:
A DSPSIZ(24 80 *DS3)
A MSGLOC(24)
A INDARA
A ERRSFL
A PRINT
A R SCRN1
A*%%TS SD 20200311 135823 SMJONES REL-V7R3M0 5770-WDS
A CF03(03)
A CF04(04)
A CF05(05)
A ADDRESS1 35A B 9 17CHECK(LC)
A 36 ERRMSG('(E) Address not valid' 36)
A R SCRN4
A 1 2'R1397-04'
A COLOR(BLU)
A UDATE 6Y 0O 1 73EDTCDE(Y)
A COLOR(BLU)
A 3 16'Error found on shipment'
A COLOR(RED)
A ERRORCODE1 10A O 5 11
Program snippet as:
Dcl-f R1397s workstn indds(DspInd);
dcl-ds DspInd;
Exit Ind Pos(3);
Prompt Ind Pos(4);
F5 Ind Pos(5);
Generate Ind Pos(10);
AllErrors Char(20) Pos(30);
BadLevel Ind Pos(30);
BadCountry Ind Pos(31);
BadShipTo Ind Pos(32);
BadCity Ind Pos(33);
BadState Ind Pos(34);
BadZip Ind Pos(35);
BadAddress Ind Pos(36);
BadOutq Ind Pos(37);
BadWeight Ind Pos(38);
BadLength Ind Pos(39);
BadF10 Ind Pos(40);
BadAccount Ind Pos(41);
BadTerms Ind Pos(42);
BadPhone Ind Pos(43);
BadContact Ind Pos(44);
BadValue Ind Pos(45);
BadDesc Ind Pos(46);
BadPhone10 Ind Pos(47);
BadPackage Ind Pos(48);
BadYN Ind Pos(48);
End-ds;
Address1 is populated based on data in a file when the program is called.
If address1 is not valid I do BadAddress = *On then do an Exfmt Scrn4 After pressing Enter It then does an Exfmt Scrn1
The weird thing I am seeing is that BadAddress is turned off after the Exfmt Scrn4 What can I do to keep the error indicators on after doing an Exfmt?
--
Steve Jones
H-P Products, Inc
330-871-2054
--
NOTE: The information in this email is confidential and may be legally privileged. If you are not the intended recipient, you must not read, use or disseminate the information; please advise the sender immediately by reply email and delete this message and any attachments without retaining a copy. Although this email and any attachments are believed to be free of any virus or other defect that may affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by H-P Products, Inc. for any loss or damage arising in any way from its use.
--
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@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
