home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
cicsussr.tar.gz
/
cicsussr.tar
/
eck2.jcl
next >
Wrap
Text File
|
1991-08-21
|
10KB
|
124 lines
//ASMTRTSC JOB (0517,COUR),'PE·AEB',REGION=1024K,MSGLEVEL=(2,0) 00010017
//ST1 EXEC PGM=IUM90,REGION=1024K, 00020008
// PARM='LOAD,LIST,NOXREF,LINECNT=60' 00030014
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00040008
//SYSUT1 DD SPACE=(1700,(800,200)),UNIT=SYSDA,DSN=&&SYSUT1 00050008
//SYSUT2 DD SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT2 00060008
//SYSUT3 DD SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT3 00070008
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=3146 00080008
//SYSTERM DD DUMMY DCB=(RECFM=FA,BLKSIZE=121) 00090009
//SYSPUNCH DD DSN=&&OBJ1,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(10,10)) 00100022
//SYSGO DD DUMMY 00110009
//SYSIN DD * 00120000
PRINT NOGEN 00130000
COURTRTS CSECT 00140013
********************************************************************** 00150000
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00160020
ATOE DC X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F' 0 00170020
DC X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F' 1 00180020
DC X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61' 2 00190020
DC X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F' 3 00200020
DC X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6' 4 00210020
DC X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D' 5 00220020
DC X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB' 6 00230020
DC X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07' 7 00240020
DC X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F' 8 00250020
DC X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F' 9 00260020
DC X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61' A 00270020
DC X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F' B 00280020
DC X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6' C 00290020
DC X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D' D 00300020
DC X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB' E 00310020
DC X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07' F 00320020
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00330020
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00340020
ETOA DC X'0001,0203,9C09,007F,0000,000B,0C0D,0E0F' 0 00350020
DC X'1011,1213,000A,0800,1819,0000,1C1D,1E1F' 1 00360020
DC X'0000,0000,000A,171B,0000,0000,0005,0607' 2 00370020
DC X'0000,1600,0000,0004,0000,0000,1415,001A' 3 00380020
DC X'2000,0000,0000,0000,0000,5B2E,3C28,2B21' 4 00390020
DC X'2600,0000,0000,0000,0000,5D24,2A29,3B5E' 5 00400020
DC X'2D2F,0000,0000,0000,0000,7C2C,255F,3E3F' 6 00410020
DC X'0000,0000,0027,6061,6220,3A23,4027,3D22' 7 00420020
DC X'6341,4243,4445,4647,4849,6465,6667,6869' 8 00430020
DC X'6A4A,4B4C,4D4E,4F50,5152,6B6C,6D6E,6F70' 9 00440020
DC X'713F,5354,5556,5758,595A,7273,7475,7677' A 00450020
DC X'7879,7A7B,7C7D,7E27,6061,6263,6465,6667' B 00460020
DC X'2841,4243,4445,4647,4849,6869,6A6B,6C6D' C 00470020
DC X'294A,4B4C,4D4E,4F50,5152,6E6F,7071,7273' D 00480020
DC X'5C00,5354,5556,5758,595A,7475,7677,7879' E 00490020
DC X'3031,3233,3435,3637,3839,7A7B,7C7D,7E7F' F 00500020
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00510020
END 00520000
//ST2 EXEC PGM=IEWL, 00530009
// PARM='XREF,LET,LIST,SIZE=(224K,100K),AC=1', 00540009
// REGION=256K,COND=(0,NE,ST1) 00550009
//SYSLIN DD DSN=&&OBJ1,DISP=(OLD,PASS) 00560022
//SYSLMOD DD DSN=DIALOG2.VS.STATLIB(COURTRTS), 00570021
// UNIT=SYSDA,DISP=SHR 00580010
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 00590010
// SPACE=(3072,(20,10),,,ROUND),SPOOL=YES 00600010
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=3146 00610010
//************************************************************* 00620016
//ST3 EXEC PGM=IUM90,REGION=1024K, 00630016
// PARM='LOAD,LIST,NOXREF,LINECNT=60' 00640016
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00650016
//SYSUT1 DD SPACE=(1700,(800,200)),UNIT=SYSDA,DSN=&&SYSUT1 00660016
//SYSUT2 DD SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT2 00670016
//SYSUT3 DD SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT3 00680016
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=3146 00690016
//SYSTERM DD DUMMY DCB=(RECFM=FA,BLKSIZE=121) 00700016
//SYSPUNCH DD DSN=&&OBJ2,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(10,10)) 00710022
//SYSGO DD DUMMY 00720016
//SYSIN DD * 00730016
PRINT NOGEN 00740016
COURSTND CSECT 00750016
********************************************************************** 00760016
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00770020
ATOE DC X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F' 0 00780020
DC X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F' 1 00790020
DC X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61' 2 00800020
DC X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F' 3 00810020
DC X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6' 4 00820020
DC X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D' 5 00830020
DC X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB' 6 00840020
DC X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07' 7 00850020
DC X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F' 8 00860020
DC X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F' 9 00870020
DC X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61' A 00880020
DC X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F' B 00890020
DC X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6' C 00900020
DC X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D' D 00910020
DC X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB' E 00920020
DC X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07' F 00930020
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00940020
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00950020
ETOA DC X'0001,0203,9C09,007F,0000,000B,0C0D,0E0F' 0 00960020
DC X'1011,1213,000A,0800,1819,0000,1C1D,1E1F' 1 00970020
DC X'0000,0000,000A,171B,0000,0000,0005,0607' 2 00980020
DC X'0000,1600,0000,0004,0000,0000,1415,001A' 3 00990020
DC X'2000,0000,0000,0000,0000,5B2E,3C28,2B21' 4 01000020
DC X'2600,0000,0000,0000,0000,5D24,2A29,3B5E' 5 01010020
DC X'2D2F,0000,0000,0000,0000,7C2C,255F,3E3F' 6 01020020
DC X'0000,0000,0027,6061,6220,3A23,4027,3D22' 7 01030020
DC X'6341,4243,4445,4647,4849,6465,6667,6869' 8 01040020
DC X'6A4A,4B4C,4D4E,4F50,5152,6B6C,6D6E,6F70' 9 01050020
DC X'713F,5354,5556,5758,595A,7273,7475,7677' A 01060020
DC X'7879,7A7B,7C7D,7E27,6061,6263,6465,6667' B 01070020
DC X'2841,4243,4445,4647,4849,6869,6A6B,6C6D' C 01080020
DC X'294A,4B4C,4D4E,4F50,5152,6E6F,7071,7273' D 01090020
DC X'5C00,5354,5556,5758,595A,7475,7677,7879' E 01100020
DC X'3031,3233,3435,3637,3839,7A7B,7C7D,7E7F' F 01110020
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 01120020
END 01130016
//ST4 EXEC PGM=IEWL, 01140016
// PARM='XREF,LET,LIST,SIZE=(224K,100K),AC=1', 01150016
// REGION=256K,COND=(0,NE,ST3) 01160016
//SYSLIN DD DSN=&&OBJ2,DISP=(OLD,PASS) 01170022
//SYSLMOD DD DSN=DIALOG2.VS.STATLIB(COURSTND), 01180021
// UNIT=SYSDA,DISP=SHR 01190016
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 01200016
// SPACE=(3072,(20,10),,,ROUND),SPOOL=YES 01210016
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=3146 01220016
// 01230000