Archives of the TeradataForum
Message Posted: Tue, 28 Sep 2004 @ 13:12:03 GMT
A fascinating question. Unfortunately, I have no time to research it, but here are some ideas.
First, as John Street suggested, you could just call BTEQ and then capture the output from it. That would go something like this:
"ALLOC FI(SYSPRINT) DA(mybteq.temp) NEW CATALOG SP(10 10) TR RELEASE", "UNIT(SYSDA) RECFM(F B A) LRECL(133) BLKSIZE(0) REUSE" "ALLOC FI(SYSTERM) DA(*) REUSE" "ALLOC FI(SYSIN) DA("bteq_script") SHR REUSE" "CALL 'MYTDP.APPLOAD(BTQMAIN)' "; bteq_rc = rc "FREE FI(SYSPRINT SYSTERM SYSIN)" "ALLOC FI(SYSPRINT) DA(mybteq.temp) SHR REUSE" "EXECIO * DISKR SYSPRINT (STEM BTEQOUT. FINIS" do I = 1 to BTEQOUT.0 say "output:" BTEQOUT.I /* PARSE THE BTEQ OUTPUT HERE */ end
Clumsy, perhaps, but it gets the job done.
What you really want, I take it, is an interface that will read directly from Teradata through the TDP and put the results into REXX variables, much as the REXX/DB2 interface does. I don't know of any commercial product that does this. I believe there would be two possible approaches:
REXX -> C (or maybe Cobol or PL/I?) routine with embedded SQL -> ppcmain REXX -> Assembler routine with CLIv2
Of course you would need to be familiar with the REXX programming interface (described, for instance, in the z/OS TSO/E REXX Reference, SA22-7790-01, Chap. 12). Not for the faint of heart!
|Copyright 2012 - All Rights Reserved|
|Last Modified: 04 Nov 2013|