[Rick Pritchett]

Here is what I finally got to work for me.

[Rick Pritchett]

Thanks guys with your help it is now grabbing only the file I am specifying in the script.

[Rick Pritchett]

Jim,

Could I get a copy of these scripts?  I am trying to set the file list so that I only process the file that was created for today only.

[Rick Pritchett]

I have tried a few different ways.  Here is what I have gotten to and the script does not pick up my file.  Any ideas?

#                

proc tps_fileset_dir_parse { args } {

   global HciConnName                             ;# Name of thread

   

   keylget args MODE mode                         ;# Fetch mode

   set ctx “”   ; keylget args CONTEXT ctx        ;# Fetch tps caller context

   set uargs {} ; keylget args ARGS uargs         ;# Fetch user-supplied args

   set debug 0  ;                                 ;# Fetch user argument DEBUG and

   catch {keylget uargs DEBUG debug}              ;# assume uargs is a keyed list

   set module “tps_fileset_dir_parse/$HciConnName/$ctx” ;# Use this before every echo/puts,

                                                  ;# it describes where the text came from

   set dispList {}                                ;# Nothing to return

   switch -exact — $mode {

       start {

           # Perform special init functions

           # N.B.: there may or may not be a MSGID key in args

           

           if { $debug } {

               puts stdout “$module: Starting in debug mode…”

           }

       }

       run {

           # ‘run’ mode always has a MSGID; fetch and process it

           

           keylget args MSGID mh

 set filespec *.*; keylget args ARGS.FILESPEC filespec

 set file_list [msgget $mh]

            echo $file_list

           set date [clock format [clock scan now] -format %Y%m%d]

 

           append my_filename Rick_file $date .csv

           set outList {}

           

               lappend outList $my_filename

echo outList $outList

           echo $mh

           msgset $mh $outList

           lappend displist “CONTINUE $mh”

       }

       time {

           # Timer-based processing

           # N.B.: there may or may not be a MSGID key in args

           

       }

       

       shutdown {

           # Doing some clean-up work

           

       }

       

       default {

           error “Unknown mode ‘$mode’ in $module”

       }

   }

   return $dispList

}

[Rick Pritchett]

Is there a way to change the INBOUND filename so the it picks up a different file to process by name?  The name would have a date in it that would change.

[Rick Pritchett]

We are using Cloverleaf 6.0 on AIX 7.  And not using SmatDB.

[Rick Pritchett]

here is the proc

set arg_values $argv

set SERVER [lindex $arg_values 0]

[Rick Pritchett]

command line.

[Rick Pritchett]

Well it looks like our trace is defaulted to 1 but, I don’t see a file being generated.  Here are the lines I am using to open the connection.

odbc SQLAllocHandle SQL_HANDLE_ENV SQL_NULL_HANDLE henv

odbc SQLSetEnvAttr $henv SQL_ATTR_ODBC_VERSION SQL_OV_ODBC3 0

odbc SQLAllocHandle SQL_HANDLE_DBC $henv hdbc

[Rick Pritchett]

how do i turn that on?

[Rick Pritchett]

Ok copying the individual files worked for me.

thanks

[Rick Pritchett]

Can you show us how you modified the patch?

[Rick Pritchett]

By compatibility mode do you mean the virtual pc?

[Rick Pritchett]

Why did you pull the plug?

[Rick Pritchett]

cern_mlp_tcp.pdl:31:Unexpected end-of-file before ‘#}#’

i got this after compiling the file any ideas?

[Author]

Replies