Re: RPG III or IV?

[Rob Berendt <rob@xxxxxxxxx>]

I take it by 6 digit result fields you actually mean 6 character result field 
names?  If this is true then, yes, you are running RPG III.

To convert your programs to RPG IV is no big deal.  To take advantage of 
activation groups, procedures and other features requires a grasp of ILE 
concepts.

To learn the rudiments of RPG IV, but not ILE, I recommend the ATS course.  You 
may find out about it at
http://www.ibmuser.com/train/dsfolder/arp3ds.htm

Basic steps:
Setup:
CRTSRCPF  FILE(YOURLIB/QRPGLESRC)
          RCDLEN(112)           New record length
CRTDUPOBJ OBJ(QARNCVTLG)
          FROMLIB(QRPGLE)
          OBJTYPE(*FILE)
          TOLIB(YOURLIB)
          NEWOBJ(QRNCVTLG)      Yes, you do drop the A in the NEWOBJ
For each program:
CVTRPGSRC FROMFILE(YOURLIB/QRPGSRC)
          FROMMBR(PGMNAME)
          TOFILE(YOURLIB/QRPGLESRC)
          LOGFILE(YOURLIB/QRNCVTLG)
RUNQRY    QRY(*NONE)
          QRYFILE((YOURLIB/QRNCVTLG))


Compilation:

Method 1 (One step):
                      Create Bound RPG Program (CRTBNDRPG)
 Type choices, press Enter.
 Program  . . . . . . . . . . . . > PGMNAME       Name, *CTLSPEC
   Library  . . . . . . . . . . . >   YOURLIB     Name, *CURLIB
 Source file  . . . . . . . . . . > QRPGLESRC     Name, QRPGLESRC
   Library  . . . . . . . . . . . >   YOURLIB     Name, *LIBL, *CURLIB
 Source member  . . . . . . . . . > PGMNAME       Name, *PGM
 Generation severity level  . . .   10            0-20
 Text 'description' . . . . . . .   *SRCMBRTXT
 Default activation group . . . .   *YES          *YES, *NO           Highly 
debatable!!!

Method 2 (Two step):
                         Create RPG Module (CRTRPGMOD)
Type choices, press Enter.
Module . . . . . . . . . . . . . > PGMNAME       Name, *CTLSPEC
  Library  . . . . . . . . . . . >   YOURLIB     Name, *CURLIB
Source file  . . . . . . . . . . > QRPGLESRC     Name, QRPGLESRC
  Library  . . . . . . . . . . . >   YOURLIB     Name, *LIBL, *CURLIB
Source member  . . . . . . . . . > PGMNAME       Name, *MODULE
Generation severity level  . . .   10            0-20
Text 'description' . . . . . . .   *SRCMBRTXT

                            Create Program (CRTPGM)
Type choices, press Enter.
Program  . . . . . . . . . . . . > PGMNAME       Name
  Library  . . . . . . . . . . . >   YOURLIB     Name, *CURLIB
Module . . . . . . . . . . . . .   *PGM          Name, generic*, *PGM, *ALL
  Library  . . . . . . . . . . .                 Name, *LIBL, *CURLIB...
               + for more values
Text 'description' . . . . . . .   *ENTMODTXT



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