| 
A*%%TS SD 19980813 161820 AF400CM REL-V4R2M0 5769-PW1
A*%%EC
A R FMT
A*%%TS SD 19980813 161820 AF400CM REL-V4R2M0 5769-PW1
A CA03(03)
A 2 3'date'
A 2 8'edtcde(y)'
A 2 18DATE(*JOB *YY)
A EDTCDE(Y)
A 4 3'date'
A 4 8'edtcde(w)'
A 4 18DATE(*JOB *YY)
A EDTCDE(W)
A 8 3'date format *dmy'
A 10 3'date format *eur'
A 12 3'date format *job'
A FLD001 L B 8 22DATFMT(*DMY)
A DATSEP('/')
A FLD002 L B 10 22DATFMT(*EUR)
A FLD003 L B 12 22DATFMT(*JOB)
A 15 3'date avec mapval(''01/01/40'' *bla-
A nk)'
A 17 3'date avec mapval(*cur *blank)'
A FLD004 L B 15 42DATFMT(*DMY)
A DATSEP('/')
A MAPVAL(('01/01/40' *BLANK))
A FLD005 L B 17 42DATFMT(*DMY)
A DATSEP('/')
A MAPVAL((*CUR *BLANK))
A 21 4'F3 pour sortir'
A 8 42'Les dates sont initialisées à date-
A du'
A DSPATR(HI)
A 9 42'jour en début de programme.'
A DSPATR(HI)
A 11 42'Elles ne sont pas modifiées entre'
A DSPATR(HI)
A 12 42'deux affichages'
A DSPATR(HI)
|
