S/CALL PAT$PARSER(0,0,SDL$_SHR_DATA);/PUT SKIP LIST ('THIS VERSION OF SDL DOES NOT SUPPORT PARSING');/ BEG:END
EXIT