O comando LIGUE SÉCULO indica que as datas para os itens tipo "D" serão listadas com 4 posições no ano, assim como permitem a entrada de valores desta forma.
? lis
data=01/01/01
?ligue seculo
data=01/01/2001
?inclua arq
?data(D2)=02/02/2009
?