  PROCEDURE [INLINE] dfp$format_task_name
    (    server_mainframe: pmt$mainframe_id;
     VAR server_mainframe_task_name: ost$name);

    VAR
      length: integer;

    STRINGREP (server_mainframe_task_name, length, 'DF', server_mainframe,
          '_SERVER_TASK');

  PROCEND dfp$format_task_name;
?? PUSH (LISTEXT := ON) ??
*copyc pmt$mainframe_id
*copyc ost$name
?? POP ??
