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: 62
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: 967
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
This topic is locked: you cannot edit posts or make replies. Cobol to fetch the content by using s... arunc55 COBOL Programming 4 Fri Nov 17, 2017 1:25 pm
No new posts VBS and VB, COBOL syntax is the same ... natt.sut COBOL Programming 3 Sun Nov 12, 2017 6:36 am
No new posts Having a problem FTP'ng to the MF pahiker All Other Mainframe Topics 2 Fri Nov 10, 2017 8:20 pm
No new posts COBOL - EXIT statement weird behavior anthony.pangestu COBOL Programming 0 Fri Oct 27, 2017 9:57 am
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm

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