Page 1 of 1

display a panel with TBDISP failed for width(160)

PostPosted: Mon Dec 22, 2014 7:09 am
by wuyunjiefov
Deall, i wrote a REXX to display a panel with TBDISP, i cut some key statement as below:
problem is : i can display a panel with dafault width(80) but failed for width(160), pls help me check this issue thanks, i already set the tso screensize to 62*160 and ZSCREENW displaied was 160.

REXX Codes:

ADDRESS ISPEXEC   
"VGET ZSCREENW"         
SAY 'ZSCREENW: ' ZSCREENW "" /* result is 160 */

varia = 'msg1,msg2,msg3,msg4,msg5,msg6,msg7,q'
"TBCREATE" table,                             
"NAMES("varia")",                             
"NOWRITE KEYS(ds)"                           
"TBMOD" TABLE   
"TBDISPL" table "PANEL("PANEL")"


Panel:

)ATTR                                                                           
 % TYPE(TEXT) COLOR(WHITE) CAPS(OFF) SKIP(ON)                                   
 @ TYPE(OUTPUT) INTENS(LOW)                                                     
 # TYPE(INPUT)  PAD(_)                                                         
)BODY EXPAND(//)  WIDTH(80)      /*   if change to WIDTH(100) or WIDTH(160), TBDISP will give RC=20*/                                                 
%COMMAND INPUT ===>_ZCMD                           %SCROLL    ===>_AMT +       
%SELECT(B,E)    DSN NAME                                                       
%DATA LINE                                                                     
%----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----
)MODEL                                                                         
 #Q+          +@DS                                                             
@MSG1                                                                           
@MSG2                                                                           
@MSG3                                                                           
@MSG4                                                                           
@MSG5                                                                           
@MSG6                                                                           
@MSG7                                                                           
)INIT                                                                           
 &AMT  = PAGE                                                                   
 &Q    = ' '                                                                   
)PROC                                                                           
 VER(&Q,LIST,V,B,E,S,e,b,v,s)                                                   
)END

Re: display a panel with TBDISP failed for width(160)

PostPosted: Mon Dec 22, 2014 2:48 pm
by NicC
Please, as requested before, use the code tags to present your code, data etc.

Re: display a panel with TBDISP failed for width(160)

PostPosted: Mon Dec 22, 2014 3:15 pm
by enrico-sorichetti
when You edit something can You see the 160 columns ?

Re: display a panel with TBDISP failed for width(160)

PostPosted: Mon Dec 22, 2014 10:32 pm
by Pedro
In ISPF option 0, set 'Screen format' to max and 'Terminal type' to 3278.

Re: display a panel with TBDISP failed for width(160)

PostPosted: Fri May 06, 2016 2:50 pm
by willy jensen
In your panel you have : )BODY EXPAND(//) WIDTH(80)
Have you tried WIDTH(160)?

Re: display a panel with TBDISP failed for width(160)

PostPosted: Fri May 06, 2016 2:59 pm
by enrico-sorichetti
frankly, replying to a year and a half old topic
where the TS did not care to follow up is a waste of resources IMO

Re: display a panel with TBDISP failed for width(160)

PostPosted: Sun May 08, 2016 12:54 am
by willy jensen
ok, I didn't check the last date, but I'm pretty sure I looked at new mails. Then again ... will try to be more carefull.