In RM-COBOL Liant\MicroFocus gave us a program to Print USPS Barcodes. (I have attached it to this question). Is there a way to do this with Visual COBOL?
I have been trying to compile the program with the RM Directive AND nestcall - but I keep getting errors on routines like the one below. The error is it doesn't like the "count of bit-value".
set cbt-char to char-inx
perform varying cbt-bit from 1 by 1
until cbt-bit > count of bit-value
call "C$LogicalAnd" using bit-value (cbt-char, cbt-bit), test-result
call "C$LogicalShiftRight" using test-result
bit-value is defined as
01 character-bit-table binary(1).
02 occurs 10 indexed by cbt-char.
03 bit-value pic 9 occurs 13 indexed by cbt-bit.
*> note: LSB is bit-value (n, 1)
*> USB is bit-value (n, 13)
Here is the link to the RM-COBOL Page about printing USPS Barcodes