Re: Problem with the STRPCO & STRPCCCMD command

["Todd kidwell" <Todd.kidwell@xxxxxxxxxxxxxxxxxx>]

Vijosh,

I don't know if you have this resolved yet or not, but I wanted to make a quick 
observation that may be contributing to your problem.  You have the length of 
variable &FName = 24; however, based on what I can tell, this variable needs a 
minimum value of 28.

Also, I don't know if there is a misspelling on the code you provided, but I'm 
guessing you want to append '.TTO' to the end of the file name.  If that's the 
case, your &FName should look like this:  Value('RTOPCB C:\OFFLINE\' *tcat 
&Name *tcat '.TTO').  This would give your variable &FName a value of 32.

HTH,


Todd Kidwell (Netstar)
AS/400 System Administrator

>>> "Vijosh.A" <vijosh@systsoft.com> 05/11/00 08:25AM >>>
Hi Guys ,

Need some help on this -

We are trying to  transfer data from PC to AS/400 & from AS/400 to PC  using  
STRPCO command in our CL Program. ( Kindly refer to  CL program given at the 
end of the message )

We face the following problems - 

1) When  CL is executed repeatedly  (i.e. for different files) it flashes an 
inquiry message (IWS4010) saying that the PC organizer for  Client Access is 
already active.  System allows us to continue the program after ignoring the 
error.  How do we   eliminate this message ?

2) The filenames passed to  STRPCCMD keeps on changing and so we are giving it 
in the following form -
 STRPCCMD (&FNAME).
But at file  transfer we get an error - 'ACCESS IS DENIED'

3)  The given CL program needs to be executed in batch.  But the STRPCCMD 
cannot be run in batch.  Are there are any alternatives /solutions to this 
problem.
 
*****************************CL Program**************************
PGM PARM(&NAME)
DCL VAR(&NAME) TYPE(*CHAR) LEN (10)
DCL CAR(&FNAME) TYPE(*CHAR) LEN (24)
CHGVAR VAR(&FNAME) VALUE(*RTOPCB C:\OFFLINE\* TCAT &NAMETCAT TTO*)
STRPCO
STRPCCMD(&FNAME)
ENDPGM

******************************************************


Thanks in advance 
Vijosh


>From the Desk of :

Vijosh A.
Senior Consultant
Systems & Software 
SEEPZ, Mumbai, India.

Tel  : (91-22) 829 0803 / 0075
Fax : (91-22) 829 2578 / 1389

+---
| 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
+---