- This topic has 7 replies, 3 voices, and was last updated 2 years, 9 months ago by
.
-
Topic
-
CL 19.1.1 – For an Xlate, I was provided a TCL proc to get the last day / date of the month to copy to a field. The date is coming in as 2021-12-31T00:00:00, I need to format to yyyymmdd using the Args and not Clock Format. There are arguments in the script to use that I don’t know where / how to apply in the Xlate Copy, looking for guidance there:
;# Argument required by the proc are:
;# 1. DateInSeconds: Input Date, Optional argument. Default current date.
;# 2. InDateFormat: Format of input date, Optional argument. Default ‘yyyymmdd’ i.e in TCL %Y%m%d
;# 3. OutDateFormat: Format of output date, Optional argument. Default ‘yyyymmdd’ i.e in TCL %Y%m%dac_Puts “i” “<<PROC acXlte_GetLastDateOfMonth>> args: $args xlateInVals: $xlateInVals” $xlateId
set dateInSeconds [lindex $xlateInVals 0]
set inDateFormat [lindex $xlateInVals 1]
set outDateFormat [lindex $xlateInVals 2]
-
Replies
-
-
The arguments need to be in the Xlate Action Source Panel (xlateInVals).
You can check the Tcl Date Format options to see if there is a format that matches your data.
OR using the STRING Action to extract just the date portion to match the default.
So…
Source Panel
<date>
<ib date format or nothing for default>
<ob date format>I am assuming the proc is smart enough to recognize missing args.
If you want the default formats for ib and ob data then Source Panel would just have a properly formatted date.
email: jim.kosloskey@jim-kosloskey.com 29+ years Cloverleaf, 59 years IT - old fart.
-
Thanks Jim – I’m still having a block on how to enter the args in the source. if the args in the Proc are:
set dateInSeconds [lindex $xlateInVals 0]
set inDateFormat [lindex $xlateInVals 1]
set outDateFormat [lindex $xlateInVals 2]My source would be:
@date
arg?
arg?and then it hits the Proc to get the last day of the month?
-
Your interpretation of argument placement is as I understand it should be.
The proc then is getting the arguments via the lindex commands.
As to the proc returning end of month date, I cannot comment as I do not have the proc to determine if that is its function.
email: jim.kosloskey@jim-kosloskey.com 29+ years Cloverleaf, 59 years IT - old fart.
-
Here is the Proc, I’m not sure how to call the Args from it in the source:
proc acXlte_GetLastDateOfMonth { args } {
upvar xlateId xlateId \
xlateInList xlateInList \
xlateInTypes xlateInTypes \
xlateInVals xlateInVals \
xlateOutList xlateOutList \
xlateOutTypes xlateOutTypes \
xlateOutVals xlateOutValsac_Puts “i” “<<PROC acXlte_GetLastDateOfMonth>> args: $args xlateInVals: $xlateInVals” $xlateId
set dateInSeconds [lindex $xlateInVals 0]
set inDateFormat [lindex $xlateInVals 1]
set outDateFormat [lindex $xlateInVals 2]set lastDateOfMonth [ac_GetLastDateOfMonth $dateInSeconds $inDateFormat $outDateFormat]
ac_Puts “i” “lastDateOfMonth: $lastDateOfMonth”
set xlateOutVals “{$lastDateOfMonth}”
ac_Puts “i” “xlateOutVals: $xlateOutVals” $xlateId
} -
-
Looks like you are over complicating things to me unless I am not understanding the problem
Assume input is lke: 2021-12-31T00:00:00In the preproc of the xlate put the following:
set dt [string map [string range [lindex $xlateInVal 0] 0 9]
]
set xlateOutVals ]list $dt] ;# should yield 20211231You can separate out into multiple command if you like.
-
Jim and Charlie – as always thanks for your responses and suggestions! So coming back the next day with a clearer head and not overcomplicating it, in the screen shot is what I needed to get this working:
– in the source I used the MSH.7 for the message date time and set the format
– in the PreProc is the TCL proc that takes the Source date and changes it to the last day of the month and the copied into the destination field.
-
- You must be logged in to reply to this topic.
