Communicator 3000 MPE/iX Release 6.0 (Platform Software Release C.60.00) (30216-90269)

Chapter 10 153
Technical Articles
COBOL II/iX Enhancements
The routine HP_BYTE_PACK is similar. The first parameter, the
operand, is a sequence of ASCII bytes. Each byte of the operand is
converted to a bit in the result, left to right. An ASCII "0" becomes a
"zero" bit; anything other than an ASCII "0" becomes a "one" bit. The
length specified is the length of the result in bytes. The byte length of
the operand must be 8 times the byte length of the result.
Example
01 BYTE-STRING PIC X(16).
01 RESULT-N PIC S9(4) COMP.
...
MOVE "0000000000001111" TO BYTE-STRING.
CALL "HP_BYTE_PACK" USING BYTE-STRING, RESULT-N, \2\.
DISPLAY RESULT-N.
* Results in +15.
Compiling Larger Programs
Internal data structures of the compiler have been expanded to permit
compiling significantly larger programs. While there is no specific limit
on the number of lines permitted in a source program, this version of
the compiler should be capable of processing programs well in excess of
200,000 lines.
DISPLAY Index-name
The compiler has been enhanced to permit an index-name to be used as
an operand of a DISPLAY statement. This is an ANSI extension, and if
this feature is used and $CONTROL STDWARN is specified, the compiler
will display warning 517, DISPLAY of index-name is
nonconforming nonstandard HP extension.
New Qedit Diagnostic
The compiler is now able to detect when a source file is in Qedit format
and the Qedit product has not been properly installed on the system.
Qedit is a full-screen text editor from Robelle Consulting Ltd. In the
past, Qedit users have sometimes encountered problems when updating
to a new release of MPE/iX and forgetting to reinstall Qedit.
COBOL II/iX now detects this condition and produces error 472, QEDIT
FORMAT ENCOUNTERED FOR FILE.