RE: Capture spool file name created in a job stream -- MIDRANGE-L

****** If this is a duplicate post, please excuse!, we seem to be
having some Microsoft moments on the mail server ******

Ravi, I have attached a representative CL and the supporting commands
that might get you going. I'm not sure it is exactly what you want but
may help.

We have support programs that run which initially were for our use,
but there is interest for the information in the user community, since
the reports are not part of any particular system, they live in my
library. The need to distribute the spooled reports with out me
"fingering" in the commands daily led me to this solution and with
some help from folks on the list here, this is the result.

The CL calls the program which gens the spool file in my lib, the
RTVSPLFID gets the spoolfile attributes needed for the SNDNETSPLF
command. Then the SND... does its thing.  The screen prints are the
commands on the 400 that need to be set up to automate the process.

Seems like you could apply this in you situation!

___________________________________________________________________
PGM                                                   
 DCL        VAR(&USR)  TYPE(*CHAR) LEN(10)             
 DCL        VAR(&JOB)  TYPE(*CHAR) LEN(06)             
 DCL        VAR(&SPLN) TYPE(*CHAR) LEN(06)             
 MONMSG     MSGID(CPF0000 CPF0001)                     
 CALL       PGM(HGR0093/LSSU703U)                      
 RTVSPLFID  SPLF(QSYSPRT) JOB(HGR0093/DPRACTIVTY) +    
              RTNUSER(&USR) RTNJOBNBR(&JOB) +          
              RTNSPLNBR(&SPLN)                         
 SNDNETSPLF FILE(QSYSPRT) TOUSRID((DPROPRPT AS400A)) + 
              JOB(&JOB/&USR/DPRACTIVTY) SPLNBR(&SPLN)  
 ENDPGM                                                
____________________________________________________________________
                          Work with Distribution Lists

 

 Type options, press Enter.

   1=Create list     2=Change list   4=Delete list   5=Display entries

   6=Print entries   7=Rename list   8=Work with entries

 

 Opt   ------List ID------   Description

 

       DPROPRPT   AS400A     Data Propogator Report Distribution

    
 

 
Bottom 
 F3=Exit   F5=Refresh      F9=Work with nicknames   F12=Cancel

 F13=Display departments   F17=Position to

____________________________________________________________________

                      Work with Distribution List Entries

 

 List ID . . . . . . . . :   DPROPRPT  AS400A

 Description . . . . . . :   Data Propogator Report Distribution

 Owner . . . . . . . . . :   HGR0093

 

 Type options, press Enter.

   1=Add entries   4=Remove entry   5=Display details   6=Print
details         
 

 Opt   User ID    Address    Description

 

       LSC1797    AS400A     Ken Larsen

 

 
Bottom 
 F3=Exit   F5=Refresh   F12=Cancel   F17=Position to

____________________________________________________________________

                       Create Distribution List (CRTDSTL)

 

 Type choices, press Enter.

 

 List identifier:

   List ID  . . . . . . . . . . .                 Character value

   List ID qualifier  . . . . . .                 Character value

 List description . . . . . . . .

 

 
Bottom 
 F3=Exit   F4=Prompt   F5=Refresh   F10=Additional parameters
F12=Cancel      
 F13=How to use this display        F24=More keys


______________________________________________________________________
___
Howard Weatherly

hweatherly@dlis.dla.mil
howard.weatherly@ctg.com
hweath@ibm.net

X4324

 <<Capture spool file name created in a job stream>>

Subject: Capture spool file name created in a job stream
From: Ravi <ravi@xxxxxxxxxxxxx>
Date: Wed, 18 Nov 1998 13:02:02 -0500

Hello,

Scenario : A CL calls many,many RPG programs. A programmer who is
somewhat familiar with the app. says atleast 40 - 50 programs are
called
within the jobstream !!!! Programs were written many years ago. Almost
all the RPG programs have 5 or more print files defined in each
program.
There are CL's involved in the job stream which may be overriding the
spool file names. No naming convention has been followed. All print
file
opens are user controlled. Not all the print files are opened/created
all the time. Apparently there are times when no spool files are
created
in the job stream.  

Problem: Any/all spool file(s)  created in the job stream needs to be
sent to a remote system. SNDNETSPLF has to be used, which requires a
spool file name. I can trace the job stream, note down all print files
used in the programs, enter a SNDNETSPLF command in the master CL for
each print file followed by MONMSG CPF3303 (file not found in job). 
                 (or)
Take the easier way out.....SOMEHOW dynamically capture all spool file
names created in the job stream and send the files to the remote
system. 
Is this possible ? Any suggestions will be appreciated....

Thanx

Ravi
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---