Weirdness in screen program

Wed, 28 Apr 2004 08:18:40 +0200

SOLVED IT !!!!!!!!

At least:
as you can see there are a couple of temp fields BEFORE the temp fields
displayed and prompted.
What I have done is to put cluster statements around those temp i.e. t'QUESTION
and t'ANSWER.
And now it displays t'QUESTION2 correctly and prompts for t'OBJECT_CODE on the
correct position.
Earlier I had put cluster statements around ALL the temps and that DID NOT work.

I keep wondering why, but at least I've got a working program.

BTW Those other fields are not access / used on this program. The code was
originally copied from another (similar) program where things work fine.

Thanks again for you reactions.

Mark

-----Original Message-----
From: Bruin, J.M. de 
Sent: Wednesday, April 28, 2004 07:42
To: 'Darren Reely'; 'shediac92@hotmail.com'
Cc: powerh-l@lists.sowder.com
Subject: Re: Weirdness in screen program 

Thanks so far for the input guys .

Below you'll find the part of the source with the field statements and the ascii
screen layout of the compiler.
As you see, there is a cluster statement at the end of the cluster!
Also, there are some other temp's before the temps that account for the problem
(see my previous mail).
I have been wrestling with the source code and made it as minimal as possible
not to disable any functionality of it, but alas nothing's worked so far.

Maybe this source code might be helpfull / usefull

TIA,

Mark

Align (,,20)
Skip To 4
Align (1,4,13)(,20,32)(,73,80)
Field PLTOBJ_MNEM Of PLOTSESSION_OBJ Required Lookup Noton PLOTSESSION_OBJ &
Via DPP-OBJECT-TYPE-ID, PLTOBJ_MNEM, DPP-OBJECT-OWNER, DPP-OBJECT-VERSION &
Using DPP-OBJECT-TYPE-ID Of PLOTSESSION_OBJ, PLTOBJ_MNEM, DPP-OBJECT-OWNER Of
PLOTSESSION_OBJ, DPP-OBJECT-VERSION Of PLOTSESSION_OBJ
Field PLTOBJ_DESC Of PLOTSESSION_OBJ Label 'description' Required
Field PLTOBJ_ORIENT Of PLOTSESSION_OBJ Label 'orient' Predisplay
Skip 1 
Align (12,,) (20,,) (27,,) (34,,) (41,,) (48,,) (55,,) (58,,) (60,,)
Title "* Dim"
Title "* X"
Title "* Y"
Title "* Z"
Title "* R"
Title "* Mult"
Title "Ax"
Title "V"
Title "Desc"
Align (1,,4) (,,12) (,,14) (,,21) (,,28) (,,35) (,,42) (,,49) (,,56) (,,58)
(,,60)
Cluster Occurs With PLTSES_LOC_v60 For 1,80 Id Base 10
Field TRANS-LOC-NR Of PLTSES_LOC_v60 Character Size 6 Picture "^^^^" &
Lookup On TRANS-LOCS Message '*E* Incorrect location-code. Type "*" for valid
codes'
Field MME_PD_CODE Of PLTSES_LOC_V60 Upshift Lookup On O_MME_PD &
Message "*E* This is not a valid dimension. Use * for list"
Field t'SIGNAL_SPECIAL_LOCATION Silent &
Lookup Noton PLTSES_LOC_v60 Via PLTOBJ_NR, TRANS-LOC-NR, MME_PD_CODE &
Using PLTOBJ_NR Of PLTSES_LOC_v60, TRANS-LOC-NR Of PLTSES_LOC_v60, MME_PD_CODE
Of PLTSES_LOC_v60 &
Optional Message "*W* This location / dimension combination is already defined"
Field PLTPG_NR Of PLTSES_LOC_AXIS_PG_SP Character Size 6 If TRANS-LOC-OBJECT Of
TRANS-LOCS Eq "S"
Field PLTPG_NR Of PLTSES_LOC_AXIS_PG_X Character Size 6 If TRANS-LOC-OBJECT Of
TRANS-LOCS Ne "S"
Field PLTPG_NR Of PLTSES_LOC_AXIS_PG_Y Character Size 6 If TRANS-LOC-OBJECT Of
TRANS-LOCS Ne "S"
Field PLTPG_NR Of PLTSES_LOC_AXIS_PG_Z Character Size 6 If TRANS-LOC-OBJECT Of
TRANS-LOCS Ne "S"
Field PLTPG_NR Of PLTSES_LOC_AXIS_PG_R Character Size 6 If TRANS-LOC-OBJECT Of
TRANS-LOCS Ne "S"
Field PLTPG_NR Of PLTSES_LOC_AXIS_PG_M Character Size 6 If TRANS-LOC-OBJECT Of
TRANS-LOCS Ne "S"
Field t'c1MULTI_AXIS If TRANS-LOC-OBJECT Of TRANS-LOCS Ne "S" Values "X", "Y",
"Z", "A" Upshift
Field VARIABLE_LOCATIONS Of PLTSES_LOC_AXIS_PG_M &
If 0 Ne PLTPG_NR Of PLTSES_LOC_AXIS_PG_M Predisplay
Field t'UPDATE_DESC Silent ID Same
Field t'c80DESCRIPTION Display For 1,20
Cluster

Skip 
Align (,,6) (,,50)
Field t'QUESTION Noid Nolabel Display
Field t'ANSWER Values 'Y', 'N' Upshift Noid Nolabel Display
Field t'QUESTION2 Noid Nolabel Display
Field t'OBJECT_CODE Upshift Noid Nolabel Lookup On REF_OBJECT Message '*E* This
object is not known.' Required Display

Q D E S I G N   (7.10.G1)
Copyright 1998 COGNOS INC. (ALPHA)
Licensed PH-AXP-DEVELOPMENT for customer: 8037140001 TNO WEGTRANSPORT AXP

D                                                       DPP-OBJECT-VERSION OF PL
OTSESSION_OBJ
*W* Selection is ignored for LOOKUP NOTON option.
D BUILD
*W* Update on linked screen may bypass PREUPDATE/UPDATE/POSTUPDATE procedures.
MODE:x ACTION:xxxxxxxxx *x* xxxxxxx BEGRIP: Plot Object                  (S8033)
********************************************************************************

01 Mnenomic xxxxxx description xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx orient x

           * Dim   * X    * Y    * Z    * R    * Mult Ax V Desc
10 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
11 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
12 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
13 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
14 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
15 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
16 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
17 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
18 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
19 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
20 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
21 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx
22 xxxxxx  xxxxxxxx xxxxxx xxxxxx xxxxxx xxxxxx xxxxxx x x xxxxxxxxxxxxxxxxxxxx

     xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
     xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
0 ERRORS  2 WARNINGS.