Hi,
We are trying to execute the below code, but 6.4 version is throwing SOC7, whereas 2.2 version is running fine. I wanted to know is there any doc which explain this case...!
Prog code is as follows.
Working storage section.
01 WS-COMP3-VAR.
05 WS-COMP3-VAR1 PIC S9(7) COMP-3.
01 WS-NOR-VAR PIC 9(7).
PROCEDURE DIVISION.
MOVE HIGH-VALUES TO WS-COMP3-VAR. --> High values are moved to group variable
MOVE WS-COMP3-VAR1 TO WS-NOR-VAR --> COMP-3 variable is moving to normal variable causing SOC7.
Compilation is fine - no waning message or so. But the execution is causing SOC7 in 6.4 version only. in 2.2 version it is working fine.
Actually, we have a proj running to upgrade cobol ver from 2.2 to 6.4.
any details on this will be helpful.
Moving High-Values from Comp-3 - COBOL Ver 6.4
- sergeyken
- Posts: 458
- Joined: Wed Jul 24, 2019 10:12 pm
- Skillset: Assembler, JCL, Utilities, PL/I, C/C++, DB2, SQL, REXX, COBOL, etc. etc. etc.
- Referer: Internet search
Re: Moving High-Values from Comp-3 - COBOL Ver 6.4
Generally speaking, in IBM COBOL the HIGH-VALUES are physically incompatible with COMP-3 data type.
What is the need for you to move this value to COMP-3 field?
My opinion: it makes absolutely no sense, to code such useless tricks. Unless your goal is: investigation of tricks and gimmicks of COBOL compiler versions...
P.S.
Learn how to use the Code button
What is the need for you to move this value to COMP-3 field?

My opinion: it makes absolutely no sense, to code such useless tricks. Unless your goal is: investigation of tricks and gimmicks of COBOL compiler versions...
P.S.
Learn how to use the Code button
Code: Select all
when posting your code and data samples
Javas and Pythons come and go, but JCL and SORT stay forever.
-
- Similar Topics
- Replies
- Views
- Last post
-
-
Recatalog Error:Moving a dataset entry from one cat to other
by gselvasridharan » Fri Apr 07, 2023 1:33 pm » in VSAM/SMS - 3
- 4860
-
by gselvasridharan
View the latest post
Mon Apr 10, 2023 12:58 pm
-
-
- 3
- 5863
-
by sergeyken
View the latest post
Sat Dec 10, 2022 2:30 am
-
- 5
- 2688
-
by sergeyken
View the latest post
Thu Feb 25, 2021 8:19 pm
-
- 1
- 1753
-
by sergeyken
View the latest post
Fri Mar 26, 2021 11:59 pm
-
- 2
- 4415
-
by sergeyken
View the latest post
Sat Nov 11, 2023 3:01 am