?? TITLE := 'AMM$US_BLK_VAR_READ_ONLY_FAP' ??
MODULE amm$us_blk_var_read_only_fap;
?? RIGHT := 110 ??

?? NEWTITLE := 'Global Declarations Referenced By This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc amt$call_block
*copyc amt$fap_layer_number
*copyc amt$fap_pointer
?? POP ??
*copyc bap$us_blk_var_read_only_fap
?? OLDTITLE ??
?? NEWTITLE := 'PROCEDURE [XDCL, #GATE] AMP$US_BLK_VAR_READ_ONLY_FAP', EJECT ??

{ This procedure is provided to allow copying of a file whose block_type is
{ User_Specified and whose record_type is Variable.  This block_type,
{ record_type combination was deleted in 1.63.01.  This procedure is to be
{ used as a user fap that will allow only for copying of the file which is
{ no longer supported to a block_type record_type combination which is
{ supported.

  PROCEDURE [XDCL, #GATE] amp$us_blk_var_read_only_fap
    (    file_identifier: amt$file_identifier;
         call_block: amt$call_block;
         layer_number: amt$fap_layer_number;
     VAR status: ost$status);

    bap$us_blk_var_read_only_fap (file_identifier, call_block, layer_number, status);

  PROCEND amp$us_blk_var_read_only_fap;
?? OLDTITLE ??
MODEND amm$us_blk_var_read_only_fap;

