A**-------------------------------------------------------------** A* PF - FICHIER LISTING ECRAN UTILISATEUR * A**-------------------------------------------------------------** A R QDSPAJ A* A QVIDE1 3 COLHDG('VIDE 1') A QECRAN 10 COLHDG('NOM ECRAN') A QVIDE2 3 COLHDG('VIDE 2') A QUSER 10 COLHDG('USER') A QVIDE3 2 COLHDG('VIDE 3') A QNBJOB 6S 0 COLHDG('NUMERO JOB') A QVIDE4 50 COLHDG('VIDE 4') A QOCUPUC 7 COLHDG('OCCUPATION UC %') A QVIDE5 1 COLHDG('VIDE 5') A QFONCTION 17 COLHDG('FONCTION') A QETAT 8 COLHDG('ETAT') A* A K QUSER A K QECRAN A K QNBJOB