|
rob@dekko.com wrote: > You are trying to pass a binary value into a 1S0 value. Try: > 1) Declaring like variables > 2) Changing your *ENTRY to a prototyped interface and using CONST on all > variables not being passed back to the CLP. At first I thought it was passing a binary value too, but the %binary assignment in the CL is setting the *DEC value to a valid packed value. D P01APPIDIN S 1 0 DCL VAR(&PAPPIDIN) TYPE(*DEC) LEN(1 0) The RPG definition declares a packed(1,0) value that matches the CL *DEC 1 0 definition. Frank, are you sure you have this form of the definition of P01APPIDIN in the failing program? I can only repeat what Buck said, to check your cross reference. If I hadn't seen your D spec, I would have guessed that the definition of P01APPIDIN was coming from an externally-described data structure which defined it as zoned.
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
