A SERVICE OF

logo

Notes
.
OPEN (R0FILE,(OUTPUT),TAPE)
WRITER0 WRITE DECBR0,SZ,R0FILE
STC 15,RC (1)
CHECK DECBR0
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 9,CVBKEY
SR 8,8 (4)
D 8,=F′37′
LTR 8,8
BNZ *+10
BCTR 9,0
IC 8,=C′37′
STH 9,TT
STC 8,R
WRITE WRITE DECBLOAD,DAF,DAMFILE,DATA,47,KEY,TTR (5)
WAIT ECB=DECBLOAD
MVC WC,DECBLOAD+2
TM WC,X′1O (6)
BO CLOSEDAM (7)
CHECK DECBLOAD
B GET
CLOSEDA AH 7,COUNT
LA 7,0(7)
STH 7,COUNT
CH 7,THREE
BH BYPASS
CLOSE (DAMFILE)
B WRITER0
BYPASS NOTE RECORD
B GET
EOF CLOSE (DAMFILE)
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 DAM File of U. or V. Length Records under MVS
Chapter 13. Assembler 321