Joining two physical files

[Justin Houchin <justinh@xxxxxxxxxxxxx>]

I have created an RPG program that needs to read one logical file that 
contains joined physical files.  I cannot get the LF to compile.  The 
problem lies with the datatypes of the joined fields.  Here is the LF 
source:
A          R RF$M2                     JFILE(M2P WFP)
A          J                           JOIN(1 2)
A                                      JFLD(ORD# WFORD#)
A            M2ON                      JREF(1)
A            ORD#           6  0I      SST(M2ON 1 6)
A          K ORD#

WFORD# = 6S 0
M2ON = 9S 3

I am trying to move the M2ON field (9S 0) to the ORD# (6 0) field so I 
can join it to the WFORD# (6S 0) field in file WFP.  Is there something 
I can do to make this work without using SQL.

Thanks,
Justin