IBM-supplied unit attribute table default values

The macro instructions shown in Figure 1 are provided in the module AFH5VUAT. This module is used to set up the IBM-supplied default values for the standard I/O units, and file characteristics such as the DCB information.

Figure 1. IBM-supplied macro instructions

AFH5VUAT VSF2UAT UNTABLE=99,
                 DECIMAL=PERIOD,
                 READER=5,
                 ERRMSG=6,
                 PRINTER=6,
                 PUNCH=7,
                 DEVICE=SYSDA

       VSF2UNIT  5,DCBSET=DCBRDR
       VSF2UNIT  6,DCBSET=DCBPRT
       VSF2UNIT  7,DCBSET=DCBPUN

DCBRDR VSF2DCB   SFRECFM=F,SFLRECL=80,SFBLKSI=80,
                 SURECFM=F,SULRECL=80,SUBLKSI=80

DCBPRT VSF2DCB   SFRECFM=UA,SFLRECL=133,SFBLKSI=133

DCBPUN VSF2DCB   SFRECFM=F,SFLRECL=80,SFBLKSI=80,
                 SURECFM=F,SULRECL=80,SUBLKSI=80

       VSF2DCB   SFRECFM=U,SFLRECL=800,SFBLKSI=800,SFMAXRE=100,
                 SURECFM=VS,SULRECL=-1,SUBLKSI=800,SUMAXRE=100,
                 DMAXRE=100

       VSF2UAT   TYPE=FINAL

Note: The above format is given for readability purposes. Remember to add the necessary continuation flags in column 72, and to begin continued lines in column 16.

The three VSF2UNIT macro instructions indicate that units 5, 6, and 7 have the default DCB information provided on the first three VSF2DCB macro instructions. Note that the last VSF2DCB macro does not have a label; its set of defaults apply to all units except 5, 6, and 7. For more information about the RDRUNIT, ERRUNIT, PRTUNIT, and PUNUNIT runtime options, which are used to specify the unit numbers of these standard I/O units, see VS FORTRAN Version 2 Programming Guide for CMS and MVS.