RE: Loading RPG

["Dan Bale" <dbale@xxxxxxxxxxxxx>]

I'm going to assume an LCD here, so forgive me if some of this sounds
condescending.

First things first, do you have the RPG compiler?  Try prompting on the
commands CRTBNDRPG or CRTRPGPGM to determine this.  Without this, you are
SOL.

You need to have a source (as opposed to "data") file on the AS/400 to store
the RPG source code.  So you would use the CRTSRCPF command.  Prompt it.  In
general, I name all of my source files QSRC.  Some still name the file based
on the source type: QRPGSRC for RPG-III source, QRPGLESRC for RPG-IV source,
QCLSRC for CL source, etc.  If my source file will contain RPG-IV source, I
specify a record length of 112 on the CRTSRCPF command, otherwise I use the
default 92.  Do you know if the source code is RPG-IV?  If not, post some of
the code, and I can help with that.

Your wording implies that the RPG source code is not on the 400.  Probably
the easiest way to upload it would be to FTP the PC(?) file to an AS/400
source file.  I've found that FileZilla (of Mozilla open source fame) is an
EXCELLENT FTP client and "understands" AS/400 protocol.  If you've got
Client/iSeries Access, you can probably use the File Transfer program to
upload it as well.  Let me know if you need more help with this part.
Others may have good/better ideas on this.

Assuming the source code is now in a source member in a source file on the
AS/400.  Make sure you name the source member the same as the program object
name you want to call.  Also, it is helpful, but not necessary, to specify
the correct source type attribute, either RPG or RPGLE, on the member, as
well as provide a description of the program in the 50-character TEXT
attribute.  You can use ADDPFM or CHGPFM to effect both of these attributes.

Do you have PDM (Programming Development Manager)?  Try prompting the
WRKMBRPDM command to find out.  If so, you can use PDM to do all of these
changes (renaming the source member, and changing the source type and text
attributes).  In addition, compiling is easier, using option 14 on the
source member.  Otherwise, to compile, you need to prompt either the
CRTBNDRPG or CRTRPGPGM commands, depending on the source type (RPGLE or RPG,
respectively), and fill in the parameters.

Let us know if that fills in the blanks sufficiently for you to finish with
it.

db

> -----Original Message-----
> From: Shawn Thobe
> Sent: Tuesday, November 02, 2004 9:24 AM
>
> Thanks for the reply
> What I have is a text file that contains RPG code.  I'm assuming I need
> to get this to the 400 and create an RPG object.  Not sure on how to do
> this.
>
> Thanks
>
> Shawn Thobe
> Supervisor - Information Systems
> Fort Recovery Industries Inc.
> 419-375-4121
>
>
> -----Original Message-----
> From: Dan Bale
> Sent: Tuesday, November 02, 2004 9:21 AM
>
> Hi Shawn,
>
> Use the CALL command to run a program.  Assuming it is a *PGM object.
>
> Also, you need to know whether it requires any parameters.  If, for
> example,
> the program expects parameter 1 to be a 2-character company number and
> parameter 2 to be a 2-character month, you would have something like
> this:
>
>     CALL RPGPGM PARM('01' '11')
>
> where RPGPGM is the name of the *PGM object you have.
>
> hth,
> db
>
> > -----Original Message-----
> > From: mapics-l-bounces@xxxxxxxxxxxx / Shawn Thobe
> > Sent: Tuesday, November 02, 2004 8:40 AM
> >
> > I was sent an RPG program that I would like to try out but I have no
> > idea on how to load it and run it.  Can anybody assist me.  Thanks.
>