ExecTCL

shyju · Post by **shyju** » Tue Jul 05, 2005 10:32 pm

Hi,
I would like to know wht does TCL stand for in ExecTCL? I had searched the DataStage help but i was unable to get any information abt this. Also I would like to know what is the function of ExecTCL. When it is used and its purpose. What is the syntax of ExecTCL?
It would be very greateful if any of you guys give me a detailed explanations regarding the same.

Thx

ArndW · Post by **ArndW** » Tue Jul 05, 2005 11:49 pm

For me the TCL has always denoted "The Command Line" but I am sure that the "T" letter has some more official meaning. The Pick type database systems (of which UniVerse and DataStage are examples) were, at one time, the actual operating system and the ">" prompt was effectively the OS prompt or the command line. Today the UniVerse system is just a virtual machine residing on top of another OS, but the concept has remained.

chulett · Post by **chulett** » Wed Jul 06, 2005 12:32 am

ArndW wrote:For me the TCL has always denoted "The Command Line" but I am sure that the "T" letter has some more official meaning.

Actually, they all do.

Terminal Control Language.

ArndW · Post by **ArndW** » Wed Jul 06, 2005 12:40 am

Craig,

thanks! I knew I was wrong, but didn't realize how wrong. I'm pretty good with stuff like BASIC,COBOL,SPOOL,RPG,FTN and the like and I can hold my own with ASCII,EBCDIC,ANSII but you got me here.

btw, what are you doing at the screen at this ungodly hour of your night?

kduke · Post by **kduke** » Wed Jul 06, 2005 12:50 am

He has no life like the rest of the top posters.

ray.wurlod · Post by **ray.wurlod** » Wed Jul 06, 2005 1:50 am

Not only that, but DataStage still supports (and uses, internally, mainly 'coz Glenn Herbert lervs 'em) PROCs. These are derivative from the "Pick O/S".

Code: Select all

0001: PQ
0002: IF %2 = "DICT" GOSUB 888
0003: IF %2 # "DICT" GOSUB 999
0004: C - Read first item
0005: F-READ 1 %%20
0006: MV &1.1 "{TEMP}"
0007: F-DELETE 1
0008: C - Increment argument
0009: F;C1;%20;++;?%20
0010: C - Read second item
0011: F-READ 2 %%20
0012: MV &2.1 "{TEMP}"
0013: F-DELETE 2
0014: C - Save one id
0015: MV %9 &1.0
0016: C - Swap id
0017: MV &1.0 &2.0
0018: IF &1.1 # "{TEMP}" GOSUB 777
0019: C - Store id
0020: MV &2.0 %9
0021: IF &2.1 # "{TEMP}" GOSUB 666
0022: RTN
0023: 666 C - Write second item
0024: F-WRITE 2
0025: RSUB
0026: 777 C - Write first item
0027: F-WRITE 1
0028: RSUB
0029: 888 C - Open DICT of file
0030: F-OPEN 1 DICT %3
0031: Qunable to open file
0032: F-OPEN 2 DICT %3
0033: Qunable to open file
0034: MV %20 "4"
0035: RSUB
0036: 999 C - Open DATA of file
0037: F-OPEN 1 %2
0038: Qunable to open file
0039: F-OPEN 2 %2
0040: Qunable to open file
0041: MV %20 "3"
0042: RSUB

ArndW · Post by **ArndW** » Wed Jul 06, 2005 2:32 am

Ray,

coming from the UniVerse side of the world, I hated having to learn all about those weird PROCs and still avoid 'em, but they do have some incredibly powerful features if you know how to program them; certainly beats the old PAragraphs. I have trouble enough with inverse Polish and never got the hang of using HP calculators...

shyju · Post by **shyju** » Wed Jul 06, 2005 3:19 am

Thank u very much chulett, Ray and ArndW for wht TCL stands for. But can provide answers for rest of my questions?

ArndW · Post by **ArndW** » Wed Jul 06, 2005 3:28 am

So, the Terminal Control Language is the base level of the database environment that underlies DataStage Server. There are some commands that you might have occasion to use from DataStage jobs or from the Administrator that need to access this level; often the cleanup commands such as DS.TOOLS are called from a TCL session instead of from the Administrator window. Certain hash file commands to RESIZE or CLEAR.FILE are also done here. If you search this forum for "command line" and/or "DSExecute" you will find numerous posts that suggest commands to be executed and places where they make sense. Most DataStage jobs or projects never require a call to the TCL level.

The source code (in DataStage basic) is available if you look at the ExecTCL command in the manager; it expects the command as the first argument and returns an error code in the second. The function is just a wrapper around the actual call, which is DSExecute("TCL", InputArg, Output, SystemReturnCode).

chulett · Post by **chulett** » Wed Jul 06, 2005 4:01 am

kduke wrote:He has no life like the rest of the top posters.

shyju · Post by **shyju** » Wed Jul 06, 2005 4:27 am

Thx a lot for this prompt reply ArndW. It was really helpful

charles.craig@physiciansm · Wed Jul 06, 2005 8:17 am

From www.webopedia.com
TCL (outside of DataStage)
Short for Tool Command Language, and pronounced T-C-L or tickle, a powerful interpreted programming language developed by John Ousterhout. One of the main strengths of Tcl is that it can be easily extended through the addition of custom Tcl libraries. It is used for prototyping applications as well as for developing CGI scripts, though it is not as popular as Perl for the latter.

ray.wurlod · Post by **ray.wurlod** » Wed Jul 06, 2005 3:28 pm

ExecTCL is a before/after subroutine. As such it has no syntax per se. You load it up in the properties of any job or active stage, and place the command to be executed in the Input Value field.
If the command succeeds, the job keeps going. If the command fails, the job stops.
Source code for ExecTCL is supplied, in the Routines branch of the repository.