 IDENTIFICATION DIVISION.
 PROGRAM-ID. MERGESTMT.
 PROCEDURE DIVISION.
    MERGE SOMEFILE1
       ON DESCENDING KEY SOMEID1
       ON ASCENDING KEY SOMEID2 SOMEID3
       COLLATING SEQUENCE IS SOMEALPHA1 SOMEALPHA2
          FOR ALPHANUMERIC IS SOMEALPHA3
          FOR NATIONAL IS SOMEALPHA4
       USING SOMEFILE2
       OUTPUT PROCEDURE IS SOMEPROC1 THRU SOMEPROC2
       GIVING SOMEFILE3 NO REWIND.