| 
A*%%TS SD 19940909 094124 AF400 REL-V2R3M0 5738-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 19930923 093524 AF400 REL-V2R2M0 5738-PW1
A OPT 1A I 3 1VALUES(' ' '1' '5' '8')
A OBJNAM 10A O 3 3
A TEXTE 50A O 3 15
A OBJLIB 10A H
A R FMTCTL SFLCTL(FMTSFL)
A*%%TS SD 19940909 094124 AF400 REL-V2R3M0 5738-PW1
A SFLSIZ(0014)
A SFLPAG(0013)
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'* choix d''une commande *'
A DSPATR(HI)
A BIBLI 10 O 1 56COLOR(BLU)
A 1 50'Bib :'
A COLOR(BLU)
A 2 1'Op nom texte -
A '
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 19940909 094124 AF400 REL-V2R3M0 5738-PW1
|
|
A WINDOW(2 6 19 65) A WDWBORDER((*DSPATR RI) (*CHAR ' - A ')) A 17 2'1= Exécuter, 5= Afficher l''invite- A , 8= Description. F3 = Exit.' A COLOR(BLU) A R ERRSFL SFL A*%%TS SD 19930906 133315 AF400 REL-V2R2M0 5738-PW1 A SFLMSGRCD(18) 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 |
