RE: Checking an AS/400 DTAARA from SQL Server

[Brad McDaniel <BMCDANIEL@xxxxxxxxx>]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
I think you may have answered my question with my same question.  My
question was how do I check the value of a non-database object (in this
case, a non-database object (dtaara) on a linked AS/400) in SQL Server.  In
the meantime, I just created the following CL to run in a continuous loop,
which creates a file that changes every thirty seconds which can be queried
from SQL Server.
If anyone knows of a better way, let me know.
Thanks,
Brad
/*********************************************************************/
/* PROGRAM ID:                                                       */
/* DATE WRITTEN:    09/13/2001                                       */
/* DESCRIPTION:     CL TO TAKE INFORMATION FROM A DATA AREA AND PUT  */
/*                    IT IN A PHYSICAL FILE SO SQL SERVER CAN        */
/*                    QUERY IT...USED TO SEE IF THE 400              */
/*                    IS READY TO RECEIVE MESSAGES                   */
/*          INPUT   PARMS - LIBRARY DTAARA IS IN                     */
/*                          NAME OF DTAARA                           */
/*********************************************************************/
             PGM        PARM(&LIBRARY &DTAARA)
             DCL        VAR(&LIBRARY)   TYPE(*CHAR) LEN(10)
             DCL        VAR(&DTAARA)    TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOB)       TYPE(*CHAR) LEN(10)
             DCL        VAR(&USER)      TYPE(*CHAR) LEN(10)
             DCL        VAR(&NBR)       TYPE(*CHAR) LEN(06)
             DCL        VAR(&OUTQ)      TYPE(*CHAR) LEN(10)
             DCL        VAR(&OUTQLIB)   TYPE(*CHAR) LEN(10)
             DCL        VAR(&DATE)      TYPE(*CHAR) LEN(06)
             DCL        VAR(&TSEPOOL)   TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOBMSGQMX) TYPE(*DEC) LEN(2 0)
             DCL        VAR(&JOBMSGQFL) TYPE(*CHAR) LEN(10)
             DCL        VAR(&DFTCCSID)  TYPE(*DEC) LEN(5 0)
             DCL        VAR(&CYMDDATE)  TYPE(*CHAR) LEN(07)

RTVJOBA:    RTVJOBA    JOB(&JOB) USER(&USER) NBR(&NBR) OUTQ(&OUTQ) +
                         OUTQLIB(&OUTQLIB) DATE(&DATE) +
                         TSEPOOL(&TSEPOOL) JOBMSGQMX(&JOBMSGQMX) +
                         JOBMSGQFL(&JOBMSGQFL) DFTCCSID(&DFTCCSID) +
                         CYMDDATE(&CYMDDATE)

DSPDTAARA:  DSPDTAARA  DTAARA(&LIBRARY/&DTAARA) OUTPUT(*PRINT) +
                         OUTFMT(*CHAR)

CPYSPLF:    CPYSPLF    FILE(QPDSPDTA) TOFILE(&LIBRARY/QPDSPDTA) +
                         JOB(&NBR/&USER/&JOB) SPLNBR(*LAST) +
                         TOMBR(*FIRST) MBROPT(*REPLACE)

DLTSPLF:    DLTSPLF    FILE(QPDSPDTA) JOB(&NBR/&USER/&JOB) +
                         SPLNBR(*LAST)

WAIT30SEC:  DLYJOB     DLY(30)
STARTOVER:  GOTO       CMDLBL(RTVJOBA)
-Original Message-----
From: thomas@inorbit.com [mailto:thomas@inorbit.com]
Sent: Thursday, September 13, 2001 10:12 PM
To: midrange-l@midrange.com
Subject: Re: Checking an AS/400 DTAARA from SQL Server


On Thu, 13 September 2001, Brad McDaniel wrote:

> Does anyone know if there is any way to check the value of an AS/400 Data
> Area from SQL Server?
>
> We have the 400's linked to SQL Server, so we can query files from SQL
> Server Query Manager, but only physical and logical files can be queried.
>
> Any suggestions?


I'd begin thinking how I'd do something similar on the server that is
hosting SQL Server. If I had a non-database object there, for example a
desktop shortcut, and I wanted to extract the value of an attribute for SQL
Server, say, pull the <Start in> property from the shortcut, how would I do
that? On the AS/400, your best bet is maybe a stored procedure.

Tom Liotta

--
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788
Fax  253-872-7904
http://www.400Security.com


___________________________________________________
The ALL NEW CS2000 from CompuServe
 Better!  Faster! More Powerful!
 250 FREE hours! Sign-on Now!
 http://www.compuserve.com/trycsrv/cs2000/webmail/




_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.