Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

how to get the xpeditor listing

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
girivarma77

New User


Joined: 22 Dec 2003
Posts: 4

PostPosted: Tue Dec 23, 2003 12:04 pm    Post subject: how to get the xpeditor listing
Reply with quote

Hi,
please tell me how to get the xpeditor listing for a file ?


please reply
giridhar
Back to top
View user's profile Send private message

mdtendulkar

Active User


Joined: 29 Jul 2003
Posts: 238
Location: USA

PostPosted: Fri Jan 02, 2004 8:25 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
jz1b0c

Active User


Joined: 25 Jan 2004
Posts: 160
Location: Toronto, Canada

PostPosted: Mon Jul 04, 2005 9:38 pm    Post subject:
Reply with quote

in the same, can you explain me what should be the attributes of FLGFGR1.COBOL.DDIO dataset, I've created a VSAM RRDS and tried
process is giving return code 8, error is OUTPUT FILE CWPDDIO NOTE ERROR, RETURN CODE=084c.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Parsing and Listing a Subset of Recor... Charles Wolters IBM Tools 3 Fri Feb 05, 2016 10:39 pm
No new posts Rexx code that expands changeman comp... Gopalakrishnan V CLIST & REXX 0 Thu Jan 08, 2015 11:31 am
No new posts XPEDITOR FOR C Program setup ghanshyam333 Compuware & Other Tools 2 Thu Jun 19, 2014 1:23 pm
No new posts FETCH PROTECTED AREA error in Xpeditor hiravibk COBOL Programming 6 Mon Feb 10, 2014 12:46 pm
No new posts Dataset attributes listing V S Amarendra Reddy DFSORT/ICETOOL 9 Thu Nov 14, 2013 3:54 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us