|
Hbnddir('QC2LE') dftactgrp(*no) actgrp(*new) Dsleep PR 10i 0 extproc('sleep') D secs 10i 0 const D curtime S t D rtn S like(sleep) D secs S 10i 0 inz(10) /free curtime = %time(); dsply curtime; rtn = sleep(secs); curtime = %time(); dsply curtime; *inlr = *on; /end-free
Regards, Simon Coulter. -------------------------------------------------------------------- FlyByNight Software AS/400 Technical Specialists
http://www.flybynight.com.au/ Phone: +61 3 9419 0175 Mobile: +61 0411 091 400 /"\ Fax: +61 3 9419 0175 \ / X ASCII Ribbon campaign against HTML E-Mail / \ --------------------------------------------------------------------
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.