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

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc iip$store_context
*copyc ift$store_context_attributes
*copyc nat$data_fragments
*copyc OST$STATUS
?? POP ??

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

  PROCEDURE [XDCL, #GATE] ifp$store_context (file_id: amt$file_identifier;
        context_attributes: ift$store_context_attributes;
    VAR status: ost$status);

    status.normal := TRUE;

    iip$store_context (file_id, context_attributes, status);

  PROCEND ifp$store_context;

MODEND ifm$store_context;
