|
Use BlueZone Free FTP ... It has an 'Windows Explorer' like window, works slick! An old Grand Forks-er told me about it. John B. -----Original Message----- From: rpg400-l-request@midrange.com [mailto:rpg400-l-request@midrange.com] Sent: Wednesday, September 04, 2002 2:38 PM To: rpg400-l@midrange.com Subject: RPG400-L digest, Vol 1 #988 - 16 msgs Send RPG400-L mailing list submissions to rpg400-l@midrange.com To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or, via email, send a message with subject or body 'help' to rpg400-l-request@midrange.com You can reach the person managing the list at rpg400-l-admin@midrange.com When replying, please edit your Subject line so it is more specific than "Re: Contents of RPG400-L digest..." Today's Topics: 1. Re: duplicate record error when updating a physical file (Frank W. Kany IV) 2. Re: duplicate record error when updating a physical file (Frank W. Kany IV) 3. RE: duplicate record error when updating a physical file (Scott Mildenberger) 4. RE: duplicate record error when updating a physical file (Hopkins, Bill) 5. Re: duplicate record error when updating a physical file (BrgttHsr@aol.com) 6. Re: duplicate record error when updating a physical file (Richard B Baird) 7. dollars to words ( for Checks) (Booth Martin) 8. RE: dollars to words ( for Checks) (Buck Calabro) 9. Can One Copy Source Code to PC? (Hector Sanchez) 10. RE: Can One Copy Source Code to PC? (Bartell, Aaron L. (TC)) 11. RE: Can One Copy Source Code to PC? (Buck Calabro) 12. Re: Can One Copy Source Code to PC? (Steve Landess) 13. Re: Can One Copy Source Code to PC? (Peter_Vidal@pall.com) 14. RE: Can One Copy Source Code to PC? (Laskosky, Matt) 15. RE: Can One Copy Source Code to PC? (Hatzenbeler, Tim) 16. RE: Can One Copy Source Code to PC? (Haas, Matt) --__--__-- Message: 1 From: "Frank W. Kany IV" <frank.kany@burr-reid.org> To: <rpg400-l@midrange.com> Subject: Re: duplicate record error when updating a physical file Date: Wed, 4 Sep 2002 13:48:18 -0400 Reply-To: rpg400-l@midrange.com Thanks that worked......wish I had noticed that a few hours ago lol. Frank W. Kany IV The Law Offices of Burr & Reid www.burr-reid.org ----- Original Message ----- From: <Peter_Vidal@pall.com> To: <rpg400-l@midrange.com> Sent: Wednesday, September 04, 2002 1:36 PM Subject: Re: duplicate record error when updating a physical file > > " * part of MOVE_DATA subroutine > C WHEN MVEFLG = '02' > C*** EVAL RP1ALP = SV1RP1ALP > C*** EVAL RP1NUM = SV1RP1NUM > C EVAL BLA1 = SV1BLA1 > C EVAL BLA2 = SV1BLA2" > > Try to comment out the statements with the asterisks and run the program. > These statements are updating the key fields and the program will crash. > > PETER VIDAL > PALL Aeropower Corp. / SR Programmer Analyst > Website: www.pall.com / Email: Peter_Vidal@Pall.com > Phone: 727-539-8448, x2414 > > > _______________________________________________ > 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. > --__--__-- Message: 2 From: "Frank W. Kany IV" <frank.kany@burr-reid.org> To: <rpg400-l@midrange.com> Subject: Re: duplicate record error when updating a physical file Date: Wed, 4 Sep 2002 13:50:03 -0400 Reply-To: rpg400-l@midrange.com Should I use %EQUAL like JJW mentioned earlier? Frank W. Kany IV The Law Offices of Burr & Reid www.burr-reid.org ----- Original Message ----- From: "Booth Martin" <Booth@MartinVT.com> To: <rpg400-l@midrange.com> Sent: Wednesday, September 04, 2002 1:46 PM Subject: Re: duplicate record error when updating a physical file > -- > -- > [ Picked text/plain from multipart/alternative ] > > SETLL doesn't read a record. It just sets the lower limit. Any %Found would > apply to the most recent chain, read, or other event that sets %Found, which > likely was in the former cycle. I'd bet up to 25 cents you are processing > the prior record, > > > --------------------------------------------------------- > Booth Martin http://www.MartinVT.com > Booth@MartinVT.com > --------------------------------------------------------- > > -------Original Message------- > > From: rpg400-l@midrange.com > Date: Wednesday, September 04, 2002 12:52:45 PM > To: RPG Mailing List > Subject: duplicate record error when updating a physical file > > This is a multi-part message in MIME format. > -- > [ Picked text/plain from multipart/alternative ] > I get an error when I try to update a physical file. The error is---> > Attempt to write a duplicate record to file CDEBP"......"RPG procedure > detected an output record with a duplicate key field" > > Can anyone see why I'd be getting this error? > > > > *duplicate record error when updating CDEBP > F CDEBP UF A E K DISK > > * > * Get Record > C CDEB_KEY02 CHAIN CDEBP > > * > * Make sure Record is NOT in CTRNP file > C CTRN_KEY01 SETLL CTRNP1 > C IF %FOUND(CTRNP1) > C EVAL CTRNP_FLG = 'Y' > C ELSE > C EVAL CTRNP_FLG = 'N' > C ENDIF > > * Move Account "A" record into save fields > C IF CTRNP_FLG = 'N' > C EVAL MVEFLG = '01' > C EXSR MOVE_DATA > * Move saved Account "B" record into Account "A" fields > C EVAL MVEFLG = '02' > C EXSR MOVE_DATA > C UPDATE CDEB > C ENDIF > > C *INZSR BEGSR > > C CTRN_KEY01 KLIST > C KFLD KF_ALP2 > C KFLD KF_NUM2 > * > C CDEB_KEY01 KLIST > C KFLD KF_ALP1 > C KFLD KF_NUM1 > C ENDSR > > > *Physical File DDS > A UNIQUE > A R CDEB > A RP1ALP 5 > A RP1NUM 5S 0 > A BLA1 15 > A BLA2 10 > A K RP1ALP > A K RP1NUM > > > -- > > > _______________________________________________ > 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. > > > . > -- > [ Content of type image/gif deleted ] > -- > > _______________________________________________ > 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. > > --__--__-- Message: 3 From: Scott Mildenberger <Smildenber@Washcorp.com> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: RE: duplicate record error when updating a physical file Date: Wed, 4 Sep 2002 11:52:08 -0600 Reply-To: rpg400-l@midrange.com Frank, After your SETLL you were checking %found, this is NOT what you want. To determine whether a SETLL found a match to the key you need to use %equal. You may have fixed your program but this was one error that still exists. Scott Mildenberger > -----Original Message----- > From: Frank W. Kany IV [mailto:frank.kany@burr-reid.org] > Sent: Wednesday, September 04, 2002 11:48 AM > To: rpg400-l@midrange.com > Subject: Re: duplicate record error when updating a physical file > > > Thanks that worked......wish I had noticed that a few hours ago lol. > > --__--__-- Message: 4 From: "Hopkins, Bill" <BHopkins@saurerinc.com> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: RE: duplicate record error when updating a physical file Date: Wed, 4 Sep 2002 13:52:28 -0400 Reply-To: rpg400-l@midrange.com for setll / lookup yes -----Original Message----- From: Frank W. Kany IV [mailto:frank.kany@burr-reid.org] Sent: Wednesday, September 04, 2002 1:50 PM To: rpg400-l@midrange.com Subject: Re: duplicate record error when updating a physical file Should I use %EQUAL like JJW mentioned earlier? Frank W. Kany IV The Law Offices of Burr & Reid www.burr-reid.org ----- Original Message ----- From: "Booth Martin" <Booth@MartinVT.com> To: <rpg400-l@midrange.com> Sent: Wednesday, September 04, 2002 1:46 PM Subject: Re: duplicate record error when updating a physical file > -- > -- > [ Picked text/plain from multipart/alternative ] > > SETLL doesn't read a record. It just sets the lower limit. Any %Found would > apply to the most recent chain, read, or other event that sets %Found, which > likely was in the former cycle. I'd bet up to 25 cents you are processing > the prior record, > > > --------------------------------------------------------- > Booth Martin http://www.MartinVT.com > Booth@MartinVT.com > --------------------------------------------------------- > > -------Original Message------- > > From: rpg400-l@midrange.com > Date: Wednesday, September 04, 2002 12:52:45 PM > To: RPG Mailing List > Subject: duplicate record error when updating a physical file > > This is a multi-part message in MIME format. > -- > [ Picked text/plain from multipart/alternative ] > I get an error when I try to update a physical file. The error is---> > Attempt to write a duplicate record to file CDEBP"......"RPG procedure > detected an output record with a duplicate key field" > > Can anyone see why I'd be getting this error? > > > > *duplicate record error when updating CDEBP > F CDEBP UF A E K DISK > > * > * Get Record > C CDEB_KEY02 CHAIN CDEBP > > * > * Make sure Record is NOT in CTRNP file > C CTRN_KEY01 SETLL CTRNP1 > C IF %FOUND(CTRNP1) > C EVAL CTRNP_FLG = 'Y' > C ELSE > C EVAL CTRNP_FLG = 'N' > C ENDIF > > * Move Account "A" record into save fields > C IF CTRNP_FLG = 'N' > C EVAL MVEFLG = '01' > C EXSR MOVE_DATA > * Move saved Account "B" record into Account "A" fields > C EVAL MVEFLG = '02' > C EXSR MOVE_DATA > C UPDATE CDEB > C ENDIF > > C *INZSR BEGSR > > C CTRN_KEY01 KLIST > C KFLD KF_ALP2 > C KFLD KF_NUM2 > * > C CDEB_KEY01 KLIST > C KFLD KF_ALP1 > C KFLD KF_NUM1 > C ENDSR > > > *Physical File DDS > A UNIQUE > A R CDEB > A RP1ALP 5 > A RP1NUM 5S 0 > A BLA1 15 > A BLA2 10 > A K RP1ALP > A K RP1NUM > > > -- > > > _______________________________________________ > 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. > > > . > -- > [ Content of type image/gif deleted ] > -- > > _______________________________________________ > 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. > > _______________________________________________ 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. --__--__-- Message: 5 From: BrgttHsr@aol.com Date: Wed, 4 Sep 2002 14:02:17 EDT Subject: Re: duplicate record error when updating a physical file To: rpg400-l@midrange.com Reply-To: rpg400-l@midrange.com -- [ Picked text/plain from multipart/alternative ] Hallo Frank, you should use %Equal instead of %Found to check an exact match. Birgitta --__--__-- Message: 6 To: rpg400-l@midrange.com From: "Richard B Baird" <rbaird@esourceconsulting.com> Subject: Re: duplicate record error when updating a physical file Date: Wed, 4 Sep 2002 13:11:51 -0500 Reply-To: rpg400-l@midrange.com Frank, would need to see MOVE_DATA subroutine. my guess is you are messing with the key fields of your update file, (possibly blanking out?) run it in debug and check values of keyfields just before the update. hth, rick --__--__-- Message: 7 Date: Wed, 4 Sep 2002 14:55:14 -0400 (Eastern Daylight Time) From: "Booth Martin" <Booth@MartinVT.com> To: <rpg400-l@midrange.com> Subject: dollars to words ( for Checks) Reply-To: rpg400-l@midrange.com -- -- [ Picked text/plain from multipart/alternative ] I have an old old routine I use for writing the prose on a check, as in: $13.95 is written "Thirteen Dollars and 95 cents" It dawns on me that today's version would be a lot simpler and clearer. Any one have a nifty solution they'd as soon share in the archives here? Thanks --------------------------------------------------------- Booth Martin http://www.MartinVT.com Booth@MartinVT.com --------------------------------------------------------- -- [ Content of type image/gif deleted ] -- --__--__-- Message: 8 From: Buck Calabro <Buck.Calabro@commsoft.net> To: rpg400-l@midrange.com Subject: RE: dollars to words ( for Checks) Date: Wed, 4 Sep 2002 14:58:32 -0400 Reply-To: rpg400-l@midrange.com A search of these very archives with 'numbers to words' turned up this: http://archive.midrange.com/rpg400-l/200201/msg00606.html Is this the sort of thing you're looking for? --buck --__--__-- Message: 9 Date: Wed, 04 Sep 2002 14:24:18 -0500 From: "Hector Sanchez" <hsanchez@driscollchildrens.org> To: <RPG400-L@midrange.com> Subject: Can One Copy Source Code to PC? Reply-To: rpg400-l@midrange.com Is there any way to copy or download source code to a PC other than just using the Copy Paste PC Method. Hector Sanchez Programmer Driscoll Childrens Hospital (361) 694-4176 --__--__-- Message: 10 From: "Bartell, Aaron L. (TC)" <ALBartell@taylorcorp.com> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: RE: Can One Copy Source Code to PC? Date: Wed, 4 Sep 2002 14:28:22 -0500 Reply-To: rpg400-l@midrange.com CODE, a.k.a CODE/400, is great for this! I used to hate having to transfer code from one machine to another or download code for documentation purposes. With CODE you can do a 'save as' within the editor and save it to your hard drive as a .txt file. Aaron Bartell -----Original Message----- From: Hector Sanchez [mailto:hsanchez@driscollchildrens.org] Sent: Wednesday, September 04, 2002 2:24 PM To: RPG400-L@midrange.com Subject: Can One Copy Source Code to PC? Is there any way to copy or download source code to a PC other than just using the Copy Paste PC Method. Hector Sanchez Programmer Driscoll Childrens Hospital (361) 694-4176 _______________________________________________ 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. --__--__-- Message: 11 From: Buck Calabro <Buck.Calabro@commsoft.net> To: rpg400-l@midrange.com Subject: RE: Can One Copy Source Code to PC? Date: Wed, 4 Sep 2002 15:24:37 -0400 Reply-To: rpg400-l@midrange.com I am guessing that you want to download to a PC to edit the source. Code/400 and Code Studio both download and edit on the PC. --buck --__--__-- Message: 12 From: "Steve Landess" <steve_landess@hotmail.com> To: <rpg400-l@midrange.com> Subject: Re: Can One Copy Source Code to PC? Date: Wed, 4 Sep 2002 14:30:30 -0500 Reply-To: rpg400-l@midrange.com Need more information: If you have Client Access, you can use the Data Transfer from AS400 function... If you have another emulation package like Rumba, it probably has a built-in method for file transfer support If you have a TCP/IP connection from your pc to the AS/400, you can use FTP... ----- Original Message ----- From: "Hector Sanchez" <hsanchez@driscollchildrens.org> To: <RPG400-L@midrange.com> Sent: Wednesday, September 04, 2002 2:24 PM Subject: Can One Copy Source Code to PC? > Is there any way to copy or download source code to a PC other than just using the Copy Paste PC Method. > > > > Hector Sanchez > Programmer > Driscoll Childrens Hospital > (361) 694-4176 > > _______________________________________________ > 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. > --__--__-- Message: 13 Subject: Re: Can One Copy Source Code to PC? To: rpg400-l@midrange.com From: Peter_Vidal@pall.com Date: Wed, 4 Sep 2002 15:28:49 -0400 Reply-To: rpg400-l@midrange.com This may be a MIDRANGE question but... ... you can use Client Access - Data Transfer Tool and do it. Use the option RECEIVE FILE FROM HOST, use QRPGSRC as the file name (or whatever is the source name). The member name will be your program name. PETER VIDAL PALL Aeropower Corp. / SR Programmer Analyst Website: www.pall.com / Email: Peter_Vidal@Pall.com Phone: 727-539-8448, x2414 --__--__-- Message: 14 From: "Laskosky, Matt" <MLaskosk@kmart.com> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: RE: Can One Copy Source Code to PC? Date: Wed, 4 Sep 2002 15:29:47 -0400 Reply-To: rpg400-l@midrange.com You can use FTP or your emulation package may have a utility to help with copying files to the PC and back to the AS400, check your help. -----Original Message----- From: Hector Sanchez [mailto:hsanchez@driscollchildrens.org] Sent: Wednesday, September 04, 2002 3:24 PM To: RPG400-L@midrange.com Subject: Can One Copy Source Code to PC? Is there any way to copy or download source code to a PC other than just using the Copy Paste PC Method. Hector Sanchez Programmer Driscoll Childrens Hospital (361) 694-4176 _______________________________________________ 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. --__--__-- Message: 15 From: "Hatzenbeler, Tim" <thatzenbeler@clinitech.net> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: RE: Can One Copy Source Code to PC? Date: Wed, 4 Sep 2002 12:34:20 -0700 Reply-To: rpg400-l@midrange.com This message is in MIME format. Since your mail reader does not understand this format, some or all of this message may not be legible. -- [ Picked text/plain from multipart/alternative ] i have something that transfers source code to the ifs. > -----Original Message----- > From: Hector Sanchez [SMTP:hsanchez@driscollchildrens.org] > Sent: Wednesday, September 04, 2002 12:24 PM > To: RPG400-L@midrange.com > Subject: Can One Copy Source Code to PC? > > Is there any way to copy or download source code to a PC other than just > using the Copy Paste PC Method. > > > > Hector Sanchez > Programmer > Driscoll Childrens Hospital > (361) 694-4176 > > _______________________________________________ > 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. This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential or privileged information. Any unauthorized review; use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy the message. --__--__-- Message: 16 Subject: RE: Can One Copy Source Code to PC? Date: Wed, 4 Sep 2002 15:35:46 -0400 From: "Haas, Matt" <Matt.Haas@thomsonlearning.com> To: <rpg400-l@midrange.com> Reply-To: rpg400-l@midrange.com Here's a few ways I could think of: - If you have CODE/400 installed, you can open the source in it and save it to your hard drive. - You can use FTP to download the member (once you change into the library, I think it's something like 'get srcfile.mysrcmbr'). - I haven't tried it but you could probably even map a network drive. - You could also set up a web server and allow it access to your source library and download stuff that way (not that I would recommend this but it could be done). Matt -----Original Message----- From: Hector Sanchez [mailto:hsanchez@driscollchildrens.org] Sent: Wednesday, September 04, 2002 3:24 PM To: RPG400-L@midrange.com Subject: Can One Copy Source Code to PC? Is there any way to copy or download source code to a PC other than just using the Copy Paste PC Method. Hector Sanchez Programmer Driscoll Childrens Hospital (361) 694-4176 _______________________________________________ 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. --__--__-- _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) digest 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. End of RPG400-L Digest
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
