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
 

 

Bit level Information

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

New User


Joined: 11 Sep 2008
Posts: 29
Location: Kolkata

PostPosted: Fri Oct 16, 2009 1:07 pm    Post subject: Bit level Information
Reply with quote

Hi All friends,

A parallel team has asked me for some help. They are trying to parse a COBOL formatted data(using COBOL copybook) into Abintio.

They ask me what is the meaning of the following?
88 (**)-MLR-TRAILER VALUE X'00'.


Also they have a requirement where they want to check if the Bit 1 is on or off or Bit 2 is on or Off. Its something like follwoing.
===============================================
01 (**)-DISK-REC-R REDEFINES
(**)-DISK-REC.
05 FILLER PIC X(16).
05 (**)-MLR-DETAIL-REC.

* *-------------------------------------------------------*
* * MLR - CONTROL INFORMATION (ACCOUNT NUMBER) 12*
* * - SEE SECTION 1 FOR THE REDEFINE OF CNTL-ACCT-NUM*
* *-------------------------------------------------------*
10 (**)-CNTL-ACCT-NUM-MLR PIC X(12).
10 (**)-CNTL-ACCT-NUM-MLR-R REDEFINES
(**)-CNTL-ACCT-NUM-MLR.
20 FILLER PIC X(11).
20 (**)-MLR-TRAILER-TYPE PIC X(01).
88 (**)-MLR-TRAILER VALUE X'00'.


please share some information if you would like.
Thanks
[/img]
Back to top
View user's profile Send private message

Binop B

Active User


Joined: 18 Jun 2009
Posts: 407
Location: Nashville, TN

PostPosted: Fri Oct 16, 2009 2:53 pm    Post subject:
Reply with quote

Hi Sudeshna,

Haven't heard of Abintio before, guessing its some open systems and your team is worried about only the layout they are receiving from a COBOL program. It that's the case I suggest you to ignore the 88 level variable as its usually used for condition check.

So as per what u send...
first 16 bytes are FILLER .... followed by 12 bytes for ACCT-NUM-MLR. The last one byte (12th byte) of ACCT-NUM-MLR will have the TRAILER-TYPE of 1 byte.

Bitwise Operations is a "bit" complicated in COBOL.. icon_biggrin.gif Please refer the thread for some inputs

Out of curiosity... Are u sure that your team want to check a particular bit or a byte
Back to top
View user's profile Send private message
Sudeshna Sarkar

New User


Joined: 11 Sep 2008
Posts: 29
Location: Kolkata

PostPosted: Fri Oct 16, 2009 3:25 pm    Post subject: Bit level Information
Reply with quote

Thanks Binop. icon_lol.gif
I know 'Bit' is causing bit problem to my fellow colleagues here. Actually that layout is just an example. Yes Abinitio is an open system concept, they have an interface like Vi editor in Unix, and they have very well tools for reading COBOL copybooks, codes in their own editor.

The copybook which I mentioned above was an example to read that X’00’, and ofcourse I did not know the significance of using X’00’ for a value.

Here they have to check the Bit 0, Bit 1, Bit 2 and so on of a Particular Variable which is actually a One Byte variable X(1).

15 (**)-MLFLG2-FLAG-2 PIC X(01).

I have got some more info reg their requirement.
-------------------------------------------------------------------------------------
| | Closed End (from CELMLR):
| | VOIDS: MLFLG2 BIT 1 ON
| | PAID OUT: MLPOCD NOT = X'FF'
| | CHARGED OFF: MLFLG2 BIT 2 ON
| |
| |
| |Open End (from OELMLR):
| |VOIDS: MOFLG1 BIT 3 ON
| |CHARGED OFF:
| | M10DAT NOT = ZERO OR
| | MOFLG8 BIT 0 ON OR
| | MOFLG8 BIT 1 ON OR
| | MOFLG8 BIT 2 ON OR
| | MOFLG8 BIT 3 ON OR
| | MOFLG8 BIT 4 ON OR
| |
| |
LOAN_ | ACCOUNT_ |If account is not VOID, PAIDOUT or ACCOUNT_ |ACTIVE_FLG |CHARGED OFF
DETAIL | | then the account is active.

In this case how do you check whether the Bit 1/Bit 2 of MLFLG2 is on or off?
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: Fri Oct 16, 2009 5:02 pm    Post subject: Reply to: Bit level Information
Reply with quote

Apparently, you're dealing with a Bit-Map. How long is the Bit-Map (in bytes)?

Bill
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 Obtaining file information pahiker COBOL Programming 25 Tue Sep 27, 2016 7:25 pm
No new posts Need information on COBOL MOVE CORRES... subratarec COBOL Programming 10 Tue Jun 28, 2016 10:38 pm
No new posts Passing information through JCL as in... Pia Baruah JCL & VSAM 5 Wed May 25, 2016 2:22 pm
No new posts Extracting Information from DD Statem... Charles Wolters All Other Mainframe Topics 7 Wed Apr 13, 2016 10:21 pm
No new posts Syncsort TPF Level Majid Hussain SYNCSORT 2 Wed Apr 13, 2016 2:22 am


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