Re: Exfmt

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Steve

I believe that the 36 in the ERRMSG item turns it off - you might want 
to define an indicator variable that you turn on when 36 is on, that 
will not be turned off automatically.

Vern

On 3/12/2020 8:18 AM, Steve Jones wrote:
> 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?