Fujitsu BS2000 Handbuch Seite 448

PSCYCLE CSECT
:
@CYCLE
READCAT DS 0H
*
MVC STMTAREA,BLANKS
MVC STMTAREA,SHOWSTMT
@PASS EXTNAME=MAREN1PS,PAR=STMTAREA
@WHEN NE
CLI RETFLAG,RETFLAGA
@BREA
*
*
*
CHECKUF DS 0H
*
* Do the first 6 bytes of USERFELD contain the
*
* No: Position to the next archive entry ( -> POSIT)
* Position to the first relocation entry
*
*
CHECKUF2 DS 0H
*
* Do the first 4 bytes contain a numeric value?
* No: Position to next archive entry (->POSIT)
* Do the next 8 bytes contain a possible location,
*
*
*
* No: Position to the next archive entry (->POSIT)
* Does USERFELD contain another entry, i.e.
*
*
* Yes : Position to the next relocation entry;
*
*
*
CHECKDAT DS 0H Check the relocation date
*
* Add number from relocation entry to
* Calculated number >= current date?
* No: Position to next archive entry (->POSIT)
*
*
MODIFY DS 0H Modify the archive entry
*
MVC MODVSN,ARCHIVNR
MVC MODFSEQ,FSEQ
MVC MODHOMEL,USERFELD+10
MVC STMTAREA,BLANKS
MVC STMTAREA,MODSTMT
@PASS EXTNAME=MAREN1PS,PAR=STMTAREA
@WHEN NE
Read volume catalog sequentially
Check USERFELD (CYCLE)
character string C'CYCLE '?
Check USERFELD (relocation entries)
i.e. are we dealing with a character string
of type <alphanumeric>, possibly filled
to the right with blanks?
neither end of USERFELD reached nor the
next 12 bytes all blanks?
repeat CHECKUF2
Set statement area
Call MARENADM
Query return code
Everything OK?
Error occurred or
end-of-file reached
CRDATE
VSN from archive entry
FSEQ from archive entry
Location from USERFELD
Set statement area
Call MARENADM
Query return code
448