SCOUG-Programming Mailing List Archives

>> Next Message >>

Date:	Thu, 12 Nov 1998 15:44:55 PDT
From:	dallasii@kincyb.com
Reply-To:	scoug-programming@scoug.com
To:	scoug-programming@scoug.com
Subject:	SCOUG-Programming: QUEUE2question

I tried the following, with no success.
Anyone got any ideas what's going wrong? It runs, but nothing seems
to happen to test9.txt.

/* ReXX */

/* file test7.cmd */

'@find " " \config.sys | rxqueue /FIFO '

Qnew = RXQUEUE('create', 'NOISSES')

SAY Qnew
CALL Rxqueue 'set', Qnew
'RXQUEUE 'Qnew' /CLEAR'
'RXQUEUE 'Qnew' /FIFO CALL Rxqueue 'set', 'SESSION'

DO WHILE ( Queued() >< 0 )

inline1 = LineIn( 'QUEUE:' )

Qold = RXQUEUE('set', Qnew)
QUEUE 'Test.....'
QUEUE inline1
SAY 'Test.....'
SAY inline1
trash = RXQUEUE('set', Qold)

END

Qold = RXQUEUE('set', Qnew)
'start /c Call test8 'Qnew' > test9.txt '

trash = RXQUEUE('set', Qnew)
trash = RXQUEUE('set', Qold)
'RXQUEUE 'Qnew' /CLEAR'
'RXQUEUE 'Qold' /CLEAR'
trash = RXQUEUE('delete', Qnew)
'dir test9.txt'

EXIT

################################################################

/* ReXX */

/* file test8.cmd */

PARSE UPPER ARG Qgiven

/*
Qold = RXQUEUE('Create', Qgiven)
SAY Qold
Qold = RXQUEUE( 'Set', Qgiven )
SAY Qold
*/
Qtest = RXQUEUE('Get')

DO WHILE ( Queued() >< 0 )

inline1 = LineIn( Qgiven )
call lineout 'STDOUT:', inline1
/*
SAY inline1
*/
END

trash = RXQUEUE('set', Qold)
EXIT

Regards,
Dallas E. Legan II
(562) 862 - 4854 ext. '*'

L
E
G
A
N
@
A
C
M
.
O
R
G

=====================================================

To unsubscribe from this list, send an email message
to "steward@scoug.com". In the body of the message,
put the command "unsubscribe scoug-programming".

For problems, contact the list owner at
"rollin@scoug.com".

=====================================================

Return to [ 12 | November | 1998 ]

SCOUG, Warp Expo West, and Warpfest are trademarks of the Southern California OS/2 User Group. OS/2, Workplace Shell, and IBM are registered trademarks of International Business Machines Corporation. All other trademarks remain the property of their respective owners.