If in 4GL procedure I code :