Having problem (CPD5CE5) during creation of Service program using the Binder language

125 pts.
Tags:
AS/400
I'm having a problem (CPD5CE5) during creation of Service program using the Binder language, need a hand here. I will give detail explanation below!
0

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

Discuss This Question: 4  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.
  • harish1990

    Hi

    Main program is LoGIC:

    D/COPY PROCEDURE,PROC                       
    DA                S              2  0 INZ(10)
    DB                S              2  0 INZ(5)
    DC                S              3  0       
     *                                          
     /FREE                                      
         C = ADD(A:B);                          
         DSPLY C;                               
         *INLR = *ON;                           
     /END-FREE                                  

    The subprocedure is MODULE1

    H NOMAIN                                   
    D/COPY PROCEDURE,PROC                      
    PADD              B                   EXPORT
    DADD              PI             3  0      
    DA                               2  0      
    DB                               2  0      
     *                                         
    DC                S              3  0      
     /FREE                                     
        C = A + B;                             
        RETURN C;                              
     /END-FREE                                 
    PADD              E                        

    the copybook is PROC

    DADD              PR             3  0
    DA                               2  0
    DB                               2  0

    The BInding Language is BINDR in the library QSRVSRC/DEVHR

    Opt  Member      Type        Text           
         BINDR       BND         BINDING LANGUAGE

    STRPGMEXP  PGMLVL(*CURRENT)
       EXPORT SYMBOL('MODULE1')
    ENDPGMEXP                 

    I created the module for both LOGIC and also for MOdule 1 using 15,

    now If i'm trying to create the service program using the following

     ===> CRTSRVPGM SRVPGM(DEVHR/SRV1) MODULE(DEVHR/MODULE1) SRCFILE(DEVHR/QSRVSRC)
    SRCMBR(BINDR)                                                                  

    Service program SRV1 not created.

    when I check the job log, its showing

    CRTSRVPGM SRVPGM(DEVHR/SRV1) MODULE(DEVHR/MODULE1) SRCFILE(DEVHR/QSRVSRC)
    SRCMBR(BINDR)                                                           
    DEVHR/QSRVSRC.BINDR line 2: ***ERROR Symbol not defined: 'MODULE1'      
    Binder language compilation failed with 1 errors and 0 warnings.        
    Service program SRV1 not created.                                       

    when I took f1 in the error statement I can see..

    Message ID . . . . . . :   CPD5CE5       Severity . . . . . . . :   30        
    Message type . . . . . :   Diagnostic                                         
    Date sent  . . . . . . :   08/18/15      Time sent  . . . . . . :   05:04:10  
                                                                                  
    Message . . . . :   DEVHR/QSRVSRC.BINDR line 2: ***ERROR Symbol not defined:  
      'MODULE1'                                                                   
    Cause . . . . . :   Symbol 'MODULE1' does not exist in the service program and
      thus cannot be exported from it. This error occurred while compiling line 2 
      of binder language source BINDR in file QSRVSRC in library DEVHR while      
      attempting to create service program SRV1 in library DEVHR.                 
    Recovery  . . . :   Make one of the following changes and try the Create      
      Service Program (CRTSRVPGM) or Update Service Program (UPDSRVPGM) command   
      again:                                                                      
        Make the symbol available for export from the service program by exporting
      it from one of the modules bound by copy into the service program.          
        Remove the EXPORT command for symbol 'MODULE1'.                           

    Need Help..



    125 pointsBadges:
    report
  • TheRealRaven
    It's exactly as the message says: Nowhere in the code is symbol "MODULE1" defined. Your binder source has an EXPORT reference to it. Either define the symbol in the source or remove the EXPORT.

    From what I see, the only possible EXPORT you can reference in your binder source is procedure "ADD". You don't mark anything else for export.
    35,190 pointsBadges:
    report
  • harish1990

    yes Thanks Raven...mIseed the small part..Done the DSPMOD in MODULE1...found the Source is 'ADD' now I used

     ===> CRTSRVPGM SRVPGM(DEVHR/SRV1) MODULE(DEVHR/MODULE1) SRCFILE(DEVHR/QSRVSRC)
    SRCMBR(BINDR)                                                                 

    Service program SRV1 created in library DEVHR.

    Thanks For  your HElp:)

    125 pointsBadges:
    report
  • harish1990
    And I have another doubt...do I need to mention the MODULE1 in the Module list during creation of the Service program. Please clarify me on this..
    125 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: