midrange.com code scratchpad
Name:
Craig Pelkie
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
08/07/2013 09:48:30 am
IP:
Logged
Description:
Define/initialize corresponding arrays, is this the simplest way to do it in D-specs?
Code:
  1.        * value is looked-up in Position, the corresponding array element
  2.       *  in PosValue is used in the program
  3.      D Positions...
  4.      D                 ds
  5.      D                                2    inz('fF')
  6.      D                                2    inz('hH')
  7.      D  Position...
  8.      D                                1    overlay(Positions)
  9.      D                                     dim(4)
  10.  
  11.      D Pos...
  12.      D                 ds
  13.      D                               12    inz('footerfooter')
  14.      D                               12    inz('headerheader')
  15.      D  PosValue...
  16.      D                                6    overlay(Pos)
  17.      D                                     dim(4)
  18.  
  19.       * would like to do something like this, but not allowed
  20.      D PositionsX...
  21.      D                                1    dim(4)
  22.      D                                     inz('fFhH')
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css