|
|
| Author |
Message |
shuklas
New User
Joined: 21 Dec 2006
Posts: 18
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 |
|
 |
References
|
 Posted: Tue May 06, 2008 11:35 pm Post subject: Re: Primary BLL in IF clause |
|
|
|
|
Bill O'Boyle
Active User
Joined: 14 Jan 2008
Posts: 294
Location: Orlando, FL, 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: 18
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 |
|
|
|
|
