home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / cicsussr / eck2.jcl next >
Text File  |  2020-01-01  |  10KB  |  124 lines
  1. //ASMTRTSC JOB (0517,COUR),'PE·AEB',REGION=1024K,MSGLEVEL=(2,0)         00010017
  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=&&OBJ1,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(10,10))   00100022
  11. //SYSGO    DD  DUMMY                                                    00110009
  12. //SYSIN    DD *                                                         00120000
  13.          PRINT NOGEN                                                    00130000
  14. COURTRTS CSECT                                                          00140013
  15. **********************************************************************  00150000
  16. *                 0 1  2 3  4 5  6 7  8 9  A B  C D  E F                00160020
  17. ATOE     DC    X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F'  0            00170020
  18.          DC    X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F'  1            00180020
  19.          DC    X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61'  2            00190020
  20.          DC    X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F'  3            00200020
  21.          DC    X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6'  4            00210020
  22.          DC    X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D'  5            00220020
  23.          DC    X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB'  6            00230020
  24.          DC    X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07'  7            00240020
  25.          DC    X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F'  8            00250020
  26.          DC    X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F'  9            00260020
  27.          DC    X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61'  A            00270020
  28.          DC    X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F'  B            00280020
  29.          DC    X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6'  C            00290020
  30.          DC    X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D'  D            00300020
  31.          DC    X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB'  E            00310020
  32.          DC    X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07'  F            00320020
  33. *                 0 1  2 3  4 5  6 7  8 9  A B  C D  E F                00330020
  34. *                 0 1  2 3  4 5  6 7  8 9  A B  C D  E F                00340020
  35. ETOA     DC    X'0001,0203,9C09,007F,0000,000B,0C0D,0E0F'  0            00350020
  36.          DC    X'1011,1213,000A,0800,1819,0000,1C1D,1E1F'  1            00360020
  37.          DC    X'0000,0000,000A,171B,0000,0000,0005,0607'  2            00370020
  38.          DC    X'0000,1600,0000,0004,0000,0000,1415,001A'  3            00380020
  39.          DC    X'2000,0000,0000,0000,0000,5B2E,3C28,2B21'  4            00390020
  40.          DC    X'2600,0000,0000,0000,0000,5D24,2A29,3B5E'  5            00400020
  41.          DC    X'2D2F,0000,0000,0000,0000,7C2C,255F,3E3F'  6            00410020
  42.          DC    X'0000,0000,0027,6061,6220,3A23,4027,3D22'  7            00420020
  43.          DC    X'6341,4243,4445,4647,4849,6465,6667,6869'  8            00430020
  44.          DC    X'6A4A,4B4C,4D4E,4F50,5152,6B6C,6D6E,6F70'  9            00440020
  45.          DC    X'713F,5354,5556,5758,595A,7273,7475,7677'  A            00450020
  46.          DC    X'7879,7A7B,7C7D,7E27,6061,6263,6465,6667'  B            00460020
  47.          DC    X'2841,4243,4445,4647,4849,6869,6A6B,6C6D'  C            00470020
  48.          DC    X'294A,4B4C,4D4E,4F50,5152,6E6F,7071,7273'  D            00480020
  49.          DC    X'5C00,5354,5556,5758,595A,7475,7677,7879'  E            00490020
  50.          DC    X'3031,3233,3435,3637,3839,7A7B,7C7D,7E7F'  F            00500020
  51. *                 0 1  2 3  4 5  6 7  8 9  A B  C D  E F                00510020
  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=&&OBJ1,DISP=(OLD,PASS)                               00560022
  57. //SYSLMOD  DD   DSN=DIALOG2.VS.STATLIB(COURTRTS),                       00570021
  58. //         UNIT=SYSDA,DISP=SHR                                          00580010
  59. //SYSUT1   DD   DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),         00590010
  60. //         SPACE=(3072,(20,10),,,ROUND),SPOOL=YES                       00600010
  61. //SYSPRINT DD   SYSOUT=A,DCB=BLKSIZE=3146                               00610010
  62. //*************************************************************         00620016
  63. //ST3         EXEC  PGM=IUM90,REGION=1024K,                             00630016
  64. //            PARM='LOAD,LIST,NOXREF,LINECNT=60'                        00640016
  65. //SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR                                  00650016
  66. //SYSUT1   DD  SPACE=(1700,(800,200)),UNIT=SYSDA,DSN=&&SYSUT1           00660016
  67. //SYSUT2   DD  SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT2           00670016
  68. //SYSUT3   DD  SPACE=(1700,(600,100)),UNIT=SYSDA,DSN=&&SYSUT3           00680016
  69. //SYSPRINT     DD   SYSOUT=A,DCB=BLKSIZE=3146                           00690016
  70. //SYSTERM  DD  DUMMY DCB=(RECFM=FA,BLKSIZE=121)                         00700016
  71. //SYSPUNCH DD  DSN=&&OBJ2,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(10,10))   00710022
  72. //SYSGO    DD  DUMMY                                                    00720016
  73. //SYSIN    DD *                                                         00730016
  74.          PRINT NOGEN                                                    00740016
  75. COURSTND CSECT                                                          00750016
  76. **********************************************************************  00760016
  77. *                 0 1  2 3  4 5  6 7  8 9  A B  C D  E F                00770020
  78. ATOE     DC    X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F'  0            00780020
  79.          DC    X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F'  1            00790020
  80.          DC    X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61'  2            00800020
  81.          DC    X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F'  3            00810020
  82.          DC    X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6'  4            00820020
  83.          DC    X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D'  5            00830020
  84.          DC    X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB'  6            00840020
  85.          DC    X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07'  7            00850020
  86.          DC    X'0001,0203,372D,2E2F,1605,250B,0C0D,0E0F'  8            00860020
  87.          DC    X'1011,1213,3C3D,3226,1819,3F27,1C1D,1E1F'  9            00870020
  88.          DC    X'404F,7F7B,5B6C,507D,4D5D,5C4E,6B60,4B61'  A            00880020
  89.          DC    X'F0F1,F2F3,F4F5,F6F7,F8F9,7A5E,4C7E,6E6F'  B            00890020
  90.          DC    X'7CC1,C2C3,C4C5,C6C7,C8C9,D1D2,D3D4,D5D6'  C            00900020
  91.          DC    X'D7D8,D9E2,E3E4,E5E6,E7E8,E94A,E05A,5F6D'  D            00910020
  92.          DC    X'B8B9,BABB,BCBD,BEBF,CACB,CCCD,CECF,DADB'  E            00920020
  93.          DC    X'DCDD,DEDF,EAEB,ECED,EEEF,FAFB,FCFD,FE07'  F            00930020
  94. *                 0 1  2 3  4 5  6 7  8 9  A B  C D  E F                00940020
  95. *                 0 1  2 3  4 5  6 7  8 9  A B  C D  E F                00950020
  96. ETOA     DC    X'0001,0203,9C09,007F,0000,000B,0C0D,0E0F'  0            00960020
  97.          DC    X'1011,1213,000A,0800,1819,0000,1C1D,1E1F'  1            00970020
  98.          DC    X'0000,0000,000A,171B,0000,0000,0005,0607'  2            00980020
  99.          DC    X'0000,1600,0000,0004,0000,0000,1415,001A'  3            00990020
  100.          DC    X'2000,0000,0000,0000,0000,5B2E,3C28,2B21'  4            01000020
  101.          DC    X'2600,0000,0000,0000,0000,5D24,2A29,3B5E'  5            01010020
  102.          DC    X'2D2F,0000,0000,0000,0000,7C2C,255F,3E3F'  6            01020020
  103.          DC    X'0000,0000,0027,6061,6220,3A23,4027,3D22'  7            01030020
  104.          DC    X'6341,4243,4445,4647,4849,6465,6667,6869'  8            01040020
  105.          DC    X'6A4A,4B4C,4D4E,4F50,5152,6B6C,6D6E,6F70'  9            01050020
  106.          DC    X'713F,5354,5556,5758,595A,7273,7475,7677'  A            01060020
  107.          DC    X'7879,7A7B,7C7D,7E27,6061,6263,6465,6667'  B            01070020
  108.          DC    X'2841,4243,4445,4647,4849,6869,6A6B,6C6D'  C            01080020
  109.          DC    X'294A,4B4C,4D4E,4F50,5152,6E6F,7071,7273'  D            01090020
  110.          DC    X'5C00,5354,5556,5758,595A,7475,7677,7879'  E            01100020
  111.          DC    X'3031,3233,3435,3637,3839,7A7B,7C7D,7E7F'  F            01110020
  112. *                 0 1  2 3  4 5  6 7  8 9  A B  C D  E F                01120020
  113.          END                                                            01130016
  114. //ST4       EXEC  PGM=IEWL,                                             01140016
  115. //          PARM='XREF,LET,LIST,SIZE=(224K,100K),AC=1',                 01150016
  116. //          REGION=256K,COND=(0,NE,ST3)                                 01160016
  117. //SYSLIN   DD  DSN=&&OBJ2,DISP=(OLD,PASS)                               01170022
  118. //SYSLMOD  DD   DSN=DIALOG2.VS.STATLIB(COURSTND),                       01180021
  119. //         UNIT=SYSDA,DISP=SHR                                          01190016
  120. //SYSUT1   DD   DSN=&&SYSUT1,UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),         01200016
  121. //         SPACE=(3072,(20,10),,,ROUND),SPOOL=YES                       01210016
  122. //SYSPRINT DD   SYSOUT=A,DCB=BLKSIZE=3146                               01220016
  123. //                                                                      01230000
  124.