RE: Service Programs

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Binder source is what defines what your service program is exporting, see
example below.  It defines a current signature and zero or more previous
signatueres.  I recommend reading the ILE Concepts manual, it is short and
readable.

STRPGMEXP PGMLVL(*CURRENT)
  EXPORT SYMBOL("ADD_ITEM")
  EXPORT SYMBOL("CLR_LIST")
  EXPORT SYMBOL("CRT_LIST")
  EXPORT SYMBOL("DEL_LIST")
  EXPORT SYMBOL("NXT_ITEM")
  EXPORT SYMBOL("RMV_ITEM")
  EXPORT SYMBOL("RTV_ITEM")
  EXPORT SYMBOL("SORT_LIST")
  EXPORT SYMBOL("UPD_ITEM")
ENDPGMEXP

STRPGMEXP PGMLVL(*PRV)
  EXPORT SYMBOL("ADD_ITEM")
  EXPORT SYMBOL("CLR_LIST")
  EXPORT SYMBOL("CRT_LIST")
  EXPORT SYMBOL("DEL_LIST")
  EXPORT SYMBOL("NXT_ITEM")
  EXPORT SYMBOL("RMV_ITEM")
  EXPORT SYMBOL("RTV_ITEM")
  EXPORT SYMBOL("SORT_LIST")
ENDPGMEXP

Scott Mildenberger

> -----Original Message-----
> From: Weatherly, Howard [mailto:Howard.Weatherly@dlis.dla.mil]
> Sent: Friday, June 21, 2002 8:12 AM
> To: 'midrange-l@midrange.com'
> Subject: RE: Service Programs
>
>
> This message is in MIME format. Since your mail reader does
> not understand
> this format, some or all of this message may not be legible.
> --
> [ Picked text/plain from multipart/alternative ]
> Binder Source ? Hmm, perhaps my question should have included
> what is binder
> source?
>
> -----Original Message-----
> From: Scott Mildenberger [mailto:Smildenber@Washcorp.com]
> Sent: Friday, June 21, 2002 9:46 AM
> To: 'midrange-l@midrange.com'
> Subject: RE: Service Programs
>
>
> It doesn't like you binder source in HGR0093/SYSTEM, what
> does that look
> like?
>
> Scott Mildenberger
>
> > -----Original Message-----
> > From: Weatherly, Howard [mailto:Howard.Weatherly@dlis.dla.mil]
> > Sent: Friday, June 21, 2002 7:42 AM
> > To: Midrange Mailing List (E-mail)
> > Subject: Service Programs
> >
> >
> > This message is in MIME format. Since your mail reader does
> > not understand
> > this format, some or all of this message may not be legible.
> > --
> > [ Picked text/plain from multipart/alternative ]
> > Folks, I know I have seen this on this list and thought I
> saved it for
> > reference but alas it is gone!
> >
> > I want to create a service program I think (any reason I
> > should do this
> > another way will be welcomed), I have created a Cobol module
> > but when I try
> > to create the service program I get this:
> >
> > CRTSRVPGM SRVPGM(HGR0093/LSSUCONVT) MODULE(*LIBL/LSSUCONVT)
> > SRCFILE(HGR009
> > 3/SYSTEM) TEXT('Strip Special Characters from 200 char field')
> > HGR0093/SYSTEM.LSSUCONVT line 1: ***ERROR Syntax not valid.
> > HGR0093/SYSTEM.LSSUCONVT line 1: ***ERROR No 'current' export block
> > Binder language compilation failed with 2 errors and 0 warnings.
> > Service program LSSUCONVT not created.
> >
> _______________________________________________
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> _______________________________________________
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>