|
midrange.com
This also looks good Tim...I cannot find SNDM on my box (v4.3 may be the
problem?)...questions...
1. is CSV the default for CPYTOIMPF?
2. can this file be e-mailed WITHOUT SNDM from the 400 directly and, if so,
do you know how and the specific parameters involved (how does the SNDDST
command work if it is related here?)
Thanks for assist, tim.
Rick
>From: "Hatzenbeler, Tim" <thatzenbeler@clinitech.net>
>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 08:36:29 -0700
>
>This message is in MIME format. Since your mail reader does not understand
>this format, some or all of this message may not be legible.
>--
>[ Picked text/plain from multipart/alternative ]
>Scott's solutions is very nice, and can be used for other purposes as
>well... But here is another method that I have used in the past..
>
> STRQMQRY QMQRY(ALLOCATED) OUTPUT(*OUTFILE) +
> QMFORM(*QMQRY) OUTFILE(QTEMP/ALLOCATE) +
> ALWQRYDFN(*YES)
>
> CPYTOIMPF FROMFILE(QTEMP/ALLOCATE) +
> TOSTMF('\timtest\allocate.csv') +
> MBROPT(*REPLACE) RCDDLM(*CRLF)
>
> SNDM FROM(THATZENBELER@xxxxx.NET) +
> FILE(TESTMAIL) SUBJECT('ALLOCATION DATA') +
> ATTACHMENT('Timtest/ALLOCATE.csv') +
> REPLYTO(THATZENBELER@xxxxx.NET) +
> TMPDIR('/Timtest')
>
> > -----Original Message-----
> > From: Rick Rayburn [SMTP:the400man@hotmail.com]
> > Sent: Thursday, August 15, 2002 8:10 AM
> > To: midrange-l@midrange.com
> > Subject: RE: Sending a user results of a query
> >
> > 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
> >
> > _______________________________________________
> > 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.
>This e-mail message, including any attachments, is for the sole use of the
>intended recipient(s) and may contain confidential or privileged
>information. Any unauthorized review; use, disclosure or distribution is
>prohibited. If you are not the intended recipient, please contact the
>sender by reply e-mail and destroy the message.
>_______________________________________________
>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
As an Amazon Associate we earn from qualifying purchases.
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.
