|
Ignore my previous message, it is working.....my apologies.... Thanks for the help. On Fri, 26 Nov 2004 17:29:34 -0800, Douglas W. Palme wrote > 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) > > -- > 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
