ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

Creating a new version of a service program

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Creating a new version of a service program

    I'm at a point where I need to add a couple of modules to my service program. I know that you can do this without having to recompile your existing programs, I'm just not exactly sure how.

    I have the binder source, and I've made the current version into the prv version and then created a new current version.

    Code:
    STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('VALFIELD 110408')
      EXPORT SYMBOL(VFACPR)
      EXPORT SYMBOL(VSBUPR)
      EXPORT SYMBOL(VMKTPR)
      EXPORT SYMBOL(VPRDPR)
      EXPORT SYMBOL(VCLSPR)
      EXPORT SYMBOL(VDEPTPR)
      EXPORT SYMBOL(VWCPR)
      EXPORT SYMBOL(VEMPPR)
      EXPORT SYMBOL(VWHSPR)
      EXPORT SYMBOL(VTFRAMEPR)
    ENDPGMEXP
    
    STRPGMEXP PGMLVL(*PRV) SIGNATURE('VALFIELD 101508')
      EXPORT SYMBOL(VFACPR)
      EXPORT SYMBOL(VSBUPR)
      EXPORT SYMBOL(VMKTPR)
      EXPORT SYMBOL(VPRDPR)
      EXPORT SYMBOL(VCLSPR)
      EXPORT SYMBOL(VDEPTPR)
      EXPORT SYMBOL(VWCPR)
      EXPORT SYMBOL(VEMPPR)
    ENDPGMEXP
    I did this in my test about a month ago, and I can't remember what exactly I did here. Do I need to remove the current object from binding directory and then recompile the new service program and add it to the binding directory again? Or could I just recompile the service program?

    Or am I missing something?
    Your future President
    Bryce

    ---------------------------------------------
    http://www.bravobryce.com

  • #2
    Re: Creating a new version of a service program

    just recompile...remember a binding directory only lists objects...it doesn't bind to them...i think that IBM could have picked a better name for those. like maybe CMPDIR(compile directory)...using the word binding just plain confuses people...
    I'm not anti-social, I just don't like people -Tommy Holden

    Comment


    • #3
      Re: Creating a new version of a service program

      BTW a little reminder.
      • Never change the Signature in the binder source member.
      • New Exports MUST be added at the end.
      • Old Exports MUST NEVER be removed from the list.
      • The order of Exports MUST NEVER CHANGE


      Just my 2 cts.
      Philippe

      Comment


      • #4
        Re: Creating a new version of a service program

        Hi,

        Add your procedure names at the end.
        Change Signature
        STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('VALFIELD 110408')
        EXPORT SYMBOL(VFACPR)
        EXPORT SYMBOL(VSBUPR)
        EXPORT SYMBOL(VMKTPR)
        EXPORT SYMBOL(VPRDPR)
        EXPORT SYMBOL(VCLSPR)
        EXPORT SYMBOL(VDEPTPR)
        EXPORT SYMBOL(VWCPR)
        EXPORT SYMBOL(VEMPPR)
        EXPORT SYMBOL(VWHSPR)
        EXPORT SYMBOL(VTFRAMEPR)

        EXPORT SYMBOL(New Procedure Name1)
        EXPORT SYMBOL(New Procedure Name2)

        ENDPGMEXP

        STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('VALFIELD 110408')
        Change (*CURRENT) to (*PRV) SIGNATURE('VALFIELD 110408')
        EXPORT SYMBOL(VFACPR)
        EXPORT SYMBOL(VSBUPR)
        EXPORT SYMBOL(VMKTPR)
        EXPORT SYMBOL(VPRDPR)
        EXPORT SYMBOL(VCLSPR)
        EXPORT SYMBOL(VDEPTPR)
        EXPORT SYMBOL(VWCPR)
        EXPORT SYMBOL(VEMPPR)
        EXPORT SYMBOL(VWHSPR)
        EXPORT SYMBOL(VTFRAMEPR)
        ENDPGMEXP

        STRPGMEXP PGMLVL(*PRV) SIGNATURE('VALFIELD 101508')
        EXPORT SYMBOL(VFACPR)
        EXPORT SYMBOL(VSBUPR)
        EXPORT SYMBOL(VMKTPR)
        EXPORT SYMBOL(VPRDPR)
        EXPORT SYMBOL(VCLSPR)
        EXPORT SYMBOL(VDEPTPR)
        EXPORT SYMBOL(VWCPR)
        EXPORT SYMBOL(VEMPPR)
        ENDPGMEXP

        Thanks
        R Babu

        Comment


        • #5
          Re: Creating a new version of a service program

          Hi,

          Add your procedure names at the end.
          Change Signature
          STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('VALFIELD 110408')
          EXPORT SYMBOL(VFACPR)
          EXPORT SYMBOL(VSBUPR)
          EXPORT SYMBOL(VMKTPR)
          EXPORT SYMBOL(VPRDPR)
          EXPORT SYMBOL(VCLSPR)
          EXPORT SYMBOL(VDEPTPR)
          EXPORT SYMBOL(VWCPR)
          EXPORT SYMBOL(VEMPPR)
          EXPORT SYMBOL(VWHSPR)
          EXPORT SYMBOL(VTFRAMEPR)

          EXPORT SYMBOL(New Procedure Name1)
          EXPORT SYMBOL(New Procedure Name2)

          ENDPGMEXP

          STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('VALFIELD 110408')
          Change STRPGMEXP PGMLVL(*PRV) SIGNATURE('VALFIELD 110408')
          EXPORT SYMBOL(VFACPR)
          EXPORT SYMBOL(VSBUPR)
          EXPORT SYMBOL(VMKTPR)
          EXPORT SYMBOL(VPRDPR)
          EXPORT SYMBOL(VCLSPR)
          EXPORT SYMBOL(VDEPTPR)
          EXPORT SYMBOL(VWCPR)
          EXPORT SYMBOL(VEMPPR)
          EXPORT SYMBOL(VWHSPR)
          EXPORT SYMBOL(VTFRAMEPR)
          ENDPGMEXP

          STRPGMEXP PGMLVL(*PRV) SIGNATURE('VALFIELD 101508')
          EXPORT SYMBOL(VFACPR)
          EXPORT SYMBOL(VSBUPR)
          EXPORT SYMBOL(VMKTPR)
          EXPORT SYMBOL(VPRDPR)
          EXPORT SYMBOL(VCLSPR)
          EXPORT SYMBOL(VDEPTPR)
          EXPORT SYMBOL(VWCPR)
          EXPORT SYMBOL(VEMPPR)
          ENDPGMEXP

          Thanks
          R Babu

          Comment

          Working...
          X