home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
cicsussr.zip
/
ecker.jcl
< prev
next >
Wrap
Text File
|
1991-08-21
|
5KB
|
63 lines
//ASMTRTMC JOB (0517,COUR),'PE·AEB',REGION=1024K,MSGLEVEL=(2,0) 00010018
//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=&&OBJ,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(10,10)) 00100008
//SYSGO DD DUMMY 00110009
//SYSIN DD * 00120000
PRINT NOGEN 00130000
COURTRTM CSECT 00140015
********************************************************************** 00150000
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00160013
ATOE DC X'00010203372D2E2F1605250B0C0D0E0F' 00 00170013
DC X'101112133C3D322618193F271C1D1E1F' 01 00180013
DC X'404F7F7B5B6C507D4D5D5C4E6B604B61' 02 00190013
DC X'F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F' 03 00200013
DC X'7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6' 04 00210013
DC X'D7D8D9E2E3E4E5E6E7E8E94AE05A5F6D' 05 00220013
DC X'79818283848586878889919293949596' 06 00230015
DC X'979899A2A3A4A5A6A7A8A9C06AD07F07' 07 00240016
DC X'7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F' 08 00250015
DC X'7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F' 09 00260015
DC X'7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F' 0A 00270015
DC X'B9BAEDBFBCBDECFACBCCCDCECFDADBDC' 0B 00280015
DC X'DEDFEAEBBECABBFEFBFD7DEFEEFCB8DD' 0C 00290015
DC X'7778AF8D8A8BAEB28F909A9B9C9D9E9F' 0D 00300015
DC X'AAABACAD8C8E80B6B3B5B7B1B0B476A0' 0E 00310015
DC X'7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F' 0F 00320015
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00330013
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00340013
ETOA DC X'000102032209227F2222220B0C0D0E0F' 00 00350016
DC X'1011121322220822181922221C1D1E1F' 01 00360016
DC X'22222222220A171B2222222222050607' 02 00370016
DC X'2222162222222204222222221415221A' 03 00380016
DC X'202222222222222222225B2E3C282B21' 04 00390016
DC X'262222222222222222225D242A293B5E' 05 00400016
DC X'2D2F22222222222222227C2C255F3E3F' 06 00410016
DC X'222222222222EED0D1603A2340273D22' 07 00420016
DC X'E6616263646566676869D4D5E4D3E5D8' 08 00430016
DC X'D96A6B6C6D6E6F707172DADBDCDDDEDF' 09 00440016
DC X'EF2D737475767778797AE0E1E2E3D6D2' 0A 00450016
DC X'ECEBD7E8EDE9E7EACEB0B1C6B4B5C4B3' 0B 00460016
DC X'7B414243444546474849C5B8B9BABBBC' 0C 00470016
DC X'7D4A4B4C4D4E4F505152BDBEBFCFC0C1' 0D 00480016
DC X'5C22535455565758595AC2C3B6B2CCCB' 0E 00490016
DC X'30313233343536373839B7C8CDC9C722' 0F 00500016
* 0 1 2 3 4 5 6 7 8 9 A B C D E F 00510013
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=*.ST1.SYSPUNCH,DISP=(OLD,PASS) 00560012
//SYSLMOD DD DSN=REZAEV.COURIER.LOAD(COURTRTM), 00580019
// UNIT=SYSDA,DISP=SHR 00590010
//SYSUT1 DD DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)), 00600010
// SPACE=(3072,(20,10),,,ROUND),SPOOL=YES 00610010
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=3146 00620010
// 00630000