fix_doc_space_char compressing trailing blanks (in 006 field)
- Article Type: General
- Product: Aleph
- Product Version: 19.01
Problem Symptoms:
After exporting and re-importing all the xxx01 bib records. All the 006 fields are the wrong length.
fix_doc_space_char was used in the export, which is supposed to fix all the fixed fields. But the 006s went out short -- and the vendor returned them that way.
Cause:
fix_doc_space_char was used in the fix_doc section of print-03 ("Download Machine-Readable Records").
Resolution:
If the output format is MARC, don't use fix_doc_space_char (in the fix_doc section).
Additional Information
The fix_doc_space_char routine works as it should ? it replaces the blank-char with spaces, and that?s it. It does not do any ?len_count? that compresses trailing spaces.
In print-03 the fix routine is activated on field 006 *BEFORE* docx_to_marc. Field 006 reaches docx_to_marc with trailing spaces.
In the docx_to_marc program:
BUILD-TAG-006 SECTION.
.
MOVE 100 TO L
CALL "len_count" USING
TAG-006
L
END-CALL
So, docx_to_marc.cbl compresses the trailing spaces.
The use of fix_doc_space_char in the fix_doc is redundant since docx_to_marc.cbl does the job itself:
PERFORM BUILD-TAG-001.
PERFORM BUILD-TAG-002.
PERFORM BUILD-TAG-003.
PERFORM BUILD-TAG-004.
PERFORM BUILD-TAG-005.
PERFORM BUILD-TAG-006.
PERFORM BUILD-TAG-007.
PERFORM BUILD-TAG-008.
INSPECT BUF-TEXT (1: LL) REPLACING ALL
TAB100-DOC-BLANK-CHAR BY SPACES.
Category: Cataloging (500)
- Article last edited: 10/8/2013