You could use the ALLOW-DATE-TIME-OVERRIDE compiler configuration in conjunction with the RM_Y2K environment variable. See Chapter 10 of the RM/COBOL User's Guide for more information.
ALLOW-DATE-TIME-OVERRIDE. This keyword assists in testing for Year
2000 (Y2K) and other date/time problems...
Vitor,
Use this calculation to set a font to a specific point size. This is from the pexample.cbl program in the samples directory.
Set-Default-Font.
*
** Set Default Font Name and Height **
*
CALL "P$GetDeviceCapabilities" Using DC-LogicalPixelsYParam...
As Tom mentioned the problem has to do with the way Microsoft handles write-caching to disk drives.
I got a hotfix from http://www.citrix4ge.de/w2ksp4.htm Search for "DSKCACHE.EXE" on this page. The Dskcache.exe Tool is used to Configure the "Power Protected" Write Cache Option.
Microsoft's...
Webrabbit you are right!
"You should Preview your post before Subitting [sic] it." [smile]
Yeah, I noticed I had the slash wrong. I was previewing the post when I pushed the wrong button and submited the post instead of editing it. I hate it when that happens.
Tom's code is likely faster...
David,
Another way to find the SSN in the record would be to use the LIKE condition. This is a RM/COBOL extension that was included in version 7.50. Below is sample with some test data, give it a try.
[code]
IDENTIFICATION DIVISION.
PROGRAM-ID. SSN.
AUTHOR...
Hi Hammy,
Is this client/server or simply the DBMS?
If it is client/server is the customer is doing this on a slower network (like a 10Mb vs. 100Mb – there’s a 10 to 1 right there).
It looks like the easiest thing to do is disable the virus checker to see if that makes a difference...
Those two blanks you are seeing are the length of the parameter passed in with the A= command line option. They are not blanks, they are a two-byte binary number. See Chapter 7 of the RM/COBOL User's guide.
Try something like this:
01 WS-FILE-ARGUMENT.
02...
David,
Are you running on a Linux that allows large files (e.g. Linux 7.3 or higher)? Are you using the version of RM/COBOL for Large File Linux? The runtime banner will tell you this.
If the version of Linux you are running does not allow large files then the version of RM/COBOL you are...
David,
The RM/COBOL Version 8 User's Guide
http://www.liant.us/download/pdf/rmcug80.pdf
94, 67 - The file is too large. An attempt was made to open a file that is too large for this system. The file was probably created on another system using the LARGE-FILE-LOCK-LIMIT configuration keyword...
David,
You could use the od command to dump the file.
od -x (or -c) <file> | more
I think your problem is that the file is LINE SEQUENTIAL. TAB characters are not going to be read in. They will be changed to one or more spaces.
Another thing you can do is compile the program with Y...
Hi Zalmanp,
WOW! RM/COBOL 1.5D still running after 21 years! You've upgrade your operating systems a few times in the past two decades, maybe it's time to upgrade to version RM/COBOL 8.01 for 32-Bit Windows.
You will have to do some conversion to get from COBOL-74 to COBOL-85 but I think it...
David,
If your version of RM/COBOL is 7.50 or higher you could try using input pipes. I also used the RENAME internal subprogram to move the files to a different directory. Hope this helps.
-Robert Heady
Liant Software Corp.
[code]
IDENTIFICATION DIVISION.
PROGRAM-ID...
Hi David,
This won't be a solution to your particular problem but I think you might find it useful in the future. One of the new features in RM/COBOL version 8.00 is the use of Concatenation Expressions. See page 1-18 of the RM/COBOL v8.0 Language Reference Manual.
These expressions may be...
David,
I believe you have to have a process reading the other end of the pipe when you open it output. I have duplicated your behavior with RM/COBOL, MicroFocus COBOL, a C program and with UNIX shell commands.
For example, create a named pipe,
mknod pipefile p
Send something to it...
Try using the virtual key mappings that are available in 7.50. This configuration works for me.
-Rob
TERM-INTERFACE WINDOWS
/* Multiple Data-Character Definitions.
/* Example of new virtual key mapping names in version 7.50
/* remove period (46) and plus (43) from data-characters.
TERM-ATTR...
Hi PB1111,
Just out of curiosity, what does the RM/COBOL runtime banner have for a version number and platform? I cannot believe that a version of RM/COBOL from 1986 is binary compatible with AIX 4.x on a RS/6000.
The earliest version of RM/COBOL that ran on a RS/6000 was 4.06 and was...
Hi Ron,
Without the source, this would be a tough assignment, even for an experienced COBOL programmer.
See if you have a utility named 'rmmapinx.cob'. This utility will identify if the file is an indexed file and tell you, among other things, how many records are in the file. To execute...
If you are running RM/COBOL version 6.61 (or later) the following compiler configuration option may be of use.
COMPILER-OPTIONS ALLOW-DATE-TIME-OVERRIDE=YES
Compiling your programs with this option and then use the RM_Y2K environment variable to set the desired date and time...
I'm not quite sure what you are asking. The most efficient way to access files is by their complete pathname. If you know their complete pathname you can enter them into the registry by using the ini2reg.exe utility.
For example: ini2reg.exe c:\mydata\runcobol.ini
where runcobol.ini includes...
Saphyr,
It has been a long time since I worked on an AS/400 (14 years) but I have many memories of getting calls in the middle of the night from the computer operator telling me that the night run died with an MC1202.
Are you absolutely positively sure that those two numeric fields you are...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.