IBM Z Software


This portal is to open public enhancement requests against IBM Z Software products. 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.

Add a new idea Subscribe
Status Future consideration
Workspace COBOL Compilers
Categories z/OS
Created by Guest
Created on Aug 23, 2022

RELATED IDEAS

Improved storage usage when using moves to change encodings

We are using the functions display-of and national-of to dynamically change between encodings.

Like this:

MOVE FUNCTION DISPLAY-OF (

FUNCTION NATIONAL-OF (

INPUT-DATA (1:INPUT-LENGTH),

CHARSET-CCSID), 277)

TO OUTPUT-DATA (1:EXPECTED-OUTPUT-LENGTH)

INPUT-DATA and OUTPUT-DATA are located in LINKAGE section as very large PIC X variables, and are dynamically allocated, to only contain the amount of storage we need.

This code is used from Rexx in a TSO environment, and in batch environments.

In batch, we have no problems with this, but in the TSO environment, the program dumps before executing a line of code.

We found that this is because COBOL allocates a very large amount of storage, for that move statement.

This is because COBOL determines the maximum possible amount needed at compile time, and then allocates that at runtime, we dump in TSO environment.

Splitting the move into two, removes this issue.

We would request an improvement, that determines the amount of storage needed at runtime, instead of at compile time.

Thank you

Idea priority Low
  • Admin
    Basil Kanneth
    Reply
    |     Sep 29, 2022

    Thanks. This Idea is being accepted for a future release and will be updated once put into plan.

  • Guest
    Reply
    |     Sep 21, 2022 
     WORKING-STORAGE SECTION.
     01  INPUT-LENGTH      PIC 9(9) COMP-5
     01  OUTPUT-LENGTH      PIC 9(9) COMP-5
     01  WS-POINTER USAGE IS POINTER.
     LINKAGE SECTION.     
                      

     01  INPUT-DATA.       

       03 PIC X(99999).    
 

     01  OUTPUT-DATA.      

       03 PIC X(99999).    

    PROCEDURE DIVISION
    MOVE 11 TO INPUT-LENGTH
    MOVE 22 TO OUTPUT-LENGTH
    ALLOCATE INPUT-LENGTH CHARACTERS RETURNING WS-POINTER
    SET ADDRESS OF INPUT-DATA TO WS-POINTER
    ALLOCATE OUTPUT-LENGTH CHARACTERS RETURNING WS-POINTER
    SET ADDRESS OF OUTPUT-DATA TO WS-POINTER
    MOVE 'HELLO WORLD' TO INPUT-DATA
    MOVE FUNCTION DISPLAY-OF (
         FUNCTION NATIONAL-OF (
           INPUT-DATA (1:INPUT-LENGTH),
         1208), 277)
      TO OUTPUT-DATA (1:OUTPUT-LENGTH)

    *Note that 1208 is just an example here. The input to INPUT-DATA and CCSID to convert from, is received as input to the program.
  • Admin
    Basil Kanneth
    Reply
    |     Sep 20, 2022

    Hi, can you please provide the definitions of the data items and a test case that demonstrates the issue?

By clicking the "Post Comment" or "Submit Idea" button, you are agreeing to the IBM Ideas Portal Terms of Use.
Do not place IBM confidential, company confidential, or personal information into any field.