RE: Problem with the STRPCO & STRPCCCMD command -- MIDRANGE-L


Thanks a lot.  This is what worked.

> The CL Program      :-
>
>      PGM  PARM(&STATE)
>
>      DCL        VAR(&STATE) TYPE(*CHAR) LEN(4)
>      DCL        VAR(&NAME1) TYPE(*CHAR) LEN(35)
>      DCL        VAR(&NAME2) TYPE(*CHAR) LEN(35)
>      DCL        VAR(&NAME3) TYPE(*CHAR) LEN(35)
>      DCL        VAR(&NAME4) TYPE(*CHAR) LEN(35)
>         MONMSG (CPF0000)
>         STRPCO
>      CHGVAR     VAR(&NAME1) VALUE('RTOPCB C:\OFFLINE\' +
>         *TCAT &STATE *TCAT '\NDSDTA' *TCAT +
>         &STATE *TCAT '.TTO')
>      CHGVAR     VAR(&NAME2) VALUE('RTOPCB C:\OFFLINE\' +
>         *TCAT &STATE *TCAT '\NDSNAM' *TCAT +
>         &STATE *TCAT '.TTO')
>      CHGVAR     VAR(&NAME3) VALUE('RTOPCB C:\OFFLINE\' +
>         *TCAT &STATE *TCAT '\NDSADR' *TCAT +
>         &STATE *TCAT '.TTO')
>      CHGVAR     VAR(&NAME4) VALUE('RTOPCB C:\OFFLINE\' +
>         *TCAT &STATE *TCAT '\NDSPHO' *TCAT +
>         &STATE *TCAT '.TTO')
>
>                     STRPCCMD   PCCMD(&NAME1)
>                     STRPCCMD   PCCMD(&NAME2)
>                     STRPCCMD   PCCMD(&NAME3)
>                     STRPCCMD   PCCMD(&NAME4)
>
>      ENDPGM
>
>      When the STRPCO was given again it used to flash an inquiry message
>      i.e. IWS4010. This is removed by giving the MONMSG (CPF0000)
>


Cheers
Vijosh

-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Todd kidwell
Sent: Wednesday, May 17, 2000 9:32 PM
To: MIDRANGE-L@midrange.com
Subject: Re: Problem with the STRPCO & STRPCCCMD command


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




--------------------------------------------------------------
Systems & Software, Mumbai, India
  
     Sent using "The PostMaster" by QuantumLink Communications
   
   One Internet account, unlimited personal e-mail addresses
Get your free copy of "The PostMaster" at http://www.qlcomm.com/ 


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