Problem with Shift-Out in COBOL

quartetmania · New User Joined: 31 Jan 2006 Posts: 1

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?

DavidatK · Posted: Wed Feb 01, 2006 2:21 am

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

rikdeb · New User Joined: 19 Jan 2009 Posts: 63 Location: hyderabad

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"

Phrzby Phil · Posted: Sat Feb 16, 2013 10:21 pm

Let's see the hex version of your code.