home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / cicsussr / ecker.jcl < prev    next >
Text File  |  2020-01-01  |  5KB  |  63 lines
  1. //ASMTRTMC JOB (0517,COUR),'PE·AEB',REGION=1024K,MSGLEVEL=(2,0)         00010018
  2. //ST1         EXEC  PGM=IUM90,REGION=1024K,                             00020008
  3. //            PARM='LOAD,LIST,NOXREF,LINECNT=60'                        00030014
  4. //SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR                                  00040008
  5. //SYSUT1   DD  SPACE=(1700,(800,200)),UNIT=SYSDA,DSN=&&SYSUT1           00050008
  6. //SYSUT2   DD  SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT2           00060008
  7. //SYSUT3   DD  SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT3           00070008
  8. //SYSPRINT     DD   SYSOUT=A,DCB=BLKSIZE=3146                           00080008
  9. //SYSTERM  DD  DUMMY DCB=(RECFM=FA,BLKSIZE=121)                         00090009
  10. //SYSPUNCH DD  DSN=&&OBJ,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(10,10))    00100008
  11. //SYSGO    DD  DUMMY                                                    00110009
  12. //SYSIN    DD *                                                         00120000
  13.          PRINT NOGEN                                                    00130000
  14. COURTRTM CSECT                                                          00140015
  15. **********************************************************************  00150000
  16. *                0 1 2 3 4 5 6 7 8 9 A B C D E F                        00160013
  17. ATOE     DC    X'00010203372D2E2F1605250B0C0D0E0F'  00                  00170013
  18.          DC    X'101112133C3D322618193F271C1D1E1F'  01                  00180013
  19.          DC    X'404F7F7B5B6C507D4D5D5C4E6B604B61'  02                  00190013
  20.          DC    X'F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F'  03                  00200013
  21.          DC    X'7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6'  04                  00210013
  22.          DC    X'D7D8D9E2E3E4E5E6E7E8E94AE05A5F6D'  05                  00220013
  23.          DC    X'79818283848586878889919293949596'  06                  00230015
  24.          DC    X'979899A2A3A4A5A6A7A8A9C06AD07F07'  07                  00240016
  25.          DC    X'7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F'  08                  00250015
  26.          DC    X'7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F'  09                  00260015
  27.          DC    X'7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F'  0A                  00270015
  28.          DC    X'B9BAEDBFBCBDECFACBCCCDCECFDADBDC'  0B                  00280015
  29.          DC    X'DEDFEAEBBECABBFEFBFD7DEFEEFCB8DD'  0C                  00290015
  30.          DC    X'7778AF8D8A8BAEB28F909A9B9C9D9E9F'  0D                  00300015
  31.          DC    X'AAABACAD8C8E80B6B3B5B7B1B0B476A0'  0E                  00310015
  32.          DC    X'7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F'  0F                  00320015
  33. *                0 1 2 3 4 5 6 7 8 9 A B C D E F                        00330013
  34. *                0 1 2 3 4 5 6 7 8 9 A B C D E F                        00340013
  35. ETOA     DC    X'000102032209227F2222220B0C0D0E0F'   00                 00350016
  36.          DC    X'1011121322220822181922221C1D1E1F'   01                 00360016
  37.          DC    X'22222222220A171B2222222222050607'   02                 00370016
  38.          DC    X'2222162222222204222222221415221A'   03                 00380016
  39.          DC    X'202222222222222222225B2E3C282B21'   04                 00390016
  40.          DC    X'262222222222222222225D242A293B5E'   05                 00400016
  41.          DC    X'2D2F22222222222222227C2C255F3E3F'   06                 00410016
  42.          DC    X'222222222222EED0D1603A2340273D22'   07                 00420016
  43.          DC    X'E6616263646566676869D4D5E4D3E5D8'   08                 00430016
  44.          DC    X'D96A6B6C6D6E6F707172DADBDCDDDEDF'   09                 00440016
  45.          DC    X'EF2D737475767778797AE0E1E2E3D6D2'   0A                 00450016
  46.          DC    X'ECEBD7E8EDE9E7EACEB0B1C6B4B5C4B3'   0B                 00460016
  47.          DC    X'7B414243444546474849C5B8B9BABBBC'   0C                 00470016
  48.          DC    X'7D4A4B4C4D4E4F505152BDBEBFCFC0C1'   0D                 00480016
  49.          DC    X'5C22535455565758595AC2C3B6B2CCCB'   0E                 00490016
  50.          DC    X'30313233343536373839B7C8CDC9C722'   0F                 00500016
  51. *                0 1 2 3 4 5 6 7 8 9 A B C D E F                        00510013
  52.          END                                                            00520000
  53. //ST2       EXEC  PGM=IEWL,                                             00530009
  54. //          PARM='XREF,LET,LIST,SIZE=(224K,100K),AC=1',                 00540009
  55. //          REGION=256K,COND=(0,NE,ST1)                                 00550009
  56. //SYSLIN   DD  DSN=*.ST1.SYSPUNCH,DISP=(OLD,PASS)                       00560012
  57. //SYSLMOD  DD   DSN=REZAEV.COURIER.LOAD(COURTRTM),                      00580019
  58. //         UNIT=SYSDA,DISP=SHR                                          00590010
  59. //SYSUT1   DD   DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),         00600010
  60. //         SPACE=(3072,(20,10),,,ROUND),SPOOL=YES                       00610010
  61. //SYSPRINT DD   SYSOUT=A,DCB=BLKSIZE=3146                               00620010
  62. //                                                                      00630000
  63.