DSPF pour DSPDBIG

BoTTom |
     A*%%TS  SD  19950126  175005  AF400       REL-V2R3M0  5738-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A          R BIDON                     ASSUME
     A                                  1  2' '
     A          R GENERAL
     A*%%TS  SD  19941214  163341  AF400       REL-V3R0M5  5763-PW1
     A                                      WINDOW(*DFT 14 60)
     A                                  1  1'Fichier:'
     A                                      COLOR(BLU)
     A            FIC           10   O  1 11COLOR(BLU)
     A                                  1 22'Bibliothèque:'
     A                                      COLOR(BLU)
     A            LIB           10   O  1 37COLOR(BLU)
     A                                  2  2'texte : '
     A                                      COLOR(BLU)
     A            TXT           50   O  2 11
     A                                  3  2'date de sauvegarde:'
     A                                      COLOR(BLU)
     A            DATS           7Y 0O  3 23EDTCDE(Y)
     A                                  3 32'cde:'
     A                                      COLOR(BLU)
     A            CDE           10   O  3 37
     A                                  5  2'Liste'
     A                                  5  8'des'
     A                                  5 12'formats:'
     A                                  6  2'1  Format     Texte               -
     A                                                               '
     A                                      DSPATR(UL)
     A          R FSFL                      SFL
     A*%%TS  SD  19941214  163341  AF400       REL-V3R0M5  5763-PW1
     A            OPTION         1   I  8  2
     A            FMTDB         10   O  8  5
     A            FTXT          45   O  8 16
     A          R FCTL                      SFLCTL(FSFL)
     A*%%TS  SD  19941214  165710  AF400       REL-V3R0M5  5763-PW1
     A                                      CA03(03 'Exit')
     A                                      CA11(11 'Relations BD')
     A                                      OVERLAY
     A  30                                  SFLDSP
     A  31                                  SFLDSPCTL
     A N31                                  SFLCLR
     A  30                                  SFLEND
     A                                      SFLSIZ(0006)


|
     A                                      SFLPAG(0005)
     A                                      WINDOW(GENERAL)
     A                                 13  1'F3=Exit, F11=relations B de D, opt-
     A                                      ion 1= zones du format.'
     A                                      COLOR(BLU)
     A          R ZSFL                      SFL
     A*%%TS  SD  19950126  145539  AF400       REL-V2R3M0  5738-PW1
     A            ZONE          10A  O  2  1
     A            DSLG           5A  O  2 12
     A            COLHD1        20A  O  2 22
     A            USAGE          1A  O  2 20
     A            TYPE           1A  O  2 18
     A            COLHD2        20A  O  3  2DSPATR(UL)
     A            COLHD3        20A  O  3 23DSPATR(UL)
     A          R ZCTL                      SFLCTL(ZSFL)
     A*%%TS  SD  19941230  144255  AF400       REL-V3R0M5  5763-PW1
     A                                      CA12
     A  40                                  SFLDSP
     A  41                                  SFLDSPCTL
     A N41                                  SFLCLR
     A  40                                  SFLEND
     A                                      SFLDROP(CA11)
     A                                      SFLSIZ(0007)
     A                                      SFLPAG(0003)
     A                                      WINDOW(*DFT 8 42)
     A                                  1  1'Champs     Lg    T U COLHDG       -
     A                                              '
     A                                      DSPATR(UL)
     A                                      COLOR(BLU)
     A          R RSFL                      SFL
     A*%%TS  SD  19950126  175005  AF400       REL-V2R3M0  5738-PW1
     A            WHREFI        10A  O  4  6
     A            WHTYP          1A  O  4 18
     A            WHJR           3Y 0O  4 22EDTCDE(Z)
     A            OPTR           1A  I  4  2VALUES(' ' 'K' 'S' 'J' '5')
     A            WHRELI        10A  H
     A          R RCTL                      SFLCTL(RSFL)
     A*%%TS  SD  19950126  173835  AF400       REL-V2R3M0  5738-PW1
     A                                      SFLSIZ(0006)
     A                                      SFLPAG(0005)
     A                                      WINDOW(*DFT 9 25)
     A                                      CA12(12 'retour')
     A  50                                  SFLDSP
     A  51                                  SFLDSPCTL


|
     A N51                                  SFLCLR
     A  50                                  SFLEND
     A                                  1  1'      Relations BdeD     '
     A                                      COLOR(BLU)
     A                                      DSPATR(UL)
     A                                  3  6'Fichier'
     A                                  3 16'Type'
     A                                  3 22'Jref'
     A                                  2  1'K=Key,S=Sel,J=Join,5=tout'
     A                                      COLOR(BLU)
     A                                  3  2'v'




©AF400