Embedded PS/SQL in Pro*C program
Date: 4 Oct 1994 17:42:44 GMT
Message-ID: <36s46k$7sm_at_gaia.ucs.orst.edu>
Greetings,
PL/SQL 2.0.14.0.1 Pro*C 1.5.6.2.1
Thanks in advance. Please send responses to mickel_at_oes.orst.edu.
Paul
PROGRAM START
/******************************************************************************
Program: tdist
Programmmer: Paul Mickel
Creation Date: 19 Sept 1994
Description: This program is designed to distribute information about
printers from a central machine to the rest of the UNIX systems at TWCA. Specifically, it is used to maintain infor- mation about printers on plant. ******************************************************************************/#include <values.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#define FALSE 0
#define TRUE 1
#define BSIZ 4000
#define TABV 8
#define MAXSIZE 2048
#define USER "FOOBAR"
#define PASSWD "BYE_2"
#define DBSTRING "t:twcau03:prog"
/******************************************************************************declare the SQL variables used to interact with the database. right now, only two are used, username and passwd.
******************************************************************************/ EXEC SQL BEGIN DECLARE SECTION; VARCHAR username[30]; VARCHAR passwd[30];
EXEC SQL END DECLARE SECTION; EXEC SQL INCLUDE sqlca;
main(argc, argv)
int argc;
char **argv;
{
char error_string[MAXSIZE];
strcpy(username.arr,USER);
username.len = strlen(username.arr);
strcpy(passwd.arr,PASSWD);
passwd.len = strlen(passwd.arr);
EXEC SQL WHENEVER SQLERROR GOTO sqlerror;
EXEC SQL CONNECT :username IDENTIFIED BY :passwd;
fprintf(stdout,"Connected to Oracle as user %s\n", username.arr);
EXEC SQL EXECUTE
BEGIN
UPDATE ptr_hosts SET host_system = 'TO_HELL_WITH_U' WHERE host_system = 'FOO';
END;
END-EXEC; sqlerror:
fprintf(stdout,"\n\n% .70s \n",sqlca.sqlerrm.sqlerrmc); EXEC SQL WHENEVER SQLERROR CONTINUE; EXEC SQL ROLLBACK WORK RELEASE; exit(1); } SCRIPT START BELOW -------------------------------------------------------------------------------
Script started on Tue Oct 4 10:17:05 1994
pmickel_at_karl [284] make -f proc.mk tdist
/usr/oracle/product/7.0.12/bin/proc ireclen=132 oreclen=132 select_error=no sqlcheck=full iname=tdist.pc
Pro*C: Release 1.5.6.2.1 - Production on Tue Oct 4 10:17:11 1994
Copyright (c) Oracle Corporation 1979, 1992. All rights reserved.
Precompiling tdist.pc
55 END-EXEC;
55 ..^
PCC-S-0061: Error at line 57, column 14. PLS-201: identifier 'PTR_HOSTS' must be declared
55 END-EXEC;
55 ..^
PCC-S-0061: Error at line 57, column 7. PLS-0: SQL Statement ignored *** Error code 1
Stop.
pmickel_at_karl [285] exit
script done on Tue Oct 4 10:17:14 1994
-- Paul Mickel Internet: mickel_at_oes.orst.edu Systems Developer II UUCP: ..!hplabs!hp-pcd!orstext!mickel Teledyne Wah Chang - Albany Albany, OR 97321 USA Disclaimer: My employer never claims my opinions unless they makes a profit.Received on Tue Oct 04 1994 - 18:42:44 CET