Mainframe is Back » Raymond http://www.ibmmainframe.cn Everything about Mainframe: 中文大型机资讯网 Sun, 25 Sep 2011 16:32:00 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 What is VisionPLUS http://www.ibmmainframe.cn/2009/02/what-is-visionplus/ http://www.ibmmainframe.cn/2009/02/what-is-visionplus/#comments Sat, 07 Feb 2009 16:17:33 +0000 Raymond http://www.ibmmainframe.cn/?p=436   [ Read More ]]]>

VisionPLUS is a transaction processing software application from First Data International (FDI). This application is mainly used for credit card transaction processing by multinational banks and transaction processing companies. Banks traditionally use this application to store and process credit card accounts and process transactions (Visa, Mastercard, American Express, Europay, private label transactions). The rough estimate of number of cards processed on different versions of this application software around the world is 350 million.

Modules
VisionPLUS is designed as a flexible, full-featured and a very powerful account processing system. VisionPLUS consists of modules that work together to fully manage a company’s credit processing environment. The main modules of Visionplus include:

* Credit Decision Management       (CDM)   – new accounts processing module
* Credit Management System         (CMS)   – account processing module
* Collections Tracking Analysis    (CTA)   – delinquent collections module
* Account Services Management      (ASM)   – customer services module
* Financial Authorisation System   (FAS)   – financial authorisations module
* Letters System                   (LTS)   – letter generation module
* Security Sub System              (SSC)   – user access control module
* Interchange Tracking System      (ITS)   – dispute tracking module
* Transaction Management System    (TRAMS) – front-end processor
* Merchant BankCard System         (MBS)   – merchant acquiring system
* VisionPLUS Messaging System      (VMx)   – XML messaging gateway to VisionPLUS
* Hierarchy company system         (HCS)   – supports commercial card clients
* Loyalty Management System        (LMS)   – Managing of loyalty points based on transactions done.
* Direct Payment Utility           (DPU)   – Tool for recurring and one-time payment, which
                                             provides different payment options and allows
                                             for processing and managing balance transfer.
Visionplus gives full flexibility to banks so that they can have their own features and functionalities. Out of the above modules CMS plays an important part or it can be said as the “Heart of Visionplus”. All the account related activities are posted in CMS module.

History
The VisionPlus Software was introduced by Paysys International Inc. in 1996. In 2001, FDI acquired Paysys and since then VisionPlus is an FDI product.

Versions
1983 CardPac was released by CCS. Its main market was the bankcard industry (Visa and MasterCard transaction processing only).
1988 Vision21 was released for the private label card market by CCSI
1991 VisionPLUS for both private label and bankcard market by CCSI
1998 VisionPLUS 2.5 was released by Paysys
2000 VisionPLUS 8.0 was released by Paysys
2006 VisionPLUS 8.21 was released by Paysys
The software runs on IBM Mainframes (Z Series) as well as IBM AS 400 (i Series), primarily using COBOL,CICS and VSAM. Previous versions of VisionPLUS were available on Unix also.

随机日志

]]> http://www.ibmmainframe.cn/2009/02/what-is-visionplus/feed/ 1 某IT国企招聘应用系统开发工程师 http://www.ibmmainframe.cn/2008/12/%e6%9f%90it%e5%9b%bd%e4%bc%81%e6%8b%9b%e8%81%98%e5%ba%94%e7%94%a8%e7%b3%bb%e7%bb%9f%e5%bc%80%e5%8f%91%e5%b7%a5%e7%a8%8b%e5%b8%88/ http://www.ibmmainframe.cn/2008/12/%e6%9f%90it%e5%9b%bd%e4%bc%81%e6%8b%9b%e8%81%98%e5%ba%94%e7%94%a8%e7%b3%bb%e7%bb%9f%e5%bc%80%e5%8f%91%e5%b7%a5%e7%a8%8b%e5%b8%88/#comments Fri, 19 Dec 2008 02:58:07 +0000 Raymond http://www.ibmmainframe.cn/2008/12/%e6%9f%90it%e5%9b%bd%e4%bc%81%e6%8b%9b%e8%81%98%e5%ba%94%e7%94%a8%e7%b3%bb%e7%bb%9f%e5%bc%80%e5%8f%91%e5%b7%a5%e7%a8%8b%e5%b8%88/

职位要求：
本科学历
3-4年主机开发经验
熟悉COBOL，CICS，DB2
熟悉Zos操作系统，银行系统经验佳

工作职责：
根据需求定义与需求分析从事系统设计、开发和测试工作

工作地点 北京

