| 
A*%%TS SD 19950705 114439 AF400CM REL-V3R1M0 5763-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A R FMT
A*%%TS SD 19950705 114439 AF400CM REL-V3R1M0 5763-PW1
A CA03(03 'Exit')
A 4 30'N° CDE:'
A NOCDE R B 4 39REFFLD(CDEENTF1/NOCDE AF4SRCT/CDEEN-
A TP1)
A 55 ERRMSGID(CPF9898 QSYS/QCPFMSG 55 &D-
A ATA)
A 6 27'N° CLIENT:'
A NOCLI R B 6 39REFFLD(CDEENTF1/NOCLI AF4SRCT/CDEEN-
A TP1)
A 8 28'DATE CDE:'
A 10 28'DATE LIV:'
A 1 20'* Saisie des entêtes de commande *'
A DSPATR(UL)
A 21 3'F3 = Exit'
A COLOR(BLU)
A 8 49'(jj/mm/aa)'
A 10 49'(jj/mm/aa)'
A WDATCDE R A B 8 39REFFLD(CDEENTF1/DATCDE AF4SRCT/CDEE-
A NTP1)
A 60 ERRMSG('Date invalide' 60)
A WDATLIV R A B 10 39REFFLD(CDEENTF1/DATLIV AF4SRCT/CDEE-
A NTP1)
A 61 ERRMSG('date invalide' 61)
A 62 ERRMSG('date de livraison doit être-
A > ou = à date de commande' 62)
A 63 ERRMSGID(CPF9898 QSYS/QCPFMSG 63 &D-
A ATA)
A DATA 78A P
A 13 28'Date de livraison doit être supéri-
A eure à date'
A COLOR(BLU)
A 14 30'de commande, mais de 13 mois maxim-
A um.'
A COLOR(BLU)
|
