|
I did that it still only writes the username and the SSN, never includes the notes On Fri, 26 Nov 2004 20:23:04 -0500, Lists wrote > Change the CA10 on the 4th line of the DDS to CF10 and it will work fine. > > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] > On Behalf Of Douglas W. Palme > Sent: Friday, November 26, 2004 8:17 PM > To: RPG programming on the AS400 / iSeries > Subject: Need some help with a WRITE sub routine > > I have a program that allows a user to write records to a file called > renotes, three fields - recruiter, notes, and SSN. The file is > keyed on the SSN number. > > Below is the DDS code for the screen and the program code, the > problem is, when the user hits the F10 key to write the record it > only rights the recruiters username and the SSN, it never writes the > note field; any help would be appeciated: > > DDS: > > A R NOTESENTRY > A*%%TS SD 20041126 200354 DPALME REL-V5R2M0 5722-WDS > A CA12(12 'F12=CANCEL') > A CA10(10 'F10=UPDATE') > A 1 4DATE > A EDTCDE(Y) > A 1 27'RECRUITING NOTES ENTRY' > A COLOR(WHT) > A 1 64USER > A 11 5'COMMENTS/NOTES:' > A NOTES 75A B 13 5 > A 23 6'F12=CANCEL' > A 23 23'F10=UPDATE' > A 1 4DATE > A EDTCDE(Y) > A 1 27'RECRUITING NOTES ENTRY' > A COLOR(WHT) > A 1 64USER > A 11 5'COMMENTS/NOTES:' > A NOTES 75A B 13 5 > A 23 6'F12=CANCEL' > A 23 23'F10=UPDATE' > > Program Code: > > FRECNOTES IF A E K DISK RENAME(RECNOTES:RECN) > FRECRUITINGCF E WORKSTN > D SDS > DRECRUITER 254 263 > DSSN S 9s 0 > C *ENTRY PLIST > C PARM SSN > C DOU *IN12 = *ON > C EXFMT NOTESENTRY > C SELECT > C WHEN *IN12 = *ON > C EVAL *INLR = *ON > C RETURN > C when *in10 = *on > C exsr addnote > C eval *in10 = *off > C ENDSL > C ENDDO > C addnote begsr > C write RECN > C eval *in10 = *off > C reset *all notesentry > C endsr > > -- > 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. > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.289 / Virus Database: 265.4.2 - Release Date: 11/24/2004 > > -- > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.289 / Virus Database: 265.4.2 - Release Date: 11/24/2004 > > -- > 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. -- Open WebMail Project (http://openwebmail.org)
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
