mirror of
https://github.com/moshix/mvs.git
synced 2026-02-27 00:39:54 +00:00
JCL to compile with MVT cobol on z/OS system with SYSCPK
This commit is contained in:
42
CobolMVTonzOS
Normal file
42
CobolMVTonzOS
Normal file
@@ -0,0 +1,42 @@
|
||||
//MOSHIXT JOB 'COBOL PRIMES ',
|
||||
// MSGCLASS=H,MSGLEVEL=(1,1),REGION=5M,
|
||||
// CLASS=A,NOTIFY=&SYSUID
|
||||
//******************************************************************
|
||||
//** COBOL COMPILER JOB COMPILE LINK-EDIT AND GO
|
||||
//** SYSIN ASSUME IN MOSHIX.WORK.PLI(PL1)
|
||||
//** SYSLMOD MODULE IN &&LOADSET
|
||||
//** GO MODULE FORM &&LOADSET
|
||||
//** SYSUDMP IN SYSOUT=*
|
||||
//**
|
||||
//**
|
||||
//*****************************************************8************
|
||||
//COB EXEC PGM=IKFCBL00,REGION=4096K,
|
||||
// PARM='FLAGW,LOAD,SUPMAP,SIZE=2048K,BUF=1024K'
|
||||
//SYSIN DD DISP=SHR,DSN=MOSHIX.WORK.PROG(COBPRIME)
|
||||
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR
|
||||
//SYSLIB DD DISP=SHR,DSN=SYSC.COBLIB,VOL=SER=SYSCPK,UNIT=3390
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSUT1 DD UNIT=SYSDA,SPACE=(460,(700,100))
|
||||
//SYSUT2 DD UNIT=SYSDA,SPACE=(460,(700,100))
|
||||
//SYSUT3 DD UNIT=SYSDA,SPACE=(460,(700,100))
|
||||
//SYSUT4 DD UNIT=SYSDA,SPACE=(460,(700,100))
|
||||
//SYSLIN DD DSN=&&LOADSET,UNIT=SYSDA,
|
||||
// DISP=(NEW,PASS,DELETE),
|
||||
// SPACE=(CYL,(1,1))
|
||||
//*****************************************************8************
|
||||
//LKED EXEC PGM=IEWL,PARM='LIST,XREF,LET',COND=(5,LT,COB),REGION=96K
|
||||
//STEPLIB DD DSN=SYSC.LINKLIB,DISP=SHR
|
||||
//SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)
|
||||
//SYSLMOD DD DISP=SHR,DSN=MOSHIX.WORK.OBJ(GO)
|
||||
//SYSLIB DD DSN=SYSC.COBLIB,DISP=SHR,VOL=SER=SYSCPK,UNIT=3390
|
||||
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20))
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//*****************************************************8************
|
||||
//*****************************************************8************
|
||||
//GO EXEC PGM=GO
|
||||
//STEPLIB DD DISP=SHR,DSN=MOSHIX.WORK.OBJ
|
||||
//SYSOUT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=161,BLKSIZE=16100)
|
||||
//SYSIN DD *
|
||||
9999
|
||||
/*
|
||||
//
|
||||
Reference in New Issue
Block a user