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
 

 

Wanted to display the value coded in 88 level.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
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    Post subject: Wanted to display the value coded in 88 level.
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    Post subject: Re: Wanted to display the value coded in 88 level.
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    Post subject: Re: Wanted to display the value coded in 88 level.
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    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 Display ZEDLMSG without Pressing F1 &... anandgbe CLIST & REXX 8 Thu Dec 15, 2016 4:20 pm
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm
This topic is locked: you cannot edit posts or make replies. DSList (3.4) cannot display Chinese c... jacobdng TSO/ISPF 4 Wed Oct 05, 2016 2:51 pm
This topic is locked: you cannot edit posts or make replies. Get and display content of an address... lind sh CICS 1 Mon Aug 08, 2016 9:18 am


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