// JOB VSBDTAP
// DVC 20  // LFD PRNTR
// DVC 40  // LFD PUNCH
// EXEC LIBS
/$
    FIL  D1=$Y$SRC
    COP.P  D1,S,VSBDTA
/*
/&
