90:SYSTEM;                                                                     .
   /*                                                               */         .
   /*              SYSTEM FOR TAPE DUMP OF VARIOUS                  */         .
   /*              TAPE FORMATS.                                    */         .
   /*                                                               */         .
         ABNORMAL REP=YES;                                                     .
V1:      VFU      TOF=5, BOF=66, ASSIGN=(1,5);                                 .
         VOLUME   HOST=DUMP;                                                   .
         BLOCK    LENGTH=4096;                                                 .
         RECORD   STRUCTURE=U;                                                 .
         LINE     VFU=V1;                                                      .
         ACCT     USER=(BIN,TRAY);                                             .
   /*                                                               */         .
   /*             STANDARD DUMP - 9 TRACK                           */         .
   /*             -----------------------                           */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES WILL DUMP 9 TRACK TAPES WITH THE        */         .
   /*    FOLLOWING CHARACTERISTICS:                                 */         .
   /*                                                               */         .
   /*                         1600 BPI               800 BPI        */         .
   /*                         --------               -------        */         .
   /*                                                               */         .
   /*             H6000 BCD      1                     11           */         .
   /*             EBCDIC         2                     12           */         .
   /*             ASCII          3                     13           */         .
   /*             H2000 BCD      4                     14           */         .
   /*             IBM BCD        5                     15           */         .
   /*             DEC10          6                     16           */         .
   /*                                                               */         .
1:JOB;                                                                         .
         VOLUME HOST=OCTDUMP, CODE=H6BCD, UNPACK=T4X3,                         .
                TAPE=9T, DENSITY=D1600;                                        .
2:JOB;                                                                         .
         VOLUME HOST=DUMP, CODE=EBCDIC,                                        .
                TAPE=9T, DENSITY=D1600;                                        .
3:JOB;                                                                         .
         VOLUME HOST=DUMP, CODE=ASCII,                                         .
                TAPE=9T, DENSITY=D1600;                                        .
4:JOB;                                                                         .
         VOLUME HOST=OCTDUMP, CODE=H2BCD, UNPACK=T4X3H2,                       .
                TAPE=9T, DENSITY=D1600;                                        .
5:JOB;                                                                         .
         VOLUME HOST=OCTDUMP, CODE=IBMBCD, UNPACK=T4X3,                        .
                TAPE=9T, DENSITY=D1600;                                        .
6:JOB;                                                                         .
         VOLUME HOST=DUMP, CODE=ASCII, UNPACK=T5X5D10,                         .
                TAPE=9T, DENSITY=D1600;                                        .
11:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H6BCD, UNPACK=T4X3,                         .
                TAPE=9T, DENSITY=D800;                                         .
12:JOB;                                                                        .
         VOLUME HOST=DUMP, CODE=EBCDIC,                                        .
                TAPE=9T, DENSITY=D800;                                         .
13:JOB;                                                                        .
         VOLUME HOST=DUMP, CODE=ASCII,                                         .
                TAPE=9T, DENSITY=D800;                                         .
14:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H2BCD, UNPACK=T4X3H2,                       .
                TAPE=9T, DENSITY=D800;                                         .
15:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=IBMBCD, UNPACK=T4X3,                        .
                TAPE=9T, DENSITY=D800;                                         .
16:JOB;                                                                        .
         VOLUME HOST=DUMP, CODE=ASCII, UNPACK=T5X5D10,                         .
                TAPE=9T, DENSITY=D800;                                         .
   /*                                                               */         .
   /*             HONEYWELL 6000 DUMP - 7 TRACK                     */         .
   /*             -----------------------------                     */         .
   /*                                                               */         .
   /*    THE FOLLOWING 6 JDES WILL DUMP HONEYWELL 6000 7 TRACK      */         .
   /*    TAPES USING BCD TRANSLATION AND OCTAL FORMAT FOR THE 6     */         .
   /*    POSSIBLE 7 TRACK FORMATS:                                  */         .
   /*                                                               */         .
   /*             JDE 21  -  800 BPI, ODD PARITY                    */         .
   /*             JDE 22  -  800 BPI, EVEN PARITY                   */         .
   /*             JDE 23  -  556 BPI, ODD PARITY                    */         .
   /*             JDE 24  -  556 BPI, EVEN PARITY                   */         .
   /*             JDE 25  -  200 BPI, ODD PARITY                    */         .
   /*             JDE 26  -  200 BPI, EVEN PARITY                   */         .
   /*                                                               */         .
21:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H6BCD,                                      .
                TAPE=7T, DENSITY=D800, PARITY=ODD, MODE=BCD;                   .
22:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H6BCD,                                      .
                TAPE=7T, DENSITY=D800, PARITY=EVEN, MODE=BCD;                  .
23:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H6BCD,                                      .
                TAPE=7T, DENSITY=D556, PARITY=ODD, MODE=BCD;                   .
24:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H6BCD,                                      .
                TAPE=7T, DENSITY=D556, PARITY=EVEN, MODE=BCD;                  .
25:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H6BCD,                                      .
                TAPE=7T, DENSITY=D200, PARITY=ODD, MODE=BCD;                   .
26:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H6BCD,                                      .
                TAPE=7T, DENSITY=D200, PARITY=EVEN, MODE=BCD;                  .
   /*                                                               */         .
   /*             IBM BCD TAPE DUMP - 7 TRACK                       */         .
   /*             ---------------------------                       */         .
   /*                                                               */         .
   /*    THE FOLLOWING 6 JDES WILL DUMP IBM BCD 7 TRACK TAPES       */         .
   /*    USING IBM BCD TRANSLATION AND OCTAL FORMAT FOR THE 6       */         .
   /*    POSSIBLE 7 TRACK FORMATS:                                  */         .
   /*                                                               */         .
   /*             JDE 31  -  800 BPI, ODD PARITY                    */         .
   /*             JDE 32  -  800 BPI, EVEN PARITY                   */         .
   /*             JDE 33  -  556 BPI, ODD PARITY                    */         .
   /*             JDE 34  -  556 BPI, EVEN PARITY                   */         .
   /*             JDE 35  -  200 BPI, ODD PARITY                    */         .
   /*             JDE 36  -  200 BPI, EVEN PARITY                   */         .
   /*                                                               */         .
31:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=IBMBCD,                                     .
                TAPE=7T, DENSITY=D800, PARITY=ODD, MODE=BCD;                   .
32:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=IBMBCD,                                     .
                TAPE=7T, DENSITY=D800, PARITY=EVEN, MODE=BCD;                  .
33:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=IBMBCD,                                     .
                TAPE=7T, DENSITY=D556, PARITY=ODD, MODE=BCD;                   .
34:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=IBMBCD,                                     .
                TAPE=7T, DENSITY=D556, PARITY=EVEN, MODE=BCD;                  .
35:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=IBMBCD,                                     .
                TAPE=7T, DENSITY=D200, PARITY=ODD, MODE=BCD;                   .
36:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=IBMBCD,                                     .
                TAPE=7T, DENSITY=D200, PARITY=EVEN, MODE=BCD;                  .
   /*                                                               */         .
   /*             HONEYWELL 2000 BCD DUMP - 7 TRACK                 */         .
   /*             ---------------------------------                 */         .
   /*                                                               */         .
   /*    THE FOLLOWING 6 JDES WILL DUMP HONEYWELL 2000 7 TRACK      */         .
   /*    TAPES USING H2000 BCD TRANSLATION AND OCTAL FORMAT FOR     */         .
   /*    THE 6 POSSIBLE 7 TRACK FORMATS:                            */         .
   /*                                                               */         .
   /*             JDE 41  -  800 BPI, ODD PARITY                    */         .
   /*             JDE 42  -  800 BPI, EVEN PARITY                   */         .
   /*             JDE 43  -  556 BPI, ODD PARITY                    */         .
   /*             JDE 44  -  556 BPI, EVEN PARITY                   */         .
   /*             JDE 45  -  200 BPI, ODD PARITY                    */         .
   /*             JDE 46  -  200 BPI, EVEN PARITY                   */         .
   /*                                                               */         .
41:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H2BCD,                                      .
                TAPE=7T, DENSITY=D800, PARITY=ODD, MODE=BCD;                   .
42:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H2BCD,                                      .
                TAPE=7T, DENSITY=D800, PARITY=EVEN, MODE=BCD;                  .
43:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H2BCD,                                      .
                TAPE=7T, DENSITY=D556, PARITY=ODD, MODE=BCD;                   .
44:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H2BCD,                                      .
                TAPE=7T, DENSITY=D556, PARITY=EVEN, MODE=BCD;                  .
45:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H2BCD,                                      .
                TAPE=7T, DENSITY=D200, PARITY=ODD, MODE=BCD;                   .
46:JOB;                                                                        .
         VOLUME HOST=OCTDUMP, CODE=H2BCD,                                      .
                TAPE=7T, DENSITY=D200, PARITY=EVEN, MODE=BCD;                  .
   /*                                                               */         .
   /*             PACKED EBCDIC DUMP - 7 TRACK                      */         .
   /*             ----------------------------                      */         .
   /*                                                               */         .
   /*    THE FOLLOWING 6 JDES WILL DUMP 7 TRACK TAPES WITH THE      */         .
   /*    HARDWARE PACK OPERATION AND EBCDIC TRANSLATION FOR THE     */         .
   /*    6 POSSIBLE 7 TRACK FORMATS:                                */         .
   /*                                                               */         .
   /*             JDE 51  -  800 BPI, ODD PARITY                    */         .
   /*             JDE 52  -  800 BPI, EVEN PARITY                   */         .
   /*             JDE 53  -  556 BPI, ODD PARITY                    */         .
   /*             JDE 54  -  556 BPI, EVEN PARITY                   */         .
   /*             JDE 55  -  200 BPI, ODD PARITY                    */         .
   /*             JDE 56  -  200 BPI, EVEN PARITY                   */         .
   /*                                                               */         .
51:JOB;                                                                        .
         VOLUME HOST=DUMP, CODE=EBCDIC,                                        .
                TAPE=7T, DENSITY=D800, PARITY=ODD, MODE=PACK;                  .
52:JOB;                                                                        .
         VOLUME HOST=DUMP, CODE=EBCDIC,                                        .
                TAPE=7T, DENSITY=D800, PARITY=EVEN, MODE=PACK;                 .
53:JOB;                                                                        .
         VOLUME HOST=DUMP, CODE=EBCDIC,                                        .
                TAPE=7T, DENSITY=D556, PARITY=ODD, MODE=PACK;                  .
54:JOB;                                                                        .
         VOLUME HOST=DUMP, CODE=EBCDIC,                                        .
                TAPE=7T, DENSITY=D556, PARITY=EVEN, MODE=PACK;                 .
55:JOB;                                                                        .
         VOLUME HOST=DUMP, CODE=EBCDIC,                                        .
                TAPE=7T, DENSITY=D200, PARITY=ODD, MODE=PACK;                  .
56:JOB;                                                                        .
         VOLUME HOST=DUMP, CODE=EBCDIC,                                        .
                TAPE=7T, DENSITY=D200, PARITY=EVEN, MODE=PACK;                 .
   /*                                                               */         .
END;              /*   END OF DUMP JDL */                                      .
91:SYSTEM;                                                                     .
   /*                                                               */         .
   /*             SYSTEM FOR HONEYWELL 2000                         */         .
   /*             -------------------------                         */         .
   /*                                                               */         .
   /*                                                               */         .
   /*    VFU FOR HONEYWELL 2000 SPR TAPES - CHANNEL 2 IS BOF        */         .
   /*                                                               */         .
V1:      VFU      ASSIGN=(1,5), ASSIGN=(2,61), ASSIGN=(3,10),                  .
                  ASSIGN=(4,15), ASSIGN=(5,20), ASSIGN=(6,25),                 .
                  ASSIGN=(7,30), ASSIGN=(8,35), ASSIGN=(9,40),                 .
                  ASSIGN=(10,45), ASSIGN=(11,50), ASSIGN=(12,55),              .
                  TOF=5, BOF=66;                                               .
   /*                                                               */         .
   /*                                                               */         .
   /*    VFU FOR HONEYWELL 2000 STANDARD TAPES - CHANNEL 12 IS B0F  */         .
   /*                                                               */         .
V2:      VFU      ASSIGN=(1,5), ASSIGN=(2,10), ASSIGN=(3,15),                  .
                  ASSIGN=(4,20), ASSIGN=(5,25), ASSIGN=(6,30),                 .
                  ASSIGN=(7,35), ASSIGN=(8,40), ASSIGN=(9,45),                 .
                  ASSIGN=(10,50), ASSIGN=(11,55), ASSIGN=(12,60),              .
                  TOF=5, BOF=66;                                               .
   /*                                                               */         .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=EBCDIC, LCODE=EBCDIC,            .
                  TAPE=9T, DENSITY=D1600, PLABEL=YES;                          .
         BLOCK    LENGTH=1331, PREAMBLE=1, LTHFLD=0;                           .
         RECORD   LENGTH=133, LTHFLD=0, STRUCTURE=FB;                          .
         LINE     DATA=(1,132), PCC=(0,TRAN),   PCCTYPE=H2000,                 .
                  OVERPRINT=(MERGE,NODISP), VFU=V1;                            .
         ACCT     USER=(BIN,TRAY);                                             .
   /*                                                               */         .
   /*             TABLES AND CRITERIA FOR LOGICAL PROCESSING        */         .
   /*                                                               */         .
