         PROC  P,0,PRNTR,IN,OUT,PUNCH=NO,COMPARE=NO,EXT                 J$U00010
UTD      NAME  0                                                        J$U00020
//       IF    ('&COMPARE' EQ 'YES')D1                                  J$U00030
//       IF    ('&OUT' EQ '')EXIT                                       J$U00040
//D1     NOP                                                            J$U00050
//       IF    ('&IN' EQ '')EXIT                                        J$U00060
// J$ALCPRT &PRNTR(1),&PRNTR(2)                                         J$U00070
//LABEL  JSET  &OUT(2)                                                  J$U00080
//       IF    ('&PUNCH' EQ 'NO')D2                                     J$U00090
// DVC 40                                                               J$U00100
// LFD OUTPUT2                                                          J$U00110
//D2     NOP                                                            J$U00120
// DVCVTP &IN(1)                                                        J$U00130
// LBL &IN(2)                                                           J$U00140
// LFD INPUT1                                                           J$U00150
// DVCVOL &OUT(1)                                                       J$U00160
// LBL &OUT(2)                                                          J$U00170
//       IF    ('&EXT' EQ '')D4                                         J$U00180
//       IF    ('EXT(1)' NE 'IS')D25                                    J$U00190
//       IF    ('EXT(2)' EQ 'C')D22                                     J$U00200
// OPR 'JS00 ISAM REQ. CONTIGUOUS SPACE FOR FILE &LABEL'                J$U00210
//D22    IF    ('&EXT(4)' NE 'CYL')D3                                   J$U00220
//       IF    (&EXT(5) GE 2)D3                                         J$U00230
// OPR 'JS01 ISAM/IRAM FILES REQ. MIN. 2 CYLS. FOR FILE &LABEL'         J$U00240
// GO D3                                                                J$U00250
//D25    IF    ('&EXT(1)' NE 'IR')D3                                    J$U00260
//       IF    ('&EXT(4)' NE 'CYL')D3                                   J$U00270
//       IF    (&EXT(5) GE 2)D3                                         J$U00280
// OPR 'JS01 ISAM/IRAM FILES REQ. MIN. 2 CYLS. FOR FILE &LABEL'         J$U00290
//D3     NOP                                                            J$U00300
// EXT &EXT(1),&EXT(2),&EXT(3),&EXT(4),&EXT(5),&EXT(6),&EXT(7),&EXT(8),XJ$U00310
//1 &EXT(9),&EXT(10),&EXT(11),&EXT(12),&EXT(13),&EXT(14),&EXT(15),     XJ$U00320
//2 &EXT(16),&EXT(17),&EXT(18),&EXT(19),&EXT(20),&EXT(21),&EXT(22),    XJ$U00330
//3 &EXT(23),&EXT(24),&EXT(25),&EXT(26),&EXT(27),&EXT(28),&EXT(29),    XJ$U00340
//4 &EXT(30),&EXT(31),&EXT(32),&EXT(33),&EXT(34),&EXT(35),&EXT(36),    XJ$U00350
//5 &EXT(37)                                                            J$U00360
//D4     NOP                                                            J$U00370
//       IF    ('&COMPARE' EQ 'NO')D6                                   J$U00380
// LFD INPUT2,&OUT(3),&OUT(4)                                           J$U00390
//       GO    D8                                                       J$U00400
//D6     NOP                                                            J$U00410
// LFD OUTPUT1,&OUT(3),&OUT(4)                                          J$U00420
//D8     NOP                                                            J$U00430
// EXEC DATA                                                            J$U00440
//       GO    END                                                      J$U00450
//EXIT   NOP                                                            J$U00460
// OPR 'JS08 IN OR OUT KEYWORD IS NOT SPECIFIED-JOB TERMINATED'         J$U00470
//END    NOP                                                            J$U00480
         END                                                            J$U00490
