I am compiling my MF Cobol Programs that do not give me this error when I compile them on MF COBOL Visual COBOL version PTI=Micro Focus Visual COBOL Development Hub 5.0 - Patch Update 07.
I have a copy Library LIB/COMPFI.FN which is a Filename Definition.
I have included the contents below:
This is included in an 01-level item in the Working Storage section called Filename-Table-1.
the last item that has a value of 052, is because any of my files on a system that are COMPANY code dependent, the company code is passed in and a separate program called FILSET is run that looks at this last value of 052, and knows that in the COMP-FIL-ID, position 5 you are to replace with the 2 digit Company code.
This logic has been used since the inception of CDMS software which was initially based on REAL WORLD accounting package in 1982. This compiled fine back on the day on COB-77 on the PDP-11, COBOL-85 on the VMS 5.1, and MF Cobol version 3.259, from circa 1990, and still used on any SCO platform, and MF Visual Cobol 5 Update 7. It compiles just fine.
I have attached the files COMPFI.FN which is stored in a directory called LIB and the FILSET.SUB program that processes these company code specific files.
The context is missing. Can you please produce a complete listing with -T bad.lst and upload that (potentially with a minimized program) and/or provide the full compilation line + output?
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
The context is missing. Can you please produce a complete listing with -T
bad.lst and upload that (potentially with a minimized program) and/or
provide the full compilation line + output?
I am compiling my MF Cobol Programs that do not give me this error when I compile them on MF COBOL Visual COBOL version PTI=Micro Focus Visual COBOL Development Hub 5.0 - Patch Update 07.
I have a copy Library LIB/COMPFI.FN which is a Filename Definition.
I have included the contents below:
This is included in an 01-level item in the Working Storage section called Filename-Table-1.
the last item that has a value of 052, is because any of my files on a system that are COMPANY code dependent, the company code is passed in and a separate program called FILSET is run that looks at this last value of 052, and knows that in the COMP-FIL-ID, position 5 you are to replace with the 2 digit Company code.
This logic has been used since the inception of CDMS software which was initially based on REAL WORLD accounting package in 1982. This compiled fine back on the day on COB-77 on the PDP-11, COBOL-85 on the VMS 5.1, and MF Cobol version 3.259, from circa 1990, and still used on any SCO platform, and MF Visual Cobol 5 Update 7. It compiles just fine.
I have attached the files COMPFI.FN which is stored in a directory called LIB and the FILSET.SUB program that processes these company code specific files.
Last edit: Simon Sobisch 2024-04-03
The context is missing. Can you please produce a complete listing with
-T bad.lstand upload that (potentially with a minimized program) and/or provide the full compilation line + output?I will do this when I return. I will just create a minimal program that
opens and closes the file but calls FILSET.
On Wed, Apr 3, 2024, 1:18 PM Simon Sobisch sf-mensch@users.sourceforge.net
wrote: