IBM OS/390 User Manual
OPEN
(DAMFILE,(OUTPUT),TAPE,(INPUT))
GET
GET
TAPE
.
WRITE DECB1,SF,DAMFILE,(10)
CHECK DECB1
CHECK DECB1
.
WRITE DECB2,SD,DAMFILE,DUMMYREC
CHECK DECB2
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 D A M File u n d e r 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).
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.
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 D A M File u n d e r MVS
320
VSE to OS/390 Migration Workbook