福利待遇：
按照国家规定福利，提供住宿和加班餐补等
薪资面谈
请发简历至tcc_1225@hotmail.com(msn)
QQ：26752524

相关文章

]]> http://www.ibmmainframe.cn/2008/12/%e6%9f%90it%e5%9b%bd%e4%bc%81%e6%8b%9b%e8%81%98%e5%ba%94%e7%94%a8%e7%b3%bb%e7%bb%9f%e5%bc%80%e5%8f%91%e5%b7%a5%e7%a8%8b%e5%b8%88/feed/ 1 PL/1中的冒泡排序(How to write Bubble Sort with PL/1) http://www.ibmmainframe.cn/2008/12/pl1%e4%b8%ad%e7%9a%84%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8fhow-to-write-bubble-sort-with-pl1/ http://www.ibmmainframe.cn/2008/12/pl1%e4%b8%ad%e7%9a%84%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8fhow-to-write-bubble-sort-with-pl1/#comments Thu, 04 Dec 2008 10:11:46 +0000 Raymond http://www.ibmmainframe.cn/2008/12/pl1%e4%b8%ad%e7%9a%84%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8fhow-to-write-bubble-sort-with-pl1/   [ Read More ]]]>

SHELL:   PROCEDURE OPTIONS (MAIN);
         DECLARE
           ARRAY(50) FIXED BIN(15),
           (K,N) FIXED BIN(15);

         GET LIST(N);
         GET EDIT((ARRAY(K) DO K = 1 TO N));
         PUT EDIT((ARRAY(K) DO K = 1 TO N));
         CALL BUBBLE(ARRAY,N);
END BUBBLE;

BUBBLE:   PROCEDURE(ARRAY,N); /* BUBBLE SORT*/
          DECLARE (I,J) FIXED BIN(15);
          DECLARE S BIT(1);        /* SWITCH */
          DECLARE Y FIXED BIN(15); /* TEMPO */
          DO I = N-1 BY -1 TO 1;
            S = ’1′B;
            DO J = 1 TO I;
              IF X(J)>X(J+1) THEN DO;
                S = ’0′B;
                Y = X(J);
                X(J) = X(J+1);
                X(J+1) = Y;
                END;
              END;
            IF S THEN RETURN;
            END;
          RETURN;
          END SRT;

相关文章

]]> http://www.ibmmainframe.cn/2008/12/pl1%e4%b8%ad%e7%9a%84%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8fhow-to-write-bubble-sort-with-pl1/feed/ 0 PL/1中的Hello World(How to write Hello World with PL/1) http://www.ibmmainframe.cn/2008/12/pl1%e7%9a%84hello-worldhow-to-write-hello-world-with-pl1/ http://www.ibmmainframe.cn/2008/12/pl1%e7%9a%84hello-worldhow-to-write-hello-world-with-pl1/#comments Thu, 04 Dec 2008 10:10:17 +0000 Raymond http://www.ibmmainframe.cn/2008/12/pl1%e7%9a%84hello-worldhow-to-write-hello-world-with-pl1/ 
HELLO:   PROCEDURE OPTIONS (MAIN);
             /* A PROGRAM TO OUTPUT HELLO WORLD */
             FLAG = 0;
LOOP:     DO WHILE (FLAG = 0);
             PUT SKIP DATA('HELLO WORLD!');
          END LOOP;
END HELLO;

相关文章

]]> http://www.ibmmainframe.cn/2008/12/pl1%e7%9a%84hello-worldhow-to-write-hello-world-with-pl1/feed/ 0 JCL Utility 之 IDCAMS删除Data Set(Deleting Cataloged Data Sets) http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%88%a0%e9%99%a4data-setdeleting-cataloged-data-sets/ http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%88%a0%e9%99%a4data-setdeleting-cataloged-data-sets/#comments Thu, 04 Dec 2008 03:05:59 +0000 Raymond http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%88%a0%e9%99%a4data-setdeleting-cataloged-data-sets/   [ Read More ]]]>

IDCAMS Utility中，还提供了一个’DELETE’命令，用于删除Cataloged Data Set。在删除Data Set的同时，对Data Set进行uncatalog操作。’DELETE’可以操作的包括：

1. Sequential Data Set 2. Partitioned Data Set 3. Partitioned Data Set中的member

‘DELETE’命令的语法：

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
  DELETE data-set-name
  DELETE data-set-name(member)
