• Subject: Re: RPG UDDS Generic File Display/Update (Null fields in program described files)
  • From: Barbara Morris <bmorris@xxxxxxxxxx>
  • Date: Mon, 14 Jan 2019 08:53:43 -0500
  • Arc-authentication-results: i=1; mx.google.com; spf=neutral (google.com: is neither permitted nor denied by best guess record for domain of rpg400@xxxxxxxxxxx) smtp.mailfrom=rpg400@xxxxxxxxxxx; dmarc=fail (p=NONE sp=NONE dis=NONE) header.from=ibm.com
  • Arc-message-signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=content-language:in-reply-to:user-agent:content-transfer-encoding :mime-version:reply-to:references:message-id:lines:organization:date :subject:from:to; bh=W3Os8wba1Bg8zLjpmJaJs8adHnZfqDqDYPOjE0mFUTM=; b=X5llfLgdoc0iGWWk+cs4iHxLk90er7b8sGEINlj3I6kg0bpn545xb1Io0GfN+45CHS jW5wFWH8KblvymvytcbDr1WUO/7Ac8F/j6riRR9pxMW6jtmrpOlgivM/dDOVMgefkCkK 1hXl7nsWiDxZUHUIvh3Ocp2qiHRPk92qOGHgreJCKd3bzDirnP/4Z2ipVUD4E+fceh+J 0BSP30XpeARUFUQ89JT4Ec9OIoHNpnYhRvCQTXh0n+esFT1KJkBGJdvz2Qe+p8M2SzCu a87m0X+tpvnJ/djTolhBCDt3/C5YcNW0bQB4PiyT1/lvAEJH1EMeEna/EgPBXyQ6/J4D tG9w==
  • Arc-seal: i=1; a=rsa-sha256; t=1547474038; cv=none; d=google.com; s=arc-20160816; b=UVyhzS9Ph5DfRMmesH+Bfz1shyHbGQbQ2O/WhweBRqKqITBcaHiXiPN8SSkaCoot4t DCDstB2HfBIl2YjSE42RmS/YwNoqg0r8GbS/cJkUyoHrWRQtWDFi/4DM2aE7t+Z8XtJI VHcZr5qk7Y91NplALMPywt/48y9MFrxr73F9uCeeS2G/mPoHno16fi2a/xfjPt+V8hz7 zx0Jr6/k3s83Ns2Iskly1QP2b5vTgBaIiILWGj0AOaDu8GFbvDeWXxv177QHGI03JfKL J9Batn/I8hJMJOgx47dg3nzCZFPRqd1P6eEfBjc+Uz+0c7g8zRM2eW5FqAJFIsPIyKSa fd0Q==
  • List-archive: <https://archive.midrange.com/rpg400-l/>
  • List-help: <mailto:rpg400-l-request@lists.midrange.com?subject=help>
  • List-id: "RPG programming on the IBM i \(AS/400 and iSeries\)" <rpg400-l.lists.midrange.com>
  • List-post: <mailto:rpg400-l@lists.midrange.com>
  • List-subscribe: <https://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@lists.midrange.com?subject=subscribe>
  • List-unsubscribe: <https://lists.midrange.com/mailman/options/rpg400-l>, <mailto:rpg400-l-request@lists.midrange.com?subject=unsubscribe>

On 2019-01-14 3:05 AM, Frank Kolmann wrote:

After some attempts to cater for NULL values I have figured out that UDDS is fundamentally in conflict with NULL values.
UDDS requires a program described Display file, and ANY program described file makes the RPG compiler create the program with ALWNULL(*NO).
Further, Full Free Form RPG does not allow Program described files so UDDS has effectively gone the way of the Dodo.

Possibly separate modules some with ALWNULL(*USRCTL) some with ALWNULL(*NO) but I suspect this will cause the CRTPGM to fail,

I haven't been following this thread in detail since I'm not familiar with UDDS.

So I'm not sure whether what I'm going to say will make any real effect difference here...

But RPG does allow program-described files in full free form. You'd code something like WORKSTN(1000) for the device keyword for a program-described display file.

Also, RPG allows null-value support in general in a module if it has a program-described file. With ALWNULL(*USRCTL), it will handle the null-indicators for any other externally-described files in the module.

You can CRTPGM where RPG modules had different ALWNULL settings The ALWNULL setting is internal to the module, so it isn't something that CRTPGM knows about.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].