Re: Variables in ERRMSGID

The following is excerpted from our Display File DDS session:

Copyright 1992-2001 MPH, Inc. All Rights Reserved

AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions..................
A                      $ID                R               B
+1REFFLD(MBID)
A    20
ERRMSGID(DBE0008 DBEMSGF +
A                                                                        20
&$IDMSG)
A                      $IDMSG                  34A  P         TEXT('PACKED
ID/CMPY NAME')

 May also pass data to message if supported by message

  Data passed as program to system field (usage P)

  Must be character field

If indicator 20 on

  Value of field &IDMSG merged with text of DBE0008 from DBEMSGF based upon
how variable defined in message

  Result displayed on message lineAdd message description

 ADDMSGD MSGID(DBE0008) MSGF(LIBNAME/DBEMSGF)
  MSG('Id number &1 already assigned to &2')
  FMT((*DEC 7) (*CHAR 30))

 Use data structure to break up variable into separate fields

IDsname....NODsExt-file++............PFromTo++DField..............
 *
 ***  DATA STRUCTURE TO REDEFINE VARIABLE TEST FOR ERROR MESSAGE
 *
I$IDMSG      DS
I                                    P   1   40ID
I                                         5  34 MBCMP

 If ID=0000105, MBCMP='MPH, INC.', and 20 on, following message displayed:

 ID Number 105 already assigned to MPH, Inc.

If you have any questions, ask away.

Charles L.Massoglia, President
Massoglia Technical Consulting, Inc.
cmassoglia@voyager.net
In MI 517-676-9700 or in NC 919-363-9395


----- Original Message -----
From: "Reis,Pedro (rp)" <reisped@hilti.com>
To: <RPG400-L@midrange.com>
Sent: Monday, 13 August, 2001 07:00
Subject: Variables in ERRMSGID


> Hello to all,
> Can anyone tell me if its possible to use variables  in error messages
> (ERRMSGID). If its possible, how can i use it?
>
> Thanks
>
> Pedro Salé Reis
> MIS Assistent
> Deptº Informática
> Hilti (PORTUGAL)
> Tel. +351 22 956 8145
> Fax. +351 22 956 81 90
> E-mail reisped@hilti.com
>
>
> _______________________________________________
> RPG400-L mailing list
> RPG400-L@midrange.com
> http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
>