Save and restore current status

*
*     A GENERAL PURPOSE SUBROUTINE TO SAVE AND RESTORE
*     LIB-LIST AND STATUS-SWITCHES.
*
      MOVE 'LL'                   TO xxxx-COMMAND.
      CALL 'TBLBASE' USING        TB-PARM
                                  xxxx-COMMAND-AREA
                                  LIB-LIST-SAVE.
      MOVE 'LS'                   TO xxxx-COMMAND.
      CALL 'TBLBASE' USING        TB-PARM
                                  xxxx-COMMAND-AREA
                                  STATUS-SWITCHES-SAVE.
						          
      MOVE 'ML'                   TO xxxx-COMMAND.
      CALL 'TBLBASE' USING        TB-PARM
                                  xxxx-COMMAND-AREA
                                  LIB-LIST-NEW.
      MOVE 'CS'                   TO xxxx-COMMAND.
      CALL 'TBLBASE' USING        TB-PARM
                                  xxxx-COMMAND-AREA
                                  STATUS-SWITCHES-NEW.

*    (normal processing until end of routine)
      MOVE 'ML'                   TO xxxx-COMMAND.
      CALL 'TBLBASE' USING        TB-PARM
                                  xxxx-COMMAND-AREA
                                  LIB-LIST-SAVE.
      MOVE 'CS'                   TO xxxx-COMMAND.
      CALL 'TBLBASE' USING        TB-PARM
                                  xxxx-COMMAND-AREA
                                  STATUS-SWITCHES-SAVE.