**free
ctl-opt dftactgrp(*no);

// See QSYSINC/H(REGEX)
dcl-s size_t uns(10) template;
dcl-s mbstate_t int(5) template;
dcl-s LC_colval_t int(10) template;
dcl-s off_t int(10) template;

dcl-ds regex_t align template;
   re_nsub     like(size_t);
   re_comp     pointer;
   re_cflags   int(10);
   re_erroff   like(size_t);
   re_len      like(size_t);
   re_ucoll    like(LC_colval_t) dim(2);
   re_lsub     pointer;
   re_ucoll    like(LC_colval_t) dim(2);
   re_lsub     pointer;
   reserved1   pointer dim(9);
   re_esub     pointer;
   re_specchar pointer;
   re_phdl     pointer;
   reserved2   pointer dim(7);
   re_map      char(256);
   re_shift    like(mbstate_t);
   re_dbcs     int(5);
end-ds;

dcl-c REG_BASIC    x'00';
dcl-c REG_EXTENDED x'01';

dcl-pr regcomp int(10) extproc(*dclcase);
   regex   likeds(regex_t);
   string  pointer value options(*string);
   cflags  int(10) value;
end-pr;
dcl-pr regfree extproc(*dclcase);

   regex likeds(regex_t);
end-pr;
dcl-s rc int(10);

dcl-ds ds qualified;
   regex likeds(regex_t);
   after char(16) inz(*all'z');
end-ds;

dsply ('Showing 16 bytes following the regex ds');
dsply ('    before calling regcomp():' + ds.after);
rc = regcomp (ds.regex : 'abc' : REG_BASIC);
dsply ('    after calling regcomp() :' + ds.after);
regfree (ds.regex);
return;