× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. February 2005

RE: sqlrpgle & copy book

When I look at the PTF I sent a minute ago, (SI16489) 
I note that at the bottom it makes references to other PTF that have solutions 
to problems like this. 

Anyway, hope all this helps. 

-----Original Message-----
From: Alan Campin [mailto:Alan.Campin@xxxxxxx]
Sent: Monday, February 14, 2005 3:47 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: sqlrpgle & copy book


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 thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.