I do this all the time as follows:

       77 SOME-OTHER-NUMBER1   PIC 99 VALUE 0.
       77 SOME-OTHER-NUMBER2   PIC 99 VALUE 0.

       1  RDF.
           5 RDF1.
              7 S94             PIC S9(4) COMP.
           5 RDF2 REDFINES RDF1.
              7 X1               PIC X.
              7 X2               PIC X.

      1  RDFT.
           5 RDFT1.
              7 S94T             PIC S9(4) COMP.
           5 RDF2 REDFINES RDF1.
              7 X1T               PIC X.
              7 X2T               PIC X.

      MOVE 0 TO S94T.
      MOVE SOME-NUMBER TO S94.
      MOVE 7X1 TO 7X2T.

     MOVE S94T TO SOME-OTHER-NUMBER1.
     MOVE 7X2 TO 7X2T.
     MOVE S94T TO SOME-OTHER-NUMBER2.

Note that SOME-NUMBER is undefined in this scenerio.

>>> Ronald R Horner <[log in to unmask]> 12/22 12:38 PM >>>
How can I split a s9(4) binary field (16 bits), into 2 8 bit fields.
I've seen where 2 "X" are used but I can't convert them to numeric data.

Thanks!

--
Ron Horner
HP3000 Systems Administrator
JCPenney Logistics
[log in to unmask] 
(414) 259-2274