[Info-vax] Calling $CREPRC in COBOL

[Craig A. Berry]

On 6/10/22 1:16 PM, Craig A. Berry wrote:
> On 6/10/22 12:39 PM, VAXman- at SendSpamHere.ORG wrote:
>>    10  ENQ-TYPE      PIC X(1)  VALUE EXTERNAL PQL$_ENQLM.
>> ..............^
>> %COBOL-E-EXTREFVAL, VALUE EXTERNAL clause ignored - valid only on COMP
>> data-item
>>
>> How do you put PQL$ items in to a COBOL "byte"?
> 
> I never knew much COBOL and haven't looked at any in decades, but I
> would think for a one-byte integer it would be "PIC 9(1)" rather than
> "PIC X(1)".

And based on an error message telling you to use COMP, perhaps follow
its advice?  Something like this:

ENQ-TYPE PIC 9(1) USAGE IS COMP VALUE EXTERNAL PQL$_ENQLM.

just a guess from a non-COBOL person.