MFRASHEED
Active User
Joined: 14 Jun 2005
Posts: 186
Location: USA
|
|
|
|
Sample JCL:
| Code: |
//*********************************************************
//* COMPILES/ASSEMBLES SOURCE INTO AN EXECUTABLE MAP *
//* CHANGE ALL MAP#NM WITH YOUR PHYSICAL MAP NAME *
//* CHANGE MAP.IS.PRESENT.HERE TO YOUR PDS NAME *
//* WHERE PHYSICAL MAP PRESENT.(SEARCH ALL SYSIN AND GIVE*
//* YOUR PDS NAMES) *
//*********************************************************
//ASMMAP EXEC PGM=IEV90,REGION=2048K,COND=(0,LT),
// PARM='SYSPARM(MAP),DECK,LINECOUNT(78)'
//SYSLIB DD DSN=GIVE.CICS000.MACLIB.HERE,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSPUNCH DD DSN=&&MAP,DISP=(,PASS),
// UNIT=SYSDA,SPACE=(400,(50,50)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=MAP.IS.PRESENT.HERE(MAP#NM),
// DISP=SHR
//*
//*********************************************************
//* PUTS MAP TO LINK LIBRARY *
//* IT CREATES LOAD MODULE *
//*********************************************************
//LINKMAP EXEC PGM=IEWL,COND=(4,LT),
// PARM='LIST,LET,XREF,AMODE=31,RMODE=ANY,CALL'
//SYSLIN DD DSN=&&MAP,DISP=(OLD,DELETE)
//SYSLMOD DD DSN=GIVE.MAP.LOADLIB.HERE(MAP#NM),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(20,20))
//SYSPRINT DD SYSOUT=*
//*
//*********************************************************
//* IT CREATES SYMBOLIC MAP WITH THE SAME NAME. *
//* SYMBOLIC MAPS GET ADDED/UPDATED INTO PDS - *
//* SYSPUNCH BELOW SO GIVE APPROPRIATE PDS NAME AND*
//* MEMBER NAME HERE *
//*********************************************************
//ASMDSECT EXEC PGM=IEV90,REGION=2048K,COND=(4,LT),
// PARM='SYSPARM(DSECT),DECK,LINECOUNT(78)'
//SYSLIB DD DSN=GIVE.CICS000.MACLIB.HERE,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSPUNCH DD DSN=GIVE.SYMBOLIC.PDSNAME.HERE(MAP#NM),
// DISP=SHR
//SYSIN DD DSN=MAP.IS.PRESENT.HERE(MAP#NM),
// DISP=SHR
//SYSPRINT DD SYSOUT=*
|
|
|
