Performing a binary OR in COBOL with Pic X data -

-

There are several flags defined by me (by a header file out of my control) that looks like this: 

  * * OPTVAL field for IPV6_ADDR_PREFERENCES_FLAGS * 01 IPv6-ADDR-favorite-flag PIC X (4). * * IPV6_ADDR_PREFERENCES_FLAGS mapping * 77 IPv6-Preefr-SRC-Home PIC X (4) VALUE X'0000000l '77 IPv6-Preefr-SRC-CoA PIC X (4) VALUE X'00000002' 77 IPv6-Preefr-SRC -timpi PIC X (4) VALUE X'00000004 '77 IPv6-Preefr-SRC-public PIC X (4) VALUE X'00000008' 77 IPv6-Preefr-SRC-CGA PIC X (4) VALUE X'000000l0 ' 77 IPv6-PEEPER-SRC-NONKAZI PIC X (4) VALUE X'00000020 '

I would like to see some of these flags binary or Need to Rshn, and I have a simple way of'm wondering if that is I do not know. Is there a simple keyword or syntax that considers my program as a binary value and lets me do my math, or is this header file completely broken?

I would have written this library poorly if you used a low-level library for the use of COBOL If you want to write, you should take the data type which is easy to manipulate in COBOL. In this case, a cocktail item representing a long-term (S 9 (9)) vibration will be easy to cope with COBOL.

Assuming you call these values ​​together To reduce the Livelihood, you can only combine them together to achieve flag values, because this works because there is a bit set in each constant.

Rearrange a temporary area You can either take advantage of the type of cobol or the lack of safety and can send them to a sub-program for operation. The following will work on VMS COBOL: 

  Identification Department program ID.SAMPLEOR.Data division work-collection section * IPV6_ADDR_PREFERENCES_FLAGS * 01 IPv 6-ADDR-Favorite-FPS OPICAL field for PIC X (4). * * IPV6_ADDR_PREFERENCES_FLAGS Mapping * 77Ivv 6-Prefer-SRC-HomePIC X ( 4) VALUE X'0 0000001 "77 IPv6-Preefr-SRC-CoA PIC X (4) VALUE X'00000002 '77 IPv6-Preefr-SRC-TMP PIC X (4) VALUE X'00000004' 77 IPv6-Preefr-SRC-public PIC X (4) VALUE X'00000008 '77 IPv6-Preefr-SRC-CGA PIC X (4) VALUE X'00000010' 77 IPv6-Preefr-SRC-Nonkaji PIC X (4) VALUE X'00000020 'process Division 1 IPv6-Prefer-SRC-Home IPv6-Prefer-SRC-COA IPv6-ADDR-Preferences-Flags Abuse can call "Biniyriyr". Call "Banner" using IPv 6-Prefer-SRC-Public IPv6-ADDR-Prefence-Flags IPv6-ADDR-Preferences-Flags. If the IPv6-ADDR-favorite-flag not = X'0000000B 'DISPLAY "Failure" END- If the End Program Sampler Identification Division Program ID BINARYOR Data Division Work-Storage Section Link Section 01 ARG 1 PIC S 9 (9) Comp 01 ARG 2 PIC S 9 (9) Comp 01 Results Picture S9 (9) Component ARG 1 ARG 2 Precinct Division using the result 1. ARG1 To get results from ARG2 And program banner

If this is not working, you will need to represent the binary item of your COBOL platform to do the right kinds of work.

I have reduced very few things (too many) in COBOL (many decades ago). Usually, you can work it out, but at some point it becomes difficult and worth the trouble No. At that point, it pays to call a language (such as C) which is better suited for the passing bits.


Comments

Post a Comment

Popular posts from this blog

c++ - Linux and clipboard -

-
After selecting the copies of the buffer in Linux, after the text, we can click and paste the button between the mouse. I think there is a special buffer for this, I want to use it. Programming Language: C ++ Your Library: Qt Thanks. There is just one more correct answer than Paul Dixon, which answers your needs: / P > QClipboard * clipboard = QApplication :: clipboard (); CastString Selected Text = Clipboard-> Text (QClipboard :: Selection);
Read more

What is expire header and how to achive them in ASP.NET and PHP? -

-
I have examined the performance statistics of my website today. I have received a warning (or error may occur) that is given below Add Terminal Headers Here are 15 static components without a 15-futures end date * (no end) Http://www.example.com/video/css/global.css * (no time limit) http://www.example.com/video/js/global.js * (no expiration ) Http: //www.example.com/video/images/main-bg.png what it means and how to achieve it both in PHP and ASP.Net. I am on a shared hosting server, so please tell me some ways to use the code, because I can not make any modifications at the end of the server. If I expire the header, then there is no chance that if I make changes to the CSS, then the user will not be able to remove them immediately because CSS and other files have a fixed time limit (1 month, week ) Are cached for. Is Is there any harm to using PHP? $ time = time () + 3 * 24 * 60 * 60; // 3 day headings ('End:'. GMDAT ('D, D MYH: i: s \ g \ m \ t',
Read more

sql server - How can I determine which of my SQL 2005 statistics are unused? -

-
After a few years, one of my biggest databases has deposited 73 figures out of its largest tables. With Indexes, I can run many types of reports and queries, how often / heavily specific indexes are used. What is an equivalent for data? We are running SQL 2005. To make statistics automatically managed and honest, I would like to "update statistics", "create statistics" and There is no information about any management except "drop statistics" orders. In theory, UPDATE should handle the addition and removal of statistical data. In addition, I've never heard about the amount of storage or storage taking in large amounts, so I'm not sure whether there is any reason for the alarm or not. If you are seeing a potential problem, then I would suggest running an update before, if it does not clean it, it is leaving and then it appears to be safe operation (because it is the only query optimizer Is for). I will not leave "left" in the
Read more