Рет қаралды 24,207
To chat with moshix on the Discord moshix channel click here:
/ discord
Obtain, install and operate a drop in replacement for CICS in your MVS 3.8 environment
Obtain KICKS distribution here: github.com/moshix/kicks
Manual and guides: www.kicksfortso.com/User's%20G...
www.kicksfortso.com/User's%20G...
JCL to import the first XMI:
//HERC01G JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),REGION=3M
//SCRATCH EXEC PGM=IEFBR14
//* UPDATE THE HLQ IN THE FOLLOWING CARD BEFORE RUNNING
//SYSUT2 DD DSN=HERC01.KICKS.V1R5M0.XMI,DISP=(MOD,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(0))
//LOAD EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY,DCB=BLKSIZE=80
//SYSUT1 DD UNIT=10C,DISP=OLD,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//* UPDATE THE HLQ IN THE FOLLOWING CARD BEFORE RUNNING
//SYSUT2 DD DSN=HERC01.KICKS.V1R5M0.XMI,DISP=(,CATLG),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3200),
// UNIT=SYSDA,VOL=SER=PUB002,SPACE=(TRK,(225,15),RLSE)
and this JCL for the first receive:
//HERC01R JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),REGION=4096K
//RECV370 EXEC PGM=RECV370
//RECVLOG DD SYSOUT=*
//* UPDATE THE HLQ IN THE FOLLOWING CARD BEFORE RUNNING
//XMITIN DD DSN=HERC01.KICKS.V1R5M0.XMI,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=&&SYSUT1,
// UNIT=SYSDA,
// SPACE=(TRK,(300,60)),
// DISP=(NEW,DELETE,DELETE)
//* UPDATE THE HLQ IN THE FOLLOWING CARD BEFORE RUNNING
//SYSUT2 DD DSN=HERC01.KICKS.V1R5M0.BIGPDS,
// UNIT=(SYSDA,SEP=SYSUT1),
// SPACE=(TRK,(300,60,20)),
// DISP=(NEW,CATLG,DELETE)
//SYSIN DD DUMMY