Re: having PROBLEMS WITH A CL

[Buck Calabro/commsoft<mcalabro@xxxxxxxxxxxx>]

>I'm having a problem passing a parm to a CL. 
>I created a screen to enter a file name into the 
>DTAARA. I'm not sure how to call the screen up, and then 
>pass the entry to a CL program.  The scenario is this: 
>we have a file sent to the as400 from a HP9000 every night. 
>This file name is different every night.  I have to create 
>a CL program to copy this file to a production file and 
>run some programs on it.  If anyone has any ideas to a 
>better way of doing this or how to do this please write 
>me back.

Les,
  To answer your question, in your CL program, use a DCLF
command at the top of the program to define the display
file to the CLP.  Then, you can so a SNDRCVF to put the
record format on the screen and read the results.  I
don't understand why you'd want to store the file name in 
a data area when you can pass it around as a parameter,
but that's just my opinion.

  As far as the data transfer from the HP goes, is the
HP pushing the data to you via FTP?  If so, the HP guys
can do the PUT, then RCMD CALL yourprogram 'filename',
passing the file name to your CL program as a parameter
and obviating the need for a screen at all.

  You can also use various APIs to read a directory on
the 400 and pass the file name(s) to your CLP that
way.  When you're done processing, either delete or move 
the processed files to another directory/library.

  The bottom line is that *somebody* knows the file name,
or they couldn't initiate the file transfer.  Get the
initial process to capture the file name and pass it
around (parameters are easier than a data area IMHO 
because you can run multiple processes and they won't
step on each other's toes.)

Buck Calabro
CommSoft, Albany, NY
mailto:mcalabro@commsoft.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *