LFD      PROC  P,0,VOL,BLK=4000,EXTSP=16,SECALL=1,DVC                   WOR00010
WORK1    NAME  (1,RES)                                                  WOR00020
WORK2    NAME  (2,RUN)                                                  WOR00030
WORK3    NAME  (3,RES)                                                  WOR00040
WORK4    NAME  (4,RUN)                                                  WOR00050
WORK5    NAME  (5,RES)                                                  WOR00060
WORK6    NAME  (6,RUN)                                                  WOR00070
WORK7    NAME  (7,RES)                                                  WOR00080
WORK8    NAME  (8,RUN)                                                  WOR00090
WORK9    NAME  (9,RES)                                                  WOR00100
WORK10   NAME  (10,RUN)                                                 WOR00110
// IF ('&VOL' EQ '')LAB1                                                WOR00120
// DVCVOL &VOL,&DVC                                                     WOR00130
// GO LAB2                                                              WOR00140
//LAB1   DVC   &P(0,2)                                                  WOR00150
//LAB2   LBL   $SCR&P(0,1)    // EXT ST,,&SECALL,BLK,(256,&BLK)         WOR00160
// IF ('&LFD' EQ '')LAB3      // LFD &LFD,&EXTSP  // GO LAB4            WOR00170
//LAB3   LFD   $SCR&P(0,1),&EXTSP       //LAB4 NOP                      WOR00180
         END                                                            WOR00190
