macro set_pop
   
* **************************************************************
* *PN* 150400
* A macro to extract all SET/IGSET from a vector into activity
* Usage: exec set_pop
* will get the SET/IGSET parameters from a stack and activate them
* Example: see set_push
* see also set_pop

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