× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. January 2019

Free format question on D specs

  • Subject: Free format question on D specs
  • From: Thomas Burrows <thomas.burrows.1957@xxxxxxxxx>
  • Date: Thu, 24 Jan 2019 19:17:39 -0600
  • Arc-authentication-results: i=1; mx.google.com; dkim=pass header.i=@gmail.com header.s=20161025 header.b=VmdraWVI; spf=pass (google.com: domain of thomas.burrows.1957@xxxxxxxxx designates 209.85.220.41 as permitted sender) smtp.mailfrom=thomas.burrows.1957@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=to:subject:message-id:date:from:mime-version:dkim-signature; bh=hImdY/jPR45ei1DSntWpQKFqYRBqrCUxACqpweiNe9g=; b=n7sVP+g8Zu2rPv5f/G7mkUONSekWH/FdLbsyVX+OgD2aTRnc3a6x/EIOjtMToljfV6 +t/3LDoN3f1evNGdgFJvbObunzgLnw2W2mpvIkEEkVwyLCV3lL7Thic6WlOpJu96ibQJ XJUFzR60WWJaabs3L6ro0L+O6yEJyCumfaJl1YjtQR+4dxSlNg1YSAdAGSDB+6ZyI2Ka ILa+ehJpIiGQJmC3LTYQRoxOoWqBcJ1OOgjDUUVZeHy1Kfg1xdjBWH3exYRctrtYSMKv A0/fwbyPSklI+IWLlO0nGktMH0OnqELnTUsvh+Iur+erOFnmD1BCApKeVwXPSHzQhKFj 25kQ==
  • Arc-seal: i=1; a=rsa-sha256; t=1548379066; cv=none; d=google.com; s=arc-20160816; b=Uso9qY1d+FssGsjhsN0PWNPBLdckTxdpVamWXWlrOdvzMdWJxdOHPROS+Kjez4qmjT pHCDc96E6aTm4bilC+FYxs3KCZ7K2WomKbyOp9i1MVkcgh2BwCRYcNWzymF3xrp1iccr 97u5jfxsxa21zS9e/nZgYVUd0MOuqvpMkssFecFUhc0cSvJOSl+Rq/QQoAeUVoPKHZyK +FkoGBQqXm23W9JYHcDK7+xWCDpOiMNA1NhcEr3u/HJwCojud+e+FStoiF0HdyE95NLa gyKdANbnLFqmizkMv1Ef1kbshXrX1B7SDAtXd2iVLR/9SNzH0F9aOh9cD/A8dk3FWLCc bUbg==
  • 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>
I have the following.

Dcl-s x_yes char(01);
Dcl-s x_no char(01);

How do I get x_yes set to 'Y' and x_no set to 'N';

Then I have the following if statement.

if xzstas <> x_yes or x_no;

xzstas is an alpha A1.

I am getting a RNF7421.

What is wrong with my operation? I am supposing the "<>" is not correct.

Thomas

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.