display d'une table ISPF dans un panel

[yannga]

bonjour

je cherche des exemples de codage en rexx d'un display ( a l'aide tbdispl) d'une table ISPF et comment les affichés sur le panel à l'aide des zvars ou dans la partie )model. donc si vous avez des exemples je suis preneur et vous remercie par avance.

[arneo]

Voici un exemple simple:
La table contient les colonnes (REPRES,ARTICLE,QTE,CLIENTS)
Code Rexx

Code :

1
2
3
4
5
/* REXX   */
"ISPEXEC TBOPEN Nomtable"
"ISPEXEC TBDISPL Nomtable PANEL (Nompanel)"
"ISPEXEC TBCLOSE Nomtable "

Code Panel

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
)ATTR
  _   TYPE(INPUT) INTENS(LOW) COLOR(RED) PAD(' ') CAPS(ON)
  µ   TYPE(TEXT) INTENS(LOW) COLOR(GREEN)
  +   TYPE(TEXT) INTENS(LOW) SKIP(ON)
  $   TYPE(OUTPUT) INTENS(LOW) COLOR(GREEN)
)BODY EXPAND (§§)
%§-§ Lecture table §-§
%COMAND ===> _ZCMD                                    %SCROLL===>_AMT +
µ   Insert %IµDelete %DµUpdate %U
%
%     REPRESENTANT   ARTICLE   QUANTITE   CLIENTS
%
)MODEL
+     $Z         +   $Z       +$Z        +$Z +
)INIT
  &ZPRIM = NO
  .ZVARS = '(REPRES,ARTICLE,QTE,CLIENTS)'
)REINIT
REFRESH(*)
)PROC
)END

Bon courage