StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>I would consider this library poorly written. If you're going to write a low-level library for use by COBOL, you should pick data types that are easier for COBOL to manipulate. In this case, a COMP item representing a longword (S9(9) COMP) would be easier for COBOL to cope with.</p> <p>Assuming you're OR-ing these values together to make a call to a lower-level library, you could just add them together to get the flag values. This works because each constant has a single bit set. </p> <p>You could move the constants to a temporary redefines area, or take advantage of COBOL's lack of type safety and pass them to a sub program for the operation. The following would work on VMS COBOL: </p> <pre><code>IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLEOR. DATA DIVISION. WORKING-STORAGE SECTION. * * OPTVAL field for IPV6_ADDR_PREFERENCES_FLAGS * 01 IPV6-ADDR-PREFERENCES-FLAGS PIC X(4). * * IPV6_ADDR_PREFERENCES_FLAGS mappings * 77 IPV6-PREFER-SRC-HOME PIC X(4) VALUE X'00000001'. 77 IPV6-PREFER-SRC-COA PIC X(4) VALUE X'00000002'. 77 IPV6-PREFER-SRC-TMP PIC X(4) VALUE X'00000004'. 77 IPV6-PREFER-SRC-PUBLIC PIC X(4) VALUE X'00000008'. 77 IPV6-PREFER-SRC-CGA PIC X(4) VALUE X'00000010'. 77 IPV6-PREFER-SRC-NONCGA PIC X(4) VALUE X'00000020'. PROCEDURE DIVISION. 1. CALL "BINARYOR" USING IPV6-PREFER-SRC-HOME IPV6-PREFER-SRC-COA IPV6-ADDR-PREFERENCES-FLAGS. CALL "BINARYOR" USING IPV6-PREFER-SRC-PUBLIC IPV6-ADDR-PREFERENCES-FLAGS IPV6-ADDR-PREFERENCES-FLAGS. IF IPV6-ADDR-PREFERENCES-FLAGS NOT = X'0000000B' DISPLAY "Failure" END-IF. END PROGRAM SAMPLEOR. IDENTIFICATION DIVISION. PROGRAM-ID. BINARYOR. DATA DIVISION. WORKING-STORAGE SECTION. LINKAGE SECTION. 01 ARG1 PIC S9(9) COMP. 01 ARG2 PIC S9(9) COMP. 01 RESULT PIC S9(9) COMP. PROCEDURE DIVISION USING ARG1 ARG2 RESULT. 1. ADD ARG1 TO ARG2 GIVING RESULT. END PROGRAM BINARYOR. </code></pre> <p>If this doesn't work, then you'll need to study your COBOL platform's representation of binary items to work out the correct types. </p> <p>I've done plenty of (too much probably) lower level things in COBOL (decades ago). Usually, you can work it out. But at some point it becomes too hard and not worth the trouble. At that point it pays to call out to a language (like C) that is better suited to twiddling bits. </p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload