?? NEWTITLE := 'PROCEDURE BAP$WRITE_END_PARTITION' ??
{ COMMON DECK BAXWEOP }

  PROCEDURE [XREF] bap$write_end_partition (file_identifier:
    amt$file_identifier;
        call_block: amt$call_block;
        fap_layer_number: amt$fap_layer_number;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc AMT$FILE_IDENTIFIER
*copyc AMT$FAP_DECLARATIONS

?? POP ??
?? PUSH (LISTEXT := ON) ??
*copyc AMT$FILE_IDENTIFIER
*copyc AMT$FAP_DECLARATIONS
*copyc OST$STATUS
?? POP ??
?? OLDTITLE ??