T1:      TABLE    CONSTANT=('P');                                              .
T2:      TABLE    CONSTANT=('P0');                                             .
T3:      TABLE    CONSTANT=('P1');                                             .
T4:      TABLE    CONSTANT=(O'47');                                            .
   /*                                                               */         .
C1:      CRITERIA CONSTANT=(0,1,EQ,T1);                                        .
C2:      CRITERIA CONSTANT=(0,2,EQ,T2);                                        .
C3:      CRITERIA CONSTANT=(0,2,EQ,T3);                                        .
C4:      CRITERIA CONSTANT=(0,1,EQ,T4);                                        .
   /*                                                               */         .
   /*                                                               */         .
   /*                                                               */         .
   /*             HONEYWELL 2000 SPR - 1600 BPI AND 800 BPI         */         .
   /*             -----------------------------------------         */         .
   /*                                                               */         .
   /*    JDES 1-5 AND 11-15 DEFINE 5 COMMON HONEYWELL 2000 SPR      */         .
   /*    LABELED FORMATS FOR 9 TRACK 1600 BPI AND 800 BPI TAPES.    */         .
   /*    THE FORMATS ARE AS FOLLOWS:                                */         .
   /*                                                               */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                   1600 BPI   800 BPI    */         .
   /*       ---------------                   --------   -------    */         .
   /*                                                               */         .
   /*       BLOCKED 1331, SINGLE BANNER          1          11      */         .
   /*       BLOCKED 668, SINGLE BANNER, 2 BYTE   2          12      */         .
   /*          POSTAMBLE                                            */         .
   /*       BLOCKED 1332, DOUBLE BANNER,         3          13      */         .
   /*          SINGLE REPORT PER FILE                               */         .
   /*       BLOCKED 1332, DOUBLE BANNER, SELECT  4          14      */         .
   /*          REPORT 0 IN INTERSPERSED REPORT                      */         .
   /*       BLOCKED 1332, DOUBLE BANNER, SELECT  5          15      */         .
   /*          REPORT 1 IN INTERSPERSED REPORT                      */         .
   /*                                                               */         .
   /*                                                               */         .
1:JOB;                                                                         .
         VOLUME   HOST=H2000, LABEL=SPR, TAPE=9T, DENSITY=D1600;               .
         BLOCK    LENGTH=1331, PREAMBLE=1, LTHFLD=0;                           .
         RECORD   LENGTH=133, STRUCTURE=FB, LTHFLD=0;                          .
         BSELECT  TEST=(C1);                                                   .
2:JOB;                                                                         .
         VOLUME   HOST=H2000, LABEL=SPR, TAPE=9T, DENSITY=D1600;               .
         BLOCK    LENGTH=668, PREAMBLE=1, LTHFLD=0, POSTAMBLE=2;               .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         BSELECT  TEST=(C1);                                                   .
3:JOB;                                                                         .
         VOLUME   HOST=H2000, LABEL=SPR, TAPE=9T, DENSITY=D1600;               .
         BLOCK    LENGTH=1332, PREAMBLE=2, LTHFLD=0;                           .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         BSELECT  TEST=(C1);                                                   .
4:JOB;                                                                         .
         VOLUME   HOST=H2000, LABEL=SPR, TAPE=9T, DENSITY=D1600;               .
         BLOCK    LENGTH=1332, PREAMBLE=2, LTHFLD=0;                           .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         BSELECT  TEST=(C2);                                                   .
5:JOB;                                                                         .
         VOLUME   HOST=H2000, LABEL=SPR, TAPE=9T, DENSITY=D1600;               .
         BLOCK    LENGTH=1332, PREAMBLE=2, LTHFLD=0;                           .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         BSELECT  TEST=(C3);                                                   .
11:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, TAPE=9T, DENSITY=D800;                .
         BLOCK    LENGTH=1331, PREAMBLE=1, LTHFLD=0;                           .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         BSELECT  TEST=(C1);                                                   .
12:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, TAPE=9T, DENSITY=D800;                .
         BLOCK    LENGTH=668, PREAMBLE=1, LTHFLD=0, POSTAMBLE=2;               .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         BSELECT  TEST=(C1);                                                   .
13:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, TAPE=9T, DENSITY=D800;                .
         BLOCK    LENGTH=1332, PREAMBLE=2, LTHFLD=0;                           .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         BSELECT  TEST=(C1);                                                   .
14:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, TAPE=9T, DENSITY=D800;                .
         BLOCK    LENGTH=1332, PREAMBLE=2, LTHFLD=0;                           .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         BSELECT  TEST=(C2);                                                   .
15:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, TAPE=9T, DENSITY=D800;                .
         BLOCK    LENGTH=1332, PREAMBLE=2, LTHFLD=0;                           .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         BSELECT  TEST=(C3);                                                   .
   /*                                                               */         .
   /*             HONEYWELL 2000 STANDARD, COBOL AND SPR BCD TAPES  */         .
   /*             ------------------------------------------------  */         .
   /*                            1600 AND 800 BPI                   */         .
   /*                                                               */         .
   /*    JDES 21-26 AND 31-36 DEFINE 6 COMMON HONEYWELL 2000 FORMATS*/         .
   /*    UTILIZING STANDARD 80-BYTE LABELS AND COBOL 120-BYTE LABELS*/         .
   /*    AS WELL AS BCD-CODED SPR LABELED TAPES.  THE FORMATS ARE AS*/         .
   /*    FOLLOWS:                                                   */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                      1600 BPI   800 BPI */         .
   /*       ---------------                      --------   ------- */         .
   /*                                                               */         .
   /*       BCD-CODED SPR LABELS, BLOCKED 1201       21        31   */         .
   /*       BCD-CODED SPR LABELS, BLOCKED 1332       22        32   */         .
   /*       EBCDIC-CODED STANDARD LABELS,            23        33   */         .
   /*          BLOCKED 1340                                         */         .
   /*       BCD-CODED STANDARD LABELS, BLOCKED       24        34   */         .
   /*          1009                                                 */         .
   /*       EBCDIC-CODED COBOL LABELS, BLOCKED       25        35   */         .
   /*          1440                                                 */         .
   /*       EBCDIC-CODED COBOL LABELS, BLOCKED       26        36   */         .
   /*          1500                                                 */         .
   /*                                                               */         .
21:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=H2BCD, LCODE=H2BCD,              .
                  UNPACK=T4X3H2, TAPE=9T, DENSITY=D1600;                       .
         BLOCK    LENGTH=1201, PREAMBLE=2, POSTAMBLE=2;                        .
         BSELECT  TEST=(C4);                                                   .
22:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=H2BCD, LCODE=H2BCD,              .
                  UNPACK=T4X3H2, TAPE=9T, DENSITY=D1600;                       .
         BLOCK    LENGTH=1332, PREAMBLE=2;                                     .
         BSELECT  TEST=(C4);                                                   .
23:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=STANDARD, CODE=EBCDIC, TAPE=9T,            .
                  DENSITY=D1600;                                               .
         BLOCK    LENGTH=1340, PREAMBLE=0;                                     .
         RECORD   STRUCTURE=FB, LENGTH=134;                                    .
         LINE     VFU=V2;                                                      .
24:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=STANDARD, CODE=H2BCD, LCODE=H2BCD,         .
                  UNPACK=T4X3H2, TAPE=9T, DENSITY=D1600;                       .
         BLOCK    LENGTH=1009, PREAMBLE=0, POSTAMBLE=1;                        .
         RECORD   LENGTH=144, STRUCTURE=FB;                                    .
         LINE     DATA=(8,132), VFU=V2;                                        .
25:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=COBOL, TAPE=9T, DENSITY=D1600,             .
                  CODE=EBCDIC;                                                 .
         BLOCK    LENGTH=1440, PREAMBLE=0;                                     .
         RECORD   LENGTH=144, STRUCTURE=FB;                                    .
         LINE     DATA=(2,132), VFU=V2, PCCTYPE=ANSI, PCC=(1,NOTRAN);          .
26:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=COBOL, TAPE=9T, DENSITY=D1600,             .
                  CODE=EBCDIC;                                                 .
         BLOCK    LENGTH=1500, PREAMBLE=0;                                     .
         RECORD   LENGTH=150, STRUCTURE=FB;                                    .
         LINE     DATA=(1,132), VFU=V2, PCCTYPE=H2000;                         .
31:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=H2BCD, LCODE=H2BCD,              .
                  UNPACK=T4X3H2, TAPE=9T, DENSITY=D800;                        .
         BLOCK    LENGTH=1201, PREAMBLE=2, POSTAMBLE=2;                        .
         BSELECT  TEST=(C4);                                                   .
32:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=H2BCD, LCODE=H2BCD,              .
                  UNPACK=T4X3H2, TAPE=9T, DENSITY=D800;                        .
         BLOCK    LENGTH=1332, PREAMBLE=2;                                     .
         BSELECT  TEST=(C4);                                                   .
33:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=STANDARD, CODE=EBCDIC, TAPE=9T,            .
                  DENSITY=D800;                                                .
         BLOCK    LENGTH=1340, PREAMBLE=0;                                     .
         RECORD   STRUCTURE=FB, LENGTH=134;                                    .
         LINE     VFU=V2;                                                      .
34:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=STANDARD, CODE=H2BCD, LCODE=H2BCD,         .
                  UNPACK=T4X3H2, TAPE=9T, DENSITY=D800;                        .
         BLOCK    LENGTH=1009, PREAMBLE=0, POSTAMBLE=1;                        .
         RECORD   LENGTH=144, STRUCTURE=FB;                                    .
         LINE     DATA=(8,132), VFU=V2;                                        .
35:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=COBOL, TAPE=9T, DENSITY=D800,              .
                  CODE=EBCDIC;                                                 .
         BLOCK    LENGTH=1440, PREAMBLE=0;                                     .
         RECORD   LENGTH=144, STRUCTURE=FB;                                    .
         LINE     DATA=(2,132), VFU=V2, PCCTYPE=ANSI, PCC=(1,NOTRAN);          .
36:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=COBOL, TAPE=9T, DENSITY=D800,              .
                  CODE=EBCDIC;                                                 .
         BLOCK    LENGTH=1500, PREAMBLE=0;                                     .
         RECORD   LENGTH=150, STRUCTURE=FB;                                    .
         LINE     DATA=(1,132), VFU=V2, PCCTYPE=H2000;                         .
   /*                                                               */         .
   /*                                                               */         .
   /*             HONEYWELL 2000 SPR BCD TAPES - 7 TRACK            */         .
   /*             --------------------------------------            */         .
   /*                                                               */         .
   /*    THE FOLLOWING 6 JDES WILL PRINT HONEYWELL 2000 SPR-LABELED */         .
   /*    TAPES IN BCD TRANSLATION FOR THE 6 POSSIBLE 7 TRACK FORMATS*/         .
   /*                                                               */         .
   /*             JDE 41  -  800 BPI, ODD PARITY                    */         .
   /*             JDE 42  -  800 BPI, EVEN PARITY                   */         .
   /*             JDE 43  -  556 BPI, ODD PARITY                    */         .
   /*             JDE 44  -  556 BPI, EVEN PARITY                   */         .
   /*             JDE 45  -  200 BPI, ODD PARITY                    */         .
   /*             JDE 46  -  200 BPI, EVEN PARITY                   */         .
   /*                                                               */         .
41:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=H2BCD, LCODE=H2BCD,              .
                  TAPE=7T, DENSITY=D800, PARITY=ODD;                           .
         BLOCK    LENGTH=1332, PREAMBLE=2;                                     .
         BSELECT  TEST=(C4);                                                   .
42:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=H2BCD, LCODE=H2BCD,              .
                  TAPE=7T, DENSITY=D800, PARITY=EVEN;                          .
         BLOCK    LENGTH=1332, PREAMBLE=2;                                     .
         BSELECT  TEST=(C4);                                                   .
43:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=H2BCD, LCODE=H2BCD,              .
                  TAPE=7T, DENSITY=D556, PARITY=ODD;                           .
         BLOCK    LENGTH=1332, PREAMBLE=2;                                     .
         BSELECT  TEST=(C4);                                                   .
44:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=H2BCD, LCODE=H2BCD,              .
                  TAPE=7T, DENSITY=D556, PARITY=EVEN;                          .
         BLOCK    LENGTH=1332, PREAMBLE=2;                                     .
         BSELECT  TEST=(C4);                                                   .
45:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=H2BCD, LCODE=H2BCD,              .
                  TAPE=7T, DENSITY=D200, PARITY=ODD;                           .
         BLOCK    LENGTH=1332, PREAMBLE=2;                                     .
         BSELECT  TEST=(C4);                                                   .
46:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=SPR, CODE=H2BCD, LCODE=H2BCD,              .
                  TAPE=7T, DENSITY=D200, PARITY=EVEN;                          .
         BLOCK    LENGTH=1332, PREAMBLE=2;                                     .
         BSELECT  TEST=(C4);                                                   .
   /*                                                               */         .
   /*                                                               */         .
   /*             HONEYWELL 2000 STANDARD LABELED BCD TAPES - 7 TRAC*/         .
   /*             --------------------------------------------------*/         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES WILL PRINT HONEYWELL 2000 STANDARD-     */         .
   /*    LABELED TAPES IN BCD TRANSLATION FOR THE 6 POSSIBLE 7      */         .
   /*    TRACK FORMATS;                                             */         .
   /*                                                               */         .
   /*             JDE 51  -  800 BPI, ODD PARITY                    */         .
   /*             JDE 52  -  800 BPI, EVEN PARITY                   */         .
   /*             JDE 53  -  556 BPI, ODD PARITY                    */         .
   /*             JDE 54  -  556 BPI, EVEN PARITY                   */         .
   /*             JDE 55  -  200 BPI, ODD PARITY                    */         .
   /*             JDE 56  -  200 BPI, EVEN PARITY                   */         .
   /*                                                               */         .
51:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=STANDARD, CODE=H2BCD, LCODE=H2BCD,         .
                  TAPE=7T, DENSITY=D800, PARITY=ODD;                           .
         BLOCK    LENGTH=1330, PREAMBLE=0;                                     .
         LINE     VFU=V2;                                                      .
52:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=STANDARD, CODE=H2BCD, LCODE=H2BCD,         .
                  TAPE=7T, DENSITY=D800, PARITY=EVEN;                          .
         BLOCK    LENGTH=1330, PREAMBLE=0;                                     .
         LINE     VFU=V2;                                                      .
53:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=STANDARD, CODE=H2BCD, LCODE=H2BCD,         .
                  TAPE=7T, DENSITY=D556, PARITY=ODD;                           .
         BLOCK    LENGTH=1330, PREAMBLE=0;                                     .
         LINE     VFU=V2;                                                      .
54:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=STANDARD, CODE=H2BCD, LCODE=H2BCD,         .
                  TAPE=7T, DENSITY=D556, PARITY=EVEN;                          .
         BLOCK    LENGTH=1330, PREAMBLE=0;                                     .
         LINE     VFU=V2;                                                      .
55:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=STANDARD, CODE=H2BCD, LCODE=H2BCD,         .
                  TAPE=7T, DENSITY=D200, PARITY=ODD;                           .
         BLOCK    LENGTH=1330, PREAMBLE=0;                                     .
         LINE     VFU=V2;                                                      .
56:JOB;                                                                        .
         VOLUME   HOST=H2000, LABEL=STANDARD, CODE=H2BCD, LCODE=H2BCD,         .
                  TAPE=7T, DENSITY=D200, PARITY=EVEN;                          .
         BLOCK    LENGTH=1330, PREAMBLE=0;                                     .
         LINE     VFU=V2;                                                      .
  END;    /* END OF HONEYWELL 2000 JDL */                                      .
92:SYSTEM;                                                                     .
   /*                                                        */                .
   /*    HONEYWELL 6000 JOB DESCRIPTOR  LIBRARY              */                .
   /*                                                        */                .
V1: VFU  ASSIGN=(1,10), ASSIGN=(2,15), ASSIGN=(3,20), ASSIGN=(4,25),           .
         ASSIGN=(5,30), ASSIGN=(6,35), ASSIGN=(7,40), ASSIGN=(8,45),           .
         ASSIGN=(9,50), ASSIGN=(10,55), ASSIGN=(11,60), ASSIGN=(12,62),        .
         ASSIGN=(0,5), TOF=5, BOF=66;                                          .
   /*                                                               */         .
         VOLUME   HOST=H6000, LABEL=STANDARD, UNPACK=T4X3, CODE=H6BCD,         .
                  LCODE=H6BCD, TAPE=9T, DENSITY=D1600, PLABEL=YES;             .
         BLOCK    LENGTH=1920, LTHFLD=3, OFFSET=3, ADJUST=6, PREAMBLE=6,       .
                  POSTAMBLE=0;                                                 .
         RECORD   STRUCTURE=VB, LENGTH=140, LTHFLD=3, OFFSET=0,                .
                  ADJUST=6, PREAMBLE=0, POSTAMBLE=0;                           .
         LINE     DATA=(8,132), PCC=(0,NOTRAN), PCCTYPE=H6000,                 .
                  OVERPRINT=(MERGE,NODISP), VFU=V1;                            .
         ACCT     USER=(BIN,TRAY);                                             .
   /*                                                               */         .
   /*             TABLES AND CRITERIA FOR LOGICAL PROCESSING        */         .
   /*                                                               */         .
C1:      CRITERIA CHANGE=(5,1,NE,LAST);                                        .
   /*                                                               */         .
   /*                                                               */         .
   /*                                                               */         .
   /*             HONEYWELL 6000 SSF BCD AND ASCII TAPES            */         .
   /*             --------------------------------------            */         .
   /*                       1600 AND 800 BPI                        */         .
   /*                                                               */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES WILL SUPPORT 9 TRACK BCD AND ASCII TAPES*/         .
   /*    FOR HONEYWELL 6000 SSF FORMATS FOR BOTH 1600 AND 800 BPI.  */         .
   /*    THE JDES ARE AS FOLLOWS:                                   */         .
   /*                                                               */         .
   /*             CHARACTERISTICS                1600 BPI    800 BPI*/         .
   /*             ---------------                --------    -------*/         .
   /*                                                               */         .
   /*             BCD-CODED SSF                      1          11  */         .
   /*             BCD-CODED SSF, STACKED REPORTS     2          12  */         .
   /*             ASCII-CODED SSF                    3          13  */         .
   /*             ASCII-CODED SSF, STACKED REPORTS   4          14  */         .
   /*                                                               */         .
1:JOB;                                                                         .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=H6BCD, LCODE=H6BCD,         .
                  UNPACK=T4X3, TAPE=9T, DENSITY=D1600;                         .
2:JOB;                                                                         .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=H6BCD, LCODE=H6BCD,         .
                  UNPACK=T4X3, TAPE=9T, DENSITY=D1600;                         .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
3:JOB;                                                                         .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=ASCII, LCODE=H6BCD,         .
                  UNPACK=T4X3, TAPE=9T, DENSITY=D1600;                         .
4:JOB;                                                                         .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=ASCII, LCODE=H6BCD,         .
                  UNPACK=T4X3, TAPE=9T, DENSITY=D1600;                         .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
11:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=H6BCD, LCODE=H6BCD,         .
                  UNPACK=T4X3, TAPE=9T, DENSITY=D800;                          .
12:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=H6BCD, LCODE=H6BCD,         .
                  UNPACK=T4X3, TAPE=9T, DENSITY=D800;                          .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
13:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=ASCII, LCODE=H6BCD,         .
                  UNPACK=T4X3, TAPE=9T, DENSITY=D800;                          .
14:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=ASCII, LCODE=H6BCD,         .
                  UNPACK=T4X3, TAPE=9T, DENSITY=D800;                          .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
   /*                                                               */         .
   /*             HONEYWELL 6000 SSF BCD SEVEN TRACK TAPES          */         .
   /*             ------------------------------------              */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES SUPPORT HONEYWELL 6000 SSF BCD-CODED    */         .
   /*    TAPES EITHER WITH OR WITHOUT STACKED REPORTS FOR           */         .
   /*    THE 6 POSSIBLE 7 TRACK FORMATS:                            */         .
   /*                                                               */         .
   /*             STANDARD BCD 7 TRACK TAPES                        */         .
   /*                                                               */         .
   /*                JDE 21  -  800 BPI, ODD PARITY                 */         .
   /*                JDE 22  -  800 BPI, EVEN PARITY                */         .
   /*                JDE 23  -  556 BPI, ODD PARITY                 */         .
   /*                JDE 24  -  556 BPI, EVEN PARITY                */         .
   /*                JDE 25  -  200 BPI, ODD PARITY                 */         .
   /*                JDE 26  -  200 BPI, EVEN PARITY                */         .
   /*                                                               */         .
21:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=H6BCD, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D800, PARITY=ODD;                           .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
22:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=H6BCD, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D800, PARITY=EVEN;                          .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
23:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=H6BCD, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D556, PARITY=ODD;                           .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
24:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=H6BCD, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D556, PARITY=EVEN;                          .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
25:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=H6BCD, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D200, PARITY=ODD;                           .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
26:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=H6BCD, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D200, PARITY=EVEN;                          .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
   /*                                                               */         .
   /*             HONEYWELL 6000 SSF ASCII SEVEN TRACK TAPES        */         .
   /*             ------------------------------------              */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES SUPPORT HONEYWELL 6000 SSF ASCII-CODED  */         .
   /*    TAPES EITHER WITH OR WITHOUT STACKED REPORTS FOR           */         .
   /*    THE 6 POSSIBLE 7 TRACK FORMATS:                            */         .
   /*                                                               */         .
   /*             STANDARD ASCII 7 TRACK TAPES                      */         .
   /*                                                               */         .
   /*                JDE 31  -  800 BPI, ODD PARITY                 */         .
   /*                JDE 32  -  800 BPI, EVEN PARITY                */         .
   /*                JDE 33  -  556 BPI, ODD PARITY                 */         .
   /*                JDE 34  -  556 BPI, EVEN PARITY                */         .
   /*                JDE 35  -  200 BPI, ODD PARITY                 */         .
   /*                JDE 36  -  200 BPI, EVEN PARITY                */         .
   /*                                                               */         .
31:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=ASCII, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D800, PARITY=ODD;                           .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
32:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=ASCII, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D800, PARITY=EVEN;                          .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
33:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=ASCII, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D556, PARITY=ODD;                           .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
34:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=ASCII, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D556, PARITY=EVEN;                          .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
35:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=ASCII, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D200, PARITY=ODD;                           .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
36:JOB;                                                                        .
         VOLUME   HOST=H6000, LABEL=STANDARD, CODE=ASCII, LCODE=H6BCD,         .
                  TAPE=7T, DENSITY=D200, PARITY=EVEN;                          .
         RSTACK   TEST=(C1), PRINT=NONE;                                       .
  END;    /* END OF HONEYWELL 6000 JDL */                                      .
93:SYSTEM;                                                                     .
   /*                                                               */         .
   /*    SYSTEM TO PRINT BURROUGHS MEDIUM SYSTEM AND BURROUGHS      */         .
   /*       LARGE SYSTEM PRINTER BACKUP TAPE FORMATS                */         .
   /*                                                               */         .
   /*                                                               */         .
V1:      VFU      ASSIGN=(1,5), ASSIGN=(2,10), ASSIGN=(3,15),                  .
                  ASSIGN=(4,20), ASSIGN=(5,25), ASSIGN=(6,30),                 .
                  ASSIGN=(7,35), ASSIGN=(8,40), ASSIGN=(9,45),                 .
                  ASSIGN=(10,50), ASSIGN=(11,55), TOF=5, BOF=66;               .
   /*                                                               */         .
   /*    USER TRANSLATION TABLE FOR BURROUGHS ALTERS LEFT AND       */         .
   /*    RIGHT BRACKETS AND EXCLAMATION MARK                        */         .
   /*                                                               */         .
         CODE     DEFAULT=EBCDIC, ASSIGN=(X'4A',X'B4'), ASSIGN=(X'5A',         .
                  X'B5'), ASSIGN=(X'D0',X'5A');                                .
   /*                                                               */         .
         VOLUME   HOST=B4700, LABEL=STANDARD,  CODE=USER, LCODE=USER,          .
                  PLABEL=YES, TAPE=9T, DENSITY=D1600;                          .
         BLOCK    LENGTH=816, PREAMBLE=0, POSTAMBLE=0;                         .
         RECORD   LENGTH=136, STRUCTURE=FB;                                    .
         LINE     DATA=(4,132), PCCTYPE=B4700, PCC=(0,NOTRAN),                 .
                  OVERPRINT=(MERGE,NODISP), VFU=V1;                            .
         ACCT     USER=(BIN,TRAY);                                             .
   /*                                                               */         .
   /*                                                               */         .
   /*    CATALOG TO PRINT BURROUGHS LARGE SYSTEM (B6700 AND B7700)  */         .
   /*             PRINTER BACKUP TAPES                              */         .
   /*                                                               */         .
LB:CATALOG;                                                                    .
         VOLUME   HOST=B6700, LABEL=ANSI,CODE=USER, LCODE=USER,                .
                  BMULT=6, RMULT=6, PLABEL=YES, TAPE=9T, DENSITY=D1600;        .
         BLOCK    LENGTH=1800, LTHFLD=0, PREAMBLE=0, POSTAMBLE=0;              .
         RECORD   LENGTH=138, STRUCTURE=VB, LTHFLD=2, OFFSET=4,                .
                  LMULT=6, FORMAT=BIN, ADJUST=6, PREAMBLE=6;                   .
         LINE     MARGIN=1, DATA=(0,132), PCCTYPE=B6700, PCC=(0,NOTRAN),       .
                  OVERPRINT=(MERGE,NODISP), VFU=V1;                            .
   /*                                                               */         .
         RSTACK   PRINT=TRAY;                                                  .
   /*                                                               */         .
   /*                                                               */         .
   /*             BURROUGHS MEDIUM SYSTEM SUPPORT  - 9 TRACK        */         .
   /*             ------------------------------------------        */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES WILL PRINT BOTH LABELED AND UNLABELED   */         .
   /*    TAPES FROM THE BURROUGHS MEDIUM SYSTEMS (B2500, B2700,     */         .
   /*    B3500, B3700, AND B4700) FOR BOTH 1600 AND 800 BPI TAPES.  */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                  1600 BPI      800 BPI  */         .
   /*       ---------------                  --------      -------  */         .
   /*                                                               */         .
   /*       LABELED PRINTER BACKUP TAPE         1             11    */         .
   /*       UNLABELED PRINTER BACKUP TAPE       2             12    */         .
   /*       NON-PRINTER BACKUP ANSI TAPE        3             13    */         .
   /*                                                               */         .
