mdtendulkar
Active User
Joined: 29 Jul 2003 Posts: 237 Location: USA
|
|
|
|
Hello girivarma77,
See the compiler options for getting the xpeditor listing.
Without Xpeditor compiler option:
//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))
With Xpeditor compiler option:
//FLGFGR1S JOB (ACCOUNT),'NAME',CLASS=A,MSGCLASS=X,NOTIFY=FLGFGR1
//*
//*
//COMPILE EXEC PGM=CWPCMAIN,REGION=4M,COND=(8,LT),
//PARM=('APOST,MAP,XREF,LIST')
//STEPLIB DD DSN=COMPUWARE.CSS.LOADLIB,DISP=SHR
// 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)
//*
//*
//CWPDDIO DD DISP=SHR,DSN=FLGFGR1.COBOL.DDIO
//CWPPRMO DD *
COBOL(OUTPUT(PRINT,DDIO))
PROCESSOR(OUTPUT(NOPRINT,NODDIO),TEXT(NONE))
LANGUAGE(VSCOBOL)
DDIO(OUTPUT(NOLIST,NOXREF,FIND,NODMAP,NOOFFSET,COMPRESS))
//*
//*
//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.C.LOADLIB(TRIRPT),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2))
//*
//*
Hope this helps.
Regards
Mayuresh Tendulkar |
|