SCOUG-Programming Mailing List Archives

<< Previous Message <<

Date:	Fri, 13 Nov 1998 12:02:15 PDT
From:	Steven Levine <steve53@earthlink.net >
Reply-To:	scoug-programming@scoug.com
To:	scoug-programming@scoug.com
Subject:	SCOUG-Programming: More2queueing

In , on 11/13/98
at 12:15 AM, dallasii@kincyb.com said:

Dallas,

As is typical when things don't work for no obvious reason, the reason is
usually not what you think it is.

I've hacked away at it a bit more than really was needed, but your script
now works the way we expected it to with dynamic queue names. Take
particular a good look at the before and after of the strip in test8. The
extra space in the START command string was the problem all along.

Changing:

'cmd /c test8 'Qnew' > test9.txt'

to

'cmd /c test8 'Qnew' > test9.txt'

also works.

The bit I posted on the syntax must mean that the queue name expression
must evaluate to something that looks like a variable name. Now, tell my
why it allowed the space?

Steven

--
-----------------------------------------------------------
Steven Levine MR2/ICE #10183
-----------------------------------------------------------

/* ReXX */

/* file test7.cmd */

signal on ERROR
signal on FAILURE name Error
signal on HALT name Error
signal on NOTREADY name Error
signal on NOVALUE name Error
signal on SYNTAX name Error

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

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

SAY 'QNew='Qnew
CALL Rxqueue 'set', Qnew

'RXQUEUE 'Qnew' /CLEAR'
'RXQUEUE 'Qnew' /FIFO

CALL Rxqueue 'set', 'SESSION'

DO WHILE ( Queued() >< 0 )

inline1 = LineIn( 'QUEUE:' )

Qsess = RXQUEUE('set', Qnew)
Say 'Qsess='Qsess
QUEUE inline1
SAY inline1
trash = RXQUEUE('set', Qsess)
Say 'trash='trash

END

Qsess = RXQUEUE('set', Qsess)

'cmd /c test8 'Qnew' > test9.txt'

trash = RXQUEUE('set', Qnew)
trash = RXQUEUE('set', Qsess)

'RXQUEUE 'Qnew' /CLEAR'
'RXQUEUE 'Qsess' /CLEAR'

trash = RXQUEUE('delete', Qnew)

'dir test9.txt'

EXIT

/*=== Error: Trap ERROR, FAILURE etc. conditions ===*/

Error:

/*=== Returns szCondition or Exits ===*/

call lineout 'STDERR:', 'At Error'
parse source . . szThisCmd
call lineout 'STDERR:', condition('C') 'signaled at' SIGL 'of' szThisCmd
drop szThisCmd
call lineout 'STDERR:', 'Source =' sourceline(SIGL)
call SysSleep 2
if condition('I') = 'CALL' then do
szCondition = condition('C')
call lineout 'STDERR:', 'Returning'
return
end
else do
trace '?A'
call lineout 'STDERR:', 'Exiting'
exit 255
end

/* end Error */

return

/* ReXX */

/* file test8.cmd */

signal on ERROR
signal on FAILURE name Error
signal on HALT name Error
signal on NOTREADY name Error
signal on NOVALUE name Error
signal on SYNTAX name Error

PARSE UPPER ARG Qgiven
call lineout 'STDERR:', 'QGiven='Qgiven
Qgiven = strip(Qgiven, 'B')
call lineout 'STDERR:', 'QGiven='Qgiven

Qsess = RXQUEUE( 'Get')
call lineout 'STDERR:', 'Qsess='Qsess

Qtest = RXQUEUE('Set', Qgiven)
call lineout 'STDERR:', 'Qtest='Qtest

Qtest = RXQUEUE('Get')
call lineout 'STDERR:', 'Qtest='Qtest

DO WHILE ( Queued() >< 0 )

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

trash = RXQUEUE('set', Qsess)

EXIT

/*=== Error: Trap ERROR, FAILURE etc. conditions ===*/

Error:

/*=== Returns szCondition or Exits ===*/

call lineout 'STDERR:', 'At Error'
parse source . . szThisCmd
call lineout 'STDERR:', condition('C') 'signaled at' SIGL 'of' szThisCmd
drop szThisCmd
call lineout 'STDERR:', 'Source =' sourceline(SIGL)
call SysSleep 2
if condition('I') = 'CALL' then do
szCondition = condition('C')
call lineout 'STDERR:', 'Returning'
return
end
else do
trace '?A'
call lineout 'STDERR:', 'Exiting'
exit 255
end

/* end Error */

return

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

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 [ 13 | 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.