int main(int    iArgc,   // Number of arguments (1)
         char** iArgv)   // Path to the new *.CATPart document
{
  //--------------------------------------------------------------------
  // Check arguments
  //--------------------------------------------------------------------
  if(iArgc>2) return 1;
  char *pFileName = iArgv[1];

  char *pSessionIdent = "SampleSession";
  //------------------------------------------------------------------------------------------
  // PART DOCUMENT CREATION
  //------------------------------------------------------------------------------------------
  CATSession *pSession = NULL;
  Create_Session(pSessionIdent,pSession);

  CATDocument *pDocument = NULL;
  CATDocumentServices::New("CATPart",pDocument);
  if ( NULL == pDocument ) return 1;

  CATInit_var spInit (pDocument);
  if( NULL_var == spInit ) return 3;
  spInit->Init(TRUE);

  CATIContainerOfDocument_var spDoc = pDocument;
     CATIContainer *piContainer = NULL;
  if ( FAILED(spDoc->GetSpecContainer( piContainer)) ) return 4;

  CATIPrtContainer *piPrtContainer = NULL;
  HRESULT hr = piContainer->QueryInterface( IID_CATIPrtContainer, (void **)&piPrtContainer );
  if ( FAILED(hr) ) return 5;

  CATIPrtPart_var spPart(piPrtContainer->GetPart());
  piPrtContainer->Release();