|
midrange.com
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-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.
