#!/opt/orexx/bin/rexx /************************************************************************************/ /* Electronic Software Distribution */ /* FILENAME : RxQueueFileter.rex */ /* TYPE : ObjectRexx - OS/2, Win32, Linux, AIX */ /* DESCRIPTION : This command filters data from the Rexx Queue to the device */ /* specified */ /* */ /* AUTHOR : Michael D Lueck */ /* mlueck@lueckdatasystems.com */ /* */ /* NEEDS : */ /* */ /* USEAGE : RxQueueName OUTPUTdevice */ /* */ /* REVISION HISTORY */ /* */ /* DATE REVISED BY DESCRIPTION OF CHANGE */ /* ---------- ---------- ------------------------------------------------------- */ /* 02/05/2005 MDL Initial Creation */ /************************************************************************************/ parse arg THEqueue THEdevice OLDqueue=RXqueue('set', THEqueue) do queued() parse pull INstr rc=CharOut(THEdevice, INstr) end /* do */ exit 0