Replace any non-printable character with spaces

// To use procedures, must specify DFTACTGRP(*NO) in the Header specs H DFTACTGRP(*NO) // The binding directory QC2LE will link this program with the // isprint function. H BNDDIR('QC2LE') // The isprint function will determine if a character is printable // (meaning that it is space or something that will be visible if // printed on paper). D isPrintable PR 10I 0 extproc('isprint') D 1 Value D P S 5U 0 D Field S 300 Inz(x'40404005c1c2d9') /Free // The following routine will check every position of FIELD to // determine if that position contains a printable (meaning non- // special, such as TAB) character. If not printable, then the // position will be replaced by space. For P = 1 to %Size(Field) ; If isprintable(%Subst(Field: P: 1)) = *Zero ; %Subst(Field: P: 1) = *Blank ; EndIF ; EndFOR ; *INLR = *On ; Return ;

[report a broken link by clicking here]