         PROC  P,3,TYPE=,DISCVSN=,TAPEVSN=                              J$R00010
RESTREL  NAME                                                           J$R00020
//       IF    ('&TYPE' EQ '')TYPMSG                                    J$R00030
//       IF    ('&TAPEVSN' EQ '')TPEMSG                                 J$R00040
//       IF    ('&DISCVSN' EQ '')DISMSG                                 J$R00050
//       GO    PREP                                                     J$R00060
//TYPMSG OPR   'JSC001 - DISC TYPE PARAMETER MISSING.  JOB STOPPED.'    J$R00070
//       GO    ENDJOB                                                   J$R00080
//TPEMSG OPR   'JSC002 - TAPE VSN PARAMETER MISSING.  JOB STOPPED.'     J$R00090
//       GO    ENDJOB                                                   J$R00100
//DISMSG OPR   'JSC003 - DISC VSN PARAMETER MISSING.  JOB STOPPED.'     J$R00110
//       GO    ENDJOB                                                   J$R00120
//PREP   NOP                                                            J$R00130
//       DVC   20                                                       J$R00140
//       LFD   PRNTR                                                    J$R00150
//       IF    ('&TYPE' EQ '14')DTP14                                   J$R00160
//       IF    ('&TYPE' EQ '16')DTP16                                   J$R00170
//       IF    ('&TYPE' EQ '18')DTP18                                   J$R00180
//       IF    ('&TYPE' EQ '30')DTP30                                   J$R00190
//       OPR   'JCS004 - INVALID DISC TYPE ENTERED.  JOB STOPPED.'      J$R00200
//       GO    ENDJOB                                                   J$R00210
//DTP14  NOP                                                            J$R00220
//DVCTYP JSET  '82'                                                     J$R00230
//       GO    DEVICE                                                   J$R00240
//DTP16  NOP                                                            J$R00250
//DVCTYP JSET  '62'                                                     J$R00260
//       GO    DEVICE                                                   J$R00270
//DTP18  NOP                                                            J$R00280
//DVCTYP JSET  '65'                                                     J$R00290
//       GO    DEVICE                                                   J$R00300
//DTP30  NOP                                                            J$R00310
//DVCTYP JSET  '72'                                                     J$R00320
//DEVICE NOP                                                            J$R00330
//       DVC   &DVCTYP                                                  J$R00340
//       VOL   REL&DISCVSN.(NOV)                                        J$R00350
//       LFD   DISKIN                                                   J$R00360
//       OPTION SUB                                                     J$R00365
//       EXEC  DSKPRP                                                   J$R00370
/$                                                                      J$R00380
   SERNR=REL&DISCVSN,PREPT=F,TRCON=N,TRKCT=Z                            J$R00390
VOL1                                                                    J$R00400
INSERT   NONE                                                           J$R00410
/*                                                                      J$R00420
//       FREE  DISKIN(DEV)                                              J$R00430
//       DVC   &DVCTYP                                                  J$R00440
//       VOL   REL&DISCVSN                                              J$R00450
//       LFD   DISCOT                                                   J$R00460
//       DVC   90                                                       J$R00470
//       VOL   &TAPEVSN                                                 J$R00480
//       LFD   TAPEIN                                                   J$R00490
//       EXEC  DMPRST                                                   J$R00500
//       PARAM IN=TAPE                                                  J$R00510
//       PARAM OUT=DISC                                                 J$R00520
//ENDJOB NOP                                                            J$R00530
         END                                                            J$R00550
