//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