|
midrange.com
Our system support guy says that he did not use a PTF. He says that he deleted
some package but he says he won't tell me how he did it. Says he is afraid you
will sue us if it breaks something! Won't say what I think.
Says he will see if there is an APAR he can find. I look for SQL0312 in the
apar database and found some references to changes to V5R3 but nothing about
deleting any packages. You might want to run the SQL0312 in the apar database.
It makes references to errors that will be generated in a program compiled
under V5R3 that would not generate an error in V5R2.
Here is APAR's that I found.
Authorized Problem Analysis Reports APARs
Search results
5 documents found
APAR Status Abstract
91% SE19009 CLOSED PER OSP-DB-MSGSQL0312 SQL0312 SQL0314
91% SE19010 CLOSED PER OSP-DB-MSGSQL0312 SQL0312 SQL0314
90% SE18964 CLOSED PER OSP-DB-MSGSQL0312 SQL0312 SQL0314
87% SA84990 CLOSED PER OSP-SQ-MSGSQL0312 SQL FUNCTIONS WITH
DATALINK PARAMETERS
84% SE03972 CLOSED PER OSP-MSGSQL0312 CREATE PROCEDURE WITH
FOR STATEMENT IGC
Here is WRKPRFGRP.
Work with PTF Groups
System:
Type options, press Enter.
4=Delete 5=Display 6=Print 8=Display special handling PTFs
9=Display related PTF groups
Opt PTF Group Level Status
SF99530 5032 Installed
SF99529 38 Installed
SF99503 3 Installed
SF99298 6 Installed
SF99269 4 Installed
SF99185 5 Installed
SF99139 1 Installed
SF99099 2 Installed
-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
Sent: Monday, February 14, 2005 11:43 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: sqlrpgle & copy book
WRKPTFGRP and paste what you have.
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
<SRamanujan@xxxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/14/2005 01:25 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
<rpg400-l@xxxxxxxxxxxx>
cc
Subject
RE: sqlrpgle & copy book
Thanks Alan though it would help to find out the patch number.
Thanks,
Sudha
Sudha Ramanujan
SunGard Futures Systems
sramanujan@xxxxxxxxxxxxxxxxxx
(312) 577 6179
(312) 577 6101 - Fax
-----Original Message-----
From: Alan Campin [mailto:Alan.Campin@xxxxxxx]
Sent: Monday, February 14, 2005 12:10 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: sqlrpgle & copy book
I ran into a similar error and others in my shop also. Turned out to be
an IBM error introduced in the V5R3. We got the patch and it fixed the
problem. Not sure what the patch number was.
-----Original Message-----
From: MD, Sadique [mailto:Sadique.MD@xxxxxxx]
Sent: Sunday, February 13, 2005 10:49 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: sqlrpgle & copy book
Hi Sudha,
This Could work
Step 1) Select * From EMPPF where EMPNO > 1000
EMPLOYEE EMPLOYEE
NUMBER NAME
1,001 Sadiq1
1,002 Sadiq2
Step 2) Copy book / member DSMBR looks like this
0001.00 DEMPDS E Ds EXTNAME(EMPPF)
0002.00 D Prefix(S_) INZ
Step 3) Main Program RPGLE SQLFETCH looks like this
0001.00 FQsysprt O F 132 Printer
0002.00 *
0003.00 D/Copy Source,DsMbr
0004.00
0005.00 C/EXEC SQL
0006.00 C+ DECLARE SQLCSR CURSOR FOR SELECT EMPNO, EMPNA FROM EMPPF
WHERE +
0007.00 C+ EMPNO > 1000
0008.00 C/END-EXEC
0009.00 *
0010.00 C/EXEC SQL
0011.00 C+ open SqlCsr
0012.00 C/END-EXEC
0013.00 *
0014.00 C EXCEPT Header
0015.00 *
0016.00 C SQLCOD DoUNe 0
0017.00 *
0018.00 C/EXEC SQL
0019.00 C+ FETCH FROM SqlCsr
0020.00 C+ Into :EMPDS
0021.00 C/END-EXEC
0022.00 *
0023.00 C IF SQLCOD = 100
0024.00 C Leave
0025.00 C EndIf
0026.00 *
0027.00 C EXCEPT Details
0028.00 *
0029.00 C Enddo
0030.00 *
0031.00 C/EXEC SQL
0032.00 C+ Close SqlCsr
0034.00 *
0035.00 *
0036.00 C Eval *Inlr = *On
0037.00 *
0038.00 OQsysprt E Header
0039.00 O 45 'Employee
Details'
0040.00 O E Details
0041.00 O S_EMPNO 6
0042.00 O S_EMPNA 20
Step 4) Call the program and Execute WRKSPLF command
The spool file QSYSPRT looks like this
Employee Details
1001 Sadiq1
1002 Sadiq2
Step 5) Compare the above result with Step 1 query , both resulted two
records
Hence we can say that the program got executed successfully with
out
failure
Thanks
Sadiq ..
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of SRamanujan@xxxxxxxxxxxxxxxxxx
Sent: Friday, February 11, 2005 8:36 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: sqlrpgle & copy book
Thanks Birgitta,
We are on v5r3, I have a simple non qualified ds and I don't have nested
ds either. Something like below and it does not compile. Once I put
the DS within the sqlrpgle, it works.
Thanks,
Sudha
Rpgle.myds
dfieldDs ds
d field1 5a
d field2 15p 2
d field3 30a
sqlrpgle :
/copy rpgle,myds
*
d myDsNullI ds
d based(myDsNullAd)
d myNullAry 5i 0 dim(21)
c/exec sql declare c cursor for select * from filea for read only
c/end-exec
c/exec sql open c
c/end-exec
c/exec sql fetch next from c into :fields :myNullAry
c/end-exec
c/exec sql close c
c/end-exec
Sudha Ramanujan
SunGard Futures Systems
sramanujan@xxxxxxxxxxxxxxxxxx
(312) 577 6179
(312) 577 6101 - Fax
-----Original Message-----
From: HauserSSS [mailto:Hauser@xxxxxxxxxxxxxxx]
Sent: Friday, February 11, 2005 12:11 AM
To: RPG programming on the AS400 / iSeries
Subject: AW: sqlrpgle & copy book
Hi Sudha,
do you use a qualified data structure or is the data structure defined
in a
nested data structure.
If so, you must be on release VR3M0 to get it to work.
Before Release V5R2M0 you have to define a non qualified data structure.
If you don't use nested copy books, the data structure can be defined in
a
copy book.
Birgitta
-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von
SRamanujan@xxxxxxxxxxxxxxxxxx
Gesendet: Donnerstag, 10. Februar 2005 23:32
An: rpg400-l@xxxxxxxxxxxx
Betreff: sqlrpgle & copy book
Hi all,
When I have a copy book that has the data structure, and fetch into the
ds, I get a sql pre-compiler error SQL0312 'The DSNAME is not define or
not usable' Is there anyway to avoid this?
Thanks,
Sudha
Sudha Ramanujan
SunGard Futures Systems
sramanujan@xxxxxxxxxxxxxxxxxx
(312) 577 6179
(312) 577 6101 - Fax
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
