Re: RPG400-L Digest, Vol 6, Issue 859

[Jerry Adams <jerry@xxxxxxxxxxxxxxx>]

    D MnNames         DS
    D                               27A   INZ('January  February 
March    ')
    D                               27A   INZ('April    May      
June     ')
    D                               27A   INZ('July     August   
September')
    D                               27A   INZ('October  November 
December ')
    D Months                         9A   DIM(12) 
Overlay(MnNames)                  

Can be used to create, for example, an array of the months in a year.  
I've never tried to create alternating tables in D-specs, but my first 
shot would be to use the same approach to create the second table/array 
and use the ALT( ) keyword on the second table.

	* Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
	615.995.7024
fax
	615.995.1201
email
	jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



dickjaz@xxxxxxx wrote:
> I guess inarticulate should be my middle name!  Yes, I can do a straight conversion and use the compile time data reference at the bottom of the program (CTDATA & PERRCD() ALT()).  What I wanted to  do was move that data from the '**' position up into the 'D' spec.s.  I have been able to clean up the compile time arrays but I can't see how to set up the data for TAB01/TAB02 in 'D' spec.s.
> D.J.
>   
> > message: 1
> > date: Mon, 27 Aug 2007 09:15:02 -0700
> > from: "Peter Dow (ML)" <maillist@xxxxxxxxxxxxxxx>
> > subject: Re: TAB01/TAB02 to "D" spec.s
> >
> > Hi Dick,
> >
> > I see Randy has already answered this specific question, so I'll just 
> > note that you can find this out by using IBM's CVTRPGSRC command, which 
> > converts RPG III to RPG IV.  Let it convert the TAB01/TAB02 (or whatever 
> > and see what it looks like.
> >
> > *Peter Dow* /
> > Dow Software Services, Inc.
> > 909 793-9050
> > pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /
> >
> > dickjaz@xxxxxxx wrote:
> >     
> > > I am helping a customer "modernize" their RPG II code.  They use a lot of TAB01/TAB02 type look ups.  I was trying to find some direction on how to move those to definition specifications.  For the time being I converted them to parallel arrays and use a resulting subscript.  This requires code changes and possible errors.  Does anyone know where to look or have examples of using tables in "D" spec.s?  I would like to get rid of the '**' loads.
> > > TIA,
> > > Dick J (AZ)
> > >
> > >