/*

 

删除Data Set的例子：

DELETE MIB.TEMP.DATA

删除member的例子：

DELETE MIB.PGM.LOAD(COMPIT)

PURGE:

在使用’DELETE’命令时，还可以使用’PURGE’参数。使用’DELETE’时，默认情况是’NOPURGE’。添加’PURGE’参数后，即不管现在Data Set的状态是什么，都进行删除操作。

使用’PURGE’参数删除的一个例子：

//SYSIN DD *

DELETE data-set-name -

PURGE

ERASE:

在使用’DELETE’命令时，还可以添加’ERASE’参数，即在删除Date Set之后，使用二进制的’0’来覆盖 Data Set所占用的磁盘空间。也就是所谓的完全删除。

使用’ ERASE’参数删除的一个例子：

//SYSIN DD *

DELETE data-set-name -

ERASE

即在删除’ data-set-name’后,’ data-set-name’所占用的DASD空间，会被二进制的’0’所覆盖。

相关文章

]]> http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%88%a0%e9%99%a4data-setdeleting-cataloged-data-sets/feed/ 0 JCL Utility 之 IDCAMS重命名Data Set(Renaming Data Sets) http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e9%87%8d%e5%91%bd%e5%90%8ddata-setrenaming-data-sets/ http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e9%87%8d%e5%91%bd%e5%90%8ddata-setrenaming-data-sets/#comments Thu, 04 Dec 2008 01:47:09 +0000 Raymond http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e9%87%8d%e5%91%bd%e5%90%8ddata-setrenaming-data-sets/   [ Read More ]]]>

IDCAMS的另一个常用功能就是Data Set的重命名。Data Set的重命名使用’ALTER’命令来完成。’ALTER’可以重命名操作的Data Set，除了Sequential Data Set外,还可以操作Partitioned Data Set，以及对Partitioned Data Set中member的重命名。

使用’ALTER’命令重命名Data Set的语法:

ALTER old-data-set-name NEWNAME(new-data-set-name)

其中’ old-data-set-name’和’ new-data-set-name’既可以是’ Partitioned Data Set’，也可以是’ Sequential Data Set’。

使用’ALTER’命令重命名member的语法：

ALTER data-set-name(old-member) NEWNAME(data-set-name(new-member))

以下是一个在JCL中使用’ALTER’命令的例子：

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
ALTER MIB.TEMP.DATA NEWNAME(MIB.TEST.DATA)
ALTER MIB.PGM.LOAD(COMP) NEWNAME(MIB.PGM.LOAD(COMPIT))
/*

在以上的JCL中，分别将名为’MIB.TEMP.DATA’的Data Set重命名为了名为’ MIB.TEST.DATA’的Data Set。

在第二个’ALTER’命令中，将名为’ COMP’的member，重命名为了’ COMPIT’。

相关文章

]]> http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e9%87%8d%e5%91%bd%e5%90%8ddata-setrenaming-data-sets/feed/ 0 JCL Utility 之 IDCAMS输出Data Set http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e8%be%93%e5%87%badata-set/ http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e8%be%93%e5%87%badata-set/#comments Wed, 03 Dec 2008 09:48:53 +0000 Raymond http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e8%be%93%e5%87%badata-set/   [ Read More ]]]>

IDCAMS的另一个实用功能就是输出Data Set中的记录。具体的JCL如下所示：

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//ddname DD DSN=…
//*在DD段中定义要输出的Data Set
//SYSIN DD *
  PRINT -
  INFILE(ddname) -
  CHAR
/*

在以上的JCL的命令控制部分，除了INFILE的定义外，还添加了一个’CHAR’参数。’CHAR’参数用来控制输出记录的形式，’CHAR’表示以字符形式输出Data Set中的记录。除了’CHAR’之外，还有其他参数，如下表所示：

参数名称 参数功能
CHAR 此参数控制Data Set以字符形式输出
hexadecimal 此参数控制Data Set以16进制形式输出
DUMP 此参数控制Data Set同时以字符和16进制形式输出

下面是一个以16进制输出Data Set的语句：

PRINT INFILE(DDIN) HEX

COUNT和SKIP参数在输出Data Set中，依然可以使用，用于控制输出Data Set的记录。如下面的JCL例子，输出
’DDIN’ Data Set的前100行记录，并且跳过前10行记录不输出：

PRINT INFILE(DDIN) HEX COUNT(100) SKIP(10)

相关文章

]]> http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e8%be%93%e5%87%badata-set/feed/ 0 JCL Utility 之 IDCAMS复制数据集 http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%a4%8d%e5%88%b6%e6%95%b0%e6%8d%ae%e9%9b%86/ http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%a4%8d%e5%88%b6%e6%95%b0%e6%8d%ae%e9%9b%86/#comments Wed, 03 Dec 2008 09:15:36 +0000 Raymond http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%a4%8d%e5%88%b6%e6%95%b0%e6%8d%ae%e9%9b%86/   [ Read More ]]]>

IDCAMS这个utility主要功能是通过JCL来操作Data Set和VSAM文件的。以下JCL的一个STEP，就是IDCAMS常用的使用方法：

//stepname EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//*以上的SYSPRINT会把IDCAMS的信息都输出，输出到JOB LOG中
//ddname DD DSN=…
//*在以上的DD段中，有些JCL需要定义一个DD段，来定义输入Data Set。有些JCL需要定义两个DD段，在定义了
//*输入Data Set的同时，定义输出Data Set。
//SYSIN DD *
//*命令语句
/*

功能一：复制一个Sequential Data Set

使用REPRO命令来完成复制功能，该命令可以用于复制Sequential Data Set，或者复制Partitioned Data Set的member。具体复制方法如下面的JCL所示：

//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//in-ddname DD DSN=…
//out-ddname DD DSN=…
//SYSIN DD *
REPRO -
INFILE(in-ddname) -
OUTFILE(out-ddname)
/*

如上的JCL所示，上面的JCL用于复制两个Sequential Data Set。

另外，IDCAMS还提供了两个有趣的参数，使用这两个参数，可以有选择地复制Data Set中的记录。这两个参数分别是COUNT和 SKIP，可以在复制的时候添加。

COUNT参数的使用方法如下所示：

REPRO -
INFILE(in-ddname)-
OUTFILE(out-ddname) -
COUNT(n)

以上JCL添加了COUNT参数，在复制的过程中，会只复制 ‘in-ddname’的前n行记录。

SKIP参数的使用方法如下所示：

REPRO -
INFILE(in-ddname)-
OUTFILE(out-ddname) -
SKIP(n)

以上JCL添加了SKIP参数，在复制的过程中，在复制‘in-ddname’的时候，会跳过前n行记录，即不复制‘in-ddname’的前n行记录。

下面是一个COUNT和SKIP参数共同使用，来控制复制记录的例子：

REPRO INFILE(INDD) OUTFILE(OUTDD) COUNT(100) SKIP(4)

上面的JCL会复制INDD的前100行记录，并且略过前4行记录进行复制。复制后的结果会保存在OUTDD中。

相关文章

]]> http://www.ibmmainframe.cn/2008/12/jcl-utility-%e4%b9%8b-idcams%e5%a4%8d%e5%88%b6%e6%95%b0%e6%8d%ae%e9%9b%86/feed/ 0 Mainframe Is Back 学习资料REXX分享 之二:运算符(REXX Operators) http://www.ibmmainframe.cn/2008/12/mainframe-is-back-%e5%ad%a6%e4%b9%a0%e8%b5%84%e6%96%99rexx%e5%88%86%e4%ba%ab-%e4%b9%8b%e4%ba%8c%e8%bf%90%e7%ae%97%e7%ac%a6rexx-operators/ http://www.ibmmainframe.cn/2008/12/mainframe-is-back-%e5%ad%a6%e4%b9%a0%e8%b5%84%e6%96%99rexx%e5%88%86%e4%ba%ab-%e4%b9%8b%e4%ba%8c%e8%bf%90%e7%ae%97%e7%ac%a6rexx-operators/#comments Tue, 02 Dec 2008 08:37:26 +0000 Raymond http://www.ibmmainframe.cn/?p=413   [ Read More ]]]>

REXX中基本的运算符包括以下几种：

1. ‘+’: 加

2. ‘-‘: 减

3. ‘*’: 乘

4. ‘/’: 除

5. ‘%’: 取整运算

6. ‘//’: 取余运算

例子：

say (5 % 2)  /* Returns the integer part of division result. Displays: 2  */
say (5 // 2)   /* Returns the remainder from division.      Displays: 1     */
say (5 ** 2)  /* Raises the number to the whole power.     Displays: 25    */
 REXX中的比较运算符主要包括：


1. ‘=’ : 相等


2. ‘\=’: 不等


3. ‘>’ : 大于


4. ‘<’ : 小于


5. ‘>=’ : 大于或者等于，即不小于


6. ‘<=’ : 小于或者等于，即不大于


7. ‘<>,><’ : 大于或者小于，即不等于


 例子：




'37'  = '37'    /*  TRUE   - a numeric comparison */


'0037'= '37'    /*  TRUE   - numeric comparisons disregard leading zeroes */


'37'  = '37   ' /*  TRUE   - blanks disregarded   */


'ABC' = 'Abc'   /*  FALSE  - string comparisons are case-sensitive        */


'ABC' = '   ABC  ' /*  TRUE- preceding & trailing blanks are irrelevant   */


''    = '     '    /*  TRUE- null string is blank-padded for comparison   */


 REXX中的关系运算符主要包括：




1. ‘&’ : 与


2. ‘|’ : 或


3. ‘\’ : 非


例子：


if ('A' = var1) & ('B' = var2) then


     say 'Displays only if BOTH comparisons are TRUE'


if ('A' = var1) | ('B' = var2) then


     say 'Displays if EITHER comparison is TRUE'


if \('A' = var1) then say 'Displays if A is NOT equal to var1'


相关文章
]]>
			http://www.ibmmainframe.cn/2008/12/mainframe-is-back-%e5%ad%a6%e4%b9%a0%e8%b5%84%e6%96%99rexx%e5%88%86%e4%ba%ab-%e4%b9%8b%e4%ba%8c%e8%bf%90%e7%ae%97%e7%ac%a6rexx-operators/feed/
		0
		
		
		一个简单的REXX小游戏(A Simple REXX Game)
		http://www.ibmmainframe.cn/2008/12/%e4%b8%80%e4%b8%aa%e7%ae%80%e5%8d%95%e7%9a%84rexx%e5%b0%8f%e6%b8%b8%e6%88%8fa-simple-rexx-game/
		http://www.ibmmainframe.cn/2008/12/%e4%b8%80%e4%b8%aa%e7%ae%80%e5%8d%95%e7%9a%84rexx%e5%b0%8f%e6%b8%b8%e6%88%8fa-simple-rexx-game/#comments
		Tue, 02 Dec 2008 06:41:12 +0000
		Raymond
				
		

		http://www.ibmmainframe.cn/?p=411
		  [ Read More ]]]>
			
