[progress Communities] [progress Openedge Abl] Forum Post: Re: How To Find Extent Is...

[Ruben Dröge]

Once a value has been set for an extent it can't be reset, but it is possible to define it as soon as we know what size it should be. Something like: RUN fillExtent (INPUT 3). RUN fillExtent (INPUT 4). RUN fillExtent (INPUT 5). PROCEDURE fillExtent: DEFINE INPUT PARAMETER iLength AS INTEGER NO-UNDO. DEFINE VARIABLE iExtent AS INTEGER EXTENT NO-UNDO. DEFINE VARIABLE iTmp AS INTEGER NO-UNDO. ASSIGN EXTENT(iExtent) = iLength. DO iTmp = 1 TO iLength: iExtent[iTmp] = iTmp. END. MESSAGE EXTENT(iExtent) VIEW-AS ALERT-BOX INFO BUTTONS OK. END PROCEDURE.

Continue reading...