Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 2504
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
This topic is locked: you cannot edit posts or make replies. how to get Job information from IOF u... rsshanmugam CLIST & REXX 13 Mon Feb 05, 2018 4:22 pm
No new posts Need to obtain VTOC information via R... djeffbland CLIST & REXX 10 Thu Jan 11, 2018 4:13 am
No new posts JCL INFORMATION - Need to know what t... gauravd01 JCL & VSAM 8 Wed Nov 29, 2017 12:54 pm
This topic is locked: you cannot edit posts or make replies. Rexx to Grab ISMF Information. upendrasri All Other Mainframe Topics 16 Sun Nov 26, 2017 12:35 am
No new posts Information About the Equifax Securit... Rohit Umarjikar PC Guides & IT News 6 Mon Sep 11, 2017 9:10 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us