         PROC  P,8,IN,LUN                                               WRT00010
WRTBIG   NAME                                                           WRT00020
//P1     JSET  &P(1)                                                    WRT00030
//P2     JSET  &P(2)                                                    WRT00040
//P3     JSET  &P(3)                                                    WRT00050
//P4     JSET  &P(4)                                                    WRT00060
//P5     JSET  &P(5)                                                    WRT00070
//P6     JSET  &P(6)                                                    WRT00080
//P7     JSET  &P(7)                                                    WRT00090
//P8     JSET  &P(8)                                                    WRT00100
//       IF    ('&P1' EQ '')FINISH                                      WRT00110
// J$ALCPRT &LUN(1),&LUN(3),&LUN(2)                                     WRT00120
//       IF    ('&IN(1)' NE '')NEXT                                     WRT00190
//       DVCVOL RES                                                     WRT00200
//       GO    NEXT1                                                    WRT00210
//NEXT   DVCVOL &IN(1)                                                  WRT00220
//NEXT1  IF    ('&IN(2)' NE '')NEXT                                     WRT00230
//       LBL   $Y$LOD         // GO NEXT1                               WRT00240
//NEXT   LBL   &IN(2)                                                   WRT00250
//NEXT1  LFD   WRTBIG$L                                                 WRT00260
//       EXEC  WRTBIG,WRTBIG$L                                          WRT00270
//       IF    ('&LUN(2)' EQ '')NEXT                                    WRT00280
// PARAM '&P1.',&LUN(2)       // GO NEXT1                               WRT00290
//NEXT   NOP                                                            WRT00300
// PARAM '&P1.'                                                         WRT00310
//NEXT1  IF    ('&P2' EQ '')FINISH                                      WRT00320
// PARAM '&P2.'                                                         WRT00330
//       IF    ('&P3' EQ '')FINISH                                      WRT00340
// PARAM '&P3.'                                                         WRT00350
//       IF    ('&P4' EQ '')FINISH                                      WRT00360
// PARAM '&P4.'                                                         WRT00370
//       IF    ('&P5' EQ '')FINISH                                      WRT00380
// PARAM '&P5.'                                                         WRT00390
//       IF    ('&P6' EQ '')FINISH                                      WRT00400
// PARAM '&P6.'                                                         WRT00410
//       IF    ('&P7' EQ '')FINISH                                      WRT00420
// PARAM '&P7.'                                                         WRT00430
//       IF    ('&P8' EQ '')FINISH                                      WRT00440
// PARAM '&P8.'                                                         WRT00450
//FINISH NOP                                                            WRT00460
         END                                                            WRT00470
