// Ce code source est rgi par la licence CeCILL V2.1 soumise au droit franais et 
//respectant les principes de diffusion des logiciels libres. Il est autoris de modifier 
//et/ou redistribuer ce code sous les conditions de la licence CeCILL V2.1. Le texte complet
// de la licence CeCILL V2.1 est dans le fichier `LICENSE`.

DELACCESS all; DELSEARCH all; DELSAVE all; 

ACCESS pp id public10B.frm type formdata mode c; 
do prt. ( dflist ( "PP" )) ; 

do trollenv_sep.. = "," ;

&tbl2ts file ctrim.csv output pp ;

DELACCESS all;

ACCESS pp id public10B.frm type formdata mode r;
do prt.(dflist("pp",">"));

delsave all; listsave;

//------------------------------

DELACCESS all; DELSEARCH all; DELSAVE all; 
ACCESS pp id baseHypo.frm type formdata mode c; 
DO PRT. ( DFLIST ( "PP" )) ; 

DO trollenv_sep.. = "," ;

&tbl2ts file hypo.csv output pp ;
DELACCESS all;

ACCESS pp id baseHypo.frm type formdata mode r;
DO PRT.(DFLIST("pp",">"));

//------------------------------

DELACCESS all; DELSEARCH all; DELSAVE all; 
ACCESS pp id chomtuc.frm type formdata mode c; 
DO PRT. ( DFLIST ( "PP" )) ; 

DO trollenv_sep.. = "," ;

&tbl2ts file chomtuc.csv output pp ;
DELACCESS all;

ACCESS pp id chomtuc.frm type formdata mode r;
DO PRT.(DFLIST("pp",">"));

DO PRT.("FIN !");
