QRPGSRC in SCDATA