&if defined(DEBUGSQL) > 0 &then run SqlDebugWrite in {&TARGETPROCEDURE} ("* ":U + program-name(1), 1). &endif run SqlCleanupState in {&TARGETPROCEDURE} (output oiReturnStatus).