Rocket® COBOL

Problem: Cannot display list of Windows for screens Resolution: When AUTO RESTART is set to YES (in ds.cfg), Dialog System saves the positions of the Windows list and Controls list in DS configuration file (ds.cfg). If these list windows can't be invoked or displayed on screen: 1. Exit Dialog WB System 2. Edit DS.CFG 3. Delete WindowsList and/or ControlsList lines found in DSINIT section. 4. Save DS.CFG with changes 5. Re-load Dialog WB System When these two lines are deleted, the positions of these windows will be reset to the default positions. Note: When the Windows list is reset to default position (or first time to be set to AUTO RESTART = YES), this window will appear only with the title bar.

Problem: How do I keep the key combination of Ctrl C or ctrl break from quitting the application? Resolution: If you are using Dialog System character mode screensets, you can move a value of 4 to ds-control-param of the control block. This will keep CtrlC keystrokes from quitting the app. Making a call to X"B0" with function 4 will stop CtrlC from quitting apps that don't use Dialog screensets. Old KB# 6563

Problem: How can I get correct positioning with DISPLAY in pop up windows? Resolution: The LINE / POSITION is relative to the popup window, not the runtime window. Old KB# 6129

Problem: How do I sort relative files? Resolution: See the attached source code example. Attachments: sortrel.cbl Old KB# 6144

Problem: Do you have any split key examples? Resolution: Yes, please see the two attached source code examples. Old KB# 6145

Problem: Is there an example of how to read and write to a device? Resolution: See the attached example source code. Attachments: wrtdev.cbl Old KB# 6148

Problem: How do I print rotated text? Resolution: Use the "P$SetFont" call with the LF-EscapementParam parameter.  See attached example POrient.zip Attachments: POrient.zip Old KB# 6127

Problem: How can I use C$SCRD to create a print file? Resolution: See the attached source code example. Attachments: scrd.cbl Old KB# 6140

Problem: Is there a C$SCWR example? Resolution: See attached source code example. Attachments: scwrtest.cbl Old KB# 6142

Problem: Is there a general purpose example of RM/COBOL's built-in line draw facilities? Resolution: See attached source code example. Attachments: lin.cbl Old KB# 6135

Problem: Is there a normalize data file example? Resolution: See attached source code example. Attachments: normal.cbl Old KB# 6136

Problem: Is there a line draw graphics example? Resolution: See attached source code example. Attachments: linedraw.zip Old KB# 6133

Problem: Is there a POP-UP window demo using program and subprogram? Resolution: See the attached source code example. Attachments: windemo.zip Old KB# 6146

Problem: How do I compensate for different printer's printable area's? Resolution: See attached example (POffset.zip) Attachments: POffset.zip Old KB# 6128

Problem: How can I return a value to the O/S upon termination? Resolution: See the attached source code example. Attachments: returnc.cbl Old KB# 6138

Problem: Is there an example LINAGE clause code? Resolution: See attached example source code. Attachments: linage1.cbl Old KB# 6134

Problem: Is there a POP-UP window example? Resolution: See the attached source code example. Attachments: window.cbl Old KB# 6147

Problem: How do I correctly specify the inetd.conf entry for WOW Thin Client? Resolution: The /etc/inetd.conf (UNIX systems) entry for WOW Thin Client should read: rpcplus stream tcp nowait root /bin/sh rpcplus /usr/rmcobol/rpcstart The "rpcplus" part of this entry will show up in a process table listing (ps command). The "root" part of the entry may be changed to which ever account you wish to run the service. The beginning of the usr/rmcobol/rpcstart file (or where ever the rpcstart file is located), should have the following as the first line: #!/bin/sh Remember to do a kill -HUP on the process ID of inetd whenever you have changed the configuration file. This will save you having to reboot the system.    

Problem: How do Isearch a HEX table? Resolution: See the attached source code example. Attachments: searchx.cbl Old KB# 6143

Problem: How can I use ACCEPT to test for an escape key with a SCREEN SECTION? Resolution: See attached source code example. Attachments: scrntst.cbl Old KB# 6141

Problem: Is there an index file handling example? Resolution: See attached source code example. Attachments: ismalt.cbl Old KB# 6132

Problem: How do I send control sequences to a printer? Resolution: See attached source code example. Attachments: printest.cbl Old KB# 6137

Problem: How can I prevent or terminate disconnected WOW Thin Client Server process? Resolution: Use the Server configuration option under the [ServerConfig] section of the Server rpcplus.ini file: InactiveLimit This option specifies the maximum amount of time a server will wait for an already connected client to make another remote program call. Also, try UseKeepAlive, also in the [ServerConfig] section of the Server rpcplus.ini file. This option checks for connection terminations at the TCP/IP level. For it to work, the TCP/IP parameters KeepAliveTime and KeepAliveInterval must be set in the Windows system registry or the UNIX/Linux kernel. The Windows default is 2 hours. If you want to set a shorter time period, use regedit and go to: HKLM\\System\\Curren

Problem: Why are my bitmaps not displaying in my WOW Thin Client application? Resolution: The WOW bitmap control invokes the Windows API.  Since WOW Thin Client calls the Windows API on the client machine, any bitmap file that you wish to display needs to be accessible to the client machine. *The WOW bitmap control can use the RUNPATH environment variable/synonym to locate files on the client PC.      Old KB# 6447

Problem: Why is CALL .. ON EXCEPTION not returning a STATUS value? Resolution: The CALL .. ON EXCEPTION statement does not return a STATUS value, but does go to the exception statement, whereas, on a CALL PROGRAM .. ON EXCEPTION statement returns a 3 digit STATUS value. Old KB# 6126