macro set_push
   
* **************************************************************
* *PN* 150400
* A macro to memorize all the set/igset parameters into a vector...
* Usage: exec set_push
* will extract all the SET/IGSET into a vector
* Example
* PAW>exec set_push
* PAW>set pmci 7
* We do not like this...
* PAW>exec set_pop
* and pmci is like before...
* see also set_pop

* first check the stack level count:
   
   if 0=$VEXIST(SPSSLC) then	| SetPuShStackLevelCounter
     ve/create SPSSLC(1) r 1.
   else
     ve/oper/vbias SPSSLC(1) 1 SPSSLC(1)	| increase stacklevel by one
   endif
   
   stacklevel = $SIGMA(SPSSLC(1))
   
   ve/dele PML[stacklevel]	| ParaMeterList
   
   npars = 103
   
   ve/create PML[stacklevel]([npars])
   
* SET stuff
   ve/input PML[stacklevel](1) $GRAFINFO('?XSIZ')
   ve/input PML[stacklevel](2) $GRAFINFO('?YSIZ')
   ve/input PML[stacklevel](3) $GRAFINFO('?XMGL')
   ve/input PML[stacklevel](4) $GRAFINFO('?XMGR')
   ve/input PML[stacklevel](5) $GRAFINFO('?XLAB')
   ve/input PML[stacklevel](6) $GRAFINFO('?XVAL')
   ve/input PML[stacklevel](7) $GRAFINFO('?XTIC')
   ve/input PML[stacklevel](8) $GRAFINFO('?YMGL')
   ve/input PML[stacklevel](9) $GRAFINFO('?YMGU')
   ve/input PML[stacklevel](10) $GRAFINFO('?YLAB')
   ve/input PML[stacklevel](11) $GRAFINFO('?YVAL')
   ve/input PML[stacklevel](12) $GRAFINFO('?YTIC')
   ve/input PML[stacklevel](13) $GRAFINFO('?YNPG')
   ve/input PML[stacklevel](14) $GRAFINFO('?YGTI')
   ve/input PML[stacklevel](15) $GRAFINFO('?YHTI')
   ve/input PML[stacklevel](16) $GRAFINFO('?SMGR')
   ve/input PML[stacklevel](17) $GRAFINFO('?SMGU')
   ve/input PML[stacklevel](18) $GRAFINFO('?CMMG')
   ve/input PML[stacklevel](19) $GRAFINFO('?CVAL')
   ve/input PML[stacklevel](20) $GRAFINFO('?KSIZ')
   ve/input PML[stacklevel](21) $GRAFINFO('?GSIZ')
   ve/input PML[stacklevel](22) $GRAFINFO('?TSIZ')
   ve/input PML[stacklevel](23) $GRAFINFO('?ASIZ')
   ve/input PML[stacklevel](24) $GRAFINFO('?CSIZ')
   ve/input PML[stacklevel](25) $GRAFINFO('?PSIZ')
   ve/input PML[stacklevel](26) $GRAFINFO('?VSIZ')
   ve/input PML[stacklevel](27) $GRAFINFO('?SSIZ')
   ve/input PML[stacklevel](28) $GRAFINFO('?2SIZ')
   ve/input PML[stacklevel](29) $GRAFINFO('?XWIN')
   ve/input PML[stacklevel](30) $GRAFINFO('?YWIN')
   ve/input PML[stacklevel](31) $GRAFINFO('?HMAX')
   ve/input PML[stacklevel](32) $GRAFINFO('?PASS')
   ve/input PML[stacklevel](33) $GRAFINFO('?CSHI')
   ve/input PML[stacklevel](34) $GRAFINFO('?BARO')
   ve/input PML[stacklevel](35) $GRAFINFO('?BARW')
   ve/input PML[stacklevel](36) $GRAFINFO('?DASH')
   ve/input PML[stacklevel](37) $GRAFINFO('?DMOD')
   ve/input PML[stacklevel](38) $GRAFINFO('?GRID')
   ve/input PML[stacklevel](39) $GRAFINFO('?CMAP')
   ve/input PML[stacklevel](40) $GRAFINFO('?DATE')
   ve/input PML[stacklevel](41) $GRAFINFO('?FILE')
   ve/input PML[stacklevel](42) $GRAFINFO('?STAT')
   ve/input PML[stacklevel](43) $GRAFINFO('?FIT')
   ve/input PML[stacklevel](44) $GRAFINFO('?HTYP')
   ve/input PML[stacklevel](45) $GRAFINFO('?BTYP')
   ve/input PML[stacklevel](46) $GRAFINFO('?PTYP')
   ve/input PML[stacklevel](47) $GRAFINFO('?FTYP')
   ve/input PML[stacklevel](48) $GRAFINFO('?HCOL')
   ve/input PML[stacklevel](49) $GRAFINFO('?BCOL')
   ve/input PML[stacklevel](50) $GRAFINFO('?PCOL')
   ve/input PML[stacklevel](51) $GRAFINFO('?FCOL')
   ve/input PML[stacklevel](52) $GRAFINFO('?XCOL')
   ve/input PML[stacklevel](53) $GRAFINFO('?YCOL')
   ve/input PML[stacklevel](54) $GRAFINFO('?HWID')
   ve/input PML[stacklevel](55) $GRAFINFO('?BWID')
   ve/input PML[stacklevel](56) $GRAFINFO('?PWID')
   ve/input PML[stacklevel](57) $GRAFINFO('?FWID')
   ve/input PML[stacklevel](58) $GRAFINFO('?XWID')
   ve/input PML[stacklevel](59) $GRAFINFO('?YWID')
   ve/input PML[stacklevel](60) $GRAFINFO('?CWID')
   ve/input PML[stacklevel](61) $GRAFINFO('?TFON')
   ve/input PML[stacklevel](62) $GRAFINFO('?GFON')
   ve/input PML[stacklevel](63) $GRAFINFO('?VFON')
   ve/input PML[stacklevel](64) $GRAFINFO('?LFON')
   ve/input PML[stacklevel](65) $GRAFINFO('?CFON')
   ve/input PML[stacklevel](66) $GRAFINFO('?NDVX')
   ve/input PML[stacklevel](67) $GRAFINFO('?NDVY')
   ve/input PML[stacklevel](68) $GRAFINFO('?NDVZ')
   ve/input PML[stacklevel](69) $GRAFINFO('?FPGN')
   ve/input PML[stacklevel](70) $GRAFINFO('?ERRX')
   ve/input PML[stacklevel](71) $GRAFINFO('?1DEF')
   ve/input PML[stacklevel](72) $GRAFINFO('?2DEF')
