Your Browser is not longer supported

Please use Google Chrome, Mozilla Firefox or Microsoft Edge to view the page correctly
Loading...

{{viewport.spaceProperty.prod}}

FEOV - Band abschließen

Der FEOV-Makroaufruf bewirkt, dass Bandwechsel eingeleitet und die Verarbeitung auf dem Folgeband fortgesetzt wird. Der Makroaufruf wird bei Banddateien, die mit OPEN REVERSE eröffnet wurden, ignoriert.

Ist bei Eingabedateien das Dateiende auf dem Band, erkennt das DVS „Dateiende“ und aktiviert die EOFADDR-Routine (siehe bei Makro EXLST, "EXLST - Exit-Adressenliste anlegen" ). Enthält das Band nicht das Dateiende und ist kein Folgeband zugewiesen, aktiviert das DVS die NODEV-Routine (siehe bei Makro EXLST, "EXLST - Exit-Adressenliste anlegen").

Format

Operation

Operanden

FEOV

fcbadr / (1)

[,PARMOD = 24 / 31]

Operandenbeschreibung

fcbadr

Adresse des FCB der zu verarbeitenden Datei.

(1)
Register 1 enthält die FCB-Adresse.

PARMOD

Gibt den Generierungsmodus für den Makroaufruf an.

Voreinstellung:

der durch den Makro GPARMOD oder durch den Assembler voreingestellte Wert für den Generierungsmodus

= 24
Der Makroaufruf wird mit der Expansion für die 24-Bit-Schnittstelle aufgelöst.
Das Objekt ist nur im 24-Bit-Adressierungsmodus ablauffähig.

= 31
Der Makroaufruf wird adressierungsmodus-unabhängig generiert.

Hinweis zur Programmierung

Der FEOV-Makroaufruf zerstört die Register 0, 1, 14 und 15. 

Beispiel für Bandwechsel bei einer SAM-Datei

Mit FEOV-Makroaufruf wird Bandwechsel ausgelöst.

FEOVTEST START
         LDBASE 3
         USING  *,3
         .
         .
         FILE   TAPE.TEST,LINK=AUS,DEVICE=T9P,VOLUME=(C1776A,C2921A)
         .
         .
         OPEN  TAPE,OUTPUT          BANDDATEI 'TAPE' EROEFFNEN
         .
         .
         PUT   TAPE,RECOUT          SATZ SCHREIBEN
         .
         .
         FEOV  TAPE                 BANDWECHSEL EINLEITEN
         .
         .
         CLOSE TAPE                 BANDDATEI 'TAPE' SCHLIESSEN
*
ENDE     TERM
*
TAPEND   LR    8,0                  KENNSATZROUTINE
         MVC   0(L'BEGIN,8),BEGIN   *
         LBRET TAPE,1               *
*
TAPE     FCB   FCBTYPE=SAM,BLKSIZE=(STD,3),LINK=AUS,RECFORM=F,        -
               RECSIZE=22,EXIT=TAPEXIT
*
TAPEXIT  EXLST COMMON=ENDE,LABEOV=TAPEND
*
RECOUT   DS    CL22
*
BEGIN    DC    CL80'UTL1 BENUTZERETIKETT'
         .
         .
         END