Our vBulletin migration is complete.
Welcome vBulletin users! All content and user information from the Micro Focus Forums (vBulletin) site has been migrated to this site. READ MORE.
KVBHASKAR Absent Member.
Absent Member.
417 views

Expanding cblproto.cpy in .pco program using cobsql procobol precompiler results in error pcb-s-00400

Compiling a .PCO file using procobol/cblsql using the following command line in windows

cobol test.pco noobj int(%INTPATH%) COBIDY(%IDYPATH%) LISTPATH(%LISTPATH%) inticall(oracle11) P(COBSQL) cobsqltype==Oracle NOMAKESYN end-c MODE=ANSI PICX=CHARF P(CP) SY ENDP

test.lis has PCB-S-00400 error at End Program statements of cblproto.cpy program

Any idea why this error is cropping up in cblproto.cpy in test.lis file?

Note: test.pco has cblproto.cpy in a copy statement before the start of IDENTIFICATION DIVISION

0 Likes
2 Replies
Micro Focus Expert
Micro Focus Expert

RE: Expanding cblproto.cpy in .pco program using cobsql procobol precompiler results in error pcb-s-00400

Pro*COBOL doesn't appear to support multiple source programs within the same source file. It does support nested programs but not programs like cblproto.cpy which have a separate program-id and end program header. This error will occur even if you run the procob command at the command line without having COBSQL or the COBOL compiler involved.

You would have to talk to Oracle about the apparent lack of support for this type of functionality.
The Micro Focus OpenESQL precompiler does not have a problem supporting this.

Thanks
0 Likes
KVBHASKAR Absent Member.
Absent Member.

RE: Expanding cblproto.cpy in .pco program using cobsql procobol precompiler results in error pcb-s-00400

Thanks Chris for you valuable input
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.