The NoteBook of EricKong

  BlogJava :: 首页 :: 联系 :: 聚合  :: 管理
  611 Posts :: 1 Stories :: 190 Comments :: 0 Trackbacks

#

Sample BIND job is below.

//BIND EXEC  PGM=IKJEFT01                      
//SYSTSPRT DD SYSOUT=*                         
//SYSPRINT DD SYSOUT=*                         
//SYSUDUMP DD SYSOUT=*                         
//SYSTSIN  DD *                                
   DSN SYSTEM(DB0T) RETRY(5)                   
       BIND PACKAGE(MYCOLLID)  -               
       OWNER(T9289ATD)              -                    
       QUALIFIER(T9289ATD)          -                
       MEMBER(TESTPGM)              -                     
       LIBRARY('MY.DBRM.LIB')       -           
       ACTION(REPLACE)              -          
       EXPLAIN(YES)                 -          
       VALIDATE(BIND)               -          
       ISOLATION(CS)                -          
       FLAG(I)                      -          
       CURRENTDATA(NO)              -          
       DEGREE(1)                    -          
       RELEASE(COMMIT)              -          
       ENABLE(*)                    -          
       SQLERROR(NOPACKAGE)       
//*
posted @ 2012-07-23 10:05 Eric_jiang 阅读(269) | 评论 (0)编辑 收藏

1.Write a DB2/CICS program
2.Compile it using DB2/CICS compailer JCL
3.Use BIND JCL for binding process
4.Now Sign on to CICS Region.
5.Define and install the program.
6.Define and install the Transation.
7.Check whether there is any DB2 Connection. If not Create a connection using ceda def db2c(....)
8.Define and install the DB2 Entry using ceda def db2e(.......)
9.Define and install the DB2 Transation using ceda def db2t(.......)
10.now your setup is ready and you can run your program using the transation ID
posted @ 2012-07-22 20:53 Eric_jiang 阅读(334) | 评论 (0)编辑 收藏

八.银行IT系统及银行业务知识
第1集   第2集   第3集   第4集   第5集   第6集   第7集   第8集   第9集   第10集
附.银行综合业务系统
   第1集   第2集   第3集   第4集   第5集   第6集   第7集   第8集   第9集   第10集

posted @ 2012-07-21 21:42 Eric_jiang 阅读(494) | 评论 (0)编辑 收藏

http://www.mainframe-tricks-and-tips.in/search/label/Mainframe%20Training%20Videos
DB2 training videos

Below vidoes are hosted in youtube


.NET for COBOL Programmers - Introduction

.NET for COBOL Programmers: Lesson 1-1

.NET for COBOL Programmers: Lesson 1-2

.NET for COBOL Programmers: Lesson 2-1

.NET for COBOL Programmers: Lesson 2-2

.NET for COBOL Programmers: Lesson 2-3

.NET for COBOL Programmers: Lesson 2-4

.NET for COBOL Programmers: Lesson 2-5

.NET for COBOL Programmers: Lesson 2-6

.NET for COBOL Programmers: Lesson 2-7

.NET for COBOL Programmers: Lesson 3-1

.NET for COBOL Programmers: Lesson 3-2

.NET for COBOL Programmers: Lesson 3-3

.NET for COBOL Programmers: Lesson 4-1

.NET for COBOL Programmers: Lesson 4-2

.NET for COBOL Programmers: Lesson 4-3

.NET for COBOL Programmers: Lesson 4-4

.NET for COBOL Programmers: Lesson 5-1

.NET for COBOL Programmers: Lesson 5-2

.NET for COBOL Programmers: Lesson 5-3

.NET for COBOL Programmers: Lesson 5-4

.NET for COBOL Programmers: Lesson 5-5

.NET for COBOL Programmers: Lesson 6-1

.NET for COBOL Programmers: Lesson 6-2

.NET for COBOL Programmers: Lesson 6-3




posted @ 2012-07-21 20:04 Eric_jiang 阅读(300) | 评论 (0)编辑 收藏

 在登录和使用 TSO 时会弹出烦人的打印窗口,可以通过下面设置去掉,用记事本打开上面保存的配置文件 zOS1.10.ws(不能双击打开),在此文件最后加入以下内容: [LT] IgnoreWCCStartPrint=Y UndefinedCode=Y UndefinedDBCSChar=Y
posted @ 2012-07-21 18:51 Eric_jiang 阅读(434) | 评论 (0)编辑 收藏

FTP fandezhi.homedns.org
TSO userid
password
ascii   <-- 文本文件
get \'OS390.DATASET.NAME\' pc.file.name
bin    <-- 二进制文件
get \'OS390.DATASET.NAME\' pc.file.name
quit
posted @ 2012-07-21 18:21 Eric_jiang 阅读(380) | 评论 (0)编辑 收藏

/**  
     * 传入对象  
     * 
@param obj 前提obj存在set get方法  
     * @return返回对象存在的属性值  
     * 
@throws Exception  
     
*/
  
    
public static String ObjectParesToString(Object obj) throws Exception{   
        Class userClass 
= Class.forName(obj.toString().split("@")[0]);//加载类   
        Field[] fields = userClass.getDeclaredFields();//获得对象方法集合   
        String fdname=null;   
        Method metd 
= null;   
            
for (Field field : fields) {// 遍历该数组   
                 fdname = field.getName();// 得到字段名,   
                 metd = userClass.getMethod("get" + change(fdname), null);// 根据字段名找到对应的get方法,null表示无参数   
                   Object name = metd.invoke(obj, null);// 调用该字段的get方法   
                     if(name!=null){   
                        System.out.println(name);   
                     }
   
             }
   
            
return null;   
    }
   
  
       
/**  
     * 
@param src  
     *            源字符串  
     * 
@return 字符串,将src的第一个字母转换为大写,src为空时返回null  
     
*/
  
    
public static String change(String src) {   
        
if (src != null{   
            StringBuffer sb 
= new StringBuffer(src);   
            sb.setCharAt(
0, Character.toUpperCase(sb.charAt(0)));   
            
return sb.toString();   
        }
 else {   
            
return null;   
        }
   
    }
  
posted @ 2012-07-06 11:25 Eric_jiang 阅读(2523) | 评论 (1)编辑 收藏

posted @ 2012-06-11 14:16 Eric_jiang 阅读(349) | 评论 (1)编辑 收藏

posted @ 2012-06-11 14:15 Eric_jiang 阅读(182) | 评论 (0)编辑 收藏

posted @ 2012-06-11 14:09 Eric_jiang 阅读(182) | 评论 (0)编辑 收藏

仅列出标题
共57页: First 上一页 28 29 30 31 32 33 34 35 36 下一页 Last