Re: how to copy dtaara text into a physical file

[Buck Calabro <kc2hiz@xxxxxxxxx>]

On 2/8/2013 3:36 PM, Stone, Joel wrote:
> No 3rd party stuff.  All internal.
>
> Performing an ETL function, dropping the output files on a network folder.
>
> Need to drop a single sentinel file on another network folder telling a network scheduler that the ETL files are ready to pick up.
>
> I keep a data area showing the ETL start/end dates/times.  I would like to send that data area contents as the sentinel file.
>
> I am planning on RTVDTAARA into a CL var, then SQL INSERT that into a table to be dropped onto a network file via QNTC as the sentinel file.
>
> Any better / simpler method?

Your choice seems pretty simple as it is.  But for kicks, here's how to
do it in Rexx:

/* Test reading a data area and sending it to a table */

signal on error name command_error
signal on failure name command_error
signal on syntax name syntax_error

 'RTVDTAARA BUCK/TRGDTAARA RTNVAR(&dtaara)'
  insertStatement = 'insert into buck/sqltest1 (text) values('''dtaara''')'
  address EXECSQL
  EXECSQL 'set option commit=*none'
  EXECSQL insertStatement
  say 'SQLSTATE = ' sqlstate

exit

/* ---------------------------------------------------------------- */
command_error:

      trace off

      parse source system start srcmbr srcfile srclib
      say 'Unexpected error at line 'sigl' of REXX program ',
          srcmbr' in 'srclib'/'srcfile'. The exception ID is 'rc'.'

exit(right(rc,4))
/* ---------------------------------------------------------------- */
syntax_error:

      trace off

      parse source system start srcmbr srcfile srclib
      say 'Syntax error at line 'sigl' of REXX program ',
          srcmbr' in 'srclib'/'srcfile'. The error code is 'rc'.',
          ' The description is :'
      say errortext(rc)

exit(rc)