RE: Sending a user results of a query

["Rick Rayburn" <the400man@xxxxxxxxxxx>]

this is great Scott!
So, let me see if I have some of this straight: I read in the spool file
attributes from the dataq, call the clp program (e.g.'MRLMKTD3C') to copy
spool file to a, for instance, 132 byte flat PF and then execute a CPYTOINPF
command to send a CSV-formatted file (is CSV the default on CPYTOINPF)
to...????....mail server?...another 400?...any address on my LAN?...

Thanks again Scott. This info is very helpful.

Rick



>From: Scott Mildenberger <Smildenber@Washcorp.com>
>Reply-To: midrange-l@midrange.com
>To: "'midrange-l@midrange.com'" <midrange-l@midrange.com>
>Subject: RE: Sending a user results of a query
>Date: Thu, 15 Aug 2002 07:56:19 -0600
>
>Rick,
>
>Below is a sample program that reads a data q and processes the spool files
>from it.   CPYTOIMPF copies a PF to an import file which can be a comma
>delimited file.  It, and its cousin CPYFRMIMPF, make it very easy to
>transfer data back and forth between different systems.
>
>Scott Mildenberger
>
>
>      h dftactgrp(*no)
>      h actgrp(*new)
>      h bnddir('MRLBIND')
>      h option(*srcstmt : *noshowcpy : *nodebugio)
>
>       *
>       * Calls QRCVDTAQ for a data queue associated with a spool file.
>       * The wait time is negative so it always waits for an entry.
>       *
>       * Parameters
>       *
>      d dataq           S             10A   inz('MRLMKTD3')
>      d Library         S             10a   inz('*LIBL  ')
>      d Length          S              5  0 inz(132)
>      d Wait            S              5  0
>       *
>      d Spool_Num_Dec   S              5  0
>       *
>       * Outq Information returned to the Dataq
>       *
>      d Data            DS
>      d Function                      10a
>      d Type                           2a
>      d Job_Name                      10a
>      d User_Name                     10a
>      d Job_Number                     6a
>      d Spool_File                    10a
>      d Spool_Num_Bin                  8b 0
>      d Outq_Name                     10a
>      d Outq_Library                  10a
>      d Reserved                      56a
>
>       /copy common/qprotosrc,sys_utils
>
>       * Set Wait time
>       *
>      c                   eval      wait = -1
>       *
>      c                   do        *hival
>       *
>      c                   call      'QRCVDTAQ'
>      c                   parm                    dataq
>      c                   parm                    Library
>      c                   parm                    length
>      c                   parm                    data
>      c                   parm                    wait
>       *
>       * Use a control Spool file to terminate the program
>       *
>      c                   if        Spool_File = 'EXIT'
>      c                   leave
>      c                   end
>       *
>      c                   z-add     Spool_Num_Bin Spool_Num_Dec
>       *
>       * Call send CLP
>       *
>      c                   call(e)   'MRLMKTD3C'
>      c                   parm                    spool_file
>      c                   parm                    job_name
>      c                   parm                    user_name
>      c                   parm                    job_number
>      c                   parm                    spool_num_dec
>       *
>      c                   enddo
>       *
>      c                   eval      *inlr = *on
>
> > -----Original Message-----
> > From: Rick Rayburn [mailto:the400man@hotmail.com]
> > Sent: Thursday, August 15, 2002 6:54 AM
> > To: midrange-l@midrange.com
> > Subject: Re: Sending a user results of a query
> >
> >
> > Attaching DTAQ to OUTQ? That's great! Can you tell me the
> > parameters to
> > check for off of the RCVDTAQ command for a spool file coming in?
> >
> > Also, I have never tried the CPYTOIMPF command...can you tell
> > me a little
> > about it? Is it only for spool files? Does it automatically create CSV
> > formatted file? What is it generally used for? Anything you
> > can share will
> > be of great assistance Vernon.
> >
> > Thanks for your time as always.
> >
> > Rick Rayburn
> >
> >
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.




_________________________________________________________________
Join the world’s largest e-mail service with MSN Hotmail.
http://www.hotmail.com