.SETF LSTCMD
.ENABLE SUBSTITUTION
.SETS A "S A="
.SETS B ";T A,!,"
.SETS B1 " OCTAL"
.SETS B2 "= "
.SETS B3 ",@A,!;K"
FCL 'A''CMDLIN''B''DQUOTE''B1''B2''DQUOTE''B3'