IBM OS/390 User Manual

Notes

RC

DS

CL1

WC

DC

CLI

′ 0 ′

COUNT DC H

′ 0 ′

THREE DC H

′ 3 ′

*

R0FILE DCB DDNAME=R0DD,

(9)

C

DSORG=PS,

C

MACRF=(WL),

C

SYNAD=OSDAERR1,

C

BLKSIZE=47,

C

KEYLEN=3,

C

RECFM=U

*
DAMFILE

DCB DDNAME=DAMDD,

(9)

C

DSORG=DA,

C

MACRF=(WAC),

C

OPTCD=F,

C

SYNAD=OSDAERR2

*
TAPE

DCB DDNAME=TAPEDD,

C

DSORG=PS,

C

MACRF=(GM),

C

EODAD=EOF

*
//GO.TAPEDD DD DSN=OSSAMFIL,
//

UNIT=3420,VOL=SER=NONE,

//

LABEL=(5,NL),

//

DISP=OLD,

-

//

DCB=(BLKSIZE=50,RECFM=F)

//GO.R0DD

DD DSN=UDAM,

(9)

//

UNIT=3340,VOL=SER=WORK12,

//

SPACE=(47,(1000,100)),

//

DCB=(DSORG=DA),

//

DISP=(,KEEP)

//GO.DAMDD

DD DSN=UDAM,

(9)

//

UNIT=3340,VOL=SER=WORK12,

//

DISP=OLD

 1. One track, in sequential order, is erased and a capacity record is

written. On return, register 15 contains a return code which is zero if
another available within the initial extents, and is 8 if the next track
will require secondary space allocation.

 2. If the return code was 0, a new track is initialized, otherwise the

second DCB is opened and actual loading may commence for the area just
cleared.

 3. Initially this byte is set to zero and no branch will occur.

Figure 49 (Part 2 of 3). Loading a D A M File of U. o r V. Length Records u n d e r MVS

VSE to OS/390 Migration Workbook