MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

How to create a listing file?

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105
PostPosted: Fri Jun 02, 2006 8:13 am    Post subject: How to create a listing file? Reply with quote
Hi,

How to create a listing file similar produced by Endevor when we add a new COBOL program to it?

Please help me.

The below is my compilation JCL to compile and link-edit a COBOL program.

Code:

//XXXXXXCJ JOB (XXXXXX),'COBOL COMPILE',                               
//             CLASS=X,                                               
//             MSGCLASS=X,                                             
//             NOTIFY=&SYSUID                                         
//*****                                                               
//CB2PBC PROC CPARM='FLAG(I,W),NUMPROC(MIG),MAP,RENT,TEST,LIST',       
//            CPARM2='NOSEQ,XREF,NOVBREF,SIZE(3145728)',               
//             SYSOUT='*',                                             
//             LPARM='LIST,XREF,TERM,SIZE=(512K,36K)'                 
//***                                                                 
//******************************************************************
//***             VS/COBOL II COMPILER                           ***
//******************************************************************
//***                                                               
//C       EXEC PGM=IGYCRCTL,REGION=4M,                             
//             PARM='&CPARM,&CPARM2'                               
//STEPLIB   DD DISP=SHR,DSN=SYSS.XXX.XXXXXX.XXXXCOMP       
//SYSPRINT  DD SYSOUT=&SYSOUT                                       
//SYSIN     DD DSN=XXXXX.XXXXXX.SORC(&MEMNAME),                     
//             DISP=(SHR,KEEP,KEEP)                                 
//SYSLIN    DD DSN=&&LOADSET,                                       
//             DISP=(NEW,PASS,DELETE),                             
//             UNIT=SYSDA,                                         
//             SPACE=(10796,(120,120),RLSE),                       
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)                 
//SYSUT1    DD UNIT=SYSDA,                                         
//             SPACE=(10796,(300,300))                             
//SYSUT2    DD UNIT=SYSDA,                                         
//             SPACE=(10796,(300,300))           
//SYSUT3    DD UNIT=SYSDA,                       
//             SPACE=(10796,(300,300))           
//SYSUT4    DD UNIT=SYSDA,                       
//             SPACE=(10796,(300,300))           
//SYSUT5    DD UNIT=SYSDA,                       
//             SPACE=(10796,(300,300))           
//SYSUT6    DD UNIT=SYSDA,                       
//             SPACE=(10796,(300,300))           
//SYSUT7    DD UNIT=SYSDA,                       
//             SPACE=(10796,(300,300))           
//SYSTERM   DD DUMMY                             
//SYSLIB    DD DSN=XXXXX.XXXXXXX.COPY,DISP=SHR     
//SYSUDUMP  DD SYSOUT=&SYSOUT                     
//***                                                               
//******************************************************************
//***             LINK EDIT                                      ***
//******************************************************************
//***                                                               
//L       EXEC PGM=IEWL,REGION=4M,                                 
//             PARM='&LPARM'                                       
//SYSPRINT  DD SYSOUT=&SYSOUT                                       
//SYSLIB    DD DSN=XXXXX.XXXXXX.LOAD,DISP=SHR   <= LOAD LIB NAME   
//SYSLMOD   DD DSN=XXXXX.XXXXXX.LOAD,                               
//             DISP=SHR                                             
//SYSUT1    DD UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),                   
//             SPACE=(10796,(60,120))                               
//SYSLIN    DD DSN=&&LOADSET,                                       
//             DISP=(OLD,DELETE,DELETE)   
//          DD DDNAME=SYSIN               
//SYSTERM   DD DUMMY                     
//SYSIN     DD DUMMY                     
//        PEND                           
//***                                     
//JS010   EXEC CB2PBC,                   
//             MEMNAME=PROGRAM1           
//***                                     
//*                                       
//L.SYSIN     DD *                       
    NAME    PROGRAM1(R)                   
/*                                 


Please let me what are all the changes I need to make in order to get a LISTING file similar to one produced by Endevor (as a PS file). I want to add it to a PROTSYM file if I am succeeded in producing one.

Thanks a lot in advance.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105
PostPosted: Fri Jun 02, 2006 8:20 am    Post subject: Our LIST file. Reply with quote
Our Endevor LIST file name is like this: XXXXX.XXXXX.TEST.LST

I've found the VSAM info of it. It is an ESDS file with LRECL of 4088. I am able to browse it. It has got all the members added in Endevor TEST region. I've added PROGRAM1 to Endevor TEST and eventually it is added its listing to this particular VSAM ESDS file. Now, how to convert my program alone as a PS file from this VSAM ESDS File?

Am I sounding foolish?
Am I talking possible things here?

Please let me if you can help.

TIA.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
PostPosted: Sun Jun 04, 2006 9:03 pm    Post subject: Reply with quote
Quote:
Now, how to convert my program alone as a PS file from this VSAM ESDS File?


What does this mean ?
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group