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")"
"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
% 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
