display a panel with TBDISP failed for width(160)



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

display a panel with TBDISP failed for width(160)

Postby wuyunjiefov » Mon Dec 22, 2014 7:09 am

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
wuyunjiefov
 
Posts: 10
Joined: Sun Dec 07, 2014 7:58 pm
Has thanked: 1 time
Been thanked: 0 time

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

 

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

Postby NicC » Mon Dec 22, 2014 2:48 pm

Please, as requested before, use the code tags to present your code, data etc.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 2565
Joined: Sun Jul 04, 2010 12:13 am
Location: Down on the pig farm
Has thanked: 4 times
Been thanked: 90 times

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

Postby enrico-sorichetti » Mon Dec 22, 2014 3:15 pm

when You edit something can You see the 160 columns ?
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2535
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 120 times

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

Postby Pedro » Mon Dec 22, 2014 10:32 pm

In ISPF option 0, set 'Screen format' to max and 'Terminal type' to 3278.
Pedro Vera
User avatar
Pedro
 
Posts: 543
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 35 times

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

Postby willy jensen » Fri May 06, 2016 2:50 pm

In your panel you have : )BODY EXPAND(//) WIDTH(80)
Have you tried WIDTH(160)?
willy jensen
 
Posts: 69
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 14 times

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

Postby enrico-sorichetti » Fri May 06, 2016 2:59 pm

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
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2535
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 120 times

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

Postby willy jensen » Sun May 08, 2016 12:54 am

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.
willy jensen
 
Posts: 69
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 14 times


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post