*copyc OSD$DEFAULT_PRAGMATS
MODULE ifm$fetch_context;
?? TITLE := 'MODULE ifm$fetch_context' ??

?? PUSH (LISTEXT := ON) ??
*copyc iip$fetch_context
*copyc ift$fetch_context_attributes
*copyc nat$data_fragments
*copyc OST$STATUS
*copyc ifk$keypoints
?? POP ??

?? NEWTITLE := 'PROCEDURE ifp$fetch_context', EJECT ??

  PROCEDURE [XDCL, #GATE] ifp$fetch_context (VAR {i/o} context_attributes:
    ift$fetch_context_attributes;
    VAR status: ost$status);

    #KEYPOINT (osk$entry, 0, ifk$fetch_context);

    status.normal := TRUE;

    iip$fetch_context (context_attributes, status);

    #KEYPOINT (osk$exit, 0, ifk$fetch_context);

  PROCEND ifp$fetch_context;

MODEND ifm$fetch_context;
