Skip to Main Content
IBM Power Ideas Portal


This portal is to open public enhancement requests against IBM Power Systems products, including IBM i. To view all of your ideas submitted to IBM, create and manage groups of Ideas, or create an idea explicitly set to be either visible by all (public) or visible only to you and IBM (private), use the IBM Unified Ideas Portal (https://ideas.ibm.com).


Shape the future of IBM!

We invite you to shape the future of IBM, including product roadmaps, by submitting ideas that matter to you the most. Here's how it works:

Search existing ideas

Start by searching and reviewing ideas and requests to enhance a product or service. Take a look at ideas others have posted, and add a comment, vote, or subscribe to updates on them if they matter to you. If you can't find what you are looking for,

Post your ideas
  1. Post an idea.

  2. Get feedback from the IBM team and other customers to refine your idea.

  3. Follow the idea through the IBM Ideas process.


Specific links you will want to bookmark for future use

Welcome to the IBM Ideas Portal (https://www.ibm.com/ideas) - Use this site to find out additional information and details about the IBM Ideas process and statuses.

IBM Unified Ideas Portal (https://ideas.ibm.com) - Use this site to view all of your ideas, create new ideas for any IBM product, or search for ideas across all of IBM.

ideasibm@us.ibm.com - Use this email to suggest enhancements to the Ideas process or request help from IBM for submitting your Ideas.

Status Future consideration
Workspace IBM i
Categories Languages - RPG
Created by Guest
Created on Jul 25, 2023

Replicate on RPGLE the cobol 88 Level

The 88 level number is not used to declare a variable, but it is used to provide a descriptive name for a condition, used to improve the readability of COBOL programs.

In RPG can be coded e.g. as

dcl-s flag char(1);

dcl-s flag_on referer(flag) value 'Y';

dcl-s flag_off referer(flag) value 'N';



[if flag_on] means [if flag = 'Y']



[flag=flag_on;] // set flag to 'Y'


Idea priority Low
  • Guest
    Reply
    |
    Oct 19, 2023
    IBM will use this Idea as input to planning, but no commitment is made or implied. This Idea will be updated in the future if IBM implements it. IBM will use votes and comments from others in the community to help prioritize this Idea.

    In the future, RPG may support defining a variable LIKE an enumeration, as described in Idea IBMI-I-2902 (https://ibm-power-systems.ideas.ibm.com/ideas/IBMI-I-2902), in the comment about a "typed enum" from Oct 14, 2020.

    If that additional aspect of enumerations is implemented, then this Idea could also be implemented, with the following possible support:

    dcl-enum good_bad varchar(20);
    good 'good';
    bad 'bad';
    end-enum;
    dcl-something like(good_bad);

    something = good;

    After the assignment of "good" to "something" ...
    if not something.bad;
    would mean the same as this:
    if something <> bad;

    - IBM Power Systems Development
  • Guest
    Reply
    |
    Sep 26, 2023

    Maybe combine this with an enum-like construct?

    dcl-enum something varchar(20) qualified;
    good index(1) value('good');
    bad index(2) value('bad');
    end-enum;

    something = good;

    if not something.bad;
    // ....
    endif;


    That would work for both.

  • Guest
    Reply
    |
    Aug 18, 2023
    IBM has received your Idea and is evaluating it.

    IBM will use votes and comments from others in the community to help evaluate this Idea.

    IBM will provide a response after evaluation is complete.

    - IBM Power Systems Development
  • Guest
    Reply
    |
    Jul 26, 2023

    Today to accomplish this you have to either:

    1. Define FLAG-ON and FLAG-OFF as constants, then use IF FLAG = FLAG-ON/OFF instead of IF FLAG-ON/OFF; or

    2. Define FLAG-ON and FLAG-OFF as indicators (booleans) and set them with FLAG-ON/OFF = (FLAG = 'Y'/'N'), then use IF FLAG-ON/OFF; although the indicator won't get reset if the value of FLAG changes like the 88 level does in COBOL.