• Subject: Re: RPG UDDS Generic File Display/Update (Null fields in program described files)
  • From: Frank Kolmann <frank.kolmann@xxxxxxxxx>
  • Date: Fri, 18 Jan 2019 19:53:26 +1100
  • Arc-authentication-results: i=1; mx.google.com; dkim=pass header.i=@gmail.com header.s=20161025 header.b=LBxu+ndo; spf=pass (google.com: domain of frank.kolmann@xxxxxxxxx designates 209.85.220.41 as permitted sender) smtp.mailfrom=frank.kolmann@xxxxxxxxx; dmarc=pass (p=NONE sp=QUARANTINE dis=NONE) header.from=gmail.com
  • Arc-message-signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=content-language:content-transfer-encoding:in-reply-to:mime-version :user-agent:date:message-id:references:to:subject:from :dkim-signature; bh=1KVtjTrrnCWHgBDL9b/y47yDNu+D6oCHBNEhysUD1OU=; b=z4Th+ZjwxWmaIeMC/QG/oPDDN7A/EZiVkXUiJiEwxeyUafBXo/JzGEPTMbIk9ffpEa q2JhG1pwrc2GNEuVHwEIyxiU5cC9mrWtTN6cE4Lc6iQRZLNgrYG29PycO7zxsVbaWen9 kdSsoG1zoqJCXujogKviCILJ4pw7N1VVdWU+yoxOP0LUG4laYqFQoz4065/B8nPBdjmM WEJvT0g9aA8JTuKh6Ibfe5+VwiMfhU4W9rBxj6i2SRIqfoswlZ2uuNojAoecJQQs5BN3 T42exmc2dy7xhMFiU7J0CRys0XF/A4Jp1F4RrNpdEd5U27UBV1v1juklnYrLK5Jou1Od /+sA==
  • Arc-seal: i=1; a=rsa-sha256; t=1547801602; cv=none; d=google.com; s=arc-20160816; b=l1/KDaB+/m7OcJbxfxRp6akHLl3uunO/L/ecakc6BNtkNIExMYWDPCZERfI8AM3Aqr tqAvIyITFVVANfzvndAATaUx0RgIRQbMQavwkKltB0aBKyhsmHSH/Pf6QUzjYIlOQWI8 Cg0/RxhTzl1YgBxYcaXvgDGLFzt4aZVEvtpthkh68GE6zDbj0Gcxw2PFdyJoAxPTO0lR T0nm7/4h36WoSbl4rAuvjjj+IR7aRrn6k+FIAsqa4nRUPTs2MvABUoLA2Z2lv10OaHMu RW3ucj0CKtDSdIiBuBVD5VTW8qB7nWp5GmuvTalLGzNwWtAfmZU0XOnemdm0Npzf99rB 7oXg==
  • 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>

Hi Carsten

This is the Open code.
I will post the whole program on the wiki, soon.

Barbara you say that the C functions are not affected by the RPG ALWNULL setting,
thank you I did not understand that.

I did try setting up the DS as 1A fields, the C pragmas create unsigned Char fields for the nullmaps.
I will change the N back to 1A but that did not work previously.

What I am concluding is it may not be possible to set up a generic C function to
write records that have NULLs as so much of the code seems to be dependant
on an externally described file.

Regards
Frank

  // Open a Record File for I/O Operations
  //_RFILE *_Ropen(const char * filename, const char * mode, ...);
 D open            PR              * EXTPROC(*CWIDEN:'_Ropen')
 D   filename                      *   value options(*string)
 D   mode                          *   value options(*string)


// Open KEY seq
       in_p = *NULL;
       in_p = open(libfile  : 'rr+,nullcap=Y ');
    if        in_p = *NULL;
        MsgERR = 'open failed!';
       dsply  msgERR;

On 18/01/2019 5:33 PM, Flensburg, Carsten wrote:
Hello Frank,

What keywords did you specify for the mode parameter on the _Ropen call?

Cheers,
Carsten

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Frank Kolmann
Sent: 17. januar 2019 08:02
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: RPG UDDS Generic File Display/Update (Null fields in program described files)

Ok thanks Barbara, I will try again.
N
D   OPBAL N
               == snip ==


This thread ...

Replies:

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].