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
 

 

Does anyone have a JCL to Compiler the physical map

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
Tony.Y

New User


Joined: 26 Nov 2006
Posts: 3
Location: China

PostPosted: Mon Nov 27, 2006 8:56 pm    Post subject: Does anyone have a JCL to Compiler the physical map
Reply with quote

Hi, everyone. Does anyone have a jcl to compiler the physical map and generate both the symbolic map and load module. I once saw some programe like that? Does any one have any idea?
Back to top
View user's profile Send private message

MFRASHEED

Active User


Joined: 14 Jun 2005
Posts: 186
Location: USA

PostPosted: Mon Nov 27, 2006 9:38 pm    Post subject: Re: Does anyone have a JCL to Compiler the physical map
Reply with quote

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=*                                 
Back to top
View user's profile Send private message
Tony.Y

New User


Joined: 26 Nov 2006
Posts: 3
Location: China

PostPosted: Tue Nov 28, 2006 7:35 pm    Post subject:
Reply with quote

Thanks.
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fail to change physical VSAM filename... jacobdng CICS 6 Fri Jan 20, 2017 12:36 pm
No new posts Any docs / links for isub- cobol comp... SRICOBSAS COBOL Programming 4 Fri Aug 26, 2016 2:35 pm
No new posts Problem Compiling cobol code with Cob... amitc23 COBOL Programming 2 Wed Aug 24, 2016 1:50 pm
No new posts COBOL compiler upgrade vicky10001 COBOL Programming 4 Mon Jul 25, 2016 1:44 pm
No new posts Compiler option for override the exte... muralikrishnan_new COBOL Programming 9 Fri Jul 08, 2016 12:09 pm


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