HP3000-L Archives

July 1999, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Larry Barnes <[log in to unmask]>
Reply To:
Larry Barnes <[log in to unmask]>
Date:
Wed, 21 Jul 1999 14:12:02 -0700
Content-Type:
multipart/mixed
Parts/Attachments:
text/plain (1897 bytes) , lbarnes.vcf (236 bytes)
I wrote a jobstream that is streamed using STREAMX that has several
prompts.  Based on these prompts it builds flat files.  Give it a try.

!JOB {HPJOBNAME},{HPUSER}.{HPACCOUNT},{HPGROUP};HIPRI
::echo
::echo Options:
::echo  1 = review nmconfig file
::echo  2 = review nsdir file
::echo
::prompt integer config="Enter your option here (1 or 2) " ;&
::   check = between(config,1,2); &
::   checkerror = "enter 1 or 2 only "
::If config = 1
:: setvar optcmd = "openconf nmconfig.pub.sys"
:: echo
:: echo Summary options are :
:: echo  1 = DTS summary
:: echo  2 = NETXPORT summary
:: echo  3 = LOGGIN summary
:: echo
:: prompt integer summary = "Enter your summary option: " ;&
::        check = between(summary,1,3) ;&
::        checkerror = "Enter option 1, 2, or 3 only "
:: if summary = 1
::  setvar opt = "summaryconf dts"
:: else
::  if summary = 2
::   setvar opt = "summaryconf netxport"
::   setvar dtsout = "DTSNETXP"
::  else
::   setvar opt = "summaryconf logging"
::   setvar dtsout = "DTSLOG"
::  endif
:: endif
:: if summary = 1
::  echo
::  echo DTS Options are :
::  echo 1 = LDEV listing
::  echo 2 = PROFILE listing
::  prompt integer dts="Enter your option: " ;&
::         check = between(dts,1,2) ;&
::         checkerror = "Enter 1 or 2 only  "
::  if dts = 1
::   setvar dtsopt = "LDEV"
::   setvar dtsout  = "DTSLDEV"
::  else
::   setvar dtsopt = "PROFILE"
::   setvar dtsout  = "DTSPROF"
::  endif
:: endif
::else
:: setvar optcmd = "opendir nsdir.net.sys"
:: setvar dtsout  = "DTSNSDR1"
:: setvar opt    = "listdir"
::endif
!god
!PURGE {DTSOUT}
!FILE NMMGRCMD=$STDINX
!FILE FORMLIST={dtsout};REC=-80,,F,ASCII;DISC=8000;NOCCTL;SAVE;DEV=DISC
!NMMGR
 {optcmd}
 {opt}
::If config = 1
:: if summary = 1
 {dtsopt}
:: endif
 EXIT
 EXIT
::ELSE
 EXIT
!DTSLISTC < {dtsout}
::Endif
!Tell {hpjobname},{hpuseer}.{hpaccount} {DTSOUT} FILE IS READY FOR
VIEWING
!EOJ


Larry Barnes
(in between jobs)
hoping to return to Colorado
and leave purgatory, I mean AZ behind !


ATOM RSS1 RSS2