         PROC  P,1,DUMP=ALL,VOL=RES,LBL=SYSLOG,FILE='',INC=1,CYLS=1,   XJ$D00010
               TVOL=SYSLOG,CKPT=Y                                       J$D00012
DUMPLOG  NAME  DISC                                                     J$D00020
DUMPLOGT NAME  TAPE
//       GO    &P(0)
//DISC   NOP                           JOB STREAM TO DUMP TO DISC
//       DVCVOL &VOL                                                    J$D00030
//       IF    ('&FILE' NE 'ALLOC')NOALC                                J$D00040
//       EXT   ST,C,&INC.,CYL,&CYLS                                     J$D00050
//NOALC  NOP                                                            J$D00060
//       LBL   &LBL,,99999                                              J$D00070
//       IF    ('&FILE' EQ 'INIT')LFDINT                                J$D00080
//       LFD   SYSLOG                                                   J$D00090
//       GO    XQT                                                      J$D00100
//TAPE   NOP                            JOB STREAM TO DUMP TO TAPE      J$D00105
//       DVC   90
//       VOL   &TVOL.(PREP)
//       LBL   &LBL                                                     J$D00107
//       LFD   SYSLOGT
//       EXEC  SL$LOG
//       PARAM DUMP=&DUMP,CKPT=&CKPT
//       GO STOP
//LFDINT NOP                                                            J$D00110
//       LFD   SYSLOG,,INIT                                             J$D00120
//XQT    NOP                                                            J$D00130
//       EXEC  SL$LOG                                                   J$D00140
//       PARAM DUMP=&DUMP                                               J$D00150
//STOP   NOP                                                            J$D00155
         END                                                            J$D00160
