|
Here is a sample of my program. Regardless of the method (substrings or pointers), I still get an error regarding a pointer not set, or a range error when trying to map the old/new fields. The original data file has 4 fields in it: File Name: PDEMAILP Fields: PDEMAIL 40A PDENTDT 10L PDENTBY 10A PDLSTSRC 10A I am getting frustrated. I need to move onto some actual projects soon. :-) Tracy L. Ball The Jackson Group Sr. Programmer/Analyst (317) 781-4600 ext. 3107
5722WDS V5R1M0 010525 SEU SOURCE LISTING 03/21/03 10:08:53 PAGE 1 SOURCE FILE . . . . . . . TRACYB/QRPGLESRC MEMBER . . . . . . . . . TESTTRG SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 100 F************************************************************************** 03/21/96 200 F* (c) Copyright Total Response, Inc. 2003 03/20/03 300 F* All Rights Reserved 03/21/96 400 F* 03/21/96 500 F************************************************************************** 03/21/96 600 03/21/96 601 FEmailaudp o e disk 03/20/03 602 03/20/03 603 * Work Fields 03/21/03 604 D Fields s 4s 0 Inz(4) 03/21/03 605 03/21/03 700 * Trigger Buffer passed to the program from the system. 03/20/03 701 D TrgBuffer ds 03/21/03 800 D TFilename 10 03/21/03 801 D TLibraryName 10 03/21/03 802 D TMemberName 10 03/21/03 803 D TEvent 1 03/21/03 804 D TTime 1 03/21/03 805 D TCommitLock 1 03/21/03 806 D TFiller01 3 03/21/03 807 D TCCSID 10i 0 03/21/03 808 D TRRN 10i 0 03/21/03 809 D TFiller02 10i 0 03/21/03 810 D TOldOffset 10i 0 03/21/03 811 D TOldLength 10i 0 03/21/03 812 D TOldNullOff 10i 0 03/21/03 813 D TOldNullLen 10i 0 03/21/03 814 D TNewOffset 10i 0 03/21/03 815 D TNewLength 10i 0 03/21/03 816 D TNewNullOff 10i 0 03/21/03 817 D TNewNullLen 10i 0 03/21/03 1700 02/18/00 1701 * Trigger Buffer lenth parameter 03/20/03 1702 D TrgBufferLen s 10i 0 03/21/03 1703 03/21/03 1706 * Before and After Record Images 03/21/03 1707 D OldRecord E DS ExtName(Pdemailp) Prefix(IN_) 03/21/03 1708 D Based(OldRecPtr) 03/21/03 1709 D NewRecord E DS ExtName(Pdemailp) 03/21/03 1710 D Based(NewRecPtr) 03/21/03 1732 03/21/03 1733 * Before and After Record Images 03/21/03 1734 D Record E DS ExtName(EmailAudP) Prefix(O_) 03/21/03 1741 03/21/03 1800 C *Entry Plist 03/21/03 1900 C Parm TrgBuffer 03/21/03 2000 C Parm TrgBufferLen 03/21/03 2500 06/13/00 2501 * Map Old Record 03/21/03 2502 C Eval OldRecPtr = %ADDR(TrgBuffer) + 03/21/03 2503 C TOldOffset 03/21/03 2504 C Eval Record = OldRecord 03/21/03 2505 C Write Emailaudf 03/21/03 5722WDS V5R1M0 010525 SEU SOURCE LISTING 03/21/03 10:08:53 PAGE 2 SOURCE FILE . . . . . . . TRACYB/QRPGLESRC MEMBER . . . . . . . . . TESTTRG SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 2506 03/20/03 2507 * Map New Record 03/21/03 2508 C Eval NewRecPtr = %ADDR(TrgBuffer) + 03/21/03 2509 C TNewOffset 03/21/03 2510 C Eval Record = NewRecord 03/21/03 2511 C Write Emailaudf 03/21/03 2512 03/21/03 11200 C Eval *InLr = *On 03/21/03 11300 06/13/00 * * * * E N D O F S O U R C E * * * *
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.