             PGM
             CPYF       FROMFILE(UBLUTEST/TEST0820) TOFILE(*PRINT)
             ENDPGM
