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
 
How to include single code in Working-storage variable comm?

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

New User


Joined: 27 Sep 2005
Posts: 1

PostPosted: Thu Apr 13, 2006 3:41 pm    Post subject: How to include single code in Working-storage variable comm?
Reply with quote

Hello,

I need to include single code in Working-Storage variable comment.

Eg : My value would be INCLUDE=(140,5,CH,EQ,C'00001'.

Kindly let me know that How should I declare working-storage variable to hold above mentioned value. So that I can use that variable in procedure division....

Thanks & Regards,
Rathvel.
Back to top
View user's profile Send private message

DavidatK

Active Member


Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA

PostPosted: Thu Apr 13, 2006 7:45 pm    Post subject: Re: How to include single code in Working-storage variable c
Reply with quote

Rathvel,

Code:

    05  VAR-1  PIC X(29) VALUE  'INCLUDE=(140,5,CH,EQ,C''00001'''.
Back to top
View user's profile Send private message
new2cobol

New User


Joined: 04 Jan 2006
Posts: 77
Location: Bangalore

PostPosted: Fri Apr 14, 2006 12:30 am    Post subject:
Reply with quote

Can't we use a single-quote double-quote combo?
Code:

05  VAR-1  PIC X(29) VALUE  "INCLUDE=(140,5,CH,EQ,C'00001'".


Won't the above line work???
Back to top
View user's profile Send private message
DavidatK

Active Member


Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA

PostPosted: Fri Apr 14, 2006 1:08 am    Post subject: Re: How to include single code in Working-storage variable c
Reply with quote

new2cobol,

Yes that is expectable if the COBOL compiled option QUOTE is in effect. However, I believe most places have the APOST compiler option on.

You should try not to change from the installation standard, it makes code hard to maintain.

Dave,
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 What will happen if we dont code STOP... Poha Eater COBOL Programming 4 Mon Jun 04, 2018 5:27 pm
No new posts JCL to set Return code when Time Out ... vinu78 JCL & VSAM 6 Wed May 30, 2018 11:27 am
This topic is locked: you cannot edit posts or make replies. Rexx code to find greater then symobl... Bharath Vikraman CLIST & REXX 8 Tue May 29, 2018 9:40 am
No new posts RESP2 code -502 pshongal CICS 6 Mon May 28, 2018 10:58 am
No new posts How to convert 2 bytes into single by... pkmurali DB2 6 Fri May 25, 2018 1:41 pm

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