The NoteBook of EricKong

  BlogJava :: 首页 :: 联系 :: 聚合  :: 管理
  610 Posts :: 1 Stories :: 190 Comments :: 0 Trackbacks
//IBMUSERC JOB 'COMP BATCH',CLASS=A,MSGCLASS=H,                        
//       NOTIFY=IBMUSER,MSGLEVEL=(1,1)                                 
//***************  DEFINE A PROC START  *******************************
//CBLBATCH PROC                                                        
//*********************************************************************
//        SET SRC=&SRC                                                 
//*********************************************************************
//* JOB TO COMPILE AND LINK-EDIT COBOL PROGRAM                         
//*********************************************************************
//***************  COMPILE STEP ***************************************     
//COBOL EXEC PGM=IGYCRCTL,REGION=2048K,                                
//      PARM='NODYNAM,LIB,OBJECT,RENT,RES,APOST,MAP,XREF,OFFSET'       
//STEPLIB DD DSNAME=IGY410.SIGYCOMP,                                   
//           DISP=SHR                                                  
//SYSPRINT DD SYSOUT=*                                                 
//SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSDA,                               
//        DISP=(MOD,PASS),SPACE=(TRK,(3,3)),                           
//        DCB=(BLKSIZE=3200)                                           
//SYSIN DD DSN=IBMUSER.TEST.COBOL(&SRC),DISP=SHR  
//SYSLIB DD DSN=IBMUSER.TEST.COPY,DISP=SHR                              
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                
//SYSUT2  DD UNIT=SYSDA,SPACE=(CYL,(1,1))                               
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))                                
//****************** LINK STEP *****************************************
//LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K,                    
//          PARM='LIST,XREF'                                            
//SYSLIB DD DSNAME=CEE.SCEELKED,DISP=SHR                                
//       DD DSN=IBMUSER.TEST.LOAD,DISP=SHR                              
//SYSPRINT DD SYSOUT=*                                                  
//SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)                          
//SYSLMOD  DD DSNAME=IBMUSER.TEST.LOAD(&SRC),DISP=SHR                   
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))                              
//**********************************************************************
//*      DEFINE A PROC COMPLETE                                         
//**********************************************************************
//       PEND                                                           
//*********  RUN THE PROC TO COMPILE COBOL RESOURCE  *******************
//RUNAPP1 EXEC CBLBATCH,SRC=HELLO                                       
//*************** RUN THE PROGRAM ************************************** 
//STEPRUN EXEC PGM=HELLO                                                
//STEPLIB DD DSN=IBMUSER.TEST.LOAD(HELLO),DISP=SHR                      
//SYSOUT DD SYSOUT=*                                                    
//                                                                      
posted on 2013-07-28 16:53 Eric_jiang 阅读(217) 评论(0)  编辑  收藏 所属分类: Mainframe

只有注册用户登录后才能发表评论。


网站导航: