IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Wanted to display the value coded in 88 level.


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
crrindia

Active User


Joined: 02 Jul 2005
Posts: 124
Location: Gurgaon

PostPosted: Thu Jun 08, 2006 11:42 am
Reply with quote

Hi All, if I wanted to display the value which we have coded at 88 level, how to code it?

I have coded like shown below...


WORKING-STORAGE SECTION.

01 EMP-CODE PIC X(02).
88 MFG-DEPT VALUE 'MF'.

PROCEDURE DIVISION.

MAIN-PARA.
DISPLAY 'CODE IS:' EMP-CODE.(Here Iwanted to display the value MF)
STOP RUN.

Thanks!
Rathna.
Back to top
View user's profile Send private message
David P

Active User


Joined: 11 Apr 2005
Posts: 106
Location: Cincinnati Ohio

PostPosted: Thu Jun 08, 2006 12:24 pm
Reply with quote

Just before your display statement you can have one more statement as

SET MFG-DEPT TO TRUE.

This will do what you want.

-regards,
David P.
Back to top
View user's profile Send private message
crrindia

Active User


Joined: 02 Jul 2005
Posts: 124
Location: Gurgaon

PostPosted: Thu Jun 08, 2006 2:02 pm
Reply with quote

Hi David, Thank you very much. It workded fine.

Thanks!
Rathna.

David P wrote:
Just before your display statement you can have one more statement as

SET MFG-DEPT TO TRUE.

This will do what you want.

-regards,
David P.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts How to load to DB2 with column level ... DB2 6
No new posts EZT program to build a flat file with... All Other Mainframe Topics 9
No new posts ISRSUPC search utility - using high l... TSO/ISPF 2
No new posts Can EATTR be coded in an IMS COBOL pgm? IMS DB/DC 1
No new posts How to display the leading zeros of a... DB2 7
Search our Forums:

Back to Top