mdtendulkar
Active User
Joined: 29 Jul 2003 Posts: 237 Location: USA
|
|
|
|
Hello girivarma77,
//FLGFGR1S JOB (ACCOUNT),'NAME',CLASS=A,MSGCLASS=X,NOTIFY=FLGFGR1
//*
//COMPILE EXEC PGM=IKFCBLOO,REGION=4M,COND=(8,LT),
// PARM=('APOST,MAP,XREF,LIST')
//STEPLIB DD DSN=SYS4.VS.COBOL.COBLIB,DISP=SHR
//SYSTERM DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(*)
//SYSPUNCH DD DUMMY
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//SYSLIN DD UNIT=SYSDA,DISP=(NEW,PASS),
// SPACE=(CYL,(1,1)),DCB=(,BLKSIZE=400)
//SYSIN DD DSN=FLGFGR1.COBOL.SOURCE(TRIRPT),DISP=(SHR,PASS)
//*
//*
//LINK EXEC PGM=IEWL,REGION=1M,COND=(8,LE),
// PARM=('LIST,LET')
//SYSPRINT DD SYSOUT=(X)
//SYSLIN DD DSN=*.COMPILE.SYSLIN,DISP=(SHR,PASS)
//SYSLIB DD DSN=FLGFGR1.COBOL.LOADLIB,DISP=SHR,
// DCB=BLKSIZE=32760
// DD DSN=SYS4.VS.COBOL.LINKLIB,DISP=SHR
//SYSLMOD DD DSN=FLGFGR1.COBOL.LOADLIB(TRIRPT),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//*
//*
See the compiler listing, this will give you idea for getting XREF listing.
Hope this helps...
Regards
Mayuresh Tendulkar |
|