ۥ- 1@    -               4                  M                                     G    G G    G    G    G    G   U    u    u    u    u    u  
   
 u      <                                                             4        G                                                                                  

PROCEDURE PascalRec
*Zhlvariable 1
m.lnCntr1=1

*Schleife durch alle offenen
*Datenbanken

DO WHILE NOT ""=ALIAS(m.lnCntr1)
 SELECT (m.lnCntr1)
 *********************************
 **lnCntr1:
 * Array mit der richtigen Gre
 * fr einen Datensatz wird
 *automatisch PUBLIC deklariert
 PUBLIC ("ga"+PROPER(alias());
  +"("+LTRIM(STR(FCOUNT(),3))+")")
 *Array wird gefllt
 SCATTER TO ("ga"+alias())
 *********************************
 *LnCntr2:
 *Pointer-Variable zu
 *Array-Elementen werden
 *automatisch aus einem Buchstaben
 *fr die Datenbank
 *und dem Feldnamen erzeugt

 FOR m.lnCntr2=1 TO FCOUNT()
  m.lcTmp=CHR(m.lnCntr1+64);
          +FIELD(m.lnCntr2)
  PUBLIC (m.lcTmp)
  &lcTmp=m.lnCntr2
 ENDFOR

  m.lnCntr1=m.lnCntr1+1
ENDDO
*PascalRec end




*Anwendung der Zeiger in einer Maske

CASE m.scrn="adr"

  @ 1,0 SAY "Kurzbez"
  @ ROW(),col GET gaAdr(m.akurzbez_sj) VALID unq(gaAdr(m.akurzbez_sj);
    ,gmAdr(m.akurzbez_sj),tga(select(),1)) FUNCTION "K!"
  @ ROW()+1,0 SAY "Name"
  @ ROW(),col GET gaAdr(m.aname_sj) FUNCTION "K"
  @ ROW()+1,0 SAY "Anrede"
  @ ROW(),col GET gaAdr(m.aanrede_sj) FUNCTION "K"
  @ ROW()+5,0 SAY "Titel"
  @ ROW(),col+5 GET gaAdr(m.atitel_sj) FUNCTION "K"
  @ ROW()+1,0 SAY "Vorname"
  @ ROW(),col GET gaAdr(m.avorname_sj) FUNCTION "K"
  @ ROW()+1,0 SAY "Name2"
  @ ROW(),col GET gaAdr(m.aname2_sj) FUNCTION "K"
  @ ROW()+1,0 SAY "Kontakt"
  @ ROW(),col GET gaAdr(m.akontakt_sj) FUNCTION "K"
  @ ROW()+5,0 SAY "mw"
  @ ROW(),col+5 GET gaAdr(m.amw_sj) FUNCTION "K!"
  @ ROW()+1,0 SAY "Strae"
  @ ROW(),col GET gaAdr(m.astrasse_sj) FUNCTION "K"
  @ ROW()+1,0 SAY "Plz Ort"
  @ ROW(),col GET gaAdr(m.aplz_sj) PICTURE "@K !!999999" 
  @ ROW(),col+1 GET gaAdr(m.aort_sj) FUNCTION "K"
  @ ROW()+1,0 SAY "Tel"
  @ ROW(),col GET gaAdr(m.atel_sj) FUNCTION "K"
  

.Amnqu{~(

PROCEDURE PascalRec
*Zhlvariable 1
m.lnCntr1=1

*Schleife durch alle offenen
*Datenbanken

DO WHILE NOT ""=ALIAS(m.l                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        	    B  O  q          	  %  I  U  l                7  K  _  h  j                          >  x          /  d          !  V  n          J  }                                                                                                                                                      p#  H    
L: Listing   F            
        
      /       M         =  M     5                 <  Times New Roman 	Symbol & Arial 1 Letter Gothic 12    #  #     #          "           EE                             tinatina         