|
Our System Guys says PTF SI16489. Not sure this is it but that is what he gave me. -----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 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.
midrange.com
