PARM TYPE=""
IF UPS("!TYPE") = "STOR"
   PURGE ST1,TEMP   >>$NULL
   ECHO LIMIT !HPJOBLIMIT,!HPSESLIMIT >> ST1
   ECHO STORING THE LIMITS AS:
   PRINT ST1
   RETURN
ENDIF
IF UPS("!TYPE") = "REST"
   ERRCLEAR
   CONTINUE
   XEQ ST1
   IF !CIERROR <> 0
      ECHO THE LIMITS WERE NOT STORED
      ECHO RESTORE CAN NOT BE PERFORMED
   ELSE
      ECHO SETTING LIMIT TO:
      PRINT ST1
   ENDIF
   RETURN
ENDIF
IF UPS("!TYPE") = "SHOW"
   ECHO JOB LIMIT = !HPJOBLIMIT ; JOB COUNT = !HPJOBCOUNT
   ECHO SESSION LIMIT = !HPSESLIMIT ; SESSION COUNT = !HPSESCOUNT
   RETURN
ENDIF
ECHO VALID OPTIONS ARE:
ECHO   SHOW - DISPLAY THE CURRENT LIMITS
ECHO   STOR - TO STORE THE CURRENT JOB AND SESSION LIMITS
ECHO   REST - TO RESTORE THE JOB SESSION LIMITS