You state that your program "properly translates all character fields that
are in EBCDIC to ASCII but does NOT properly translate any of the packed
decimal fields .....".

The packed decimal fields require no translation (since they have the same
bit representation in both ASCII and EBCDIC) - they simply need to be
MOVE'ed from their properly-defined source (PIC S9(9) COMP-3) to an
appropriately defined target (ZZZ,ZZZ,ZZ9-).

If you are trying to "translate" the EBCDIC source, perhaps that is your
problem.

Without seeing the COBOL code, this is only an educated guess.



At 02:52 PM 1999-09-27 -0400, [log in to unmask] wrote:
>Hey Listers,
>
>With Kevin Miller's help and the use of the IBMVBS utility from the CSL I
have
>been able to deblock the IBM mainframe tape which contains variable length
>records (in EBCDIC, of course) on a tape that has variable length blocks
into a
>disk file containing variable length records readable by the HP still in
EBCDIC.
>
>The current problem that I'm having is that the program properly
translates all
>character fields that are in EBCDIC to ASCII but does NOT properly
translate ANY
>of the packed decimal fields in EBCDIC to numeric-edited fields in ASCII.
Using
>FCOPY I have verified that the fields I'm looking for are still in the proper
>packed decimal EBCDIC form.  My mainframe people are convinced that this
>situation is a compiler bug.  I'm not sure.  I have tried both the 74 and 85
>COBOL compilers giving the same results.
>
>A example of a field is below:
>
>Input field defined as PIC S9(9) COMP-3 in HEX:  049484071C
>Output field defined as PIC +9(9) in ASCII:           +9<6=647?1
>
>Any help is greatly appreciated.
>
>John Hornberger
>Sr. Systems Programmer
>SPX Corporation
>[log in to unmask]
>
>
---------------------------------------------------------------------------
Gilles Schipper
GSA Inc.
HP3000 & HP9000 System Administration Specialists
300 John Street, Box 87651   Thornhill, ON Canada L3T 7R4
Voice: 905.889.3000     Fax: 905.889.3001
Internet:  [log in to unmask]
---------------------------------------------------------------------------