S9(9) COMP to PIC X()

[newblood]

I need to string several variables together and one of them is S9(9)COMP. How do I change it to PIC X() in order to use it with the STRING command?

 

[dixi]

The easiest way to do this is by using a higher group level.<br><br>Example : <br><br>01&nbsp;&nbsp;char-low-value&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pic x&nbsp;&nbsp;value x&quot;00&quot;.<br>01&nbsp;&nbsp;variables.<br>&nbsp;&nbsp;&nbsp;&nbsp;05&nbsp;&nbsp;var-1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pic x(20).<br>&nbsp;&nbsp;&nbsp;&nbsp;05&nbsp;&nbsp;var-2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pic 9(5).<br>&nbsp;&nbsp;&nbsp;&nbsp;05&nbsp;&nbsp;var-3x.<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;10&nbsp;&nbsp;var-3&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pic s9(9) comp.<br>&nbsp;&nbsp;&nbsp;&nbsp;05&nbsp;&nbsp;var-4&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pic x(5).<br>&nbsp;&nbsp;&nbsp;&nbsp;...<br><br>string var-2 char-low-value<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var-3x <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;var-1 char-low-value<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;delimited by size into ...&nbsp;&nbsp;&nbsp;<br><br><br>

 

[BettyScherber]

Dixi's response will work if you want the binary data in your string. If you want the numeric value, you will have to move it to a different field, eg.

01 STRING-FIELD.
05 NUMERIC-FIELD PIC +9(9).

MOVE COMP-FIELD TO NUMERIC-FIELD.
STRING FIELD-1
FIELD-2
STRING-FIELD
OTHER-FIELD DELIMITED BY SIZE
INTO STRING-VARIABLE.


Betty Scherber
BrainBench MVP for COBOL II

http://www.brainbench.com

[sig][/sig]