Skip to main content
Question

ImageCtl in Dialog System V3

  • August 12, 2026
  • 7 replies
  • 70 views

infodynamicsrene

The PICTURE-01-OBJREF is being used by my 1st image (and it is automatically resizing) using the “ImageCtl” program. The problem is I have 2nd image (JPG/BMP) on the same window, I already change the value of IO-Text-Buffer but it not showing and messing my 1st image.

Any sample code that will display an image (BMP/JPG) in the same window when created/showed?

 

7 replies

infodynamicsrene
  • Author
  • Participating Frequently
  • August 12, 2026

Follow up to my question, my screen is initialized as;

       *

       * This CALLOUT enables Dynamic Window Sizing

       * and multiple resolution support

           CALLOUT-PARAMETER 1 CONFIG-FLAG $NULL ;

           CALLOUT-PARAMETER 2 CONFIG-VALUE $NULL ;

           MOVE 9 CONFIG-FLAG ;

           MOVE 3 CONFIG-VALUE ;

       *// MOVE 5 CONFIG-VALUE

           CALLOUT "dsrtcfg" 3 $PARMLIST ;

 


infodynamicsrene
  • Author
  • Participating Frequently
  • August 12, 2026

Additionally, I am executing the SET-PICTURE procedure as below. The RETC part is where I am changing the value of image (BMP/JPG) in IO-TEXT-BUFFER before invoking the CALLOUT.

SET-PICTURE

   MOVE 6 MENU-VAR

   RETC

   SET OBJECT-REFERENCE(1) PICTURE-01-OBJREF

   MOVE “SET-PICTURE” CALL-FUNCTION(1)

   CALLOUT “imageCtl” 0 $NULL

 


Chris Glazier
Forum|alt.badge.img+4

Have you tried to generate a 2nd control program for the 2nd image, i.e. imageCtl2.cbl?


infodynamicsrene
  • Author
  • Participating Frequently
  • August 13, 2026

Yes, actually I did that. I created a new “imageJpg.CBL” copied from imageCtl.CBL. I also change the value of TEXT-IO-BUFFER for it and in Dialog System. However used the same PICTURE-01-OBJREF, do I need to create another OBJ-REF (say PICTURE-02-OBJREF)?

 


infodynamicsrene
  • Author
  • Participating Frequently
  • August 13, 2026

Tried adding another OBJ-REF (and .CPB) and recompiled it, it returned “808-S Maximum number of data items exceeded.” so I remove RICHTEXT-01-OBJREF (and some unnecessary Dialog System variables) just to refresh the .CPB file but the error still exist. The linkage Data-Block variable is currently 130562Bytes. Does MERANT NetExpress V3.1 have compiler settings to be adjusted here?

 


infodynamicsrene
  • Author
  • Participating Frequently
  • August 13, 2026

Concerning the above error anyway. Transferred my MERANT NetExpress from Windows 7 to Windows 11. Been using the MERANT NetExpress v3.1 for my OOCobol online solutions  (COM+/browser-based systems) now. I am planning to share one of my product as an open-source type (via Github) to every Cobol programmers and everyone to understand how Cobol now progresses from the usual GUI to browser-based systems.


Chris Glazier
Forum|alt.badge.img+4

Net Express 3.1 has not been supported in over 25 years and had never been tested on anything above Windows XP, if I remember correctly.

The error you are receiving is a compiler error, not a Dialog System error.
This is referring to total number of data items including all of working-storage.

Docs for this state:

The compiled program contains more than 64,000 data items.

Resolution:

Reduce the number of data items then recompile your program.