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

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)