FILL

     EXEC ADO
        FILL DATASET
     END-EXEC