Joblog information from both the working version and the problem child
CAGPL/OPZ077R contains the version compiled on the box; joblog below:
call cagpl/opz077r
Output file DSPUSRPRF created in library QTEMP.
Member DSPUSRPRF added to output file DSPUSRPRF in library QTEMP.
EGPL/OPZ077R is the version where the object was moved from the
development box; joblog below:
call egpl/opz077r
Output file DSPUSRPRF created in library QTEMP.
Member DSPUSRPRF added to output file DSPUSRPRF in library QTEMP.
Pointer not set for location referenced.
SQL system error.
File QAP0ZDMP created in library QTEMP.
Member QP0Z554484 added to file QAP0ZDMP in QTEMP.
User Trace data for job 554484/QSECOFR/ALBL0340B1 dumped to member
QP0Z554484 in file QAP0ZDMP in library QTEMP.
27 records copied from member QP0Z554484.
1 User Trace buffer(s) deleted.
Contents of QTEMP/QAP0ZDMP
0000026F:060960 SQ Run Time Dump of SQLCA section:
0000026F:060984 C41DD8CABC:002AB0 L:0008 EyeCatch:
0000026F:061008 C41DD8CABC:002AB0 E2D8D3C3 C1404040
0000026F:061032 C41DD8CABC:002AB8 L:0004 Length of SQLCA:
0000026F:061048 C41DD8CABC:002AB0 00000088
0000026F:061064 C41DD8CABC:002ABC L:0004 SQL return code:
0000026F:061080 C41DD8CABC:002AB0 FF
0000026F:061104 C41DD8CABC:002AC0 L:0048 SQL error message:
0000026F:061128 C41DD8CABC:002AC0 000B5CD5 40404040 40000009 76
0000026F:061152 C41DD8CABC:002AD0 00000000 00000000 00000000 00
0000026F:061176 C41DD8CABC:002AE0 00000000 00000000 00000000 00
0000026F:061208 C41DD8CABC:002AF0 00000000 00000000 00000000 00
0000026F:061232 C41DD8CABC:002B00 00000000 00000000
0000026F:061248 C41DD8CABC:002B08 L:0008 Program name:
0000026F:061272 C41DD8CABC:002B00 D8E2D8C5 E7
0000026F:061288 C41DD8CABC:002B10 L:0018 Diag information:
0000026F:061312 C41DD8CABC:002B10 00000000 00000000 00000000 00
0000026F:061336 C41DD8CABC:002B20 00000000 00000000
0000026F:061360 C41DD8CABC:002B28 L:000B Warning flag:
0000026F:061376 C41DD8CABC:002B20 40404040 40
0000026F:061400 C41DD8CABC:002B30 404040
0000026F:061424 C41DD8CABC:002B33 L:0005 SQL state:
0000026F:061440 C41DD8CABC:002B30 F5 F8F0F0F4
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Friday, November 07, 2008 9:34 AM
To: Midrange Systems Technical Discussion
Subject: RE: System Name - SQL current server
SQLERR and SQLCODE are?
DSPJOBLOG shows?
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
From:
"Hudson, Ron" <rhudson@xxxxxxxxx>
To:
"Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Date:
11/06/2008 11:22 PM
Subject:
RE: System Name - SQL current server
Sent by:
midrange-l-bounces@xxxxxxxxxxxx
If the progam is compiled on the production system, the code works. The
name of the AS/400 is retreived as expected.
The problem only occurs when the souce code is compiled on the
development AS/400 and the program object is moved from the development
AS/400 to the production AS/400. On the production AS/400, the code
executes, but the system name is not retreived.
Ron
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of DeLong, Eric
Sent: Thursday, November 06, 2008 6:32 PM
To: Midrange Systems Technical Discussion
Subject: RE: System Name - SQL current server
I might expect that your production system does not have a *LOCAL entry
in WRKRDBDIRE...
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Hudson, Ron
Sent: Thursday, November 06, 2008 2:44 PM
To: Midrange Systems Technical Discussion
Subject: System Name - SQL current server
I couldn't find it in the recent archives (July/Aug), but I remembered
seeing this trick to get the system name.
C/exec sql
C+ values current server
C+ into :SysName
C/end-exec
It works great on the system it is compiled on. But when I move the
program object to production, it quits working.
I've moved the object using the following methods, none work:
1) Implementer (David ??)
2) ASNET (SSA product)
3) Save program to a *SAVF and use SNDNETF.
Sending the source to the production box and compiling is the only way
I've gotten it to work.
Anyone know any tricks to get around this. Compiling on a production
box is not long term solution.
Thanks
Ron
**********************
** LEGAL DISCLAIMER **
**********************
This E-mail message and any attachments may contain legally privileged,
confidential or proprietary information. If you are not the intended
recipient(s), or the employee or agent responsible for delivery of this
message to the intended recipient(s), you are hereby notified that any
dissemination, distribution or copying of this E-mail message is
strictly prohibited. If you have received this message in error, please
immediately notify the sender and delete this E-mail message from your
computer.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/midrange-l.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
