RE: Creating a service program

[Peter Hotchkiss <photchkiss@xxxxxxxxxxxxxxxxx>]

Mike,

You need to create a source member for the SRCMBR parameter that contains
the actual binding instructions.  These tell the CRTSRVPGM what symbols are
to be exported and made available in the service program, as well as the
signature to assign.

For example, a copy of the binding source I use to create an API service
program:
------------------
              StrPgmExp  Signature('V1R3M0')


              /*         Base Exports
*/  

              Export     Symbol( StatusCode     )

              Export     Symbol( ErrorCode      )

              Export     Symbol( FeedBack       )


              Export     Symbol( InitErrorCode  )

              Export     Symbol( InitFeedBack   )

              Export     Symbol( RtvErrNo       )


              Export     Symbol( ChkCmd         )

              Export     Symbol( ExeCmd         )


              /*         Job Exports
*/  

              Export     Symbol( JobInfo        )

              Export     Symbol( JobBasicInfo   )

              Export     Symbol( JobPlusInfo    )

              Export     Symbol( JobFullInfo    )

              Export     Symbol( JobQueueInfo   )

              Export     Symbol( JobAttrInfo    )

              Export     Symbol( JobMsgInfo     )

              Export     Symbol( JobActiveInfo  )

              Export     Symbol( JobLiblInfo    )

              Export     Symbol( JobDesc        )


              Export     Symbol( RtvJobInfo     )

              Export     Symbol( RtvJobDesc     )


              /*         User Space Exports
*/ 

              Export     Symbol( UsrSpcInfo     )


              Export     Symbol( CrtUsrSpc      )

              Export     Symbol( RtvUsrSpcAttr  )

              Export     Symbol( ChgUsrSpcAttr  )

              Export     Symbol( DltUsrSpc      )

              Export     Symbol( RtvUsrSpcPtr   )

              Export     Symbol( RtvUsrSpcData  )

              Export     Symbol( ChgUsrSpcData  )


              EndPgmExp
---------------------

If you plan to export all of the symbols, you can also specify *ALL for the
Export parameter, and then you don't need the binding source at all.

-Pete

P.S.  I actually cheat a little and keep both the command used to create the
srvpgm and the binding schtuff all in one source.  The command is in
comments and I use a little utility I wrote to extract and submit the
command in batch, and it specifies itself for the binding source needed.

-----Original Message-----
From: Mike Silvers [mailto:msilvers@hbs-inc.com]
Sent: Tuesday, August 22, 2000 10:34 AM
To: RPG400-L@midrange.com
Subject: Creating a service program


I am trying to create my first service program.  This service program is a
group of procedures (NOMAIN) and I have successfully created a module from
the source.  The source for the procedures is in a library in the source
file QRPGLEPROC.  My problem is creating the service program.  It will not
be created and there are errors.  The command and errors are as follows:

Command:

CRTSRVPGM SRVPGM(EMLTOOL/EMLSERVC1) MODULE(EMLTOOL/EMLSERVC1)
EXPORT(*SRCFILE) SRCFILE(EMLTOOL/QRPGLEPROC) SRCMBR(EMLSERVC1)
ACTGRP(EMLTOOL)

Errors:

EMLTOOL/QRPGLEPROC.EMLSERVC1 line 1: ***ERROR Syntax not valid.
EMLTOOL/QRPGLEPROC.EMLSERVC1 line 1: ***ERROR No 'current' export block
Binder language compilation failed with 2 errors and 0 warnings.
Service program EMLSERVC1 not created.

Any help is appreciated....

Thanks
Mike






Mike Silvers, IBM Certified Expert

Hainey Business Systems
8 E. Canal St
Dover, PA 17315
Branch Office:  (410) 397-8739
Phone:  (800) 932-3380
Fax:  (717) 292-9474
Web: http:\\www.hbs-inc.com
________________________________
Providing E-Commerce, EDI, AS/400
Development and related services
nationwide.
________________________________

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---