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
 
Problem with Shift-Out in COBOL

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

New User


Joined: 31 Jan 2006
Posts: 1

PostPosted: Tue Jan 31, 2006 10:42 pm    Post subject: Problem with Shift-Out in COBOL
Reply with quote

When I create the following literal in working storage, I get E-compiler errors regarding the use of a Shift-Out character which is a Hex '0E'. It is confusing the period following the "J" as a "shift-out" character.

10 FILLER PIC X(2) VALUE 'J.'.

2849 IGYDS0157-E A SHIFT-OUT WAS FOUND IN COLUMN 55 WITHOUT A MATCHING SHIFT-IN IN A NONNUMERIC OR NATIONAL LITERAL.
LITERAL WAS PROCESSED AS WRITTEN.

2849 IGYDS0158-E A NONNUMERIC OR NATIONAL LITERAL CONTAINING DOUBLE-BYTE CHARACTERS WAS FOUND WHICH EXCEEDED THE MAXIMUM
LITERAL LENGTH OR REACHED END OF AREA "B" BEFORE TERMINATING. A LITERAL DELIMITER WAS PLACED AT
LINE 2849.

2849 IGYGR1056-E "VALUE" LITERAL "'J.'. '" EXCEEDED THE LENGTH SPECIFIED IN THE "PICTURE" DEFINITION.
THE LITERAL WAS TRUNCATED TO THE "PICTURE" DEFINITION LENGTH.



To get around this, I code the following--which I don't think is very human-readable:

10 FILLER PIC X(2) VALUE x'D10E'.

This seems like a dumb way to code periods for literals in working storage. Perhaps a MOVE "J." to Literal-Field might work, but it still seems unsatisfactory. Anybody else run into this and find a better solution than coding hex character values?
Back to top
View user's profile Send private message

DavidatK

Active Member


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

PostPosted: Wed Feb 01, 2006 2:21 am    Post subject: Re: Problem with Shift-Out
Reply with quote

What version compiler are you using? when I compile this I don't have a problem. I compiled this with

IBM ENTERPRISE COBOL FOR Z/OS AND OS/390 3.1.0

Can you give us a screen shot of the error, including the elements prior to the error?

Thanks,

Dave
Back to top
View user's profile Send private message
rikdeb

New User


Joined: 19 Jan 2009
Posts: 63
Location: hyderabad

PostPosted: Fri Feb 15, 2013 3:33 pm    Post subject: Reply to: Problem with Shift-Out
Reply with quote

Can any one give a solution to this. Even i got the same messgae . i am using COBOL for z/OS 3.4.1 and CICS 5.3.0 for CICS precompilor.
the same code is working with cobol 4.2 compiler.

"Attachment deleted since it was revealing sensitive connection info"
Back to top
View user's profile Send private message
Phrzby Phil

Active Member


Joined: 31 Oct 2006
Posts: 975
Location: Richmond, Virginia

PostPosted: Sat Feb 16, 2013 10:21 pm    Post subject:
Reply with quote

Let's see the hex version of your code.
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 COBOL - JSON GENERATE husni1972 COBOL Programming 1 Fri Aug 17, 2018 3:29 am
No new posts SQL IN predicate using COBOL table jerryte DB2 16 Fri Jun 29, 2018 10:30 pm
No new posts Converting SAS code to Cobol or Easyt... Ashish.Raghav All Other Mainframe Topics 6 Fri Jun 29, 2018 6:01 pm
No new posts Can we use a file both as input and o... Chiku kumar COBOL Programming 6 Thu Jun 28, 2018 3:30 pm
No new posts Varying List Select SQL Query In DB2 ... NikhilGuptaGaya DB2 5 Wed Jun 27, 2018 11:01 pm

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