Filter
Top Products
OPEN (DAMFILE,(OUTPUT),TAPE,(INPUT))
GET GET TAPE
.
WRITE DECB1,SF,DAMFILE,(10)
CHECK DECB1
.
WRITE DECB2,SD,DAMFILE,DUMMYREC
CHECK DECB2
.
TAPE DCB .......
.
DAMFILE DCB DDNAME=OSDAMDD,DSORG=PS, C
MACRF=(WL),SYNAD=DATRTST, C
RECFM=F,KEYLEN=3,BLKSIZE=47
Note: DSORG=PS must be specified in the DCB. However, DSORG=DA must be
specified in the DD statement.
Figure 47. Loading a Sequential DAM File under MVS
Under MVS, you can create a like data set by using the WRITE SF macro. You
can also use the WRITE SD macro to fill any tracks remaining to the end of the
data set with dummy records (if desired for future additions).
Figure 48 and Figure 49 on page 321 illustrate an example of loading a
preformatted direct access file by record ID.
OPEN (DAMFILE,(UPDAT),TAPE,(INPUT))
GETTAPE GET TAPE,INPUT
.
WRITE DECBADD,DA,DAMFILE,DATA,′ S′,KEY, C
BLOCKADDR
CHECK DECBAOD
EOF CLOSE (DAMFILE,, TAPE)
.
TAPE DCB ...
DAMFILE DCB DDNAME=OSDAMDD,DSORG=DA, C
MACRF=(WAC),OPTCD=E,LIMCT=5, C
SYNAD=DATRTST
W WRITE macro is used.
A Records are to be added.
C CHECK macro is used.
Figure 48. Loading a Random DAM File under MVS
320 VSE to OS/390 Migration Workbook