|
This is a multipart message in MIME format. -- [ Picked text/plain from multipart/alternative ] Ping, We use BPCS 4.0.5CD. But what is the layout of the CTR file? And, as far as the journalling issue goes, you have two choices. 1 - Add journalling 2 - CRTSQLRPG ... COMMIT(*NONE) ... Well, actually you have more choices, like converting to ile and doing CRTSQLRPGI COMMIT(*NONE), refusing the project, taking up farming, etc, but I thought I stick with the most likely, (and legal) :-) Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin "Ren Fu Ping" <fupingren@yeah.net> Sent by: rpg400-l-admin@midrange.com 04/18/2002 08:37 AM Please respond to rpg400-l To: <rpg400-l@midrange.com> cc: Fax to: Subject: SQLRPG Can't Work This is a multi-part message in MIME format. -- [ Picked text/plain from multipart/alternative ] Dear All, I have a programm short list below, I always need to add new records to CTR because I have compile this file into QTEMP, maybe for any user. but the SQLRPG can't work. SQLCOD is 7008, and joglog display ' 1) Buffer length longer than record for member CTR. 2) Member CTR not journaled to journal *N. 3) CTR in DERFP not valid for operation. ' How I solve it? any help? Thanks for your help. Ping FCTR IF E K DISK FCTRPOPF IF E K DISK FJMSX02FMCF E WORKSTN F RRNS1 KSFILE JMSX02S F RRNW1 KSFILE WCTRPOS * C SINIT BEGSR * C/EXEC SQL C+ INSERT INTO CTR SELECT DISTINCT C+ SUBSTR(ECLL02.CLCONT,1,10),ECHL02.HCPO, C+ ECLL02.LPROD FROM ECLL02,ECHL02 WHERE ECLL02.LORD=ECHL02.HORD C+ ORDER BY 1,2,3 C/END-EXEC C ENDSR C........Other command C -- _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com 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.