| View previous topic :: View next topic |
| Author |
Message |
danm
Intermediate
Joined: 29 Jun 2004
Posts: 170
Topics: 73
|
 Posted: Fri Nov 11, 2011 11:04 am Post subject: Location of Long message of TBDISPL |
 |
|
I inputed errorneous data in one of the )MODEL field. When I press PF1 to look at the long message, it is displayed below the error data, covering the input data on the next row. I want to relocated the long message to non-scrolling area of the )BODY. I try the following and it didn't work:
| Code: |
address 'ISPEXEC' "TBDISPL TABLE1 PANEL(PANEL1) CURSOR(FLD3) CSRROW(1) AUTOSEL(NO) MSGLOC(LNGMSG)
LNGMSG is an output field in the non-scrolling area (above ")MODEL")
|
Any suggestion? |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
danm
Intermediate
Joined: 29 Jun 2004
Posts: 170
Topics: 73
|
| Posted: Mon Nov 14, 2011 3:24 pm Post subject: |
|
|
Kolusu,
I looked into all the System variables, espeically those associate with Table display service, and didn't see any for long message placement. I also try adding LMSG(field name) in )BODY section and it didn't work either. |
|
| Back to top |
|
|
Mickeyd
Beginner
Joined: 02 Jan 2003
Posts: 27
Topics: 0
|
| Posted: Mon Nov 14, 2011 5:48 pm Post subject: |
|
|
| Show me your panel, and how did you set the zdtmsg in your rexx..?? |
|
| Back to top |
|
|
danm
Intermediate
Joined: 29 Jun 2004
Posts: 170
Topics: 73
|
| Posted: Tue Nov 15, 2011 11:45 am Post subject: |
|
|
Mickeyd,
| Code: |
)PANEL KEYLIST(KLIST,APP1)
)ATTR DEFAULT(%+!)
+ TYPE(TEXT) INTENS(LOW) PAD(' ') JUST(ASIS) SKIP(ON)
~ TYPE(TEXT) INTENS(LOW) PAD(' ') JUST(ASIS) COLOR(YELLOW) SKIP(ON)
$ TYPE(INPUT) INTENS(NON)
! TYPE(INPUT) INTENS(LOW) CAPS(ON) JUST(RIGHT) COLOR(GREEN)
@ TYPE(OUTPUT) INTENS(LOW) COLOR(TURQ) JUST(LEFT) SKIP(ON)
)BODY WINDOW(80,24) EXPAND(\\)
%\ \ Update Information \ \
$Z+
+
~ Category Var1 Var2 Amount
+ ------------ ------ ---- ------
)MODEL
+ @Category + @Z+ @Z+ !Z +
+ --------------------------------------
)INIT
&ZCMD = ' '
&ZTDMARK = ' '
.ZVARS = '(ZCmd Var1 Var2 Amount)'
)PROC
VER(&Amount,NB,RANGE,0,32767,MSG=APP1005)
)END
|
I didn't set the ZTDMSG in the REXX program since it already displayed the message, e.g. Row 1 to 8 of 8. By adding the statement "ztdmsg = 'ISPZZ103'" will not reposition the long message. |
|
| Back to top |
|
|
Mickeyd
Beginner
Joined: 02 Jan 2003
Posts: 27
Topics: 0
|
| Posted: Tue Nov 15, 2011 1:29 pm Post subject: |
|
|
you can do the following in the panel to reloacte any message (Short or Long)
| Code: |
{ TYPE(OUTPUT) INTENS(HIGH) SKIP(ON) COLOR(PINK)
)BODY WINDOW(80,24) EXPAND(\\) SMSG(SMSGS) LMSG(LMSGS)
)BODY EXPAND(//) CMD(ZCMD) SMSG(SMSGS)
#SMGDATE + / / @DB2 Table Display / / #SM
+ {SMSGS
+ Command%===>_ZCMD +Scroll%===
+ @SSID:_S+
+
+ Sel Name Number
)MODEL ROWS(SCAN)
+ !Z+|Z |Z +
)INIT |
|
|
| Back to top |
|
|
Mickeyd
Beginner
Joined: 02 Jan 2003
Posts: 27
Topics: 0
|
| Posted: Tue Nov 15, 2011 1:30 pm Post subject: |
|
|
| Mickeyd wrote: | you can do the following in the panel to reloacte any message (Short or Long)
| Code: |
)BODY WINDOW(80,24) EXPAND(\\) SMSG(SMSGS) LMSG(LMSGS)
)BODY EXPAND(//) CMD(ZCMD) SMSG(SMSGS)
#SMGDATE + / / @DB2 Table Display / / #SM
+ {SMSGS
+ Command%===>_ZCMD +Scroll%===
+ @SSID:_S+
+
+ Sel Name Number
)MODEL ROWS(SCAN)
+ !Z+|Z |Z +
)INIT |
|
|
|
| Back to top |
|
|
danm
Intermediate
Joined: 29 Jun 2004
Posts: 170
Topics: 73
|
| Posted: Thu Nov 17, 2011 10:29 am Post subject: |
|
|
Mickeyd,
I added LMSG(LNGMSG) to )BODY and output field LNGMSG and it still display long message below the error data.
| Code: |
)PANEL KEYLIST(KLIST,APP1)
)ATTR DEFAULT(%+!)
+ TYPE(TEXT) INTENS(LOW) PAD(' ') JUST(ASIS) SKIP(ON)
~ TYPE(TEXT) INTENS(LOW) PAD(' ') JUST(ASIS) COLOR(YELLOW) SKIP(ON)
$ TYPE(INPUT) INTENS(NON)
! TYPE(INPUT) INTENS(LOW) CAPS(ON) JUST(RIGHT) COLOR(GREEN)
@ TYPE(OUTPUT) INTENS(LOW) COLOR(TURQ) JUST(LEFT) SKIP(ON)
)BODY WINDOW(80,24) LMSG(LNGMSG) EXPAND(\\)
%\ \ Update Information \ \
$Z+ @Z +
+
~ Category Var1 Var2 Amount
+ ------------ ------ ---- ------
)MODEL
+ @Category + @Z+ @Z+ !Z +
+ --------------------------------------
)INIT
&ZCMD = ' '
&ZTDMARK = ' '
.ZVARS = '(ZCmd LngMsg Var1 Var2 Amount)'
)PROC
VER(&Amount,NB,RANGE,0,32767,MSG=APP1005)
)END
|
Looks like LMSG will not work for a verification error message. I found this in the "Dialog Developer's Guide and Reference" about LMSG:
| Code: |
2. For long or short messages in pop-up windows, if the message originates
from panel processing, as in a verification error message, the message
pop-up window is placed adjacent to the field that is the object of the
validation.
|
|
|
| Back to top |
|
|
Mickeyd
Beginner
Joined: 02 Jan 2003
Posts: 27
Topics: 0
|
| Posted: Thu Nov 17, 2011 5:22 pm Post subject: |
|
|
you did not place the LNGMSG in the panel, which means you did not even look
at the panel body I included or you would have seen {SMSG on the 3rd line. |
|
| Back to top |
|
|
danm
Intermediate
Joined: 29 Jun 2004
Posts: 170
Topics: 73
|
| Posted: Fri Nov 18, 2011 12:42 pm Post subject: |
|
|
Mickeyd,
LNGMSG is on the 2nd line of )BODY. It is the 2nd "Z" variables:
| Code: |
)BDOY
$Z+ @Z +
)INIT
.ZVARS = '(ZCmd LngMsg Var1 Var2 Amount)'
|
|
|
| Back to top |
|
|
Mickeyd
Beginner
Joined: 02 Jan 2003
Posts: 27
Topics: 0
|
| Posted: Fri Nov 18, 2011 2:41 pm Post subject: |
|
|
and with the + sign following your message is on 6 characters long. Your command is only 1 character. Also change your LSMG(lngmsg) to SMSG(lngmsg)
correct your @z + to the correct length.. and see if you get the short message. |
|
| Back to top |
|
|
Mickeyd
Beginner
Joined: 02 Jan 2003
Posts: 27
Topics: 0
|
| Posted: Fri Nov 18, 2011 2:45 pm Post subject: |
|
|
I would also remove the Z for the command and for the long message and use
ZCMD and LNGMSG. also remove the ZCmd LngMsg for the ZVARS. |
|
| Back to top |
|
|
arnold57
Beginner
Joined: 01 Oct 2004
Posts: 30
Topics: 0
|
| Posted: Thu Dec 08, 2011 6:24 pm Post subject: |
|
|
| Your long message field LNGMSG is only 5 characters long. Any message longer than 5 characters won't fit and will display in a pop-up window instead. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
