× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Here it is again.

/* Group Dekko Services, LLC                                        */
/* ALL RIGHTS RESERVED.                                             */
/*                                                                  */
/* This program will ...                                            */
/*                                                                  */
/*                                                                  */
/* Modification log:                                                */
/* 08/10/99 by R.Berendt, CDP   GDS,LLC                             */
/*          Created                                                 */
/*                                                                  */
/*                                                                  */
PGM

    DCL  &APOS        *CHAR   1  /* Apostrophe                       */
    DCL  &SQLSTMT     *CHAR 200  /* SQL statement                    */
    DCL  &SYSTEM      *CHAR   8  /* System name                      */

             CHGVAR     VAR(&APOS) VALUE(X'7D')

    /*     +
     | Retrieving network attributes     +
    */
       SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA( +
       'Retrieving network attributes.'     +
                   ) TOPGMQ(*EXT) MSGTYPE(*STATUS)
             RTVNETA    SYSNAME(&SYSTEM)

    /*     +
     | Refresh the list of users.     +
    */
       SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA( +
       'Refreshing the list of users.'     +
                   ) TOPGMQ(*EXT) MSGTYPE(*STATUS)
       DSPUSRPRF USRPRF(*ALL) OUTPUT(*OUTFILE) OUTFILE(QTEMP/USERS)

    /*     +
     | Create the spool file of users     +
    */
       SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA( +
       'Creating the spool file of users.'     +
                   ) TOPGMQ(*EXT) MSGTYPE(*STATUS)
             RUNQRY     QRY(MAXSTORAGE)

    /*     +
     | Copy the spool file into a disk file     +
    */
       SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA( +
       'Copying the spool file into a disk file.'     +
                   ) TOPGMQ(*EXT) MSGTYPE(*STATUS)
             DLTF       FILE(QTEMP/SPOOL)
             MONMSG     MSGID(CPF2105) /* File not found */
             CRTPF      FILE(QTEMP/SPOOL) RCDLEN(150)
             CPYSPLF    FILE(QPQUPRFIL) TOFILE(QTEMP/SPOOL) +
                          SPLNBR(*LAST)

    /*     +
     | Merge the heading file and the spool file     +
    */
       SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA( +
       'Merging the heading file and the spool file.'     +
                   ) TOPGMQ(*EXT) MSGTYPE(*STATUS)
             DLTF       FILE(QTEMP/MESSAGE)
             MONMSG     MSGID(CPF2105) /* File not found */
             CRTPF      FILE(QTEMP/MESSAGE) RCDLEN(150)
             CPYF       FROMFILE(MAXSTORAGE) +
                          TOFILE(QTEMP/MESSAGE) MBROPT(*ADD) +
                          FMTOPT(*NOCHK)
    /*     +
     | Append system name to end of subject line.     +
     | UPDATE QTEMP/MESSAGE     +
     |        SET MESSAGE=SUBSTR(MESSAGE,1,66) CONCAT ' - '     +
     |            CONCAT &SYSTEM     +
     |        WHERE SUBSTR(MESSAGE,1,7)='Subject'     +
    */
             CHGVAR     VAR(&SQLSTMT) VALUE('UPDATE QTEMP/MESSAGE +
                          SET MESSAGE=SUBSTR(MESSAGE,1,66) CONCAT +
                          ' *CAT &APOS *CAT ' - ' *CAT &APOS *CAT +
                          ' CONCAT ' *CAT &APOS *CAT &SYSTEM *CAT +
                          &APOS *CAT ' WHERE +
                          SUBSTR(MESSAGE,1,7)=' *CAT &APOS *CAT +
                          'Subject' *CAT &APOS)
             RUNSQL     REQUEST(&SQLSTMT)
    /*     +
     | Insert system name.     +
    */
             CHGVAR     VAR(&SQLSTMT) VALUE('INSERT INTO +
                          QTEMP/MESSAGE VALUES(' *TCAT &APOS *TCAT +
                          &SYSTEM *TCAT &APOS *TCAT ')')
             RUNSQL     REQUEST(&SQLSTMT)
             CPYF       FROMFILE(QTEMP/SPOOL) TOFILE(QTEMP/MESSAGE) +
                          MBROPT(*ADD) FMTOPT(*NOCHK)

    /*     +
     | Ensure that working directory exists, and working file does not.   
+
    */
       SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA( +
       'Ensuring that working directory exists and working file doesnt'   
+
                   ) TOPGMQ(*EXT) MSGTYPE(*STATUS)
             MD         DIR('/qtemp')
             MONMSG     MSGID(CPFA0A0)
             DEL        OBJLNK('/qtemp/maxstg.txt')
             MONMSG     MSGID(CPFA0A9)

    /*     +
     | Send the file to the selected users     +
    */
       SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA( +
       'Sending the file to the selected users.'     +
                   ) TOPGMQ(*EXT) MSGTYPE(*STATUS)
             IF         COND(&SYSTEM *NE 'GDISYS') THEN(DO)
             SNDEMAIL10 FILE(MESSAGE) LIB(QTEMP) MBR(MESSAGE) +
                          STMF('/qtemp/maxstg.txt') +
                          ORIGINATOR(ROB@xxxxxxxxx) +
                          RECIPIENT( +
                                    (ROB@xxxxxxxxx)    +
                                    (PEGGY@xxxxxxxxx)  +
                                    (TROYM@xxxxxxxxx)  +
                                    (KEVINR@xxxxxxxxx) +
                                   )
             ENDDO
             ELSE       CMD(DO)
             SNDEMAIL10 FILE(MESSAGE) LIB(QTEMP) MBR(MESSAGE) +
                          STMF('/qtemp/maxstg.txt') +
                          ORIGINATOR(ROB@xxxxxxxxx) +
                          RECIPIENT( +
                                    (ROB@xxxxxxxxx)    +
                                    (PEGGY@xxxxxxxxx)  +
                                    (KEVINR@xxxxxxxxx) +
                                   )
             ENDDO
    /*     +
     | Delete spool file     +
    */
       SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA( +
       'Deleting the spool file.'     +
                   ) TOPGMQ(*EXT) MSGTYPE(*STATUS)
             DLTSPLF    FILE(QPQUPRFIL) SPLNBR(*LAST)


END:

             ENDPGM

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




"Jim Franz" <franz400@xxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
03/03/2003 02:30 PM
Please respond to Midrange Systems Technical Discussion
 
        To:     "Midrange Systems Technical Discussion" 
<midrange-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        Re: Grabbing wrong spool file


Show the code. How is the spool file data passed to your
email process?
jim
----- Original Message -----
From: <rob@xxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Monday, March 03, 2003 1:45 PM
Subject: Re: Grabbing wrong spool file


> Nice try.  But that job is submitted from the WRKJOBSCDE.  I can't see 
how
> it would have any of those overrides.
>
> Rob Berendt
> --
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
>
>
>
>
> Scott Klement <klemscot@xxxxxxxxxxxx>
> Sent by: midrange-l-bounces@xxxxxxxxxxxx
> 03/03/2003 01:18 PM
> Please respond to Midrange Systems Technical Discussion
>
>         To:     Midrange Systems Technical Discussion
> <midrange-l@xxxxxxxxxxxx>
>         cc:
>         Fax to:
>         Subject:        Re: Grabbing wrong spool file
>
>
>
> On Mon, 3 Mar 2003 rob@xxxxxxxxx wrote:
> >
> > One of the problems is, that on RARE occasions the wrong spool file is
> > grabbed.  Not only is the spool file name different, but the spool 
file
> > was originated outside of this job.  Can't figure out how that could
> > happen.
> >
>
> You wouldn't happen to have an old OVRPRTF still hanging around, would
> you?  Maybe OVRPRTF FILE(*PRTF) TOFILE(QSYSPRT) or something similar?
>
> Just a thought.
>
> _______________________________________________
> 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.
>
>
> _______________________________________________
> 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.
>
>


_______________________________________________
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 ...

Follow-Ups:
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.