|
midrange.com
I've got a strange one but I'm sure there is some little thing I'm overlooking.
I have created a copy book for a group of procedures which include an
externally defined data structure for field definition purposes. These fields
are used to define the prototype parameter definitions. I use the copy book in
two placed right now. The first is the module for the service program
containing the update procedures and the second is the bound program that calls
the procedures. The issue is that the bound program won't compile. It tells
me that the third parameter (i2GfID)doesn't match between the prototype and the
call to the procedure. Looking at the compile listing the data structure
definition of i2GfID is signed and the logical file definition of i2GfID is
packed. That explains the error, but why? I'm using data fields from a
logical built over the physical used by the DS in the copybook. The logical
doesn't change the definition of any of the fields in the physical. It looks
like the two fields should match but they don't. Does anyone have any ideas?
I included the relevant portions of the compile listing for reference.
>From the compile listing:
Copybook data structure
d dsISFQE2 e ds Extname(ISFQE2) Qualified
*--------------------------------------------------------------------------------------------*
* Data structure . . . . . . : DSISFQE2
*
* External format . . . . . : ISFQE2R : MG410289/ISFQE2
*
*--------------------------------------------------------------------------------------------*
110=D I2APPL 12S 0
Appl #
111=D I2RANK 2S 0
Rank
112=D I2LDAT 10D DATFMT (*ISO-)
Load Date
113=D I2LTIM 8T TIMFMT (*ISO.)
Load Time
114=D I2FLAG 1A
New Images
115=D I2WWJU 1A
What will JU do?
116=D I2DCOD 1A
Delete Code
117=D I2HOWR 3A
How Received
118=D I2SYSD 1A
System Code
119=D I2TRAN 7A
Trans Code
120=D I2GFID 8S 0
Global Fax
Prototype of procedure in question
185+ // Write ISFTR2 record
186+d WrtISFTR2 pr
187+d SystemID Like(dsISFTR2.ikSysD)
188+d TransactionID Like(dsISFTR2.ikTran)
189+d Applicaiton Like(dsISFTR2.ikAppl)
190+d GlobalFaxID Like(dsISFTR2.ikGfID)
191+d HowReceived Like(dsISFTR2.ikHowR)
192+d Action 3a Const
Input fields from the logical
*--------------------------------------------------------------------------------------------*
* RPG record format . . . . : QE1
*
* External format . . . . . : ISFQE2R : MG410289/ISFQE201
*
*--------------------------------------------------------------------------------------------*
356=I S 1 12 0I2APPL
Appl #
357=I S 13 14 0I2RANK
Rank
358=I *ISO-D 15 24 I2LDAT
Load Date
359=I *ISO.T 25 32 I2LTIM
Load Time
360=I A 33 33 I2FLAG
New Images
361=I A 34 34 I2WWJU
What will JU do?
362=I A 35 35 I2DCOD
Delete Code
363=I A 36 38 I2HOWR
How Received
364=I A 39 39 I2SYSD
System Code
365=I A 40 46 I2TRAN
Trans Code
366=I S 47 54 0I2GFID
Global Fax
Procedure call
415 // Write ISFTRK record
416 WrtISFTR2(i2SysD :i2Tran :i2Appl :i2GfID :i2HowR :'RTN');
Data structure field definitions at end of compile listing
DSISFQE2 DS(54) 109D
*RNF7031 I2APPL S(12,0) 110D
*RNF7031 I2DCOD A(1) 116D
*RNF7031 I2FLAG A(1) 114D
*RNF7031 I2GFID S(8,0) 120D
*RNF7031 I2HOWR A(3) 117D
*RNF7031 I2LDAT D(10*ISO-) 112D
*RNF7031 I2LTIM T(8*ISO.) 113D
*RNF7031 I2RANK S(2,0) 111D
*RNF7031 I2SYSD A(1) 118D
*RNF7031 I2TRAN A(7) 119D
Field definition at end of compile listing
I2GFID P(8,0) 366D
Rick Chevalier
AmeriCredit
Enterprise Solutions
Ext. 57178
Privileged and Confidential. This e-mail, and any attachments there to, is
intended only for use by the addressee(s) named herein and may contain
privileged or confidential information. If you have received this e-mail in
error, please notify me immediately by a return e-mail and delete this e-mail.
You are hereby notified that any dissemination, distribution or copying of this
e-mail and/or any attachments thereto, is strictly prohibited.
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.
