Fujitsu BS2000 Handbuch Seite 449

CLI RETFLAG,RETFLAGA
@BREA
*
*
SHIFT DS 0H Update USERFELD
*
MVC SAVELOC,USERFELD+6
MVC USERFELD+6(48),BLANKS
MVC USERFELD+6(36),SAVELOC+12
*
*
*
POSIT DS 0H Position to next archive entry
*
MVC SHOWFROM,ARCHIVNR
IF EQ
CLC FSEQ,=CL4'*001'
@THEN
MVC SHOWFRFS,=CL4'0001'
@ELSE
PACK DOWO,FSEQ
AP DOWO,=PL1'1'
UNPK SHOWFRFS,DOWO+5(3)
OI SHOWFRFS+3,X'F0'
@BEND
@BEND
.
.
.
* Constant area
.
.
.
MARENA MF=L,LAYOUT=V8
MARENP MF=L
.
.
.
STMTAREA DS CL80
*
SHOWSTMT DC Y(SHOWENDE-SHOWSTMT)
DC CL2' '
DC C'//SHOW-VOL-ATTR VOL=*INT(FROM='
SHOWFROM DC CL6'*FIRST'
DC C',FROM-FSEQ='
SHOWFRFS DC CL4'0001'
DC C')'
SHOWENDE EQU *
*
MODSTMT DC Y(MODENDE-MODSTMT)
DC CL2' '
DC C'//MOD-VOL-ATTR VOL='
MODVSN DS CL6
DC C',F-SEQ='
MODFSEQ DS CL4
DC C',LOCATION=*PAR(HOME-LOC='
MODHOMEL DS CL8
Everything OK?
Error exit
Save relocation statements
Delete old contents
Undo last relocation statement
executed
VSN from archive entry
Migrated volume?
Increment FSEQ by 1
Run through loop again
Area for archive entry
Area for MAREN parameters
Area for MARENADM statement
Statement for reading
Statement for modifying
449