You could look into the PIPE forum to fond a very recent discussion on the subject....
Or here an extract with my notes with programming tips *======================================================================== [MENU:ROOT] [NAME:WORKUNIT] [TITLE:How to handle Workunit problems with SFS files] [MODEL: /* PIPE STATE fn ft dirid | ... leaves workunit open if the file] [MODEL: | is found. This then results in: ] [MODEL: | DMSQRQ1157E Work unit already active when atomic request...] [MODEL: | Solution: commit the workunit. Example ] [MODEL: | 'PIPE LITERAL T T .|STATE ISODATE|CONS' ] [MODEL: | call csl 'DMSCOMM RETC REAS'; say retc reas ] [MODEL: | 'CMDCALL QUERY LIMITS *' /* Would fail without DMSCOMM*/] [MODEL: */ ] [MODEL: /* Similar, when a file is open and a workunit is active, some ] [MODEL: | cmds give: DMSQRQ1157E Work unit already active when atomic..] [MODEL: | Solution: get a new workunit. Example ] [MODEL: | call csl 'DMSGETWU RETC REAS WID1' /* Get a workunit */ ] [MODEL: | call csl 'DMSPUSWU RETC REAS WID1' /* Start using it */ ] [MODEL: | 'CMDCALL QUERY LIMITS *' ] [MODEL: | call csl 'DMSPOPWU RETC REAS' /* Use prev Wunit */ ] [MODEL: | call csl 'DMSRETWU RETC REAS WID1' /* Delete new Wunit */] [MODEL: */ ] [END:WORKUNIT] 2011/8/22 Frank M. Ramaekers <[email protected]> > I don't quite understand why I'm getting this: > > > > 463 *-* "PIPE LITERAL QUERY ENROLL USER FOR ALL" > !._WorkPool "| CMS | STEM QE." > > >L> "PIPE LITERAL QUERY ENROLL USER FOR ALL" > > > >V> "VMSYSA:" > > > >O> "PIPE LITERAL QUERY ENROLL USER FOR ALL > VMSYSA:" > > >L> "| CMS | STEM QE." > > > >O> "PIPE LITERAL QUERY ENROLL USER FOR ALL > VMSYSA: | CMS | STEM QE." > > +++ RC(70) +++ > > > 'QUERY ENROLL USER FOR ALL VMSYSA:' > > > DMSQRE1157E Work unit already active when atomic request is issued for > work unit 1 > > > > 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 76701 > > > > > > > > > > > _____________________________________________________ > 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
