| 
A*%%TS SD 19930922 121625 AF400 REL-V2R2M0 5738-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A PRINT(*LIBL/QSYSPRT)
A OPENPRT
A HELP
A HLPTITLE('Options PDM - Aide')
A HLPPNLGRP('PDM/UDOD/GEN' QPDA/QHUON-
A LN)
A HLPSCHIDX(QPDA/QHPW1)
A INDARA
A WDWBORDER((*DSPATR RI) (*CHAR ' -
A '))
A R BIDON ASSUME
A 1 2' '
A R BORDER
A*%%TS SD 19911120 170637 CHRISTIAN REL-V2R1M0 5738-PW1
A WINDOW(1 26 20 48)
A WDWTITLE((*TEXT 'OPTIONS PDM'))
A 22 RMVWDW
A CA03(03 'F3=Exit')
A CF04(04 'INVITE')
A CF05(05 'refresh')
A CA12(03)
A CF21(21 'cdes')
A 1 3DATE
A EDTCDE(Y)
A DSPATR(HI)
A 1 15'PDM Options utlisateur'
A DSPATR(HI)
A 1 40TIME
A DSPATR(HI)
A 2 3'Op' DSPATR(UL)
A 2 6'Commande' DSPATR(UL)
A R FMTE SFL
A CHOIX 1A I 3 1VALUES(' ' '1' '5')
A OPT 2A 3 3
A CMD 42A 3 6
A CMDH 207A H
A R FMTC SFLCTL(FMTE)
A*%%TS SD 19930922 121625 AF400 REL-V2R2M0 5738-PW1
A SFLSIZ(0050)
A SFLPAG(0012)
A WINDOW(BORDER)
|
|
A RETCMDKEY
A OVERLAY
A CHANGE(23)
A SETOF(22)
A 30 SFLDSP
A 30 SFLDSPCTL
A N30 SFLCLR
A 30 SFLEND
A H HLPPNLGRP('PDM/UDOD/OPT' QPDA/QHUON-
A LN)
A HLPARA(03 003 14 004)
A H HLPPNLGRP('PDM/UDOD/COM' QPDA/QHUON-
A LN)
A HLPBDY
A HLPARA(03 005 14 048)
A H HLPPNLGRP('PDM/UDOA/COM' QPDA/QHUON-
A LN)
A HLPBDY
A HLPARA(16 001 17 048)
A LIGNE 4S 0H SFLRCDNBR(CURSOR)
A 16 1'Cde ==>'
A CDEXE1 40A B 16 9
A 23 DSPATR(PC)
A CDEXE2 48A B 17 1
A 18 1' 1 = Choisir,5 = Voir détail. <ENT-
A REE> ou F4. '
A DSPATR(HI)
A 19 2'F3=Exit,F4=Invite,F5= Réafficher, -
A F21= Cde '
A DSPATR(HI)
A R INFOS
A*%%TS SD 19930922 121357 AF400 REL-V2R2M0 5738-PW1
A WINDOW(17 2 6 63)
A CA03
A CA12(22)
A HLPCLR
A USRRSTDSP
A H HLPPNLGRP('PDM/UDOA/COM' QPDA/QHUON-
A LN)
A HLPBDY
A HLPARA(01 001 04 063)
A OPT 2A O 1 1DSPATR(HI)
A CD1 60A O 1 4DSPATR(UL)
A CD2 63A O 2 1DSPATR(UL)
|
|
A CD3 63A O 3 1DSPATR(UL) A CD4 63A O 4 1DSPATR(UL) A 5 1'ENTREE = cette fenètre est recouve- A rte, F12 = elle est éffacée.' A DSPATR(HI) |
