%DCL NEWLINE BUILTIN;
  %DCL LAYOUT ENTRY;
  %LAYOUT: PROC (PFX) RETURNS(CHAR);
    DCL PFX CHAR;
    DCL XX CHAR;
    XX = NEWLINE ||
    '        02  ' || PFX  || '_ID FIXED BIN(31),' || NEWLINE ||
    '        02  ' || PFX  || '_NAME CHAR(20),' || NEWLINE ||
    '        02  ' || PFX  || '_OTHER_JUNK CHAR(40) INIT('' '')';
    RETURN(XX);
  %END LAYOUT;
  DCL 01 INREC, LAYOUT(IN);
  DCL 01 OUTREC, LAYOUT(OUT);