Re: Debugger and CPYF command -- CODE400-L

Do you need *ADD or *REPLACE ??
Madison Daily
Weldon, Williams & Lick, Inc.
(479) 783-4113 (ext. 431)
mdaily@xxxxxxxxxx 




Arturo_Duarte@xxxxxxxxxxxxxxx
Sent by: code400-l-bounces@xxxxxxxxxxxx
02/19/2003 12:33 PM
Please respond to CODE/400 Discussion & Support

 
        To:     code400-l@xxxxxxxxxxxx
        cc: 
        Subject:        Debugger and CPYF command


Hello all. 

I am having problems debugging a CL program through the IBM Distributed 
Debugger. I get a CPF2817 message on line 14 below. It just doesn't want 
to execute the copy command. What am I doing wrong?

         1   >  PGM
         2 
         3   >               CLRPFM     FILE(SRSH1HDPF)
         4   >               CLRPFM     FILE(SRSERRLOG)
         5   >               CLRPFM     FILE(SRSFLATF)
         6   >               CLRPFM     FILE(SRSHUD1XML)
         7   >               CLRPFM     FILE(SRSDTARCVD)
         8   >               CLRPFM     FILE(SRSH1RDPF)
         9   >               CLRPFM     FILE(SRSH1RAPF)
        10   >               CLRPFM     FILE(SRSH1PAPF)
        11   >               CLRPFM     FILE(SRSH1OCPF)
        12                   CRTDDMF    FILE(UADUARTE/ART) 
RMTFILE(MTGLIBP1/SRSH1HDPF) +
        13 * >                            RMTLOCNAME(ddmdevls)
        14                   CPYF       FROMFILE(UADUARTE/ART) +
        15  ->                            TOFILE(UADUARTE/SRSH1HDPF) 
MBROPT(*ADD)
        16   >               DLTF       FILE(UADUARTE/ART)
        17                   CRTDDMF    FILE(UADUARTE/ART) 
RMTFILE(MTGLIBP1/SRSDTARCVD) +
        18   >                            RMTLOCNAME(ddmdevls)
        19                   CPYF       FROMFILE(UADUARTE/ART) +
        20   >                            TOFILE(UADUARTE/SRSDTARCVD) 
MBROPT(*ADD)
        21   >               DLTF       FILE(UADUARTE/ART)
        22                /*   SBMJOB     CMD(CALL PGM(SRS0040R02)) 
JOB($SRS0040R2) +
        23                                JOBD(CFC@xxxxx) 
JOBQ(QGPL/QS36EVOKE) */
        24   >               CALL       PGM(UADUARTE/SRS0040R02)
        25   >  ENDPGM

Thanks,

Art D

_______________________________________________
This is the CODE/400 Discussion & Support (CODE400-L) mailing list
To post a message email: CODE400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/code400-l
or email: CODE400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/code400-l.

NOTE: WDSc for iSeries disucssion has it's own mailing list.
Information can be found at http://lists.midrange.com/cgi-bin/listinfo/wdsc-l




########################################################################
Note:
This message is for the named person's use only.  It may contain
confidential, proprietary or legally privileged information.  No 
confidentiality or privilege is waived or lost by any mistransmission.
If you receive this message in error, please immediately delete it and
all copies of it from your system, destroy any hard copies of it and 
notify the sender.  You must not, directly or indirectly, use, disclose,
distribute, print, or copy any part of this message if you are not
the intended recipient. Weldon, Williams & Lick, Inc. and any of its
subsidiaries each reserve the right to monitor all e-mail communications
through its networks.

Thank You.
########################################################################