As part of our evaluation we want to know how the Role based security is implemented in COGNOS. Is that NT authentication or in the database authentication? Is there any document i can verify about how the roles are assigned?
Please advise.
To run the mdl script within scheduler, simply select insert recurring task, within the identification tab where you would select a report to be scheduled, drop down the file type box and select all files, insert the mdl file (**the mdl script is just a text document written in notepad, and saved with a file extension of .mdl). The open py part of the mdl statement is a reference to the powerplay report, and is therefore required in the script. Schedule the file as you would a normal report.
You can also add script to move the cubes to the correct destination folders for user access
Remenber, in the model you must fill in the user and password required to access the database (in the Signons window)
option explicit
Sub Main ()
Dim objTransApp As Object
Dim objModel As Object
Dim strModelPath As String
Dim strLocation As String
Dim strModelSource As String
Dim strMsgText As String
'*** Set The Error Trapping *****************************************************
On Error GoTo Errhdlr1:
'*** File Names and Path(s) *****************************************************
strLocation = "C:\Models\PY! Definitions\" ' Set the path to the model
strModelSource = "Sales Analysis.pyi" ' Set the model name
strModelPath = strLocation & strModelSource
'*** Open model inside Transformer **********************************************
Set objTransApp = CreateObject("CognosTransformer.Application.cer1"
Set objModel = objTransApp.OpenModel (strModelPath)
'*** Clean model and build cubes ************************************************
With objModel
.CleanHouse 19981231
.CreateMDCFiles
.Close
End With
Errhdlr1:
Select Case Err
Case 75
strMsgText="Path is invalid."
Case 76
strMsgText="Path not found."
Case 70
strMsgText="Permission denied."
Case Else
strMsgText="Error " & Err & ": " & Error$ & "occurred."
End Select
'*** Display a message about the error that was trapped ************************
MsgBox strMsgText
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.