Is there a *GET command that will retrieve the first field
of the 'MODE' command (when it's not the last command issued)?
There is not directly a *GET command but the STATUS output for the GENOPT module of solution lists it so the input commands below will retrieve the MODE value. It needs to be used while in the /SOLUTION portion of the program. genopt /out,temp,lis status /out *sread,aaa,temp,lis *get,aaarow,parm,aaa,dim,2 *do,jj,1,aaarow aaapos=strpos(aaa(1,jj),'MODE') *if,aaapos,gt,0,then mode_par=strsub(aaa(1,jj),aaapos+5,6) mode_prm=valchr(mode_par) *exit *endif *enddo aaa(1)= aaarow= aaapos= mode_par= |
||
|