* IGSET stuff
   ve/input PML[stacklevel](73) $GRAFINFO('?FAIS')
   ve/input PML[stacklevel](74) $GRAFINFO('?FASI')
   ve/input PML[stacklevel](75) $GRAFINFO('?LTYP')
   ve/input PML[stacklevel](76) $GRAFINFO('?BASL')
   ve/input PML[stacklevel](77) $GRAFINFO('?LWID')
   ve/input PML[stacklevel](78) $GRAFINFO('?MTYP')
   ve/input PML[stacklevel](79) $GRAFINFO('?MSCF')
   ve/input PML[stacklevel](80) $GRAFINFO('?PLCI')
   ve/input PML[stacklevel](81) $GRAFINFO('?PMCI')
   ve/input PML[stacklevel](82) $GRAFINFO('?FACI')
   ve/input PML[stacklevel](83) $GRAFINFO('?TXCI')
   ve/input PML[stacklevel](84) $GRAFINFO('?TXAL')
   ve/input PML[stacklevel](85) $GRAFINFO('?CHHE')
   ve/input PML[stacklevel](86) $GRAFINFO('?TANG')
   ve/input PML[stacklevel](87) $GRAFINFO('?TXFP')
   ve/input PML[stacklevel](88) $GRAFINFO('?PICT')
   ve/input PML[stacklevel](89) $GRAFINFO('?BORD')
   ve/input PML[stacklevel](90) $GRAFINFO('?PASS')
   ve/input PML[stacklevel](91) $GRAFINFO('?CSHI')
   ve/input PML[stacklevel](92) $GRAFINFO('?LASI')
   ve/input PML[stacklevel](93) $GRAFINFO('?LAOF')
   ve/input PML[stacklevel](94) $GRAFINFO('?TMSI')
   ve/input PML[stacklevel](95) $GRAFINFO('?AWLN')
   ve/input PML[stacklevel](96) $GRAFINFO('?BARO')
   ve/input PML[stacklevel](97) $GRAFINFO('?BARW')
   ve/input PML[stacklevel](98) $GRAFINFO('?NCOL')
   ve/input PML[stacklevel](99) $GRAFINFO('?CLIP')
   ve/input PML[stacklevel](100) $GRAFINFO('?NLIN')
   ve/input PML[stacklevel](101) $GRAFINFO('?AURZ')
   ve/input PML[stacklevel](102) $GRAFINFO('?DIME')
   ve/input PML[stacklevel](103) $GRAFINFO('?ZBUF')
   
   ve/print SPSSLC
   
   exitm
   
 return