Re: Debugger and CPYF command

[Arturo_Duarte@xxxxxxxxxxxxxxx]

>From Code Editor, Actions>Debug>Non-interactive application






berestet@xxxxxxxxxx
Sent by: code400-l-bounces@xxxxxxxxxxxx
02/19/2003 12:54 PM
Please respond to "CODE/400 Discussion & Support"

 
        To:     "CODE/400 Discussion & Support" <code400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Re: Debugger and CPYF command


Hi Art,
I wonder how you start your Distributed Debugger session...

Thanks,
Vadim
Distributed Debugger Development




   
                      Arturo_Duarte@xxxxx    
                      rywide.com                 To: 
code400-l@xxxxxxxxxxxx  
                      Sent by:                   cc:     
                      code400-l-bounces@x        Subject:  Debugger and 
CPYF command  
                      idrange.com   
   
   
                      02/19/2003 01:33 PM    
                      Please respond to    
                      CODE/400 Discussion    
                      & Support   
   
   



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




_______________________________________________
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