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=OCTDUMP, 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 */ . /* */ . IDEN PREFIX = X'4D53472C4E205845524F58', SKIP = 13, OFFSET=1, OPRINFO=YES; V1: VFU ASSIGN=(1,1); . VFU ASSIGN=(8,(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)); . VFU ASSIGN=(8,(16,17,18,19,20,21,22,23,24,25)); . VFU ASSIGN=(8,(26,27,28,29,30,31,32,33,34,35)); . VFU ASSIGN=(8,(36,37,38,39,40,41,42,43,44,45)); . VFU ASSIGN=(8,(46,47,48,49,50,51,52,53,54,55)); . VFU ASSIGN=(8,(56,57,58,59,60,61,62,63,64,65,66)); . VFU TOF=1, 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=200, 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 */ . BB:SYSTEM; /*DEC:OVER*/ PB018000/000F,005A(0910)FB00 PB018000/000F,005B(0910)5DDE PB018000/0000,5DDE(0910)F913 PB018000/0000,5DDF(0910)E601 PB018000/0000,5DE0(0910)C602 PB018000/0000,5DE1(0910)900E PB018000/0000,5DE2(0910)3081 PB018000/0000,5DE3(0910)F401 PB018000/0000,5DE4(0910)C702 PB018000/0000,5DE5(0910)8893 PB018000/0000,5DE6(0910)900E PB018000/0000,5DE7(0910)3181 PB018000/0000,5DE8(0910)F401 PB018000/0000,5DE9(0910)B020 PB018000/0000,5DEA(0910)8047 PB018000/0000,5DEB(0910)3101 PB018000/0000,5DEC(0910)F401 PB018000/0000,5DED(0910)F406 PB018000/000F,005C(0910)F220 END