1:JOB;                                                                         .
         VOLUME   HOST=B4700, LABEL=STANDARD, CODE=USER, LCODE=USER,           .
                  TAPE=9T, DENSITY=D1600;                                      .
2:JOB;                                                                         .
         VOLUME   HOST=B4700, LABEL=NONE, CODE=USER, TAPE=9T,                  .
                  DENSITY=D1600;                                               .
3:JOB;                                                                         .
         VOLUME   HOST=B4700, LABEL=STANDARD, CODE=USER, LCODE=USER,           .
                  TAPE=9T, DENSITY=D1600;                                      .
         BLOCK    LENGTH=1330;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         LINE     DATA=(1,132), PCCTYPE=ANSI, PCC=(0,NOTRAN);                  .
11:JOB;                                                                        .
         VOLUME   HOST=B4700, LABEL=STANDARD, CODE=USER, LCODE=USER,           .
                  TAPE=9T, DENSITY=D800;                                       .
12:JOB;                                                                        .
         VOLUME   HOST=B4700, LABEL=NONE, CODE=USER, TAPE=9T,                  .
                  DENSITY=D800;                                                .
13:JOB;                                                                        .
         VOLUME   HOST=B4700, LABEL=STANDARD, CODE=USER, LCODE=USER,           .
                  TAPE=9T, DENSITY=D800;                                       .
         BLOCK    LENGTH=1330;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         LINE     DATA=(1,132), PCCTYPE=ANSI, PCC=(0,NOTRAN);                  .
   /*                                                               */         .
   /*                                                               */         .
   /*             BURROUGHS MEDIUM SYSTEM SUPPORT - 7 TRACK         */         .
   /*             -----------------------------------------         */         .
   /*                                                               */         .
   /*    THE FOLLOWING 6 JDES WILL PRINT LABELED PRINTER BACKUP     */         .
   /*    TAPES FROM THE BURROUGHS MEDIUM SYSTEMS (B2500, B2700,     */         .
   /*    B3500, B3700 AND B4700) FOR THE 6 POSSIBLE 7 TRACK FORMATS.*/         .
   /*                                                               */         .
   /*             JDE 21 - 800 BPI, ODD PARITY                      */         .
   /*             JDE 22 - 800 BPI, EVEN PARITY                     */         .
   /*             JDE 23 - 556 BPI, ODD PARITY                      */         .
   /*             JDE 24 - 556 BPI, EVEN PARITY                     */         .
   /*             JDE 25 - 200 BPI, ODD PARITY                      */         .
   /*             JDE 26 - 200 BPI, EVEN PARITY                     */         .
   /*                                                               */         .
21:JOB;                                                                        .
         VOLUME   HOST=B4700, LABEL=STANDARD, CODE=USER, LCODE=USER,           .
                  TAPE=7T, DENSITY=D800, PARITY=ODD;                           .
22:JOB;                                                                        .
         VOLUME   HOST=B4700, LABEL=STANDARD, CODE=USER, LCODE=USER,           .
                  TAPE=7T, DENSITY=D800, PARITY=EVEN;                          .
23:JOB;                                                                        .
         VOLUME   HOST=B4700, LABEL=STANDARD, CODE=USER, LCODE=USER,           .
                  TAPE=7T, DENSITY=D556, PARITY=ODD;                           .
24:JOB;                                                                        .
         VOLUME   HOST=B4700, LABEL=STANDARD, CODE=USER, LCODE=USER,           .
                  TAPE=7T, DENSITY=D556, PARITY=EVEN;                          .
25:JOB;                                                                        .
         VOLUME   HOST=B4700, LABEL=STANDARD, CODE=USER, LCODE=USER,           .
                  TAPE=7T, DENSITY=D200, PARITY=ODD;                           .
26:JOB;                                                                        .
         VOLUME   HOST=B4700, LABEL=STANDARD, CODE=USER, LCODE=USER,           .
                  TAPE=7T, DENSITY=D200, PARITY=EVEN;                          .
   /*                                                               */         .
   /*                                                               */         .
   /*             BURROUGHS LARGE SYSTEM SUPPORT - 9 TRACK          */         .
   /*             ----------------------------------------          */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES WILL PRINT BOTH LABELED PRINTER BACKUP  */         .
   /*    AND STANDARD ANSI-LABELED TAPES FROM THE BURROUGHS LARGE   */         .
   /*    SYSTEMS (B6700 AND B7700) FOR BOTH 800 AND 1600 BPI TAPES. */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                 1600 BPI    800 BPI     */         .
   /*       ---------------                 --------    -------     */         .
   /*                                                               */         .
   /*       LABELED PRINTER BACKUP TAPE        31         41        */         .
   /*       STANDARD ANSI LABELED TAPE         32         42        */         .
   /*                                                               */         .
31:JOB   INCLUDE=(LB);                                                         .
         VOLUME   HOST=B6700, LABEL=ANSI, TAPE=9T, DENSITY=D1600;              .
32:JOB;                                                                        .
         VOLUME   HOST=B6700, LABEL=ANSI, CODE=USER, LCODE=USER,               .
                  BMULT=6, RMULT=6, TAPE=9T, DENSITY=D1600;                    .
         BLOCK    LENGTH=1330;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         LINE     DATA=(1,132), PCCTYPE=ANSI, PCC=(0,NOTRAN);                  .
41:JOB   INCLUDE=(LB);                                                         .
         VOLUME   HOST=B6700, LABEL=ANSI, TAPE=9T, DENSITY=D800;               .
42:JOB;                                                                        .
         VOLUME   HOST=B6700, LABEL=ANSI, CODE=USER, LCODE=USER,               .
                  BMULT=6, RMULT=6, TAPE=9T, DENSITY=D800;                     .
         BLOCK    LENGTH=1330;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         LINE     DATA=(1,132), PCCTYPE=ANSI, PCC=(0,NOTRAN);                  .
   /*                                                               */         .
   /*             END OF BURROUGHS MEDIUM AND LARGE SYSTEM JDL      */         .
END;                                                                           .
94:SYSTEM;                                                                     .
   /*                                                               */         .
   /*    SYSTEM TO PRINT DEC SYSTEM 10 AND PDP-11 TAPES             */         .
   /*                                                               */         .
V1:      VFU      ASSIGN=(1,5);                                                .
         VFU      ASSIGN=(2,(5,35));                                           .
         VFU      ASSIGN=(3,(5,7,9,11,13,15,17,19,21,23,25,27,29));            .
         VFU      ASSIGN=(3,(31,33,35,37,39,41,43,45,47,49));                  .
         VFU      ASSIGN=(3,(51,53,55,57,59,61,63,65));                        .
         VFU      ASSIGN=(4,(5,8,11,14,17,20,23,26,29,32,35,38));              .
         VFU      ASSIGN=(4,(41,44,47,50,53,56,59,62));                        .
         VFU      ASSIGN=(5,(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16));         .
         VFU      ASSIGN=(5,(17,18,19,20,21,22,23,24,25,26,27,28,29));         .
         VFU      ASSIGN=(5,(30,31,32,33,34,35,36,37,38,39,40,41,42));         .
         VFU      ASSIGN=(5,(43,44,45,46,47,48,49,50,51,52,53,54,55));         .
         VFU      ASSIGN=(5,(56,57,58,59,60,61,62,63,64,65,66));               .
         VFU      ASSIGN=(6,(5,15,25,35,45,55,65));                            .
         VFU      ASSIGN=(7,(5,25,45,65));                                     .
         VFU      ASSIGN=(8,(5,6,7,8,9,10,11,12,13,14,15,16,17));              .
         VFU      ASSIGN=(8,(18,19,20,21,22,23,24,25,26,27,28));               .
         VFU      ASSIGN=(8,(29,30,31,32,33,34,35,36,37,38,39));               .
         VFU      ASSIGN=(8,(40,41,42,43,44,45,46,47,48,49,50));               .
         VFU      ASSIGN=(8,(51,52,53,54,55,56,57,58,59,60,61));               .
         VFU      ASSIGN=(8,(62,63,64,65,66));                                 .
         VFU      TOF=5, BOF=66;                                               .
   /*                                                               */         .
         VOLUME   HOST=DEC10, LABEL=STANDARD, CODE=ASCII, LCODE=ASCII,         .
                  UNPACK=T5X5D10, PLABEL=YES, TAPE=9T, DENSITY=D1600;          .
         BLOCK    LENGTH=640, PREAMBLE=0, POSTAMBLE=0, LTHFLD=0;               .
         RECORD   LENGTH=132, STRUCTURE=UB, CONSTANT=X'FF';                    .
         LINE     PCCTYPE=DEC10, DATA=(0,132), VFU=V1,                         .
                  OVERPRINT=(MERGE,NODISP);                                    .
         ACCT     USER=(BIN,TRAY);                                             .
   /*                                                               */         .
T1:      TABLE    CONSTANT=(X'9B00');                                          .
C1:      CRITERIA CONSTANT=(8,2,EQ,T1);                                        .
   /*                                                               */         .
   /*             DEC SYSTEM 10 SUPPORT - 9 TRACK                   */         .
   /*             -------------------------------                   */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES WILL PRINT BOTH LABELED AND UNLABELED   */         .
   /*    TAPES FROM THE DEC SYSTEM 10 FOR 1600 AND 800 BPI TAPES.   */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                 1600 BPI    800 BPI     */         .
   /*       ---------------                 --------    -------     */         .
   /*                                                               */         .
   /*       LABELED DEC 10 TAPE                 1         11        */         .
   /*       UNLABELED DEC 10 TAPE               2         12        */         .
   /*                                                               */         .
1:JOB;                                                                         .
         VOLUME   HOST=DEC10, LABEL=STANDARD, TAPE=9T, DENSITY=D1600;          .
2:JOB;                                                                         .
         VOLUME   HOST=DEC10, LABEL=NONE, TAPE=9T, DENSITY=D1600;              .
11:JOB;                                                                        .
         VOLUME   HOST=DEC10, LABEL=STANDARD, TAPE=9T, DENSITY=D800;           .
12:JOB;                                                                        .
         VOLUME   HOST=DEC10, LABEL=NONE, TAPE=9T, DENSITY=D800;               .
   /*                                                               */         .
   /*             DEC PDP-11 SUPPORT - 9 TRACK                      */         .
   /*             ----------------------------                      */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES WILL PRINT FLX UTILITY TAPES FROM THE   */         .
   /*    DEC PDP-11 SYSTEM FOR 1600 AND 800 BPI 9 TRACK TAPES.      */         .
   /*                                                               */         .
   /*       CHARACTERISTICS               1600 BPI   800 BPI        */         .
   /*       ---------------               --------   -------        */         .
   /*                                                               */         .
   /*       PDP-11 FLX TAPES                 21        31           */         .
   /*                                                               */         .
21:JOB;                                                                        .
         VOLUME   HOST=DEC10, LABEL=NONE, UNPACK=NONE, TAPE=9T,                .
                  DENSITY=D1600;                                               .
         BLOCK    LENGTH=512;                                                  .
         BDELETE  TEST=C1;                                                     .
31:JOB;                                                                        .
         VOLUME   HOST=DEC10, LABEL=NONE, UNPACK=NONE, TAPE=9T,                .
                  DENSITY=D800;                                                .
         BLOCK    LENGTH=512;                                                  .
         BDELETE  TEST=C1;                                                     .
   /*                                                               */         .
   /*             END OF DEC 10 JDL                                 */         .
END;                                                                           .
95:SYSTEM;                                                                     .
   /*                                                               */         .
   /*    SYSTEM TO PRINT IBM OS STANDARD AND DOS STANDARD           */         .
   /*    LABELED TAPES, IBM ANSI LABELED TAPES, IBM OS              */         .
   /*    WRITER TAPES, AND US70 (RCA) LABELED TAPES.                */         .
   /*                                                               */         .
V1:      VFU      ASSIGN=(1,5), ASSIGN=(2,10), ASSIGN=(3,15),                  .
                  ASSIGN=(4,20), ASSIGN=(5,25), ASSIGN=(6,30),                 .
                  ASSIGN=(7,35), ASSIGN=(8,40), ASSIGN=(9,45),                 .
                  ASSIGN=(10,50), ASSIGN=(11,55), ASSIGN=(12,60),              .
                  TOF=5, BOF=66;                                               .
   /*                                                               */         .
   /*    VFU FOR OS WRITER WITH CHANNEL 9 ASSIGNED TO LINE 66       */         .
   /*                                                               */         .
WR:      VFU      ASSIGN=(1,5), ASSIGN=(2,10), ASSIGN=(3,15),                  .
                  ASSIGN=(4,20), ASSIGN=(5,25), ASSIGN=(6,30),                 .
                  ASSIGN=(7,35), ASSIGN=(8,40), ASSIGN=(10,45),                .
                  ASSIGN=(11,50), ASSIGN=(12,60), ASSIGN=(9,66),               .
                  TOF=5, BOF=66;                                               .
   /*                                                               */         .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, CODE=EBCDIC, PLABEL=YES,         .
                  TAPE=9T, DENSITY=D1600;                                      .
         BLOCK    LENGTH=2660, PREAMBLE=4, LTHFLD=2, FORMAT=BIN;               .
         RECORD   LENGTH=136, PREAMBLE=4, STRUCTURE=VB,                        .
                  LTHFLD=2, OFFSET=0, FORMAT=BIN;                              .
         LINE     DATA=(1,132), PCCTYPE=ANSI, PCC=(0,NOTRAN),                  .
                  OVERPRINT=(MERGE,NODISP), VFU=V1;                            .
         ACCT     USER=(BIN,TRAY);                                             .
   /*                                                               */         .
   /*     CATALOG FOR OS WRITER TAPES                               */         .
   /*                                                               */         .
