Is there any reason that an Enterprise Cobol 4.2 program running under z/OS
1.10 might use 'machine control' characters instead of ANSI characters?
We have a vendor program that uses a rather complex shared I/O module, and it
appears to be the only one that's doing it. The writes themselves are pretty
basic:
X-000-RSP-PRINT.
MOVE ZERO TO PDA-RWA-REQ.
*
IF RSP-PRINT-CC IS EQUAL TO '1'
GO TO X-000-RSP-LINE1.
IF RSP-PRINT-CC IS EQUAL TO SPACE
MOVE 1 TO MSC-CC.
IF RSP-PRINT-CC IS EQUAL TO ZERO
MOVE 2 TO MSC-CC.
IF RSP-PRINT-CC IS EQUAL TO '-'
MOVE 3 TO MSC-CC.
WRITE RSP-PRINT AFTER ADVANCING MSC-CC.
GO TO X-000-EXIT.
X-000-RSP-LINE1.
WRITE RSP-PRINT AFTER ADVANCING MSC-CC-01.
GO TO X-000-EXIT.
MSC-CC-01 is in the SPECIAL-NAMES area as
C01 IS MSC-CC-01.
I even tried changing this to
WRITE RSP-PRINT AFTER ADVANCING PAGE.
and got the same result.
Anyway, the output is like this...
record 1 is x'8B' (Immed skip to channel 1)
record 2 is x'01' (write without spacing) followed by the first line
record 3 is x'0B' (Immed space 1 line)
record 4 is x'01 (write without spacing) followed by the second line
record 5 is x'0B' (Immed space 1 line)
and on and on like that. In SDSF it looks like there is one blank line after
each non-blank line.
I can't seem to recreate the issue with just a simple program.
It's quite perplexing!
Thanks,
Frank
--
Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403
>>>
The information contained in this electronic communication and any document
attached hereto or transmitted herewith is confidential and intended for the
exclusive use of the individual or entity named above. If the reader of this
message is not the intended recipient or the employee or agent responsible for
delivering it to the intended recipient, you are hereby notified that any
examination, use, dissemination, distribution or copying of this communication
or any part thereof is strictly prohibited. If you have received this
communication in error, please immediately notify the sender by reply e-mail
and destroy this communication. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
