Ecran verif. version cible.

BoTTom |
     A*%%TS  SD  19960401  174703  AF400CM     REL-V3R1M0  5763-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      HLPTITLE('Choix d''une commande.')
     A                                      HLPPNLGRP(CHXCMD AF400/LISTES)
     A                                      ALTHELP(CA01)
     A                                      HELP
     A          R BIDON
     A*%%TS  SD  19930921  085025  AF400       REL-V2R2M0  5738-PW1
     A                                      ASSUME
     A                                  1  3' '
     A          R FMTSFL                    SFL
     A*%%TS  SD  19960401  093822  AF400CM     REL-V3R1M0  5763-PW1
     A            OPT            2A  I  3  1VALUES(' ' '2 ' ' 2' '5 ' ' 5' '14')
     A            OBJNAM        10A  O  3  4DSPATR(HI)
     A            TEXT1         25A  O  3 40
     A            VER            6A  O  3 16DSPATR(HI)
     A            ATTR          10A  O  3 29
     A            TEXT2         25A  O  4 40
     A                                  4  4'date'
     A                                  4  9'de'
     A                                  4 12'création:'
     A            DATCRT         6Y 0O  4 23EDTCDE(Y)
     A            OBJLIB        10A  H
     A            SRCLIB        10A  H
     A            SRCFIC        10A  H
     A            SRCMBR        10A  H
     A            OBS            5A  O  3 23
     A          R FMTCTL                    SFLCTL(FMTSFL)
     A*%%TS  SD  19960401  093822  AF400CM     REL-V3R1M0  5763-PW1
     A                                      SFLSIZ(0014)
     A                                      SFLPAG(0007)
     A                                      WINDOW(CDE)
     A                                      CA03(03)
     A                                      CA12(03)
     A                                      OVERLAY
     A  30                                  SFLDSP
     A  31                                  SFLDSPCTL
     A N31                                  SFLCLR
     A  30                                  SFLEND(*MORE)
     A                                  1 18'* Vérif. version cible *'
     A                                      DSPATR(HI)
     A            BIBLI         10A  O  1 56COLOR(BLU)
     A                                  1 50'Bib :'


|
     A                                      COLOR(BLU)
     A                                  2  1'Op nom         Version Obs. Attrib-
     A                                      ut      Texte                  '
     A                                      DSPATR(UL)
     A                                      COLOR(BLU)
     A                                  1  1DATE
     A                                      EDTCDE(Y)
     A                                      COLOR(BLU)
     A            LIGNE          4S 0H      SFLRCDNBR(CURSOR)
     A          R CDE
     A*%%TS  SD  19950217  114310  AF400       REL-V3R0M5  5763-PW1
     A                                      WINDOW(2 6 20 65)
     A                                      WDWBORDER((*DSPATR RI) (*CHAR '    -
     A                                          '))
     A                                 18  2'2 = Editer, 5 = Voir, 14 = Compile-
     A                                      r .               F3 = Exit.'
     A                                      COLOR(BLU)
     A          R RIEN
     A*%%TS  SD  19960401  174703  AF400CM     REL-V3R1M0  5763-PW1
     A                                      WINDOW(CDE)
     A                                  6  3'(Aucun programmes ne correspond à -
     A                                      vos critères)'
     A                                      COLOR(BLU)
     A                                  9 10'Version . . . :'
     A                                      DSPATR(HI)
     A            RCVVER         6   O  9 28
     A                                 11 10'Observabilité :'
     A                                      DSPATR(HI)
     A            RCVOBS         5   O 11 28
     A          R ERRSFL                    SFL
     A*%%TS  SD  19930906  133315  AF400       REL-V2R2M0  5738-PW1
     A                                      SFLMSGRCD(19)
     A            SFLKEY                    SFLMSGKEY
     A            SFLQ                      SFLPGMQ
     A          R ERRCTL                    SFLCTL(ERRSFL) OVERLAY
     A                                      WINDOW(CDE)
     A*%%TS  SD  19930906  133315  AF400       REL-V2R2M0  5738-PW1
     A  40                                  SFLDSP
     A  40                                  SFLDSPCTL
     A  40                                  SFLINZ
     A  40                                  SFLEND
     A                                      SFLSIZ(0002)
     A                                      SFLPAG(0001)
     A            SFLQ                      SFLPGMQ





©AF400