OS:CATALOG;                                                                    .
         VOLUME   HOST=OSWTR, OSCHN=9, OSTLP=0, OSHDP=1,                       .
                  PLABEL=YES, TAPE=9T, DENSITY=D1600;                          .
         BLOCK    LENGTH=2400, PREAMBLE=4, LTHFLD=2, FORMAT=BIN;               .
         RECORD   LENGTH=136, PREAMBLE=4, STRUCTURE=VB,                        .
                  LTHFLD=2, FORMAT=BIN;                                        .
         LINE     DATA=(1,132), PCCTYPE=ANSI, PCC=(0,NOTRAN),                  .
                  OVERPRINT=(MERGE,NODISP), VFU=WR;                            .
   /*                                                               */         .
   /*         CATALOG FOR UNIVAC SERIES 70                          */         .
   /*              (FORMERLY RCA)                                   */         .
   /*                                                               */         .
US:CATALOG;                                                                    .
         VOLUME   HOST=US70, LABEL=STANDARD, PLABEL=YES,                       .
                  TAPE=9T, DENSITY=D1600;                                      .
         BLOCK    LENGTH=1330, PREAMBLE=0;                                     .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         LINE     DATA=(1,132), PCCTYPE=US70, PCC=(0,NOTRAN),                  .
                  OVERPRINT=(MERGE,NODISP), VFU=V1;                            .
   /*                                                               */         .
   /*       CATALOG FOR IBM DOS FIXED BLOCK SEVEN TRACK TAPES       */         .
   /*                                                               */         .
D7:CATALOG;                                                                    .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T;                                       .
         BLOCK    LENGTH=1330, PREAMBLE=0;                                     .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         LINE     PCCTYPE=IBM1403;                                             .
   /*                                                               */         .
   /*       CATALOG FOR IBM DOS UNDEFINED BLOCKED SEVEN TRACK TAPES */         .
   /*                                                               */         .
U7:CATALOG;                                                                    .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T;                                       .
         BLOCK    LENGTH=2940, PREAMBLE=0;                                     .
         RECORD   LENGTH=140, STRUCTURE=UB, CONSTANT=O'32';                    .
         LINE     PCCTYPE=IBM1403;                                             .
   /*                                                               */         .
   /*             IBM OS/DOS STANDARD LABELED TAPES - 9 TRACK       */         .
   /*             -------------------------------------------       */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES PROVIDE SUPPORT FOR IBM OS STANDARD     */         .
   /*    AND IBM DOS STANDARD LABELED TAPES FOR BOTH 1600 BPI       */         .
   /*    AND 800 BPI DENSITIES.                                     */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                    1600 BPI    800 BPI  */         .
   /*       ---------------                    --------    -------  */         .
   /*                                                               */         .
   /*       OS STANDARD LABELS, 1403 PCC          1          11     */         .
   /*       OS STANDARD LABELS, ANSI PCC          2          12     */         .
   /*       OS STANDARD LABELS, 1401 PCC          3          13     */         .
   /*       OS STANDARD LABELS, NO PCC            4          14     */         .
   /*       DOS STANDARD LABELS, 1403 PCC         5          15     */         .
   /*       DOS STANDARD LABELS, ANSI PCC         6          16     */         .
   /*       DOS STANDARD LABELS, 1401 PCC         7          17     */         .
   /*       DOS STANDARD LABELS, NO PCC           8          18     */         .
   /*                                                               */         .
1:JOB;                                                                         .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, CODE=EBCDIC,                     .
                  TAPE=9T, DENSITY=D1600;                                      .
         LINE     PCCTYPE=IBM1403;                                             .
2:JOB;                                                                         .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, CODE=EBCDIC,                     .
                  TAPE=9T, DENSITY=D1600;                                      .
         LINE     PCCTYPE=ANSI;                                                .
3:JOB;                                                                         .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, CODE=EBCDIC,                     .
                  TAPE=9T, DENSITY=D1600;                                      .
         LINE     PCCTYPE=IBM1401;                                             .
4:JOB;                                                                         .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, CODE=EBCDIC,                     .
                  TAPE=9T, DENSITY=D1600;                                      .
         LINE     PCCTYPE=NONE;                                                .
5:JOB;                                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=EBCDIC,                    .
                  TAPE=9T, DENSITY=D1600;                                      .
         LINE     PCCTYPE=IBM1403;                                             .
6:JOB;                                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=EBCDIC,                    .
                  TAPE=9T, DENSITY=D1600;                                      .
         LINE     PCCTYPE=ANSI;                                                .
7:JOB;                                                                         .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, CODE=EBCDIC,                     .
                  TAPE=9T, DENSITY=D1600;                                      .
         LINE     PCCTYPE=IBM1401;                                             .
8:JOB;                                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=EBCDIC,                    .
                  TAPE=9T, DENSITY=D1600;                                      .
         LINE     PCCTYPE=NONE;                                                .
11:JOB;                                                                        .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, CODE=EBCDIC,                     .
                  TAPE=9T, DENSITY=D800;                                       .
         LINE     PCCTYPE=IBM1403;                                             .
12:JOB;                                                                        .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, CODE=EBCDIC,                     .
                  TAPE=9T, DENSITY=D800;                                       .
         LINE     PCCTYPE=ANSI;                                                .
13:JOB;                                                                        .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=EBCDIC,                    .
                  TAPE=9T, DENSITY=D800;                                       .
         LINE     PCCTYPE=IBM1401;                                             .
14:JOB;                                                                        .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, CODE=EBCDIC,                     .
                  TAPE=9T, DENSITY=D800;                                       .
         LINE     PCCTYPE=NONE;                                                .
15:JOB;                                                                        .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=EBCDIC,                    .
                  TAPE=9T, DENSITY=D800;                                       .
         LINE     PCCTYPE=IBM1403;                                             .
16:JOB;                                                                        .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=EBCDIC,                    .
                  TAPE=9T, DENSITY=D800;                                       .
         LINE     PCCTYPE=ANSI;                                                .
17:JOB;                                                                        .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=EBCDIC,                    .
                  TAPE=9T, DENSITY=D800;                                       .
         LINE     PCCTYPE=IBM1401;                                             .
18:JOB;                                                                        .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=EBCDIC,                    .
                  TAPE=9T, DENSITY=D800;                                       .
         LINE     PCCTYPE=NONE;                                                .
   /*                                                               */         .
   /*             IBM ANSI LABELED AND OS WRITER TAPES - 9 TRACK    */         .
   /*             ----------------------------------------------    */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES PROVIDE SUPPORT FOR IBM ANSI LABELED    */         .
   /*    TAPES AND OS WRITER TAPES FOR BOTH 1600 AND 800 BPI 9      */         .
   /*    TRACK TAPES.                                               */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                      1600 BPI   800 BPI */         .
   /*       ---------------                      --------   ------- */         .
   /*                                                               */         .
   /*       ANSI LABELS, ASCII CODE, ANSI PCC       21        31    */         .
   /*       ANSI LABELS, ASCII CODE, NO PCC         22        32    */         .
   /*       OS WRITER, ANSI PCC                     23        33    */         .
   /*       OS WRITER, 1403 PCC                     24        34    */         .
   /*                                                               */         .
21:JOB;                                                                        .
         VOLUME   HOST=IBMOS, LABEL=ANSI, CODE=ASCII, LCODE=ASCII,             .
                  TAPE=9T, DENSITY=D1600;                                      .
         LINE     PCCTYPE=ANSI;                                                .
22:JOB;                                                                        .
         VOLUME   HOST=IBMOS, LABEL=ANSI, CODE=ASCII, LCODE=ASCII,             .
                  TAPE=9T, DENSITY=D1600;                                      .
         LINE     PCCTYPE=NONE;                                                .
23:JOB   INCLUDE=(OS);                                                         .
         VOLUME   HOST=OSWTR, TAPE=9T, DENSITY=D1600;                          .
         LINE     PCCTYPE=ANSI;                                                .
24:JOB   INCLUDE=(OS);                                                         .
         VOLUME   HOST=OSWTR, TAPE=9T, DENSITY=D1600;                          .
         LINE     PCCTYPE=IBM1403;                                             .
31:JOB;                                                                        .
         VOLUME   HOST=IBMOS, LABEL=ANSI, CODE=ASCII, LCODE=ASCII,             .
                  TAPE=9T, DENSITY=D800;                                       .
         LINE     PCCTYPE=ANSI;                                                .
32:JOB;                                                                        .
         VOLUME   HOST=IBMOS, LABEL=ANSI, CODE=ASCII, LCODE=ASCII,             .
                  TAPE=9T, DENSITY=D800;                                       .
         LINE     PCCTYPE=NONE;                                                .
33:JOB   INCLUDE=(OS);                                                         .
         VOLUME   HOST=OSWTR, TAPE=9T, DENSITY=D800;                           .
         LINE     PCCTYPE=ANSI;                                                .
34:JOB   INCLUDE=(OS);                                                         .
         VOLUME   HOST=OSWTR, TAPE=9T, DENSITY=D800;                           .
         LINE     PCCTYPE=IBM1403;                                             .
   /*                                                               */         .
   /*             US70 (RCA) STANDARD LABELED TAPES - 9 TRACK       */         .
   /*             -------------------------------------------       */         .
   /*                                                               */         .
   /*    JDES 41 AND 42 PROVIDE SUPPORT FOR US70 (FORMERLY RCA)     */         .
   /*    STANDARD LABELED TAPES.  JDE 41 PROCESSES 1600 BPI 9       */         .
   /*    TRACK TAPES AND JDE 42 PROCESSES 800 BPI TAPES.            */         .
   /*                                                               */         .
41:JOB   INCLUDE=(US);                                                         .
         VOLUME   HOST=US70, LABEL=STANDARD, TAPE=9T, DENSITY=D1600;           .
42:JOB   INCLUDE=(US);                                                         .
         VOLUME   HOST=US70, LABEL=STANDARD, TAPE=9T, DENSITY=D800;            .
   /*                                                               */         .
   /*             IBM DOS STANDARD LABELS - 7 TRACK                 */         .
   /*             ---------------------------------                 */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES PROVIDE SUPPORT FOR IBM DOS STANDARD    */         .
   /*    LABELED TAPES WITH 1403 PCC FOR THE 6 POSSIBLE 7 TRACK     */         .
   /*    FORMATS.                                                   */         .
   /*                                                               */         .
   /*             JDE 51 - 800 BPI, ODD PARITY                      */         .
   /*             JDE 52 - 800 BPI, EVEN PARITY                     */         .
   /*             JDE 53 - 556 BPI, ODD PARITY                      */         .
   /*             JDE 54 - 556 BPI, EVEN PARITY                     */         .
   /*             JDE 55 - 200 BPI, ODD PARITY                      */         .
   /*             JDE 56 - 200 BPI, EVEN PARITY                     */         .
   /*                                                               */         .
