Beispiele; Ändern Von Katalogeinträgen - Fujitsu BS2000 Handbuch

10.4.5 Beispiele

Ändern von Katalogeinträgen
Das nachfolgende Beispiel zeigt den strukturellen Aufbau eines Assembler-Hauptprogramms. Die Makroaufrufe zur
strukturierten Programmierung mit ASSEMBH (z.B. @IF) werden von ASSEMBH-BC nicht unterstützt (siehe
Handbuch „ASSEMBH" [ ]). 2
Das Beispielprogramm soll erreichen, dass alle reservierten Bänder, deren Archivnummern im Bereich zwischen
ABC001 bis ABC099 liegen, uneingeschränkt mehrbenutzbar (USER-ACCESS=ALL-USERS) werden.
Struktureller Aufbau des Assembler-Hauptprogramms
:
@CYCLE
MODIFY DS 0H
:
@PASS EXTNAME=MAREN1PS,PAR=PAR1PS Aufruf MARENADM
@CAS2 RETFLAG,COMP=CLI
@OF RETFLAGA
MVC ANWVSN,ARCHIVNR
@IF EQ
CLC FSEQ,=C'*001'
@THEN
MVC ANWFSEQ,=C'0001'
@ELSE
PACK DOWO,FSEQ
AP DOWO,=PL1'1'
UNPK ANWFSEQ,DOWO+5(3)
OI ANWFSEQ+3,X'F0'
@BEND
@OF RETFLAGE
:
@OFRE
:
@BEND
@BEND
:
DOWO DS D
STMT DC Y(STMTEND-STMT)
DC CL2' '
DC C'//MOD-VOL-ATTR VOL=*INT(FROM='
ANWVSN DC CL6'ABC001'
DC C',FROM-FSEQ='
ANWFSEQ DC CL4'0001'
DC C',TO=ABC099),'
DC C'SELECT=*RES,PROT=PAR(USER-ACCESS='
DC C'*ALL-USERS)'
STMTEND EQU *
:
DS OF
PAR1PS DS OF
DC A(STMT)
DC A(MARENA)
DC A(MARENP)
:
CHECK RETURN FLAG
RETURN FLAG 'A' = OK
SET VSN IN STATEMENT
SET NEXT FSEQ IN STATEMENT
SUPPRESSED VOLUME?
IF YES - NEXT FSEQ = '0001'
OTHERWISE ADD 1 TO FSEQ
RETFLAG 'E' = NO MORE ENTRIES
ERROR EXIT
WORKAREA
AREA FOR MARENADM STATEMENT
445