. . . . . . . . . . .
"EXECIO * DISKR INPUTDD (FINIS"
Do L = 1 by 1 While Queued() > 0
Parse Pull Col1.L Col2.L Col3.L ... ColN.L
/* or, for comma-separated columns */
/* Parse Pull Col1.L ',' Col2.L ',' Col3.L ',' ... ',' ColN.L ',' */
/* or, for columns with fixed size (let's say 10 bytes each) */
/* Parse Pull Col1.L +10 Col2.L +10 Col3.L +10 ... +10 ColN.L +10 */
/* or, for columns with fixed positions */
/* Parse Pull Col1.L =10 Col2.L =20 Col3.L =30 ... =90 ColN.L =100 */
End L
L = L - 1
/* at this point: */
/* L = the number of elements, */
/* Col1.1 ... ColN.1 - headers of each column 1 to N */
/* Col1.X ... ColN.X - data values for columns 1 to N, from lines 2 to max lines read */
. . . . . . . . . . . .