View previous topic :: View next topic
|
Author |
Message |
shuklas
New User
Joined: 21 Dec 2006 Posts: 20 Location: London
|
|
|
|
Hi,
I am doing a conversion from VS COBOL to z/OS COBOL 390.
In my program I have a Primary BLL which is present in IF clause and when I run the CCCA tool it flagged it as error and this require manual conversion.
Scenario is as follows:
IF BLL-DDC Not = 0
AND BLL-DDC = TWA-BLL-DDC
Perform Read-file-Section
How could I change this primary BLL to address as BLL are not supported by Z/OS COBOL 390. |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
I'm going to take a guess and say -
(OS/VS COBOL)
Code: |
IF BLL-DDC Not = 0
AND BLL-DDC = TWA-BLL-DDC
|
that BLL-DDC is the old style BLL (binary-fullword) defined to each 4K chunk of data in LINKAGE with (for example) an 01 level named BLL-DDC-DATA and another 01 level named TWA-BLL-DDC-DATA -
(COBOL2 or greater)
Code: |
IF (ADDRESS OF BLL-DDC-DATA NOT = NULL
AND ADDRESS OF BLL-DDC-DATA = ADDRESS OF TWA-BLL-DDC-DATA)
|
HTH....
Regards,
Bill |
|
Back to top |
|
|
shuklas
New User
Joined: 21 Dec 2006 Posts: 20 Location: London
|
|
|
|
Hi Bill,
THanks for the advice.
I did solve the problem by making use of the pointer variable which is a redefine of S9(8) COMP variable in working storage as 77 level variable.
I set the pointer variable TO Address of DDC-RECORD
and then checked if the COMP variable is Not = 0
Example.
77 WS-ADDR-COMP PIC S9(8) COMP.
77 WS-ADDR-PNTR REDEFINES WS-ADDR-COMP
USAGE POINTER.
SET WS-ADDR-PNTR TO ADDRESS OF DDC-RECORD.
IF WS-ADDR-COMP Not = 0
This had solved my problem. |
|
Back to top |
|
|
|