L'esempio di codice riportato di seguito deve essere immesso in modalità Comando della finestra di modifica e non all'interno della finestra di dialogo I/O file.
Questo esempio apre un file precedentemente chiuso, usa un puntatore del file precedente e richiama la posizione salvata del puntatore del file memorizzato. Quindi, legge i dati da quella posizione. Questo codice mostra l'uso del comando FILE/SALVA POS.. Segue l'esempio di codice mostrato nell'argomento "Esempio di codice per il comando Salva posizione file".
COMMENTO/OPER,la routine richiamerà ora la posizione salvata del file.
FPTR=FILE/OPEN,C1.INPUT,READ
FILE/RIAVV,FPTR
COMMENTO/OPER,Per verificare se il file è stato riavvolto.
,La prima riga viene letta per verificare l'avvenuto riavvolgimento.
V3=FILE/LEGGI RIGA,FPTR,{RIGA}
COMMENTO/OPER,"La prima riga è:
,RIGA
FILE/RIAVV,FPTR
FILE/RICHIAMA POS,FPTR
COMMENTO/OPER,La posizione del file precedentemente salvata è stata richiamata.
,Vengono ora stampati i dati sulla riga nella posizione salvata.
V4=FILE/LEGGI RIGA,FPTR,{SALVATA}
COMMENTO/OPER,Il testo nella posizione salvata è:
,SALVATA
Spiegazione del codice
Questo codice è simile a quello descritto in "Esempio di codice per il comando di riposizionamento all'inizio".
Le spiegazioni riportate di seguito sono specifiche per questo esempio.
FILE/RICHIAMA POS,FPTR
Questa riga richiama la posizione salvata del puntatore del file nel flusso per il puntatore denominato FPTR.
V4=FILE/LEGGI RIGA,FPTR,{SALVATA}
Questa riga legge la riga successiva alla posizione salvata del puntatore del file e la assegna alla variabile SALVATA definita dall'utente. La variabile viene quindi stampata accanto al commento dell'operatore.