IBM OS/390 User Manual
Notes
.
OPEN
(R0FILE,(OUTPUT),TAPE)
WRITER0
WRITE DECBR0,SZ,R0FILE
STC
STC
15,RC
(1)
CHECK DECBR0
CLI
CLI
RC,X
′00′
BE
WRITER0
(2)
OPENDAM OPEN (DAMFILE,(OUTPUT))
CLI
WC,X
′10′
(3,8)
BE
WRITE
GET
GET
TAPE,WORK
PACK PKEY(2),KEY
CVB
CVB
9,CVBKEY
SR
8,8
(4)
D
8,=F
′37′
LTR
8,8
BNZ
*+10
BCTR 9,0
IC
IC
8,=C
′37′
STH
9,TT
STC
8,R
WRITE
WRITE DECBLOAD,DAF,DAMFILE,DATA,47,KEY,TTR (5)
WAIT
WAIT
ECB=DECBLOAD
MVC
WC,DECBLOAD+2
TM
WC,X
′1
O
′
(6)
BO
CLOSEDAM
(7)
CHECK DECBLOAD
B
B
GET
CLOSEDA
AH
7,COUNT
LA
7,0(7)
STH
7,COUNT
CH
7,THREE
BH
BYPASS
CLOSE (DAMFILE)
B
B
WRITER0
BYPASS
NOTE
RECORD
B
GET
EOF
CLOSE (DAMFILE)
CLOSE (R0FILE,,TAPE)
CLOSE (R0FILE,,TAPE)
.
WORK
DS
0CL50
KEY
DS
CL3
DATA
DS
CL47
DS
CL30
CVBKEY
DC
D
′ 0 ′
PKEY
EQU
*-2
TTR
DS
0F
TT
DS
CL2
R
DS
CL1
DS
CL5
*
Figure 49 (Part 1 of 3). Loading a D A M File of U. o r V. Length Records u n d e r MVS
Chapter 13. A s s e m b l e r
321