HP 3000 Manuals HP 3000 Manuals
HP COBOL II/XL
Table E-3. HP COBOL II/XL
Equivalents of SORT-MERGE/XL Data Types
------------------------------------------------------------------------------------------------
| | SORT-MERGE/XL Data Type | HP COBOL II/XL Equivalent |
------------------------------------------------------------------------------------------------
| 0 | byte (character) | PIC X(n) or a group |
| 1 | twos complement (integer): | |
| | 2-byte (short integer) | S9(n) COMP (where 1 <= n <= 4) |
| | 4-byte (integer) | S9(n) COMP (where 5 <=n <= 9) |
| | 8-byte (long integer) | S9(n) COMP (where 10 <= n <= 18) |
| 4 | packed decimal with odd number of digits | S9(n) COMP-3 (where n is an odd |
| | | number) |
| 5 | packed decimal with even number of digits | S9(n) COMP-3 (where n is an even |
| | | number) |
| 6 | display trailing sign | S9(n) SIGN IS TRAILING |
| 7 | display leading sign | S9(n) SIGN IS LEADING |
| 8 | display trailing sign separate | S9(n) SIGN IS TRAILING SEPARATE |
| 9 | Display-Leading-Sign-Separate | S9(n) SIGN IS LEADING SEPARATE |
| 10 | Character | PIC X(n) or a group |
------------------------------------------------------------------------------------------------
NOTE The variable n refers to an integer number.