DCL 01 INREC, 
        02  IN_ID FIXED BIN(31),
        02  IN_NAME CHAR(20),
        02  IN_OTHER_JUNK CHAR(40) INIT(' ');
  DCL 01 OUTREC, 
        02  OUT_ID FIXED BIN(31),
        02  OUT_NAME CHAR(20),
        02  OUT_OTHER_JUNK CHAR(40) INIT(' ');