home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ibmtsonih / tsnker.jcl < prev    next >
Text File  |  2020-01-01  |  2KB  |  74 lines
  1. //*
  2. //*  NIH TSO KERMIT INSTALLATION JCL
  3. //*
  4. //INSTALL PROC SYSDA=SYSDA,            UNIT NAME FOR SCRATCH DISKS
  5. //             ASM=IEV90,              NAME OF ASSEMBLER
  6. //             LKED=IEWL               NAME OF LINKAGE EDITOR
  7. //*
  8. //*  ASSEMBLE THE TABLES
  9. //*
  10. //ASMTABLE  EXEC  PGM=&ASM,REGION=1000K,PARM='NODECK,OBJECT,TERM'
  11. //*
  12. //SYSTERM  DD  SYSOUT=A
  13. //SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
  14. //SYSLIN   DD  DSN=&&TABLES,UNIT=&SYSDA,DISP=(MOD,PASS,DELETE),
  15. //             SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
  16. //SYSPRINT DD  SYSOUT=A
  17. //SYSUDUMP DD  SYSOUT=A
  18. //SYSUT1   DD  UNIT=&SYSDA,SPACE=(CYL,(10,10))
  19. //SYSUT2   DD  UNIT=&SYSDA,SPACE=(CYL,(10,10))
  20. //SYSUT3   DD  UNIT=&SYSDA,SPACE=(CYL,(10,10))
  21. //*
  22. //*  ASSEMBLE THE UNHEX PROGRAM
  23. //*
  24. //ASMUNHEX  EXEC  PGM=&ASM,REGION=1000K,PARM='NODECK,OBJECT,TERM'
  25. //*
  26. //SYSTERM  DD  SYSOUT=A
  27. //SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
  28. //SYSLIN   DD  DSN=&&UNHEX,UNIT=&SYSDA,DISP=(MOD,PASS,DELETE),
  29. //             SPACE=(CYL,(2,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
  30. //SYSPRINT DD  SYSOUT=A
  31. //SYSUDUMP DD  SYSOUT=A
  32. //SYSUT1   DD  UNIT=&SYSDA,SPACE=(CYL,(10,10))
  33. //SYSUT2   DD  UNIT=&SYSDA,SPACE=(CYL,(10,10))
  34. //SYSUT3   DD  UNIT=&SYSDA,SPACE=(CYL,(10,10))
  35. //*
  36. //*  LINK THE UNHEX PROGRAM
  37. //*
  38. //LNKUNHEX EXEC PGM=&LKED,PARM='MAP,LIST',COND=(8,LE),REGION=500K
  39. //*
  40. //SYSLIN   DD  DSN=&&UNHEX,DISP=(OLD,DELETE)
  41. //SYSLMOD  DD  DSN=&&LOAD(UNHEX),UNIT=&SYSDA,DISP=(NEW,PASS,DELETE),
  42. //             SPACE=(CYL,(2,1,1))
  43. //SYSPRINT DD  SYSOUT=A
  44. //SYSUDUMP DD  SYSOUT=A
  45. //SYSUT1   DD  DSN=&&SYSUT1,UNIT=&SYSDA,SPACE=(CYL,(5,5))
  46. //*
  47. //*  EXECUTE THE UNHEX PROGRAM
  48. //*
  49. //RUNUNHEX  EXEC  PGM=*.LNKUNHEX.SYSLMOD,REGION=500K,COND=(8,LE),
  50. //          PARM=NOUPDTE
  51. //*
  52. //DELETE   DD  DSN=&&LOAD,DISP=(OLD,DELETE)
  53. //OUTPUT   DD  DSN=&&OBJECT,UNIT=&SYSDA,DISP=(NEW,PASS),
  54. //             SPACE=(CYL,(5,5),RLSE),DCB=BLKSIZE=3200
  55. //*
  56. //*  LINK TSO KERMIT
  57. //*
  58. //KERMIT EXEC PGM=&LKED,PARM='MAP,LIST',COND=(8,LE),REGION=500K
  59. //*
  60. //SYSLIN   DD  DSN=&&OBJECT,DISP=(OLD,DELETE)
  61. //         DD  DSN=&&TABLES,DISP=(OLD,DELETE)
  62. //SYSPRINT DD  SYSOUT=A
  63. //SYSUDUMP DD  SYSOUT=A
  64. //SYSUT1   DD  DSN=&&SYSUT1,UNIT=&SYSDA,SPACE=(CYL,(5,5))
  65. //  PEND
  66. //*
  67. //*  EXECUTE THE INSTALLATION PROCEDURE
  68. //*
  69. //  EXEC  INSTALL
  70. //ASMTABLE.SYSIN  DD  DSN=TSNTBL.ASM,DISP=SHR
  71. //ASMUNHEX.SYSIN  DD  DSN=TSNUNH.ASM,DISP=SHR
  72. //RUNUNHEX.INPUT  DD  DSN=TSNKER.OBH,DISP=SHR
  73. //KERMIT.SYSLMOD  DD  DSN=SYS1.KERMLIB(KERMIT),DISP=OLD
  74.