There is no need for a FINIS (the CALLPIPE containing the >> doesn't leave the file open). And, when only one message has to be written, why not a simple EXECIO? address command 'EXECIO 1 DISKW' $filename '(FINIS STRING' $msg
The drawback is that the file is opened and closed with every message that arrives... Not a problem with few messages... If the file has to be written into SFS; you can leave the file open, but commit it as often as you want: - open the file with CSL routine DMSOPEN, you get a token - then use either PIPE's >>SFS stage using that token, or CSL DMSWRITE - and call CSL routine DMSCOMM to commit (I have samples, but burried somewhere) 2009/10/22 Hughes, Jim <[email protected]> > A sipping pipeline maybe. Call this stage for each SCIF message. > > Good Luck. > > /* */ > > "peekto $data" > Do while rc = 0 > Parse var $data $fn $msg > $filename = $fn "MYTYPE A" > "callpipe var $msg | >> " $filename > Address command "FINIS" $filename > "readto" > "peekto" $data > End > > Return (rc<>12)*rc > > ____________________ > Jim Hughes > 603-271-5586 > "It is fun to do the impossible." > > ==>-----Original Message----- > ==>From: CMSTSO Pipelines Discussion List [mailto:CMS- > ==>[email protected]] On Behalf Of Frank M. Ramaekers > ==>Sent: Thursday, October 22, 2009 3:48 PM > ==>To: [email protected] > ==>Subject: Re: Writing to file when name is in stream > ==> > ==>Not sure this is what I need. Okay time to get more detailed. I > have > ==>a disconnected user that is receiving SCIF messages that I want to > route > ==>to a file with a FN of the user and a FT of my choosing. I have most > of > ==>this coded in a PIPE with STARMSG stage. When I receive, I want to > ==>APPEND (or create) to a file with the user's id as the FN and the FT > is > ==>a constant. > ==> > ==>Does that help? > ==> > ==>Frank M. Ramaekers Jr. > ==>Systems Programmer MCP, MCP+I, MCSE & RHCE > ==>American Income Life Insurance Co. Phone: (254)761-6649 > ==>1200 Wooded Acres Dr. Fax: (254)741-5777 > ==>Waco, Texas 76710 > ==> > ==> > ==> > ==> > ==> > ==>-----Original Message----- > ==>From: CMSTSO Pipelines Discussion List > ==>[mailto:[email protected]] On Behalf Of Kris Buelens > ==>Sent: Thursday, October 22, 2009 2:28 PM > ==>To: [email protected] > ==>Subject: Re: [CMS-PIPELINES] Writing to file when name is in stream > ==> > ==>I created a PUTFILES REXX stage, > ==> http://www.vm.ibm.com/download/packages/descript.cgi?PUTFILES > ==> > ==>2009/10/22 Frank M. Ramaekers <[email protected]> > ==> > ==>> How can I write to a file when the filename is contained within the > ==>> stream? > ==>> > ==>> Frank M. Ramaekers Jr. > ==>> Systems Programmer MCP, MCP+I, MCSE & RHCE > ==>> American Income Life Insurance Co. Phone: (254)761-6649 > ==>> 1200 Wooded Acres Dr. Fax: (254)741-5777 > ==>> Waco, Texas 76710 > ==>> > ==>> > ==>> _____________________________________________________ > ==>> This message contains information which is privileged and > confidential > ==>and > ==>> is solely for the use of the > ==>> intended recipient. If you are not the intended recipient, be aware > ==>that > ==>> any review, disclosure, > ==>> copying, distribution, or use of the contents of this message is > ==>strictly > ==>> prohibited. If you have > ==>> received this in error, please destroy it immediately and notify us > at > ==>> [email protected]. > ==>> > ==> > ==> > ==> > ==>-- > ==>Kris Buelens, > ==>IBM Belgium, VM customer support > ==> > ==>_____________________________________________________ > ==> > ==>This message contains information which is privileged and > confidential > ==>and is solely for the use of the > ==> > ==>intended recipient. If you are not the intended recipient, be aware > that > ==>any review, disclosure, > ==> > ==>copying, distribution, or use of the contents of this message is > strictly > ==>prohibited. If you have > ==> > ==>received this in error, please destroy it immediately and notify us > at > ==>[email protected]. > -- Kris Buelens, IBM Belgium, VM customer support
