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
 

 

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: 59
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: 962
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 Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Execute TSO ACF commands from COBOL-I... supreethi.srid TSO/ISPF 0 Tue Feb 21, 2017 5:19 pm
No new posts ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm
No new posts Mainframe Interview Questions CICS,CO... akshathan Mainframe Interview Questions 6 Thu Feb 09, 2017 6:38 pm


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