I don't know how important it is to you to use these intrinsics, but if it was me I would just do plain old COBOL Open and Close statements, right out of the COBOL manual. They always worked for me for about anything I needed. I have always considered using those intrinsics as doing it the hard way, unnecessarily, unless there is just some reason that you absolutely cannot use the COBOL statements, and I don't recall any situation like that where it just had to be done that way.
________________________________
From: John Pollard <[log in to unmask]>
To: [log in to unmask]
Sent: Tuesday, June 19, 2012 9:15 AM
Subject: [HP3000-L] Cobol: Cobol and HPFOPEN
I'm working on a small project. The idea is to write a Cobol program that can open (and read from and write to) most file types without hard-coding file information into the program. To do that, I chose to use intrinsics to open, read, and write data. To oversimplify: the program would open an input file, create an output file with the same characteristics as the input file, then write some, all (or none) of the input records to the output file.
I've run into a couple of problems that I can't seem to find answers to, and I'm hoping someone can educate me.
1.) Variable record length files. I tried opening a variable record length Cobol source file created by Editor, creating a new variable length output file, and writing the input records to the output file. I got most of what I wanted, but was unable to reproduce the same "file limit" for the output file as I had in the input file (I wound up with the "limit" equal to the end-of-file). I thought the file limit would be set using HPFOPEN item 35, which says: "For variable-length records, the capacity is expressed in blocks (blockitem#=recordsize * blockfactor)". I can't seem to find any input file information that fits that formula and produces an output file limit that matches the input file limit.
2.) KSAM files. My first attempt used a native mode KSAM file as input. When I try to open the output file using HPFOPEN, I get an error; the "status.info" returns a -183. I used the program ERR.PUB.TELESUP to try to determine the meaning of that error, which it says is "RECORD DOES NOT CONTAIN ALL KEYS (FSERR 183)". Usually when I get that error in a typical Cobol program it's because I tried to write a record that was too short, and it truncated some of
the key data. But this error is occurring when I try to open the output file and the output record length seems to be the same as the input record length (when I let the program create a flat output file from the KSAM input file, the output record length matches the input record length and all the data appears to get successfully written).
[I got the KSAM key information using the FLABELINFO intrinsic on the input file. I checked the key definitions I received from FLABELINFO and they appear to be correct. Then I used HPFOPEN item 54 to pass that same KSAM key info to the new output KSAM file.]
3.) Should I consistently set the output "file code" to match the input "file code"? Are there some input characteristics that I should not try to set for the output file?
4.) Are there any "gotcha's" that I should be aware of for this project?
5.) Indirectly related to this project is the fact that I can no longer find documentation for the HP3000. I was not keeping up with events for a couple of years, and my old Internet Explorer links to documentation at an HP web site became unusable. I have managed, on occasion, to find a couple of PDF files with useful documentation, but my library is still missing some "manuals". Is there a site where I can find all the HP3000 documentation - presumably PDF files of that documentation? Among other things, I was hoping there was some better info on error 183 when opening KSAM files (I can't find anything in the Intrinsics manual).
From a SHOWME: RELEASE: C.75.00 MPE/iX HP31900 C.45.05 USER VERSION: C.75.00
From a compile: COBOL II/iX HP31500A.04.21 [85]
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
