Test new BIF %scanrpl

H OPTION(*NOSHOWCPY:*NOEXPDDS:*NODEBUGIO:*SRCSTMT:*SECLVL) H DFTACTGRP(*NO) ACTGRP(*NEW) D workName s 50a inz('BISHOP & DAUGHTER') /free workname = %scanrpl(' & ': ' AND ' : %trim(workName) ) ; dsply workName; // result = BISHOP AND DAUGHTER workname = %scanrpl(' AND ': ' & ' : %trim(workName) ) ; dsply workName; // result = BISHOP & DAUGHTER *Inlr = *On; /end-free

[report a broken link by clicking here]