QRPGSRC in SCMOD