) FLD1:      CDÑl 
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             OUT::
    ENDIF
    USE &IN::FILE INDEX &SOUT::
    STORE SOUT:: TO REPORT
    STORE ' REPORT FORM &