The following example demonstrate that moving three bytes string ( '01' '99' and '6D' ) into a System.String we lose the byte containing '99' (actually any byte with a value greather than '7F').
IDENTIFICATION DIVISION.
PROGRAM-ID. Program1 AS "Application1.Program1"...
I'M TRYING TO MOVE A RECORD STRING (SYSTEM.STRING) COMPOSED PARTIALLY FROM ESCAPED SEQUENCE, TO A COBOL GROUP ITEM STRUCTURE (REC-TAB) WITH COMP3 DATA ITEM.
I UNDERSTAND THE COMP3 COMPRESSION MECHANISM BUT I HAVE SOME PROBLEM WITH COBOL VALUE ASSIGNAMENT.
WITH HEX CHAR LOWER THAN "7F"...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.