*copyc amc$condition_code_limits
?? NEWTITLE := 'AMDVPUT :PUT validation          : ''AM'' 550 .. 649', EJECT ??
?? FMT (FORMAT := OFF) ??

{ AME$PUT_VALIDATION_ERRORS }

   CONST
     amc$min_ecc_put_validation      = amc$min_ecc_validation + 550,

     ame$improper_output_attempt     = amc$min_ecc_put_validation + 5,
         {E File +F1 : +P2 issued but not opened for output.

     ame$record_exceeds_mbl        = amc$min_ecc_put_validation + 10,
         {E File +F1 : Length of +P5 record exceeds maximum block length.}

     ame$improper_term_option        = amc$min_ecc_put_validation + 15,
         {E File +F1 : TERM OPTION parameter of +P2 was improper.}

     ame$improper_continue           = amc$min_ecc_put_validation + 20,
         {E File +F1 : TERM OPTION OF +P2 was CONTINUE but file position..
         { was not mid-record.}

     ame$fo_block_type_conflict      = amc$min_ecc_put_validation + 25,
         {E File +F1 : A user-specified blocked file must be created..
         { and appended sequentially.}

     ame$position_beyond_eoi        = amc$min_ecc_put_validation + 30,
         {E File +F1 : +P2 requires append permission to position..
         { beyond eoi.}

     ame$position_beyond_file_limit = amc$min_ecc_put_validation + 35,
         {E File +F1 : Improper attempt to position beyond the file limit..
         { using +P2.}

     ame$put_beyond_file_limit      = amc$min_ecc_put_validation + 40,
         {E File +F1 : Improper attempt to write beyond the file limit..
         { using +P2.}

     ame$file_space_limit_exceeded  = amc$min_ecc_put_validation + 41,
         {E File +F1 : +P2 file space limit has been exceeded.}

     ame$record_unequal_to_previous = amc$min_ecc_put_validation + 45,
         {E File +F1 : Length of +P5 record must be identical to..
         { the length of the record being replaced by +P2.}

     ame$improper_file_position     = amc$min_ecc_put_validation + 50,
         {E File +F1 : File not positioned at the end of a record..
         { prior to +P2 request.}

     ame$improper_seek_address = amc$min_ecc_put_validation + 55,
         {E File +F1 : BYTE_ADDRESS parameter of +P2 must be the address..
         { of a record boundary.}

     ame$maximum_write_span_exceeded = amc$min_ecc_put_validation + 60,
         {E File +F1 maximum write span exceeded: +P2.

     amc$max_ecc_put_validation     = amc$min_ecc_put_validation + 99;
?? FMT (FORMAT := ON) ??
?? OLDTITLE ??
