powerh-l Digest, Vol 166, Issue 1
Ken Langendock
ken at langendock.com
Fri Jan 13 09:26:41 CST 2023
Over the years I have developed using KSAM/CISAM/ORACLE/Image.
On Vax, HP3000, UNIX and Windows.
Here is the COMPILE.PDL that I use for all environments (with all the comments that you will need to make it work):
Set your variable up so that the Conditional Compiles work or remove the code that is not for your environment.
Ken
CANCEL CLEAR
SET VERIFY ERRORS
SET NOWARNINGS
@if HPMPEXL
Create Dictionary tempdict.pdl &
Not Preloaded
@else
Create Dictionary tempdict &
Not Preloaded
@endif
System Options &
Century Included &
Default Century 20 &
Date Separator "/" &
;European Date
; Date Format DDMMMYYYY NULLSEPARATOR &
;American Date
Date Format MMDDYYYY NONULLSEPARATOR &
Input Century 19 from Year 50 &
Release 0 Version 0 Show &
Special Name Characters "-" & ;Characters allowed in field/file names
Decimal "." &
Generic Retrieval Character "@" &
Multiline Heading Character "^" &
Picture Substitution Character "^" &
Message Substitution Character "^" &
Null Value Character " " &
@if ORACLE
Shift Upshift &
@else
Shift Noshift &
@endif
Default Transaction Model Concurrency &
Default Entry and Find In Consistency &
Select In Concurrency &
Title "EnCore's Core System" &
@if SPANISH
Sysmonths "ENEFEBMARABRMAYJUNJULAGOSEPOCTNOVDIC" &
@elseif FRENCH
Sysmonths "JANFEVMARAVRMAIJUNJUIAUGSEPOCTNOVDEC" &
@else
Sysmonths "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" &
@endif
Pattern &
Escape "!" Not "\" &
Or "|" Any "?" &
Optrep "*" Alpha "^" &
Leftp "(" Digit "#" &
Rightp ")" Wild "@" &
Repeat ">" Null "0" &
Optional "<" Reserved "[]:=;_&" &
ASCII8 Character Set FRENCH ;English
;---------------------------------------------------------------------
USE _syusages.pdl NOLIST NODETAIL ; System Dictionary Usages
USE _syelemnt.pdl NOLIST NODETAIL ; System Management Dictionary Elements
USE _ohelemnt.pdl NOLIST NODETAIL ; On-line Help Dictionary Elements
USE _cousages.pdl NOLIST NODETAIL ; Common Dictionary Usages
USE _coelemnt.pdl NOLIST NODETAIL ; Common Dictionary Elements
USE _syfiles.pdl NOLIST NODETAIL ; System Management Files
DATABASE CoreDB &
Type ORACLE &
NULL VALUES NOT ALLOWED & ; NEVER set this to ALLOWED!!!
; Owner (User) cannot be a variable
Owner COREV61 & ; Development
; Owner CORE & ; Client
@if UNIX
OPEN "ORACLE@$ORDBUSER@$ORACLE_SID/$ORDBPASS" &
@elseif WINDOWS
OPEN "ORACLE@%ORDBUSER%@%ORACLE_SID%/%ORDBPASS%"
@endif
; Set consistency model to avoid Serialization problem.
TRANSACTION CONSISTENCY REPEATABLE READ
;TRANSACTION NEW_QUERY READ ONLY ;required for Quick Rollback keep behaviour
;TRANSACTION QTP_CONSISTENCY READ COMMITTED
;TRANSACTION QTP_UPDATE READ COMMITTED
; Default QUIZ transactions
;TRANSACTION QUIZ_QUERY READ ONLY READ COMMITTED
;TRANSACTION QUERY READ ONLY READ COMMITTED
LOAD
@if HPMPEXL
:ECHO *--- If no errors were encountered then, you must now copy DICTIONARY
:ECHO *--- to the appropriate dictionary file, attempting now.
:COPY tempdict.pdl,dict.exe
@elseif VAXVMS
$! "Attempting to copy dictionary"
$ COPY tempdict.pdc $EXE:dict.pdc
@elseif UNIX
!echo "Attempting to copy dictionary"
!cp tempdict.pdc $EXE/dict.pdc
!chmod 644 $EXE/dict.pdc
@elseif WINDOWS
!echo "Attempting to copy dictionary"
!copy tempdict.pdc dict.pdc
@endif
----------------------------------------------------------------------
Message: 1
Date: Thu, 12 Jan 2023 14:42:21 -0500
From: Pierre Bouthillette <pierre.bouthillette at gmail.com>
To: Forum Powerhouse <powerh-l at lists.sowder.com>
Subject: Powerhouse Oracle Solaris : connect to database but cannot
see tables
Message-ID:
<CAOWAHcEn2iouYW=KJudWBuqjdG=ABVqrNy1XoD2Utf6jy3wvCQ at mail.gmail.com>
Content-Type: text/plain; charset="utf-8"
Hi all
We are running powerhouse 8.43e on solaris 11 using cisam
we want to introduce access to Oracle database(Boat)
we can access the table TEST in sqlplus on solaris 11
powerhouse
added oracle definition in pdl for database boat owner boat
tried FILE or DATABASE statement, compiled ok
File boat organization relational type oracle &
open ORACLE at boat@orcl/boat123 owner boat &
null values not allowed
powerhouse qdesign & qshow using dbaudit seem to connect to database but
cannot see tables
test and config bellow
entreprise2-v2-{yvadev}: qdesign dbaudit=full
Q D E S I G N (PowerHouse 8.43.E)
Copyright (C) 2007 Cognos Incorporated. All rights reserved.
Licensed PH8-*****
screen r
file TEST IN boat
ATTACH 0 to ORACLE ORACLE at boat@orcl/boat123
START transaction 0 (in LOGICAL transaction DICTIONARY) in attach(es) 0
Read Committed
COMPILE request 0
START request 0 in transaction 0
RELEASE request 0 from attach 0
*E* The file TEST wasnt found.
COMMIT logical transaction DICTIONARY
COMMIT transaction 0
DETACH 0 from ORACLE at boat@orcl/boat123
entreprise2-v2-{yvadev}: qshow dbaudit=full
Q S H O W (PowerHouse 8.43.E)
Copyright (C) 2007 Cognos Incorporated. All rights reserved.
show rec test in boat
ATTACH 0 to ORACLE ORACLE at boat@orcl/boat123
START transaction 0 (in LOGICAL transaction DICTIONARY) in attach(es) 0
Read Committed
COMPILE request 0
START request 0 in transaction 0
RELEASE request 0 from attach 0
*E* The Record test was not found in the data dictionary.
**** WE CHANGED PDL DATABASE FOR A WRONG PASSWORD ****
entreprise2-v2-{yvadev}: qshow dbaudit=full
Q S H O W (PowerHouse 8.43.E)
Copyright (C) 2007 Cognos Incorporated. All rights reserved.
show files boat
2023/01/12 TurboBoat Page 1
F I L E R E P O R T
For DICTIONARY: /develop/exec/dict/phd.pdc
Database: boat
Organization: RELATIONAL
Null Values Allowed:Yes
Type: ORACLE
Hold Cursor: Unspecified
Open: ORACLE@@orcl/
Owner: boat
*W* SQL START DBE error (boat).
DMS-E-INVLLOGIN, Invalid login information was detected by the underlying
database.
ORA-01017: invalid username/password; logon denied
Records ; Sizes: ** none **
*******************************************************
we can access database with sqlplus
entreprise2-v2-{yvadev}: sqlplus
SQL*Plus: Release 11.2.0.4.0 Production on Thu Jan 12 10:41:21 2023
Copyright (c) 1982, 2013, Oracle. All rights reserved.
Enter user-name: boat at orcl/boat123
Connected to:
Oracle Database 11g Release 11.2.0.4.0 - 64bit Production
SQL> SELECT owner, table_name FROM all_tables where owner='boat';
OWNER TABLE_NAME
------------------------------ ------------------------------
boat TEST
select * from test;
CODE PROV_NOM TPS_NUM
---- ------------------------------ ----------
BRIT British Columbia 111111
SQL>
: uname -a -m -n -r -s -v
SunOS entreprise2-v2 5.11 11.4.50.126.3 sun4v sparc sun4v non-global-zone
entreprise2-v2-{yvadev}: env | grep -i ora
PATH=/usr/bin:/usr/sbin:/usr/lib:/data/exec/userbin:/usr/lib/lp/postscript:.:/op
t/oracle/instantclient_11_2:/opt/cognos/ph843e/bin
LD_LIBRARY_PATH=/opt/cognos/ph843e/lib:/usr/lib:/opt/oracle/instantclient_11_2
ORACLE_HOME=/opt/oracle/instantclient_11_2
TNS_ADMIN=/opt/oracle/instantclient_11_2/network/admin
root at entreprise2-v2# file /opt/cognos/ph843e/bin/q*
/opt/cognos/ph843e/bin/qdesign: ELF 32-bit MSB executable SPARC Version 1,
dynamically linked, stripped
/opt/cognos/ph843e/bin/qkextdrvr.c: c program text
/opt/cognos/ph843e/bin/qkexttbl.h: empty file
/opt/cognos/ph843e/bin/qkgo: executable shell script
/opt/cognos/ph843e/bin/qkgomaint: executable shell script
/opt/cognos/ph843e/bin/qshow: ELF 32-bit MSB executable SPARC Version 1,
dynamically linked, stripped
/opt/cognos/ph843e/bin/qtp: ELF 32-bit MSB executable SPARC Version 1,
dynamically linked, stripped
/opt/cognos/ph843e/bin/quick: ELF 32-bit MSB executable SPARC Version 1,
dynamically linked, stripped
/opt/cognos/ph843e/bin/quiz: ELF 32-bit MSB executable SPARC Version 1,
dynamically linked, stripped
/opt/cognos/ph843e/bin/qutil: ELF 32-bit MSB executable SPARC Version 1,
dynamically linked, stripped
root at entreprise2-v2#
4. Oracle library PowerHouse is 32 bits:
root at entreprise2-v2# file /opt/cognos/ph843e/lib/or*.so
/opt/cognos/ph843e/lib/ordba.so: ELF 32-bit MSB dynamic lib SPARC
Version 1, dynamically linked, not stripped
root at entreprise2-v2#
5. Oracle client is 32 bits:
root at entreprise2-v2# file /opt/oracle/instantclient_11_2/*.so
libclntsh.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1, V8+
Required, dynamically linked, not stripped
libnnz11.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1, V8+
Required, dynamically linked, not stripped
libociei.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1, V8+
Required, dynamically linked, not stripped
libocijdbc11.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1,
V8+ Required, dynamically linked, not stripped
libsqlplus.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1, V8+
Required, dynamically linked, not stripped
libsqlplusic.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1,
V8+ Required, dynamically linked, not stripped
root at entreprise2-v2#
Pierre
Pierre.Bouthillette at gmail.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.sowder.com/pipermail/powerh-l/attachments/20230112/fab447fd/attachment-0001.html>
------------------------------
Message: 2
Date: Thu, 12 Jan 2023 12:42:41 -0800
From: Tracy Johnson <tmjva23664 at gmail.com>
To: Pierre Bouthillette <pierre.bouthillette at gmail.com>
Cc: Forum Powerhouse <powerh-l at lists.sowder.com>
Subject: Re: Powerhouse Oracle Solaris : connect to database but
cannot see tables
Message-ID:
<CAChcsH7VUBPpG2PpnR3VxXHLKF6r2XO-Xa8CGcyPZgdv5T5xDA at mail.gmail.com>
Content-Type: text/plain; charset="utf-8"
I know nothing about Solaris however on my former platform you had to embed
the DB password in the PDL file. Could be an issue if it changes
frequently. (My old platform it was never.)
On Thu, Jan 12, 2023, 11:44 AM Pierre Bouthillette <
pierre.bouthillette at gmail.com> wrote:
> Hi all
>
> We are running powerhouse 8.43e on solaris 11 using cisam
> we want to introduce access to Oracle database(Boat)
> we can access the table TEST in sqlplus on solaris 11
>
> powerhouse
> added oracle definition in pdl for database boat owner boat
> tried FILE or DATABASE statement, compiled ok
>
> File boat organization relational type oracle &
> open ORACLE at boat@orcl/boat123 owner boat &
> null values not allowed
>
> powerhouse qdesign & qshow using dbaudit seem to connect to database but
> cannot see tables
>
> test and config bellow
>
>
>
> entreprise2-v2-{yvadev}: qdesign dbaudit=full
> Q D E S I G N (PowerHouse 8.43.E)
> Copyright (C) 2007 Cognos Incorporated. All rights reserved.
> Licensed PH8-*****
>
> screen r
> file TEST IN boat
> ATTACH 0 to ORACLE ORACLE at boat@orcl/boat123
> START transaction 0 (in LOGICAL transaction DICTIONARY) in attach(es) 0
> Read Committed
> COMPILE request 0
>
> START request 0 in transaction 0
> RELEASE request 0 from attach 0
> *E* The file TEST wasnt found.
> COMMIT logical transaction DICTIONARY
> COMMIT transaction 0
> DETACH 0 from ORACLE at boat@orcl/boat123
>
> entreprise2-v2-{yvadev}: qshow dbaudit=full
> Q S H O W (PowerHouse 8.43.E)
> Copyright (C) 2007 Cognos Incorporated. All rights reserved.
>
> show rec test in boat
> ATTACH 0 to ORACLE ORACLE at boat@orcl/boat123
>
> START transaction 0 (in LOGICAL transaction DICTIONARY) in attach(es) 0
> Read Committed
> COMPILE request 0
>
> START request 0 in transaction 0
> RELEASE request 0 from attach 0
> *E* The Record test was not found in the data dictionary.
>
>
> **** WE CHANGED PDL DATABASE FOR A WRONG PASSWORD ****
>
> entreprise2-v2-{yvadev}: qshow dbaudit=full
> Q S H O W (PowerHouse 8.43.E)
> Copyright (C) 2007 Cognos Incorporated. All rights reserved.
>
> show files boat
> 2023/01/12 TurboBoat Page 1
> F I L E R E P O R T
> For DICTIONARY: /develop/exec/dict/phd.pdc
> Database: boat
> Organization: RELATIONAL
> Null Values Allowed:Yes
> Type: ORACLE
> Hold Cursor: Unspecified
> Open: ORACLE@@orcl/
> Owner: boat
> *W* SQL START DBE error (boat).
> DMS-E-INVLLOGIN, Invalid login information was detected by the underlying
> database.
> ORA-01017: invalid username/password; logon denied
>
> Records ; Sizes: ** none **
>
> *******************************************************
> we can access database with sqlplus
>
> entreprise2-v2-{yvadev}: sqlplus
>
> SQL*Plus: Release 11.2.0.4.0 Production on Thu Jan 12 10:41:21 2023
>
> Copyright (c) 1982, 2013, Oracle. All rights reserved.
>
> Enter user-name: boat at orcl/boat123
>
> Connected to:
> Oracle Database 11g Release 11.2.0.4.0 - 64bit Production
>
>
> SQL> SELECT owner, table_name FROM all_tables where owner='boat';
>
> OWNER TABLE_NAME
> ------------------------------ ------------------------------
> boat TEST
>
> select * from test;
>
> CODE PROV_NOM TPS_NUM
> ---- ------------------------------ ----------
> BRIT British Columbia 111111
>
> SQL>
>
>
>
> : uname -a -m -n -r -s -v
> SunOS entreprise2-v2 5.11 11.4.50.126.3 sun4v sparc sun4v non-global-zone
>
>
> entreprise2-v2-{yvadev}: env | grep -i ora
>
>
> PATH=/usr/bin:/usr/sbin:/usr/lib:/data/exec/userbin:/usr/lib/lp/postscript:.:/op
> t/oracle/instantclient_11_2:/opt/cognos/ph843e/bin
>
> LD_LIBRARY_PATH=/opt/cognos/ph843e/lib:/usr/lib:/opt/oracle/instantclient_11_2
>
> ORACLE_HOME=/opt/oracle/instantclient_11_2
>
> TNS_ADMIN=/opt/oracle/instantclient_11_2/network/admin
>
>
>
> root at entreprise2-v2# file /opt/cognos/ph843e/bin/q*
> /opt/cognos/ph843e/bin/qdesign: ELF 32-bit MSB executable SPARC Version 1,
> dynamically linked, stripped
> /opt/cognos/ph843e/bin/qkextdrvr.c: c program text
> /opt/cognos/ph843e/bin/qkexttbl.h: empty file
> /opt/cognos/ph843e/bin/qkgo: executable shell script
> /opt/cognos/ph843e/bin/qkgomaint: executable shell script
> /opt/cognos/ph843e/bin/qshow: ELF 32-bit MSB executable SPARC Version 1,
> dynamically linked, stripped
> /opt/cognos/ph843e/bin/qtp: ELF 32-bit MSB executable SPARC Version 1,
> dynamically linked, stripped
> /opt/cognos/ph843e/bin/quick: ELF 32-bit MSB executable SPARC Version 1,
> dynamically linked, stripped
> /opt/cognos/ph843e/bin/quiz: ELF 32-bit MSB executable SPARC Version 1,
> dynamically linked, stripped
> /opt/cognos/ph843e/bin/qutil: ELF 32-bit MSB executable SPARC Version 1,
> dynamically linked, stripped
> root at entreprise2-v2#
>
> 4. Oracle library PowerHouse is 32 bits:
>
> root at entreprise2-v2# file /opt/cognos/ph843e/lib/or*.so
> /opt/cognos/ph843e/lib/ordba.so: ELF 32-bit MSB dynamic lib SPARC
> Version 1, dynamically linked, not stripped
> root at entreprise2-v2#
>
> 5. Oracle client is 32 bits:
>
> root at entreprise2-v2# file /opt/oracle/instantclient_11_2/*.so
> libclntsh.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1, V8+
> Required, dynamically linked, not stripped
> libnnz11.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1, V8+
> Required, dynamically linked, not stripped
> libociei.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1, V8+
> Required, dynamically linked, not stripped
> libocijdbc11.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1,
> V8+ Required, dynamically linked, not stripped
> libsqlplus.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1, V8+
> Required, dynamically linked, not stripped
> libsqlplusic.so: ELF 32-bit MSB dynamic lib SPARC32PLUS Version 1,
> V8+ Required, dynamically linked, not stripped
> root at entreprise2-v2#
>
>
>
> Pierre
> Pierre.Bouthillette at gmail.com
> --
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Mailing list: powerh-l at lists.sowder.com
> Subscribe: 'subscribe' in message body to
> powerh-l-request at lists.sowder.com
> Unsubscribe: 'unsubscribe <password>' in message body to
> powerh-l-request at lists.sowder.com
> https://lists.sowder.com/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you must be a subscriber.
> Add 'site:lists.sowder.com powerh-l' to your search terms to search the
> list archive at Google.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.sowder.com/pipermail/powerh-l/attachments/20230112/b1b6b505/attachment.html>
------------------------------
Subject: Digest Footer
--
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l at lists.sowder.com
Subscribe: "subscribe" in message body to powerh-l-request at lists.sowder.com
Unsubscribe: "unsubscribe <password>" in message body to powerh-l-request at lists.sowder.com
https://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
Add 'site:lists.sowder.com powerh-l' to your search terms to search the list archive at Google.
------------------------------
End of powerh-l Digest, Vol 166, Issue 1
****************************************
--
This email has been checked for viruses by AVG antivirus software.
www.avg.com
More information about the powerh-l
mailing list