Discussion posted 3/28/08 by Serenity Thompson
Details:



dansladek

In our shop, we have a number of contractors who work for awhile and then leave. They also leave CMZMF packages which need to be reviewed, deleted or re-assigned to someone else. I understand XML services change the package creator id but we haven't really used XML services. Does anyone have any code which will do this for me? Thanks!
Posted 9/26/2007 2:01 PM

jokkespeed

Hi,
We are usign a software from AbitMORE bvba (Commander). It has pre-built solutions that solve this problem. It also comes with a REXX generator, as you can see included in this note. If you would like to now more about the Commander (have a look at www.abitmore-scm.com). It has a neat userinterface to the XML Services. Even for complex update scenario's we don't write any rexx code, but use the standard interface of the tool.
As stated here is the rexx code, if you have any problem it getting up and running chip me a mail :
/* REXX */
/*=====================================================================*
* AbitMORE® SCM Commander 1.2.0 AbM REXX generator *
*=====================================================================*/
pkgID="?????"
newCreator="?????"
ascCmSys="T"
tsoUser=userid()
/* initialize stem variable */
stem="PKG."
drop PKG
PKG.=""
/* initialize header variables */
PKG.Subsys=ascCmSys
PKG.Userid=userid()
PKG.Test="T"
PKG.Product="CMN "
PKG.Service="PACKAGE"
PKG.Scope="GEN_PRMS"
PKG.Message="UPDATE"
/* initialize request variables */
PKG.package=pkgID
PKG.creator=newCreator
/* call serxmlrc */
address LINKMVS "SERXMLRC stem"
if rc<>0 then do
say "SERXMLRC failed - rc:"rc
say "-Subsys : "PKG.Subsys
say "-Service : "PKG.Service
say "-Scope : "PKG.Scope
say "-Message : "PKG.Message
say "-reasonCode : "PKG.reasonCode
say "-statusMessage: "PKG.statusMessage
call Disconnect
end
else say "Package creator updated"
/*-----------------------------------------------*/
Disconnect: /* Disconnect from Changeman
-----------*/
/* initialize stem variable */
stem="SER0."
drop SER0.
SER0.=""
/* initialize header variables */
SER0.Subsys=ascCmSys
SER0.Userid=userid()
SER0.Test="T"
SER0.Product="CMN "
SER0.Service=" "
SER0.Scope="SERVICE"
SER0.Message="DISCONCT"
address LINKMVS "SERXMLRC stem"
if rc<>0 then do
say "Error in disconnect :"rc
exit(rc)
end
return
Posted 9/26/2007 5:38 PM

dansladek

Thanks, I'll give it a try.
Posted 9/27/2007 8:36 AM




#ChangeManZMF
#post9f8944fa25
#oldforumpost