˜A************************************************************************** ˜A* ECRAN POUR LA CONSULATION/CREATION/MODIFICATION D'AIDE EN LIGNE ˜A************************************************************************** A DSPSIZ(27 132 *DS4 - A 24 80 *DS3) A*ˆ************************************************************************ A R WSFL1 SFL A*ˆ************************************************************************ A TANUMRCD 3Y 0O 7 1EDTCDE(Z) A 50 COLOR(BLU) A TAAIDE 50A O 7 5 A 50 COLOR(BLU) A TACRTUSER 10A O 7 66 A 50 COLOR(BLU) A*ˆ************************************************************************ A R WCTL1 SFLCTL(WSFL1) A*ˆ************************************************************************ A 02 CA02 A 08 CA08 A 12 CA12 A CSRINPONLY A RTNCSRLOC(*MOUSE &WLIG1 &WCOL1 &WLI- A G2 &WCOL2) A CSRLOC(CURLIG CURCOL) A OVERLAY A SFLCSRRRN(&CURRRN) A 25 SFLDSP A 26 SFLDSPCTL A 27 SFLCLR A SFLSIZ(0012) A SFLPAG(0011) A WINDOW(2 2 18 75) A WDWBORDER((*DSPATR RI UL) (*CHAR ' - A ')) A WDWTITLE((*TEXT 'AIDE DEMANDEE')) A RMVWDW A WLIG01 4S 0H SFLRCDNBR(*TOP) A CURFMT 10A H A CURZONE 10A H A CURRRN 5S 0H A CURPOS 4S 0H A CURLIG 3S 0H A CURCOL 3S 0H A WLIG1 3S 0H A WCOL1 3S 0H A WLIG2 3S 0H A WCOL2 3S 0H A VBF02 15A P A VBF08 15A P A VBF12 15A P A VBF99 15A P A 1 1'PROG__:' A COLOR(WHT) A TAPGM 10A O 1 9 A 1 20'ECRAN_:' A COLOR(WHT) A TAECR 10A O 1 28 A 1 39'FORMAT:' A COLOR(WHT) A TAFMT 10A O 1 47 A 1 58'ZONE__:' A COLOR(WHT) A TAZONE 10A O 1 66 A 3 1'AIDE DEDIEE A LA CLASSE D''UTILISA- A TEUR :' A COLOR(PNK) A TAFORUSER 10A O 3 41 A FONCTION 2Y 0B 4 2PSHBTNFLD A CHCAVAIL((*COLOR BLU)) A 02 PSHBTNCHC(2 &VBF02) A 08 PSHBTNCHC(8 &VBF08) A 12 PSHBTNCHC(12 &VBF12) A 99 PSHBTNCHC(99 &VBF99) A*ˆ************************************************************************ A R WSFL2 SFL A*ˆ************************************************************************ A SVNUMRCD 5S 0H A SVAIDE 50A H A SVAUTUSER 1Y 0H A SVAUTPGMR 1Y 0H A SVAUTSECO 1Y 0H A SVAUTSECA 1Y 0H A SVAUTSYSO 1Y 0H ‚* A TANUMRCD 3Y 0B 11 1EDTCDE(Z) A N51N61 DSPATR(UL) A 61 AO 51 DSPATR(PR) A 60N61 DSPATR(PC) A 60 COLOR(RED) A TAAIDE 50A B 11 5 A CHECK(LC) A 50N51 DSPATR(UL) A 51 AON50 DSPATR(PR) A 61 DSPATR(PC) A 60 COLOR(RED) A TAUTUSER 1Y 0B 11 56 A 50N51N61 DSPATR(UL) A 51 AO 61 AON50 DSPATR(PR) A 60 COLOR(RED) A TAUTPGMR 1Y 0B 11 58 A 50N51N61 DSPATR(UL) A 51 AO 61 AON50 DSPATR(PR) A 60 COLOR(RED) A TAUTSYSOPR 1Y 0B 11 60 A 50N51N61 DSPATR(UL) A 51 AO 61 AON50 DSPATR(PR) A 60 COLOR(RED) A TAUTSECADM 1Y 0B 11 62 A 50N51N61 DSPATR(UL) A 51 AO 61 AON50 DSPATR(PR) A 60 COLOR(RED) A TAUTSECOFR 1Y 0B 11 64 A 50N51N61 DSPATR(UL) A 51 AO 61 AON50 DSPATR(PR) A 60 COLOR(RED) A TACRTUSER 10A O 11 66 A 60 COLOR(RED) A*ˆ************************************************************************ A R WCTL2 SFLCTL(WSFL2) A*ˆ************************************************************************ A 12 CA12 A CSRINPONLY A RTNCSRLOC(*MOUSE &WLIG1 &WCOL1 &WLI- A G2 &WCOL2) A CSRLOC(CURLIG CURCOL) A OVERLAY A SFLCSRRRN(&CURRRN) A 25 SFLDSP A 26 SFLDSPCTL A 27 SFLDLT A 25 SFLEND A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(2 1 21 76) A WDWBORDER((*DSPATR RI UL) (*CHAR ' - A ')) A* WDWTITLE((*TEXT 'AIDE DEMANDEE')) A RMVWDW A WDWTITLE((*TEXT 'SAISIE AIDE')) ‚* A WLIG02 4S 0H SFLRCDNBR(*TOP) A CURFMT 10A H A CURZONE 10A H A CURRRN 5S 0H A CURPOS 4S 0H A CURLIG 3S 0H A CURCOL 3S 0H A WLIG1 3S 0H A WCOL1 3S 0H A WLIG2 3S 0H A WCOL2 3S 0H A VBF12 15A P A VBF99 15A P A SNGCHXF1 1Y 0H A SNGCHXF2 1Y 0H A SNGCHXF3 1Y 0H A SNGCHXF4 1Y 0H A SNGCHXF5 1Y 0H A MLTCHXV1 1Y 0H A MLTCHXV2 1Y 0H A MLTCHXV3 1Y 0H A MLTCHXV4 1Y 0H A MLTCHXV5 1Y 0H A SVMLTCHXV1 1Y 0H A SVMLTCHXV2 1Y 0H A SVMLTCHXV3 1Y 0H A SVMLTCHXV4 1Y 0H A SVMLTCHXV5 1Y 0H ‚* A 1 1'PROG__:' A COLOR(WHT) A TAPGM 10A O 1 9 A 1 20'ECRAN_:' A COLOR(WHT) A TAECR 10A O 1 28 A 1 39'FORMAT:' A COLOR(WHT) A TAFMT 10A O 1 47 A 1 58'ZONE__:' A COLOR(WHT) A TAZONE 10A O 1 66 A 2 2'Pour cocher/dιcocher, utiliser la- A barre espace' A COLOR(WHT) A 3 1'AIDE DEDIER A :' A DSPATR(UL) A COLOR(PNK) A SNGCHXFOR 2Y 0B 4 2SNGCHCFLD(*NOSLTIND) A 41 CHOICE(1 '*USER:UTILISATEUR') A CHCCTL(1 &SNGCHXF1) A 42 CHOICE(2 '*PGMR:PROGRAMMEUR') A CHCCTL(2 &SNGCHXF2) A 43 CHOICE(3 '*SYSOPR:OPERATEUR SYSTEME- A ') A CHCCTL(3 &SNGCHXF3) A 44 CHOICE(4 '*SECADM:ADMINISTRATEUR SE- A CURITE') A CHCCTL(4 &SNGCHXF4) A 45 CHOICE(5 '*SECOFR:RESPONSABLE SECUR- A ITE') A CHCCTL(5 &SNGCHXF5) A 3 41'AIDE AFFICHABLE POUR :' A DSPATR(UL) A COLOR(PNK) A MLTCHXVIS 2Y 0B 4 41MLTCHCFLD A CHOICE(1 '*USER__:>UTILISATEUR') A CHCCTL(1 &MLTCHXV1) A CHOICE(2 '*PGMR__:>PROGRAMMEUR') A CHCCTL(2 &MLTCHXV2) A CHOICE(3 '*SYSOPR:>OPERATEUR SYSTEM- A E') A CHCCTL(3 &MLTCHXV3) A CHOICE(4 '*SECADM:>ADMINISTRATEUR S- A ECURITE') A CHCCTL(4 &MLTCHXV4) A CHOICE(5 '*SECOFR:>RESPONSABLE SECU- A RITE') A CHCCTL(5 &MLTCHXV5) A FONCTION 2Y 0B 9 2PSHBTNFLD A CHCAVAIL((*COLOR BLU)) A 12 PSHBTNCHC(12 &VBF12) A 99 PSHBTNCHC(99 &VBF99) A 10 1'SEQ' A N61 COLOR(WHT) A 61 COLOR(PNK) A N61 DSPATR(UL) A 10 5'TEXTE DE L''AIDE ' A COLOR(WHT) A DSPATR(UL) A N61 BLOCAGE 2Y 0B 10 35PSHBTNFLD A CHCAVAIL((*COLOR WHT)) A PSHBTNCHC(01 'BLOCAGE') A 61 DEBLOCAGE 2Y 0B 10 35PSHBTNFLD A CHCAVAIL((*COLOR PNK)) A PSHBTNCHC(09 'DEBLOCAGE') A 10 56'U' A N61 COLOR(WHT) A 61 COLOR(PNK) A N61 DSPATR(UL) A 10 58'P' A N61 COLOR(WHT) A 61 COLOR(PNK) A N61 DSPATR(UL) A 10 60'O' A N61 COLOR(WHT) A 61 COLOR(PNK) A N61 DSPATR(UL) A 10 62'A' A N61 COLOR(WHT) A 61 COLOR(PNK) A N61 DSPATR(UL) A 10 64'R' A N61 COLOR(WHT) A 61 COLOR(PNK) A N61 DSPATR(UL) A*ˆ************************************************************************ A*‚HAUTEUR:12 LONGUEUR:36 --> 1) *DS3 MAXHAU: 21-12=9 MAXLON: 80-38=42 A*ˆ************************************************************************ A R RCD3 A*ˆ************************************************************************ A 12 CA12 A CSRINPONLY A WINDOW(10 20 7 40 *NOMSG- A LIN *NORSTCSR) A RTNCSRLOC(*MOUSE &WLIG1 &WCOL1 &WLI- A G2 &WCOL2) A RTNCSRLOC(&CURFMT &CURZONE) A CSRLOC(CURLIG CURCOL) A WDWTITLE((*TEXT 'AUTRE AIDE')) A CURFMT 10A H A CURZONE 10A H A CURPOS 4S 0H A CURLIG 3S 0H A CURCOL 3S 0H A WLIG1 3S 0H A WCOL1 3S 0H A WLIG2 3S 0H A WCOL2 3S 0H A VBF99 15A P A VBF12 15A P A SNGCHX1 1Y 0H A SNGCHX2 1Y 0H A SNGCHX3 1Y 0H A SNGCHX4 1Y 0H A FONCTION 2Y 0B 1 2PSHBTNFLD A CHCAVAIL((*COLOR BLU)) A 12 PSHBTNCHC(12 &VBF12) A 99 PSHBTNCHC(99 &VBF99) A SNGCHOIX 2Y 0B 3 2SNGCHCFLD(*NOSLTIND) A N41 CHOICE(1 '*USER:UTILISATEUR') A CHCCTL(1 &SNGCHX1) A N42 CHOICE(2 '*PGMR:PROGRAMMEUR') A CHCCTL(2 &SNGCHX1) A N43 CHOICE(3 '*SYSOPR:OPERATEUR SYSTEME- A ') A CHCCTL(3 &SNGCHX2) A N44 CHOICE(4 '*SECADM:ADMINISTRATEUR SE- A CURITE') A CHCCTL(4 &SNGCHX3) A N45 CHOICE(5 '*SECOFR:RESPONSABLE SECUR- A ITE') A CHCCTL(5 &SNGCHX4) A*ˆ************************************************************************ A R DUMMY ASSUME A*ˆ************************************************************************ A 2 2' '