HP3000-L Archives

November 1997, 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:
Tim Ericson <[log in to unmask]>
Reply To:
Tim Ericson <[log in to unmask]>
Date:
Tue, 18 Nov 1997 11:26:41 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (36 lines)
James Reynolds wrote:
>
>      Ok.. I need to be able within a jobstream to identify a spoolfiles
>      DFID number and set a variable the same as the number. I have it
>      working using MPEX... but I'd rather do it outside of MPEX if
>      Possible.  I don't need the STDLIST number but the actual report
>      itself....Any help???

Hi James,

Using MPE you can set variables to trap that number:

    LISTSPF O@;SELEQ=[JOBNUM=J!HPJOBNUM AND FILEDES=REPNAME] > LSFILE
    PRINT LSFILE;START=4;END=4 > PRFILE
    INPUT LSREC < PRFILE
    SETVAR LSREC, RTRIM(STR(LSREC,02,10)," ") + ".OUT.HPSPOOL"
    PRINT !LSREC

This example assumes that you want to view the contents of the file, but
by leaving the '.OUT.HPSPOOL' off the SETVAR for LSREC, you could have
the desired DFID number (with the letter 'O' on the beginning).  I use
this type of extraction in several command files on a daily basis, both
in sessions and jobs.

HTH!

  +------------------------------------------------------------------+
   My mind is my own, as are my ideas and opinions.
   My heart, body, and soul, however, all belong to others.      Tim.
  +------------------------------------------------------------------+
   Tim Ericson             tericson    DenKor Dental Management Corp.
   Sr. Programmer/Analyst   @denkor     (aka Willamette Dental Group)
     (& Systems Manager)     .com      (503) 526-4440 (direct number)
   Programming HP3000s since 1983!    http://www.teleport.com/~dental
  +------------------------------------------------------------------+

ATOM RSS1 RSS2