| 
A*%%TS SD 19980708 122351 QSECOFR REL-V4R2M0 5769-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A R BIDON
A*%%TS SD 19970709 103409 AF400CM REL-V3R7M0 5716-PW1
A ASSUME
A 1 3' '
A R WIN01 FRCDTA
A*%%TS SD 19970709 103409 AF400CM REL-V3R7M0 5716-PW1
A WINDOW(*DFT 3 25 +
A *NOMSGLIN)
A 1 1'Recherche'
A 1 11'de'
A 1 14'messages'
A 3 2'en'
A 3 5'cours'
A 3 11'....'
A R TITRE
A*%%TS SD 19970709 103409 AF400CM REL-V3R7M0 5716-PW1
A 1 4'WRKMAIL'
A 1 21' ** gestion des messages recus ** '
A DSPATR(UL)
A 1 63'le:'
A 1 67DATE
A EDTCDE(Y)
A R WIN02
A*%%TS SD 19980708 122351 QSECOFR REL-V4R2M0 5769-PW1
A CA12(03)
A CA03(03)
A CA04(04)
A WINDOW(*DFT 14 45)
A 10 2'message'
A 10 10':'
A MSG 120A I 11 2CNTFLD(040)
A CHECK(LC)
A 2 2'A . . . :'
A USER 8A B 2 13
A 40 ERRMSG('Erreur lors de l''envoi' 40)
A SYSTEM 8A B 2 24
A 40 ERRMSG('Erreur lors de l''envoi' 40)
A 8 2'Sujet.'
A 8 9'.:'
A SUJET 50A I 8 13CNTFLD(025)
A CHECK(LC)
|
|
A 2 34'(F4=Liste)'
A 3 4'Adresse internet (facultatif) :'
A INTADR 90 I 4 4CNTFLD(030)
A R FE SFL
A*%%TS SD 19970710 122716 AF400CM REL-V3R7M0 5716-PW1
A OPTION 1A I 6 4VALUES(' ' '4' '5' '8')
A LINDSD 44A O 6 28
A LINSUI 8A O 6 8
A LINSUA 8A O 6 17
A TYP 3A O 6 74
A LINDID 20A H
A LINTXD 44A H
A R FC SFLCTL(FE)
A*%%TS SD 19970710 122716 AF400CM REL-V3R7M0 5716-PW1
A SFLSIZ(0015)
A SFLPAG(0014)
A CF06(06 'Envoi')
A CA12(03 'Sortie')
A CA03(03)
A OVERLAY
A 30 SFLDSP
A 31 SFLDSPCTL
A N31 SFLCLR
A 30 SFLEND(*SCRBAR *MORE)
A 5 3'Opt Correspondant Sujet -
A -
A Type'
A DSPATR(UL)
A COLOR(WHT)
A 3 4'4=Supprimer, 5=Afficher détail, 8=-
A Extraire dans document.'
A COLOR(BLU)
A R PIED
A*%%TS SD 19970709 103409 AF400CM REL-V3R7M0 5716-PW1
A OVERLAY
A 23 4'F3=Sortie, F6=Envoi d''un message,-
A F12=Sortie.'
A COLOR(BLU)
A R VIDE
A*%%TS SD 19970709 103409 AF400CM REL-V3R7M0 5716-PW1
A OVERLAY
A 8 10'(Vous n''avez pas de message)'
A R WIN03
A*%%TS SD 19970710 105127 AF400CM REL-V3R7M0 5716-PW1
|
|
A WINDOW(*DFT 1 48 *NOMSGLIN)
A LINTXD 44 O 1 3
A R WIN04
A*%%TS SD 19970710 122546 AF400CM REL-V3R7M0 5716-PW1
A WINDOW(*DFT 20 50 *NOMSGLIN)
A 1 25'Priorité'
A RCVPTY 1A O 1 34
A 1 3'Système'
A RCVSYC 13A O 1 11
A FROM 100A B 3 1DSPATR(PR)
A CNTFLD(050)
A TO 100A B 6 1DSPATR(PR)
A CNTFLD(050)
A DATE 100A B 9 1DSPATR(PR)
A CNTFLD(050)
A SUBJECT 150A B 12 1DSPATR(PR)
A CNTFLD(050)
A MESSAGE 250A B 16 1DSPATR(PR)
A CNTFLD(050)
A 2 1'De'
A DSPATR(HI)
A 5 1'A'
A DSPATR(HI)
A 8 1'Le'
A DSPATR(HI)
A 11 1'Sujet'
A DSPATR(HI)
A 15 1'Corps du message'
A DSPATR(HI)
A 1 36'(le:'
A 1 41DATE
A EDTCDE(Y)
A 1 50')'
A R WIN05
A*%%TS SD 19970710 122716 AF400CM REL-V3R7M0 5716-PW1
A CA12(03)
A WINDOW(*DFT 5 65 *NOMSGLIN)
A 1 2'Placer'
A 1 9'dans'
A 1 14'le'
A 1 17'document'
A DOC 12 B 1 27
A 45 ERRMSG('Erreur avec le document ou -
A le dossier' 45)
|
|
A 3 2'Dossier' A 3 10':' A FLR 63 B 4 3 A 5 3'F12 = Annuler' A COLOR(BLU) |
