The field that is going to store the spool file number as a parameter to
  pass to another program is 6 characters long.  Since the data structure
  field is a binary field, will something like

  MOVE SPLNBR     SPOOLN
  work?

    ----------------------------------------------------------------------

    From:  "Barton, Mike" <Mike.Barton@xxxxxxxxxxxxx>
    Reply-To:  Midrange Systems Technical Discussion
    <midrange-l@xxxxxxxxxxxx>
    To:  "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
    Subject:  RE: Retrieving a spool file number
    Date:  Fri, 9 Sep 2005 17:01:30 +0200
    >
    > >   Is there a way to retrieve the spool file number from a spool file
    >at >the
    > >   time it is created?
    > >   I need to retrieve the user name and job number from the program
    >status
    > >   data structure but
    > >   also need the spool file number to use a parameters to pass to
    >another
    > >   program.
    > >
    > >   I looked in the archives but didn't find anything on this.
    >
    >
    >Bob
    > if this is in an RPG put a DS on the
    >printer file in question and then look in
    >position 123-124 (binary).
    >
    >HTH
    >
    >Mike
    >
    >e.g.
    >FXXPRTF  O   F     132     OA     PRINTER      KINFDS INFDSP
    >IINFDSP      DS
    >I                                       123 124B0SPLNBR
    >
    >
    >--
    >
    >
    >
    >
    >--
    >This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
    list
    >To post a message email: MIDRANGE-L@xxxxxxxxxxxx
    >To subscribe, unsubscribe, or change list options,
    >visit: http://lists.midrange.com/mailman/listinfo/midrange-l
    >or email: MIDRANGE-L-request@xxxxxxxxxxxx
    >Before posting, please take a moment to review the archives
    >at http://archive.midrange.com/midrange-l.
    >

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.