51:JOB   INCLUDE=(D7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D800, PARITY=ODD;             .
52:JOB   INCLUDE=(D7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D800, PARITY=EVEN;            .
53:JOB   INCLUDE=(D7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D556, PARITY=ODD;             .
54:JOB   INCLUDE=(D7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D556, PARITY=EVEN;            .
55:JOB   INCLUDE=(D7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D200, PARITY=ODD;             .
56:JOB   INCLUDE=(D7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D200, PARITY=EVEN;            .
   /*                                                               */         .
   /*             IBM DOS UNDEFINED BLOCKED TAPES - 7 TRACK         */         .
   /*             -----------------------------------------         */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES PROVIDE SUPPORT FOR IBM DOS STANDARD    */         .
   /*    LABELED TAPES IN UNDEFINED  BLOCKEDFORMAT FOR THE 6        */         .
   /*    POSSIBLE 7 TRACK FORMATS.                                  */         .
   /*                                                               */         .
   /*             JDE 61 - 800 BPI, ODD PARITY                      */         .
   /*             JDE 62 - 800 BPI, EVEN PARITY                     */         .
   /*             JDE 63 - 556 BPI, ODD PARITY                      */         .
   /*             JDE 64 - 556 BPI, EVEN PARITY                     */         .
   /*             JDE 65 - 200 BPI, ODD PARITY                      */         .
   /*             JDE 66 - 200 BPI, EVEN PARITY                     */         .
   /*                                                               */         .
61:JOB   INCLUDE=(U7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D800, PARITY=ODD;             .
62:JOB   INCLUDE=(U7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D800, PARITY=EVEN;            .
63:JOB   INCLUDE=(U7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D556, PARITY=ODD;             .
64:JOB   INCLUDE=(U7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D556, PARITY=EVEN;            .
65:JOB   INCLUDE=(U7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D200, PARITY=ODD;             .
66:JOB   INCLUDE=(U7);                                                         .
         VOLUME   HOST=IBMDOS, LABEL=STANDARD, CODE=IBMBCD,                    .
                  LCODE=IBMBCD, TAPE=7T, DENSITY=D200, PARITY=EVEN;            .
   /*                                                               */         .
   /*             END OF IBM AND US70 JDL                           */         .
END;                                                                           .
96:SYSTEM;                                                                     .
   /*                                                               */         .
   /*             SYSTEM FOR POWER, POWER VS, AND GRASP             */         .
   /*                                                               */         .
V1:      VFU      ASSIGN=(1,5), ASSIGN=(2,10), ASSIGN=(3,15),                  .
                  ASSIGN=(4,20), ASSIGN=(5,25), ASSIGN=(6,30),                 .
                  ASSIGN=(7,35), ASSIGN=(8,40), ASSIGN=(9,45),                 .
                  ASSIGN=(10,50), ASSIGN=(11,55), ASSIGN=(12,60),              .
                  TOF=4, BOF=66;                                               .
   /*                                                               */         .
   /*             TABLES AND CRITERIA FOR LOGICAL PROCESSING        */         .
   /*                    FOR GRASP INTERLEAVED TAPES                */         .
   /*                                                               */         .
T1:      TABLE    CONSTANT=('B');                                              .
T2:      TABLE    CONSTANT=('C');                                              .
   /*                                                               */         .
C1:      CRITERIA CONSTANT=(27,1,EQ,T1);                                       .
C2:      CRITERIA CONSTANT=(27,1,EQ,T2);                                       .
   /*                                                               */         .
   /*             SYSTEM FOR POWER VS                               */         .
   /*                                                               */         .
         VOLUME   HOST=POWERVS, PLABEL=YES, TAPE=9T, DENSITY=D1600;            .
         BLOCK    LENGTH=2048;                                                 .
         RECORD   LENGTH=136, STRUCTURE=VB, LTHFLD=2, OFFSET=0,                .
                  ADJUST=0, FORMAT=BIN, PREAMBLE=3;                            .
         LINE     DATA=(1,132), PCCTYPE=IBM1403, PCC=(0,NOTRAN),               .
                  OVERPRINT=(MERGE,NODISP), VFU=V1;                            .
         ACCT     USER=(BIN,TRAY);                                             .
   /*                                                               */         .
   /*             CATALOG FOR POWER VERSIONS                        */         .
   /*                                                               */         .
PW:CATALOG;                                                                    .
         VOLUME   HOST=POWER, TAPE=9T, DENSITY=D1600;                          .
         BLOCK    LENGTH=2048, PREAMBLE=6, LTHFLD=2, FORMAT=BIN,               .
                  OFFSET=4;                                                    .
         RECORD   LENGTH=135, STRUCTURE=VB, PREAMBLE=2,                        .
                  LTHFLD=2, FORMAT=BIN, OFFSET=0, ADJUST=3;                    .
   /*                                                               */         .
   /*             CATALOG FOR GRASP                                 */         .
   /*                                                               */         .
GR:CATALOG;                                                                    .
         VOLUME   HOST=GRASP, TAPE=9T, DENSITY=D1600;                          .
         BLOCK    LENGTH=4096, PREAMBLE=0, ZERO=YES;                           .
         RECORD   LENGTH=135, STRUCTURE=VB, PREAMBLE=1,                        .
                  LTHFLD=1, FORMAT=BIN, OFFSET=0, ADJUST=2;                    .
   /*                                                               */         .
         RSTACK   PRINT=TRAY;                                                  .
   /*                                                               */         .
   /*                                                               */         .
   /*             POWER VS, POWER 4.0, AND POWER 4.1/4.2            */         .
   /*             --------------------------------------            */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES PROVIDE SUPPORT FOR IBM POWER VS TAPES, */         .
   /*    POWER VERSION 4.0 TAPES, AND POWER VERSIONS 4.1/4.2 TAPES  */         .
   /*    FOR BOTH 1600 BPI AND 800 BPI 9 TRACK TAPES.               */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                       1600 BPI   800 BPI*/         .
   /*       ---------------                       --------   -------*/         .
   /*                                                               */         .
   /*       POWER VS TAPES                           1          11  */         .
   /*       POWER VERSION 4.0 TAPES                  2          12  */         .
   /*       POWER VERSIONS 4.1/4.2 TAPES             3          13  */         .
   /*                                                               */         .
1:JOB;                                                                         .
         VOLUME   HOST=POWERVS, TAPE=9T, DENSITY=D1600;                        .
2:JOB    INCLUDE=(PW);                                                         .
         VOLUME   HOST=POWER, TAPE=9T, DENSITY=D1600;                          .
         RECORD   LTHFLD=1, PREAMBLE=1, ADJUST=2;                              .
3:JOB    INCLUDE=(PW);                                                         .
         VOLUME   HOST=POWER, TAPE=9T, DENSITY=D1600;                          .
11:JOB;                                                                        .
         VOLUME   HOST=POWERVS, TAPE=9T, DENSITY=D800;                         .
12:JOB   INCLUDE=(PW);                                                         .
         VOLUME   HOST=POWER, TAPE=9T, DENSITY=D800;                           .
         RECORD   LTHFLD=1, PREAMBLE=1, ADJUST=2;                              .
13:JOB   INCLUDE=(PW);                                                         .
         VOLUME   HOST=POWER, TAPE=9T, DENSITY=D800;                           .
   /*                                                               */         .
   /*             IBM DOS GRASP TAPES                               */         .
   /*             -------------------                               */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES PROVIDE SUPPORT FOR GRASP TAPES FOR     */         .
   /*    BOTH 1600 BPI AND 800 BPI TAPES.                           */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                        1600 BPI  800 BPI*/         .
   /*       ---------------                        --------  -------*/         .
   /*                                                               */         .
   /*       NORMAL GRASP TAPES                         21       31  */         .
   /*       GRASP WITH INTERSPERSED REPORTS - SELECT   22       32  */         .
   /*         REPORTS FROM PHANTOM DEVICE B                         */         .
   /*       GRASP WITH INTERSPERSED REPORTS - DELETE   23       33  */         .
   /*         REPORTS FROM PHANTOM DEVICE C                         */         .
   /*                                                               */         .
21:JOB   INCLUDE=(GR);                                                         .
         VOLUME   HOST=GRASP, TAPE=9T, DENSITY=D1600;                          .
22:JOB   INCLUDE=(GR);                                                         .
         VOLUME   HOST=GRASP, TAPE=9T, DENSITY=D1600;                          .
         BSELECT  TEST=(C1);                                                   .
23:JOB   INCLUDE=(GR);                                                         .
         VOLUME   HOST=GRASP, TAPE=9T, DENSITY=D1600;                          .
         BSELECT  TEST=(C2);                                                   .
31:JOB   INCLUDE=(GR);                                                         .
         VOLUME   HOST=GRASP, TAPE=9T, DENSITY=D800;                           .
32:JOB   INCLUDE=(GR);                                                         .
         VOLUME   HOST=GRASP, TAPE=9T, DENSITY=D800;                           .
         BSELECT  TEST=(C1);                                                   .
33:JOB   INCLUDE=(GR);                                                         .
         VOLUME   HOST=GRASP, TAPE=9T, DENSITY=D800;                           .
         BSELECT  TEST=(C2);                                                   .
   /*                                                               */         .
   /*             END OF POWER AND GRASP SYSTEM                     */         .
END;                                                                           .
97:SYSTEM;                                                                     .
   /*                                                               */         .
   /*             SYSTEM FOR NCR AND UNDEFINED TAPES                */         .
   /*                                                               */         .
V1:      VFU      ASSIGN=(1,5), TOF=5, BOF=66;                                 .
   /*                                                               */         .
         VOLUME   HOST=NCR, LABEL=ANSI, CODE=ASCII, LCODE=ASCII,               .
                  PLABEL=YES, TAPE=9T, DENSITY=D1600;                          .
         BLOCK    LENGTH=2040;                                                 .
         RECORD   LENGTH=136, STRUCTURE=FB;                                    .
         LINE     DATA=(4,132), PCCTYPE=NCR, PCC=(0,NOTRAN), VFU=V1;           .
         ACCT     USER=(BIN,TRAY);                                             .
   /*                                                               */         .
   /*             CATALOG FOR UNDEFINED LABELED TAPES               */         .
   /*                                                               */         .
UN:CATALOG;                                                                    .
         VOLUME   HOST=UNDEF, LABEL=UNDEF, CODE=EBCDIC, LCODE=EBCDIC,          .
                  PLABEL=YES, TAPE=9T;                                         .
         BLOCK    LENGTH=4096;                                                 .
         RECORD   LENGTH=132, STRUCTURE=U;                                     .
         LINE     PCCTYPE=NONE, DATA=(0,132);                                  .
   /*                                                               */         .
   /*                                                               */         .
   /*             NCR ANSI LABELED TAPES - 9 TRACK                  */         .
   /*             --------------------------------                  */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES PROVIDE SUPPORT FOR BOTH NCR ANSI-      */         .
   /*    LABELED AND UNLABELED TAPES UTILIZING NCR 4-BYTE CARRIABE  */         .
   /*    CONTROL.  THE JDES  PRINT TAPES FOR BOTH 1600 BPI AND 800  */         .
   /*    BPI TAPES.                                                 */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                       1600 BPI   800 BPI*/         .
   /*       ---------------                       --------   -------*/         .
   /*                                                               */         .
   /*       NCR ANSI-LABELED TAPES                    1         11  */         .
   /*       NCR UNLABELED TAPES                       2         12  */         .
   /*                                                               */         .
1:JOB;                                                                         .
         VOLUME   HOST=NCR, LABEL=ANSI, CODE=ASCII, LCODE=ASCII,               .
                  TAPE=9T, DENSITY=D1600;                                      .
2:JOB;                                                                         .
         VOLUME   HOST=NCR, LABEL=NONE, CODE=ASCII, TAPE=9T,                   .
                  DENSITY=D1600;                                               .
11:JOB;                                                                        .
         VOLUME   HOST=NCR, LABEL=ANSI, CODE=ASCII, LCODE=ASCII,               .
                  TAPE=9T, DENSITY=D800;                                       .
12:JOB;                                                                        .
         VOLUME   HOST=NCR, LABEL=NONE, CODE=ASCII, TAPE=9T,                   .
                  DENSITY=D800;                                                .
   /*                                                               */         .
   /*             UNDEFINED LABELED TAPES - 9 AND 7 TRACK           */         .
   /*             ---------------------------------------           */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES PROVIDE SUPPORT FOR TAPES WITH UNDEFINED*/         .
   /*    LABELS - THAT IS, LABELS THAT ARE NOT EXPLICITLY SUPPORTED */         .
   /*    BY EPCP B01.  ALL DENSITIES OF 9 TRACK AND 7 TRACK TAPES   */         .
   /*    ARE PRINTED.                                               */         .
   /*                                                               */         .
   /*             JDE 21 - 9 TRACK, 1600 BPI                        */         .
   /*             JDE 22 - 9 TRACK, 800 BPI                         */         .
   /*             JDE 23 - 7 TRACK, 800 BPI, ODD PARITY             */         .
   /*             JDE 24 - 7 TRACK, 800 BPI, EVEN PARITY            */         .
   /*             JDE 25 - 7 TRACK, 556 BPI, ODD PARITY             */         .
   /*             JDE 26 - 7 TRACK, 556 BPI, EVEN PARITY            */         .
   /*             JDE 27 - 7 TRACK, 200 BPI, ODD PARITY             */         .
   /*             JDE 28 - 7 TRACK, 200 BPI, EVEN PARITY            */         .
   /*                                                               */         .
21:JOB   INCLUDE=(UN);                                                         .
         VOLUME   HOST=UNDEF, LABEL=UNDEF, TAPE=9T, DENSITY=D1600;             .
22:JOB   INCLUDE=(UN);                                                         .
         VOLUME   HOST=UNDEF, LABEL=UNDEF, TAPE=9T, DENSITY=D800;              .
23:JOB   INCLUDE=(UN);                                                         .
         VOLUME   HOST=UNDEF, LABEL=UNDEF, TAPE=7T, DENSITY=D800,              .
                  PARITY=ODD;                                                  .
24:JOB   INCLUDE=(UN);                                                         .
         VOLUME   HOST=UNDEF, LABEL=UNDEF, TAPE=7T, DENSITY=D800,              .
                  PARITY=EVEN;                                                 .
25:JOB   INCLUDE=(UN);                                                         .
         VOLUME   HOST=UNDEF, LABEL=UNDEF, TAPE=7T, DENSITY=D556,              .
                  PARITY=ODD;                                                  .
26:JOB   INCLUDE=(UN);                                                         .
         VOLUME   HOST=UNDEF, LABEL=UNDEF, TAPE=7T, DENSITY=D556,              .
                  PARITY=EVEN;                                                 .
27:JOB   INCLUDE=(UN);                                                         .
         VOLUME   HOST=UNDEF, LABEL=UNDEF, TAPE=7T, DENSITY=D200,              .
                  PARITY=ODD;                                                  .
28:JOB   INCLUDE=(UN);                                                         .
         VOLUME   HOST=UNDEF, LABEL=UNDEF, TAPE=7T, DENSITY=D200,              .
                  PARITY=EVEN;                                                 .
   /*                                                               */         .
   /*             END OF NCR AND UNDEFINED SYSTEM                   */         .
END;                                                                           .
98:SYSTEM;                                                                     .
   /*                                                               */         .
   /*             SYSTEM FOR XEROX 1200 SYSTEM TEST TAPE            */         .
   /*                                                               */         .
V1:      VFU      ASSIGN=(1,3), ASSIGN=(2,8), ASSIGN=(3,13),                   .
                  ASSIGN=(4,18), ASSIGN=(5,23), ASSIGN=(6,28),                 .
                  ASSIGN=(7,33), ASSIGN=(8,38), ASSIGN=(9,43),                 .
                  ASSIGN=(10,48), ASSIGN=(11,53), ASSIGN=(12,58),              .
                  TOF=5, BOF=58;                                               .
   /*                                                               */         .
V2:      VFU      ASSIGN=(1,1), ASSIGN=(2,0), ASSIGN=(3,0),                    .
                  ASSIGN=(4,0), ASSIGN=(5,0), ASSIGN=(6,0),                    .
                  ASSIGN=(7,0), ASSIGN=(8,0), ASSIGN=(9,0),                    .
                  ASSIGN=(10,0), ASSIGN=(11,0), ASSIGN=(12,66),                .
                  TOF=1, BOF=66;                                               .
   /*                                                               */         .
V3:      VFU      ASSIGN=(1,11), ASSIGN=(2,0), ASSIGN=(3,0),                   .
                  ASSIGN=(4,0), ASSIGN=(5,0), ASSIGN=(6,0),                    .
                  ASSIGN=(7,0), ASSIGN=(8,0), ASSIGN=(9,0),                    .
                  ASSIGN=(10,0), ASSIGN=(11,0), ASSIGN=(12,66),                .
                  TOF=5, BOF=60;                                               .
   /*                                                               */         .
V4:      VFU      ASSIGN=(1,4), ASSIGN=(2,0), ASSIGN=(3,0),                    .
                  ASSIGN=(4,0), ASSIGN=(5,0), ASSIGN=(6,0),                    .
                  ASSIGN=(7,0), ASSIGN=(8,0), ASSIGN=(9,0),                    .
                  ASSIGN=(10,0), ASSIGN=(11,0), ASSIGN=(12,63),                .
                  TOF=5, BOF=66;                                               .
   /*                                                               */         .
         VOLUME   HOST=XEROX, LABEL=NONE, TAPE=9T, DENSITY=D1600;              .
         LINE     OVERPRINT=(MERGE,NODISP), VFU=V1;                            .
         ACCT     USER=(BIN,TRAY);                                             .
   /*                                                               */         .
   /*             CATALOG FOR FILE 1 ON SYSTEM TEST TAPE            */         .
   /*                                                               */         .
F1:CATALOG;                                                                    .
         VOLUME   CODE=EBCDIC, TAPE=9T, DENSITY=D1600;                         .
         BLOCK    LENGTH=80, PREAMBLE=0;                                       .
         RECORD   LENGTH=80, STRUCTURE=F;                                      .
         LINE     DATA=(1,79), PCCTYPE=ANSI, PCC=(0,NOTRAN),                   .
                  MARGIN=11, VFU=V1;                                           .
   /*                                                               */         .
   /*             CATALOG FOR FILE 2 ON SYSTEM TEST TAPE            */         .
   /*                                                               */         .
F2:CATALOG;                                                                    .
         VOLUME   CODE=EBCDIC, TAPE=9T, DENSITY=D1600;                         .
         BLOCK    LENGTH=3977, PREAMBLE=4, LTHFLD=2, FORMAT=BIN;               .
         RECORD   LENGTH=137, STRUCTURE=VB, PREAMBLE=4, LTHFLD=2,              .
                  OFFSET=0, FORMAT=BIN;                                        .
         LINE     DATA=(1,132), PCCTYPE=XEROX, PCC=(0,NOTRAN),                 .
                  MARGIN=1, VFU=V1;                                            .
   /*                                                               */         .
   /*             CATALOG FOR FILE 3 ON SYSTEM TEST TAPE            */         .
   /*                                                               */         .
F3:CATALOG;                                                                    .
         VOLUME   CODE=EBCDIC, TAPE=9T, DENSITY=D1600;                         .
         BLOCK    LENGTH=134, PREAMBLE=0;                                      .
         RECORD   LENGTH=134, STRUCTURE=UB, CONSTANT=X'E0';                    .
         LINE     DATA=(1,132), PCCTYPE=IBM1403, PCC=(0,NOTRAN),               .
                  VFU=V1;                                                      .
   /*                                                               */         .
   /*             CATALOG FOR FILE 4 ON SYSTEM TEST TAPE            */         .
   /*                                                               */         .
F4:CATALOG;                                                                    .
         VOLUME   CODE=EBCDIC, TAPE=9T, DENSITY=D1600;                         .
         BLOCK    LENGTH=132, PREAMBLE=0;                                      .
         RECORD   LENGTH=132, STRUCTURE=F;                                     .
         LINE     DATA=(0,132), PCCTYPE=NONE, VFU=V2;                          .
   /*                                                               */         .
   /*             CATALOG FOR FILE 5 ON SYSTEM TEST TAPE            */         .
   /*                                                               */         .
F5:CATALOG;                                                                    .
         VOLUME   CODE=EBCDIC, TAPE=9T, DENSITY=D1600;                         .
         BLOCK    LENGTH=80, PREAMBLE=0;                                       .
         RECORD   LENGTH=80, STRUCTURE=F;                                      .
         LINE     DATA=(0,80), PCCTYPE=NONE, MARGIN=11, VFU=V3;                .
   /*                                                               */         .
   /*             CATALOG FOR FILE 6 ON SYSTEM TEST TAPE            */         .
   /*                                                               */         .
F6:CATALOG;                                                                    .
         VOLUME   CODE=EBCDIC, TAPE=9T, DENSITY=D1600;                         .
         BLOCK    LENGTH=10, PREAMBLE=0;                                       .
         RECORD   LENGTH=10, STRUCTURE=F;                                      .
         LINE     DATA=(0,10), PCCTYPE=NONE, MARGIN=11, VFU=V2;                .
   /*                                                               */         .
   /*             CATALOG FOR FILE 7 ON SYSTEM TEST TAPE            */         .
   /*                                                               */         .
F7:CATALOG;                                                                    .
         VOLUME   CODE=ASCII, TAPE=9T, DENSITY=D1600;                          .
         BLOCK    LENGTH=133, PREAMBLE=0;                                      .
         RECORD   LENGTH=133, STRUCTURE=F;                                     .
         LINE     DATA=(1,132), PCCTYPE=ANSI,  PCC=(0,TRAN), VFU=V1;           .
   /*                                                               */         .
   /*             CATALOG FOR FILE 8 ON SYSTEM TEST TAPE            */         .
   /*                                                               */         .
F8:CATALOG;                                                                    .
         VOLUME   CODE=EBCDIC, TAPE=9T, DENSITY=D1600;                         .
         BLOCK    LENGTH=4050;                                                 .
         RECORD   LENGTH=150, STRUCTURE=FB;                                    .
         LINE     DATA=(18,132), PCCTYPE=ANSI, PCC=(149,NOTRAN),               .
                  VFU=V1;                                                      .
   /*                                                               */         .
   /*             CATALOG FOR FILE 9 ON SYSTEM TEST TAPE            */         .
   /*                                                               */         .
F9:CATALOG;                                                                    .
         VOLUME   CODE=EBCDIC, TAPE=9T, DENSITY=D1600;                         .
         BLOCK    LENGTH=133;                                                  .
         RECORD   LENGTH=133, STRUCTURE=U;                                     .
         LINE     DATA=(1,132), PCCTYPE=ANSI, PCC=(0,NOTRAN), VFU=V4;          .
   /*                                                               */         .
   /*         CATALOG FOR FILES 10, 11, AND 12 ON SYSTEM TEST TAPE  */         .
   /*                                                               */         .
F0:CATALOG;                                                                    .
         VOLUME   CODE=EBCDIC, TAPE=9T, DENSITY=D1600;                         .
         BLOCK    LENGTH=132;                                                  .
         RECORD   LENGTH=132, STRUCTURE=U, CONSTANT='00';                      .
         LINE     DATA=(0,132), PCCTYPE=NONE, VFU=V2;                          .
   /*                                                               */         .
   /*             CATALOG FOR 9 TRACK 800 BPI TAPES                 */         .
   /*                                                               */         .
B8:CATALOG;                                                                    .
         VOLUME   TAPE=9T, DENSITY=D800;                                       .
   /*                                                               */         .
   /*             CATALOG FOR 7 TRACK 556 BPI PACKED TAPES          */         .
   /*                                                               */         .
T7:CATALOG;                                                                    .
         VOLUME   TAPE=7T, DENSITY=D556, PARITY=ODD, MODE=PACK;                .
   /*                                                               */         .
   /*             SYSTEM TEST TAPE - 9 TRACK 1600 BPI               */         .
   /*             -----------------------------------               */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES 01-10 WILL PROCESS THE 12 FILES ON      */         .
   /*    THE SYSTEM TEST TAPE IN 9 TRACK 1600 BPI.  EACH JDE IS USED*/         .
   /*    WITH EACH SUCCESSIVE FILE ON THE TAPE.                     */         .
   /*                                                               */         .
01:JOB   INCLUDE=(F1);                                                         .
02:JOB   INCLUDE=(F2);                                                         .
03:JOB   INCLUDE=(F3);                                                         .
04:JOB   INCLUDE=(F4);                                                         .
05:JOB   INCLUDE=(F5);                                                         .
06:JOB   INCLUDE=(F6);                                                         .
07:JOB   INCLUDE=(F7);                                                         .
08:JOB   INCLUDE=(F8);                                                         .
09:JOB   INCLUDE=(F9);                                                         .
10:JOB   INCLUDE=(F0);                                                         .
   /*                                                               */         .
   /*                                                               */         .
   /*             SYSTEM TEST TAPE - 9 TRACK 800 BPI                */         .
   /*             ----------------------------------                */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES 11-20 WILL PROCESS THE 12 FILES ON THE  */         .
   /*    SYSTEM TEST TAPE IN 9 TRACK 800 BPI.  EACH JDE IS USED WITH*/         .
   /*    EACH SUCCESSIVE FILE ON THE TAPE.                          */         .
   /*                                                               */         .
11:JOB   INCLUDE=(F1,B8);                                                      .
12:JOB   INCLUDE=(F2,B8);                                                      .
13:JOB   INCLUDE=(F3,B8);                                                      .
14:JOB   INCLUDE=(F4,B8);                                                      .
15:JOB   INCLUDE=(F5,B8);                                                      .
16:JOB   INCLUDE=(F6,B8);                                                      .
17:JOB   INCLUDE=(F7,B8);                                                      .
18:JOB   INCLUDE=(F8,B8);                                                      .
19:JOB   INCLUDE=(F9,B8);                                                      .
20:JOB   INCLUDE=(F0,B8);                                                      .
   /*                                                               */         .
   /*                                                               */         .
   /*                                                               */         .
   /*             SYSTEM TEST TAPE - 7 TRACK                        */         .
   /*             --------------------------                        */         .
   /*    THE FOLLOWING JDES 21-30 WILL PROCESS THE 12 FILES ON THE  */         .
   /*    SYSTEM TEST TAPE IN 7 TRACK.  THE TAPE MUST BE RECORDED IN */         .
   /*    556 BPI, ODD PARITY.  EACH JDE IS USED WITH EACH SUCCESSIVE*/         .
   /*    FILE ON THE TAPE.                                          */         .
   /*                                                               */         .
   /*                                                               */         .
21:JOB   INCLUDE=(F1,T7);                                                      .
         BLOCK    LENGTH=90;                                                   .
         RECORD   LENGTH=90;                                                   .
22:JOB   INCLUDE=(F2,T7);                                                      .
         BLOCK    LENGTH=3978, ADJUST=+1, POSTAMBLE=1;                         .
23:JOB   INCLUDE=(F3,T7);                                                      .
         BLOCK    LENGTH=144;                                                  .
24:JOB   INCLUDE=(F4,T7);                                                      .
         BLOCK    LENGTH=144;                                                  .
         RECORD   LENGTH=144;                                                  .
25:JOB   INCLUDE=(F5,T7);                                                      .
         BLOCK    LENGTH=90;                                                   .
         RECORD   LENGTH=90;                                                   .
26:JOB   INCLUDE=(F6,T7);                                                      .
         BLOCK    LENGTH=18;                                                   .
         RECORD   LENGTH=18;                                                   .
27:JOB   INCLUDE=(F7,T7);                                                      .
         BLOCK    LENGTH=144;                                                  .
         RECORD   LENGTH=144;                                                  .
28:JOB   INCLUDE=(F8,T7);                                                      .
29:JOB   INCLUDE=(F9,T7);                                                      .
         BLOCK    LENGTH=144;                                                  .
         RECORD   LENGTH=144;                                                  .
30:JOB   INCLUDE=(F0,T7);                                                      .
         BLOCK    LENGTH=144;                                                  .
   /*             END OF SYSTEM TEST TAPE JDL                       */         .
END;                                                                           .
99:SYSTEM;                                                                     .
   /*             SYSTEM FOR XEROX TAPES                            */         .
   /*                                                               */         .
V1:      VFU      ASSIGN=(1,5), ASSIGN=(2,10), ASSIGN=(3,15),                  .
                  ASSIGN=(4,20), ASSIGN=(5,25), ASSIGN=(6,30),                 .
                  ASSIGN=(7,35), ASSIGN=(8,40), ASSIGN=(9,45),                 .
                  ASSIGN=(10,50), ASSIGN=(11,55), ASSIGN=(12,60),              .
                  TOF=5, BOF=66;                                               .
   /*                                                               */         .
         VOLUME   HOST=XEROX, LABEL=ANSI, CODE=EBCDIC, TAPE=9T,                .
                  DENSITY=D1600, PLABEL=YES;                                   .
         BLOCK    LENGTH=5000, PREAMBLE=0, LTHFLD=0;                           .
         RECORD   PREAMBLE=0, STRUCTURE=FB;                                    .
         LINE     DATA=(1,132), PCCTYPE=XEROX, PCC=(0,NOTRAN),                 .
                  OVERPRINT=(MERGE,NODISP), VFU=V1;                            .
         ACCT     USER=(BIN,TRAY);                                             .
PR:CATALOG;                                                                    .
         BLOCK    LENGTH=4000, LTHFLD=2, PREAMBLE=4, FORMAT=BIN;               .
         RECORD   LENGTH=136, PREAMBLE=4, STRUCTURE=VB, LTHFLD=2,              .
                  FORMAT=BIN;                                                  .
UU:CATALOG;                                                                    .
         VOLUME   LABEL=NONE, TAPE=9T;                                         .
         BLOCK    LENGTH=133;                                                  .
         RECORD   STRUCTURE=U;                                                 .
         LINE     PCCTYPE=NONE, DATA=(0,132);                                  .
U4:CATALOG;                                                                    .
         VOLUME   LABEL=NONE, TAPE=9T;                                         .
         BLOCK    LENGTH=4096;                                                 .
         RECORD   STRUCTURE=U;                                                 .
         LINE     PCCTYPE=NONE, DATA=(0,132);                                  .
FB:CATALOG;                                                                    .
         VOLUME   LABEL=NONE, TAPE=9T;                                         .
         BLOCK    LENGTH=3990;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         LINE     PCCTYPE=NONE, DATA=(0,132);                                  .
   /*                                                               */         .
   /*                                                               */         .
   /*             JDES TO PRINT DSS PROLOGS                         */         .
   /*             -------------------------                         */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES WILL PRINT THE DSS PROLOGS WHICH ARE ON */         .
   /*    THE END OF THE DSS MASTER TAPE.  USING EPCP, SET REQUEST   */         .
   /*    NUMBER TO 91, FILE SWITCH TO MULTI, AND COPY QUANTITY      */         .
   /*    DIAL TO 9 FOR 9 TRACK SYSTEMS, 10 FOR 7 TRACK SYSTEMS.     */         .
   /*    PRESS FILE SPACE FORWARD.  WHEN EPCP POSTS 070, SET REQUEST*/         .
   /*    NUMBER TO THE APPROPRIATE JDE NUMBER BELOW, SET COPY       */         .
   /*    QUANTITY TO NUMBER OF COPIES DESIRED, AND PRESS START.     */         .
   /*    STATUS 504 WILL BE DISPLAYED.  PRESS CONTINUE AND THE      */         .
   /*    COPIES WILL BE PRINTED.                                    */         .
   /*                                                               */         .
   /*             JDE 06 - 9 TRACK 1600 BPI TAPE                    */         .
   /*             JDE 07 - 9 TRACK 800 BPI TAPE                     */         .
   /*             JDE 76 - 7 TRACK 556 BPI ODD PARITY TAPE          */         .
   /*                                                               */         .
06:JOB   INCLUDE=(PR);                                                         .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, TAPE=9T, DENSITY=D1600;          .
         LINE     DATA=(1,132), PCCTYPE=XEROX;                                 .
07:JOB   INCLUDE=(PR);                                                         .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, TAPE=9T, DENSITY=D800;           .
         LINE     DATA=(1,132), PCCTYPE=XEROX;                                 .
76:JOB   INCLUDE=(PR);                                                         .
         VOLUME   HOST=IBMOS, LABEL=STANDARD, TAPE=7T, DENSITY=D556,           .
                  PARITY=ODD, MODE=PACK;                                       .
         LINE     DATA=(1,132), PCCTYPE=XEROX;                                 .
   /*                                                               */         .
   /*                                                               */         .
   /*             XEROX ANSI LABELED AND UNLABELED TAPES - 9 TRACK  */         .
   /*             ------------------------------------------------  */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES WILL PRINT A VARIETY OF XEROX TAPES -   */         .
   /*    BOTH ANSI LABELED AND UNLABELED - FOR BOTH 1600 BPI AND    */         .
   /*    800 BPI 9 TRACK TAPES.                                     */         .
   /*                                                               */         .
   /*       CHARACTERISTICS                       1600 BPI   800 BPI*/         .
   /*       ---------------                       --------   -------*/         .
   /*                                                               */         .
   /*       ANSI-LABELED, FB, BLOCKED 3990, XEROX    11         21  */         .
   /*          PCC                                                  */         .
   /*       ANSI-LABELED, U, BLOCKED 133, XEROX PCC  12         22  */         .
   /*       UNLABELED, BLOCKED 3990, FB, XEROX PCC   13         23  */         .
   /*       UNLABELED, BLOCKED 3960, FB, XEROX PCC   14         24  */         .
   /*       UNLABELED, BLOCKED 133, U, XEROX PCC     15         25  */         .
   /*                                                               */         .
11:JOB;                                                                        .
         VOLUME   HOST=XEROX, LABEL=ANSI, TAPE=9T, DENSITY=D1600;              .
         BLOCK    LENGTH=3990;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
12:JOB;                                                                        .
         VOLUME   HOST=XEROX, LABEL=ANSI, TAPE=9T, DENSITY=D1600;              .
         BLOCK    LENGTH=133;                                                  .
         RECORD   LENGTH=133, STRUCTURE=U;                                     .
13:JOB;                                                                        .
         VOLUME   HOST=XEROX, LABEL=NONE, TAPE=9T, DENSITY=D1600;              .
         BLOCK    LENGTH=3990;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
14:JOB;                                                                        .
         VOLUME   HOST=XEROX, LABEL=NONE, TAPE=9T, DENSITY=D1600;              .
         BLOCK    LENGTH=3960;                                                 .
         RECORD   LENGTH=132, STRUCTURE=FB;                                    .
15:JOB;                                                                        .
         VOLUME   HOST=XEROX, LABEL=NONE, TAPE=9T, DENSITY=D1600;              .
         BLOCK    LENGTH=133;                                                  .
         RECORD   LENGTH=133, STRUCTURE=U;                                     .
21:JOB;                                                                        .
         VOLUME   HOST=XEROX, LABEL=ANSI, TAPE=9T, DENSITY=D800;               .
         BLOCK    LENGTH=3990;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
22:JOB;                                                                        .
         VOLUME   HOST=XEROX, LABEL=ANSI, TAPE=9T, DENSITY=D800;               .
         BLOCK    LENGTH=133;                                                  .
         RECORD   LENGTH=133, STRUCTURE=U;                                     .
23:JOB;                                                                        .
         VOLUME   HOST=XEROX, LABEL=NONE, TAPE=9T, DENSITY=D800;               .
         BLOCK    LENGTH=3990;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
24:JOB;                                                                        .
         VOLUME   HOST=XEROX, LABEL=NONE, TAPE=9T, DENSITY=D800;               .
         BLOCK    LENGTH=3960;                                                 .
         RECORD   LENGTH=132, STRUCTURE=FB;                                    .
25:JOB;                                                                        .
         VOLUME   HOST=XEROX, LABEL=NONE, TAPE=9T, DENSITY=D800;               .
         BLOCK    LENGTH=133;                                                  .
         RECORD   LENGTH=133, STRUCTURE=U;                                     .
   /*                                                               */         .
   /*             JDES FOR UTILITY PRINTOUTS                        */         .
   /*             --------------------------                        */         .
   /*                                                               */         .
   /*    THE FOLLOWING JDES WILL ALLOW PRINTOUTS OF MOST TAPES      */         .
   /*    WITHOUT ATTEMPTING TO PROPERLY DEBLOCK THE TAPE.  JDES     */         .
   /*    ARE PROVIDED FOR BOTH DENSITIES OF 9 TRACK AND ALL 6       */         .
   /*    DENSITY/PARITY COMBINATIONS OF 7 TRACK TAPES.              */         .
   /*                                                               */         .
   /*       CHARACTERISTICS            1600 BPI   800 BPI   7 TRACK */         .
   /*       ---------------            --------   -------   ------- */         .
   /*                                                               */         .
   /*       UNBLOCKED, NO PCC            31         41      51-56   */         .
   /*       BLOCKED 4096, U, NO PCC      32         42      61-66   */         .
   /*       BLOCKED 3990, FB, NO PCC     33         43      81-86   */         .
   /*                                                               */         .
31:JOB;                                                                        .
         VOLUME   LABEL=NONE, TAPE=9T, DENSITY=D1600;                          .
         BLOCK    LENGTH=133;                                                  .
         RECORD   STRUCTURE=U;                                                 .
         LINE     PCCTYPE=NONE, DATA=(0,132);                                  .
32:JOB;                                                                        .
         VOLUME   LABEL=NONE, TAPE=9T, DENSITY=D1600;                          .
         BLOCK    LENGTH=4096;                                                 .
         RECORD   STRUCTURE=U;                                                 .
         LINE     PCCTYPE=NONE, DATA=(0,132);                                  .
33:JOB;                                                                        .
         VOLUME   LABEL=NONE, TAPE=9T, DENSITY=D1600;                          .
         BLOCK    LENGTH=3990;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         LINE     PCCTYPE=NONE, DATA=(0,132);                                  .
41:JOB;                                                                        .
         VOLUME   LABEL=NONE, TAPE=9T, DENSITY=D800;                           .
         BLOCK    LENGTH=133;                                                  .
         RECORD   STRUCTURE=U;                                                 .
         LINE     PCCTYPE=NONE, DATA=(0,132);                                  .
42:JOB;                                                                        .
         VOLUME   LABEL=NONE, TAPE=9T, DENSITY=D800;                           .
         BLOCK    LENGTH=4096;                                                 .
         RECORD   STRUCTURE=U;                                                 .
         LINE     PCCTYPE=NONE, DATA=(0,132);                                  .
43:JOB;                                                                        .
         VOLUME   LABEL=NONE, TAPE=9T, DENSITY=D800;                           .
         BLOCK    LENGTH=3990;                                                 .
         RECORD   LENGTH=133, STRUCTURE=FB;                                    .
         LINE     PCCTYPE=NONE, DATA=(0,132);                                  .
51:JOB   INCLUDE=(UU);                                                         .
         VOLUME   TAPE=7T, DENSITY=D800, PARITY=ODD;                           .
52:JOB   INCLUDE=(UU);                                                         .
         VOLUME   TAPE=7T, DENSITY=D800, PARITY=EVEN;                          .
53:JOB   INCLUDE=(UU);                                                         .
         VOLUME   TAPE=7T, DENSITY=D556, PARITY=ODD;                           .
54:JOB   INCLUDE=(UU);                                                         .
         VOLUME   TAPE=7T, DENSITY=D556, PARITY=EVEN;                          .
55:JOB   INCLUDE=(UU);                                                         .
         VOLUME   TAPE=7T, DENSITY=D200, PARITY=ODD;                           .
56:JOB   INCLUDE=(UU);                                                         .
         VOLUME   TAPE=7T, DENSITY=D200, PARITY=EVEN;                          .
61:JOB   INCLUDE=(U4);                                                         .
         VOLUME   TAPE=7T, DENSITY=D800, PARITY=ODD;                           .
62:JOB   INCLUDE=(U4);                                                         .
         VOLUME   TAPE=7T, DENSITY=D800, PARITY=EVEN;                          .
63:JOB   INCLUDE=(U4);                                                         .
         VOLUME   TAPE=7T, DENSITY=D556, PARITY=ODD;                           .
64:JOB   INCLUDE=(U4);                                                         .
         VOLUME   TAPE=7T, DENSITY=D556, PARITY=EVEN;                          .
65:JOB   INCLUDE=(U4);                                                         .
         VOLUME   TAPE=7T, DENSITY=D200, PARITY=ODD;                           .
66:JOB   INCLUDE=(U4);                                                         .
         VOLUME   TAPE=7T, DENSITY=D200, PARITY=EVEN;                          .
81:JOB   INCLUDE=(FB);                                                         .
         VOLUME   TAPE=7T, DENSITY=D800, PARITY=ODD;                           .
82:JOB   INCLUDE=(FB);                                                         .
         VOLUME   TAPE=7T, DENSITY=D800, PARITY=EVEN;                          .
83:JOB   INCLUDE=(FB);                                                         .
         VOLUME   TAPE=7T, DENSITY=D556, PARITY=ODD;                           .
84:JOB   INCLUDE=(FB);                                                         .
         VOLUME   TAPE=7T, DENSITY=D556, PARITY=EVEN;                          .
85:JOB   INCLUDE=(FB);                                                         .
         VOLUME   TAPE=7T, DENSITY=D200, PARITY=ODD;                           .
86:JOB   INCLUDE=(FB);                                                         .
         VOLUME   TAPE=7T, DENSITY=D200, PARITY=EVEN;                          .
   /*                                                               */         .
END;     /* END OF JDL */                                                      .
1EOF                                                                           *
1ERI                                                                           *
	?o?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L
	!??L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L(?L
