|
DCL VAR(&INKC) TYPE(*LGL) LEN(1) DCL VAR(&INKL) TYPE(*LGL) LEN(1)
IF &INKC THEN(DO) SNDMSG MSG('*INKC IS ON') TOUSR(SAVINOM) ENDDO ELSE DO SNDMSG MSG('*INKC IS OFF') TOUSR(SAVINOM) ENDDO
IF &INKL THEN(DO) SNDMSG MSG('*INKL IS ON') TOUSR(SAVINOM) ENDDO ELSE DO SNDMSG MSG('*INKL IS OFF') TOUSR(SAVINOM) ENDDO
C *ENTRY PLIST C PARM P0IN01 1 C PARM P0IN02 1 C* C MOVE *ON *INKC C MOVE *OFF *INKL C* C MOVE *INKC P0IN01 C MOVE *INKL P0IN02 C RETRN
From . . . : SAVINOM 03/23/04 14:35:01*INKC IS ON
From . . . : SAVINOM 03/23/04 14:35:01*INKL IS OFF
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.