The NoteBook of EricKong

            BlogJava :: 首頁(yè) :: 聯(lián)系 :: 聚合  :: 管理
            611 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 閱讀(333) 評(píng)論(0)  編輯  收藏 所屬分類: Mainframe
          主站蜘蛛池模板: 图木舒克市| 冀州市| 辽中县| 五台县| 特克斯县| 荔浦县| 喀喇沁旗| 上蔡县| 邯郸市| 循化| 泸西县| 右玉县| 乌鲁木齐市| 沙河市| 二手房| 吉木乃县| 台中市| 廊坊市| 石阡县| 全南县| 苏尼特左旗| 临西县| 合水县| 湛江市| 双鸭山市| 易门县| 大田县| 名山县| 晋江市| 平安县| 阜宁县| 清远市| 日喀则市| 湘潭县| 关岭| 依安县| 图们市| 陆良县| 弥渡县| 渭源县| 安岳县|