Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Primary BLL in IF clause

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
shuklas

New User


Joined: 21 Dec 2006
Posts: 20
Location: London

PostPosted: Tue May 06, 2008 11:35 pm    Post subject: Primary BLL in IF clause
Reply with quote

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
View user's profile Send private message

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Wed May 07, 2008 2:56 am    Post subject: Re: Primary BLL in IF clause
Reply with quote

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
View user's profile Send private message
shuklas

New User


Joined: 21 Dec 2006
Posts: 20
Location: London

PostPosted: Thu May 08, 2008 1:13 am    Post subject: Reply to: Primary BLL in IF clause
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need help on SQL Dynamic WHERE Clause subratarec DB2 12 Sat Jul 16, 2016 3:11 pm
No new posts SFTP to primary and secondary servers mallik4u JCL & VSAM 4 Tue Jun 07, 2016 12:52 pm
No new posts [SQL0029] INTO clause missing from em... HABBIE DB2 2 Fri Sep 04, 2015 3:54 pm
No new posts 3-D Table with nested DEPENDING ON Cl... VivekKhanna COBOL Programming 5 Sat Aug 08, 2015 11:18 pm
No new posts when=group clause: question about the... tuxama DFSORT/ICETOOL 2 Thu Mar 26, 2015 12:51 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us