Advertisement
CLP Lire le dernier enreg d’un fichier en CLP

DCL &NBR  *DEC  10       

DCLF VOTREBIB/VOTREFIC

/**/

RTVMBRD    FILE(VOTREBIB/VOTREFIC) NBRCURRCD(&NBR)

OVRDBF     FILE(HISTSAV) TOFILE(VOTREBIB/VOTREFIC)

             POSITION(*RRN &NBR)                 

RCVF   

Remarque :

Si vous positinnez par OVRDBF ... POSITION(*end) vous êtes en fin de fichier