最近发现了一个REXX写的简单猜数字游戏，其中有很多内容很适合初学者来掌握REXX，游戏的源代码如下：


/********************** REXX ****************************************/


/* The NUMBER GAME – User tries to guess a number between 1 and 10  */


/* Generate a random number between 1 and 10                        */


   the_number = random(1,10)                                          


   say “I’m thinking of number between 1 and 10. What is it?”         


   pull the_guess                                                     


   if the_number = the_guess then                                     


      say ‘You guessed it!’                                           


   else                                                               


      say ‘Sorry, my number was: ‘ the_number                         


   say ‘Bye!’                         


运行：


在ISPF的’6 COMMAND’下输入以下内容：


EXEC ‘MIB.REXX.EXEC(NUMGAME)’ 


解释：


1. REXX语言不区分大小写，所以在上述程序中出现了’say’关键字用来输出信息，功能同’SAY’


2. ‘random’是REXX中内置的函数，用于生成一个随机数。


3. 程序中通过一个if…else语句，来完成对随机生成数字和用户输入数字的判断。   


4. 变量’the_guess’和’the_number’无需提前定义类型，在第一次使用时，系统会自动创建，并且分配内存空间。


相关文章
]]>
			http://www.ibmmainframe.cn/2008/12/%e4%b8%80%e4%b8%aa%e7%ae%80%e5%8d%95%e7%9a%84rexx%e5%b0%8f%e6%b8%b8%e6%88%8fa-simple-rexx-game/feed/
		1
		
		
		RACF中设置权限的意义(RACF Permission levels)
		http://www.ibmmainframe.cn/2008/12/racf%e4%b8%ad%e8%ae%be%e7%bd%ae%e6%9d%83%e9%99%90%e7%9a%84%e6%84%8f%e4%b9%89racf-permission-levels/
		http://www.ibmmainframe.cn/2008/12/racf%e4%b8%ad%e8%ae%be%e7%bd%ae%e6%9d%83%e9%99%90%e7%9a%84%e6%84%8f%e4%b9%89racf-permission-levels/#comments
		Mon, 01 Dec 2008 08:30:48 +0000
		Raymond
				

		http://www.ibmmainframe.cn/?p=408
		
			
在用RACF对资源的访问权限进行操作的时候，经常需要设置用户访问资源的权限，具体参数对应的权限如下所示：


 None: 不能访问该资源


Execute: 如果是Data Set是二进制类型的，可以运行这个Data Set


Read: 可以读取资源


Update: 在可以读取的基础上，可以修改资源


Control: 在可以修改资源的基础上，还可以修改VSAM Data Set


Alter: 有权利改变这个资源的访问权限，如果该资源不存在，可以建立该资源。如果该资源已经存在，拥有删除的权利。


随机日志
]]>
			http://www.ibmmainframe.cn/2008/12/racf%e4%b8%ad%e8%ae%be%e7%bd%ae%e6%9d%83%e9%99%90%e7%9a%84%e6%84%8f%e4%b9%89racf-permission-levels/feed/
		0