         PROC                                                           00000000
XTC#QDST NAME  X                                                        00000100
TC#QDSTG NAME  0                   . GENERATE DSECTS                    00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &TC##QDGB                                                00001100
         DO    '&TC##QDGB'='1'=0                                        00001200
&TC##QDGB SET  1                                                        00001300
         VTOC  SAT=YES,PCA=YES                                          00001400
         TC#QPRML                                                       00001500
         TC#WMCT                                                        00001600
         TC#WDQCI                                                       00001800
         ENDO                                                           00001900
         END                                                            00002000
