DIM and Associated Fields (GRX)

[Chris Sellitto]

I am dealing with a file that somebody else created.  The layout is as follows.

                       D E F I N E   P R O C E S S I N G               5.0.14RN9
────────────────────────────────────────────────────────────────────────────────
  1- skid                                 16- a1)IndCartType1              31- a1)IndCartType12
  2- wholesaler #                 17- a1)IndCartType2              32- a1)IndCartType13
  3- curr location                  18- a1)IndCartType3              33- a1)IndCartType14
  4- prev location                  19- a1)IndCartType4             34- a2)IndCartType5Count
  5- status                              20- a2)IndCartType1Count  35- a2)IndCartType6Count
  6- last activity                      21- a2)IndCartType2Count  36- a2)IndCartType7Count
  7-               date                   22- a2)IndCartType3Count  37- a2)IndCartType8Count
  8-               time                   23- a2)IndCartType4Count  38- a2)IndCartType9Count
  9-               user                   24- a1)IndCartType5            39- a2)IndCartType10Count
 10- wholesaler name        25- a1)IndCartType6            40- a2)IndCartType11Count
 11- front/rear                        26- a1)IndCartType7            41- a2)IndCartType12Count
 12- division                          27- a1)IndCartType8            42- a2)IndCartType13Count
 13- # boxes                          28- a1)IndCartType9            43- a2)IndCartType14Count
 14- # boxes processed     29- a1)IndCartType10
 15- mailer number             30- a1)IndCartType11

My Question is:

Can I build a 14 element array on a1).  For instance, is the following a valid statement?

DIM IndCartType(14)(8,LJ):skid(a1))

Knowing that a valid lookup to the file using "skid" as an alias was performed.

When I run a syntax check it does not give me an error.

When I run the process I receive the following.....


*** A filePro Error Has Occurred ***

On File: /filepro/gr_skids/index.A

Output Processing
Line Number: 194
(IndCartType(x) co Indate_BoxSkid2) and (IndLoopOccur eq "1")
IndCartTypeCount(x)=IndCartTypeCount(x)+"1";FoundIndBox="Y";goto LupDun3


Reference to a field that doesn't exist.


 Press  H -Hardcopy  ◄──┘ -Continue


I am assuming it means that IndCartType(x) is generating this error.

- X is defined as (2,.0)

Any suggestions/solutions would be greatly appreciated.

Thank you

Christopher Sellitto
VP Computer Operations
Guaranteed Returns
100 Colin Drive
Holbrook, NY 11741
(631) 689-0191 x132
mailto:sellich at guaranteedreturns.com