CN1332302C

CN1332302C - 用于提供计算机程序代码的维护环境的方法和系统

Info

Publication number: CN1332302C
Application number: CNB028057562A
Authority: CN
Inventors: 谢菲克·巴舍
Original assignee: International Business Machines Corp
Current assignee: Qindarui Co.
Priority date: 2001-03-01
Filing date: 2002-01-25
Publication date: 2007-08-15
Anticipated expiration: 2022-01-25
Also published as: US7685569B2; AU2002226551A1; WO2002071208A2; US8381183B2; CN1529846A; US20100169866A1; JP2005505807A; US20020166111A1; WO2002071208A3; EP1428113A2; JP4150593B2

Abstract

本发明公开了一种用于计算机程序代码的维护环境的方法。按照这种方法，有选择地存储计算机程序代码的部分，并且建立所存储部分的一个或多个列表。在所述列表和所存储的计算机程序代码部分之间建立链接以用于导航(navigational)目的。本发明也公开了用于提供用于计算机程序代码的维护环境和用于同一目的的计算机程序产品的系统。

Description

用于提供计算机程序代码的维护环境的方法和系统

技术领域

本发明一般地涉及以过程语言开发的计算机软件应用程序的维护，具体涉及在这样的软件应用程序中的导航。

背景技术

跨系统产品(Cross System Product，CSP)是由IBM设计作为战略应用程序产生器的一种形式的过程编程语言，用于提供跨越多个硬件平台和操作系统的相容的开发和执行环境。CSP环境对于应用程序开发是很用户友好的，并且将编码时间降低了大约70％。但是，以CSP开发的应用程序的维护不是与在那个环境中的开发处理一样容易的。这主要是因为CSP是结构化的方式。CSP是一种过程编程语言的形式。

CSP应用程序包括各种对象，诸如记录、语句组、进程、表格等。程序代码被写为进程和语句组的序列。一般的应用程序具有一个或多个调用其他进程或语句组的主进程。这些可以继而调用其他的进程和/或语句组。

图1示出了一个典型的CSP程序的摘录。在层001的进程是主进程(即JFBB44P-MAIN)，其内容可以通过在图1所示的SEL列的适当位置插入字母“S”并且然后回车(即按下“Enter”按键)来被查看。

图2A和2B示出了包括对其他进程或语句组的调用的主进程的内容。为了查看和/或编辑任何特定的进程或语句组，要求用户首先返回图1的高层结构列表屏幕，然后手动插入要查看和/或编辑的特定进程或语句组的名称。通过按下“PF3”、即预先设定的计算机键盘功能按键来执行对图1的高层结构列表屏幕的返回。在图2A的上部如上所述示出了用于查看和/或编辑的进程JFBB4P-EXE-INIT的选择。

在通过CSP程序导航时必须重复上述的处理。如果程序大，则利用多个子层，导航变得更为困难。

查看和/或编辑任何其他的诸如记录或表格的对象要求必须返回用于输入特定对象的名称的列表处理器屏幕(这个屏幕在图1所示的结构列表屏幕之前)。

这些固有的困难使得分析和维护以CSP开发的程序代码成为辛苦的任务。

因此，清楚地需要一种改进的方法和/或装置，用于分析和维护以CSP和其他过程语言所写的代码，所述代码实质地克服了或至少改善了现有配置的一个或多个不足。

发明内容

按照本发明的第一方面，公开了一种用于提供计算机程序代码的维护环境的方法，包括步骤：有选择地存储计算机程序代码一个或多个部分；建立一个或多个所存储部分的一个或多个列表；建立用于计算机程序代码的导航的链接，其中每个链接被建立在所存储的部分之一和列表之一之间。

按照本发明的另一个方面，公开了一种计算机系统，用于提供用于计算机程序代码的维护环境，包括：有选择地存储计算机程序代码一个或多个部分的装置；建立一个或多个所存储部分的一个或多个列表的装置；建立用于计算机程序代码的导航的链接的装置，其中每个链接被建立在所存储的部分之一和列表之一之间。

按照本发明的另一个方面，公开了一种计算机程序产品，包括其中记录有用于提供计算机程序代码的计算机维护环境的计算机程序的计算机可读介质，所述计算机程序包括：用于有选择地存储要维护的计算机程序代码的一个或多个部分的计算机程序代码手段；用于建立一个或多个所存储的部分的一个或多个列表的计算机程序代码手段；用于建立用于要维护的计算机程序代码的导航的链接的计算机程序代码手段，其中每个链接被建立在所存储的部分之一和所述列表之一之间。

所存储的部分最好存储在被格式化来用于在万维网使能的浏览器程序中加载的、独立的计算机文件中。所述计算机文件可以包括序言文件、主文件、进程文件、语句组和记录文件，并且最好是HTML文件。

附图说明

通过参照附图仅仅通过示例来说明本发明，其中：

图1示出了一个示范CSP应用程序的结构列表；

图2A和2B示出了图1的CSP应用程序的主进程的结构列表；

图3示出了用于将以CSP开发的程序代码转换为HTML格式的方法的流程图；

图4以比图3所示的更详细地示出了CSP关键字的处理；

图5以比图3所示的更详细地示出了CSP记录结构的处理；

图6以比图3所示的更详细地示出了CSP表格的处理；

图7示出了可以实现本发明的示范计算机系统的方框图。

具体实施方式

在此说明的优选方法、系统和计算机程序产品的原理对以任何过程语言所撰写的计算机程序代码具有总的适用性。但是，为了容易解释，参照跨系统产品(CSP)语言和超文本标记语言(HTML)来说明优选的方法、系统和计算机程序产品。本发明不打算限于所述的方法、系统和计算机程序产品。例如，本发明可以适用于除了CSP之外的过程语言开发的计算机程序代码和/或将这样的程序代码转换为除了超文本标记语言(HTML)之外的语言和/或环境。

HTML文件或文档由纯ASCII文本构成，并且因此不包括控制字符或嵌入的二进制代码。HTML的目的是定义文件或文档的结构，以便任何万维网使能的浏览器程序能够中断或显示文件或文档。由一种用于文本处理的国际标准(ISO 8879)标准化的通用标记语言(SGML)来定义HTML。SGML是其目的是定义其他语言的元语言。

已经以CSP产生的应用程序可以被输出到外部的源格式(ESF)文件。EXPORT(输出)是CSP的标准特征，使得在ESF中能够存储包括进程、语句组、记录等的整体CSP应用程序。ESF文件是包括80字节的固定长度记录的串行文件。

图3示出了用于将以CSP开发的程序代码转换为HTML格式的方法的流程图。

在步骤302，打开被输出的ESF文件，并且选择第一项。如果在确定步骤304所选择的项包括预先设定的关键字(Y)，则在步骤306发生所述项的处理。处理随后在确定步骤308继续。图4及其说明提供了图3的步骤306的进一步的细节。下面示出了公共关键字和利用其所获得的相关的信息的示例：

关键字	所获得的信息
关键字	所获得的信息	：appl	应用程序名称
：mapgroup	映象组名称	：appl	应用程序名称
：mapgroup	映象组名称	：mainprc	主进程
：prol.	序言	：mainprc	主进程
：prol.	序言	：process	进程
：group	语句组	：process	进程

如果在确定步骤304所选择的项不包括关键字(N)，则处理直接进行到步骤312。

在步骤308，选择在ESF文件中的下一项。如果在确定步骤310确定还没有到达ESF文件的结尾(N)，则处理返回步骤304。但是，如果在确定步骤310已经到达了ESF文件的结尾(Y)，则在步骤312处理继续。

在步骤312处理在应用程序中包括的记录结构。图5及其说明提供了图3的步骤312的进一步细节。处理然后进行到步骤314。

如果在确定步骤314应用程序包括CSP表格(Y)，则在步骤316发生CSP表格的处理。图6及其说明提供了图3的步骤316的进一步的细节。处理然后进行到步骤318。

在步骤318，为每个语句组建立HTML链接。可以从图4看出，已经建立了包括所有语句组的名称和每个语句组的独立文件的语句组列表文件，并且HTML链接的目的是提供在特定的语句组文件和在所述语句组列表文件中包括的那个语句组的名称之间的相关性和导航路由。

然后，在步骤320，通过在文件中插入HTML标记和重新命名文件包括扩展名.htm来将所有被建立的文件转换为HTML格式。所建立的文件一般包括：

进程文件

语句组文件

序言文件

具有主进程名称列表的主文件

进程名称列表文件

语句组名称列表文件

记录文件

最后，在步骤321，按照需要建立其他视图文件。这样的视图文件的示例包括CSP视图文件(这个视图是整个CSP应用程序的树视图)和未简洁化(untersed)视图文件(这个视图包括所有的语句组，并且在单个文件中处理以容易搜索)。

图4以比图3所示的更详细地示出了CSP关键字的处理。

如果在确定步骤402关键字表示一个进程或语句组(Y)，则在步骤404分别在进程名称列表文件或语句组列表文件中存储进程或语句组的名称。

然后，在步骤406，进程或语句组的内容被复制到独立的文件，其名称与所复制的特定进程或语句组相同。

如果在确定步骤408在所复制的内容中遇到关键字“PERFORM(执行)”(表示对进程的调用)(Y)，则在步骤410立即插入HTML链接，它指向与由“PERFORM”指令所调用的进程具有相同名称的文件。

处理然后经由步骤412返回步骤图3的步骤308。

如果在确定步骤402所述关键字不表示一个进程或语句组(N)，则处理也经由步骤412返回图3的步骤308。类似地，如果在确定步骤408在所复制的内容中未遇到关键字“PERFORM”(N)，则处理同样经由步骤412返回图3的步骤308。

图5以比图3所示的更详细地示出了CSP记录结构的处理。

首先，在步骤502记录结构的名称被存储在记录结构名称列表文件中。然后，在步骤504，记录结构的内容被复制到独立的文件中，其名称与所复制的特定进程或语句组相同。

接着，在步骤506，在记录结构名称列表文件中包括的记录结构的名称和包括特定记录结构的文件之间记录链接。利用锚定(anchor)来建立所述链接。

在HTML文件中，链接是热点，它当被单击时将浏览器程序重新定向到在同一文件中的不同的文件或资源。锚定是对在单个文件中的特定位置的链接。因此，在锚定上单击导致对在文件中的预定位置的重新定向。链接和锚定通常由蓝色、带下划线的文本所指示，但是这依赖于浏览器的配置。

处理然后经由步骤508返回图3的确定步骤314。

图6以比图3所示的更详细地示出了CSP表格的处理。

首先，在步骤602在CSP表格名称列表文件中存储每个CSP表格的名称。然后，在步骤604，每个CSP表格的内容被复制到独立的文件中，其名称与所复制的特定进程或语句组相同。接着，在步骤606，在CSP表格名称列表文件中包括的CSP表格的名称和包括特定的CSP表格的文件之间建立链接。利用锚定来建立链接。

处理然后经由步骤608返回图3的步骤318。

计算机实现

可以利用与图7所示的计算机系统700相关的计算机程序产品来实现用于将以CSP开发的计算机程序代码转换为HTML或类似的方法。特别是，可以将用于将以CSP开发的计算机程序代码转换为HTML或类似的方法实现为在计算机系统700上执行的软件或计算机可读程序代码。

计算机系统700包括计算机750、视频显示器710和输入器件730、732。另外，计算机系统700可以具有连接到计算机750的、多种其他输出器件中的任何一个，其中包括行打印机、激光打印机、绘图机或其他再现设备。计算机系统700可以利用诸如调制解调器通信路径、电子网络等的适当通信信道740经由通信接口764被连接到一个或多个其他计算机。网络可以包括局域网(LAN)、广域网(WAN)、内联网和/或因特网720。

计算机750包括控制模块766、可以包括随机存取存储器(RAM)和只读存储器(ROM)的存储器770、输入/输出(I/O)接口764、772、视频接口760和总地由存储器件762表示的一个或多个存储器件。利用中央处理单元(CPU)来实现控制模块766，CPU执行或运行执行特定功能或相关的一组功能的计算机可读程序代码。

视频接口760连接到视频显示器710，并且提供来自计算机750的视频信号来在视频显示器710上显示。可以经由I/O接口772来由一个或多个输入器件730、732提供用于操作计算机750的用户输入。例如，计算机750的用户可以使用键盘来作为I/O接口730和/或诸如鼠标的指示器件来作为I/O接口732。键盘和鼠标向计算机750提供输入。存储器件762可以包括下列的一个或多个：软盘、硬盘驱动器、磁光盘驱动器、CD-ROM、磁带或本领域的技术人员所公知的多种非易失性存储器件中的任何其他的一个。在计算机系统750中的器件中的每个一般经由总线780连接到其他器件，总线780继而可以包括数据、地址和控制总线。

通过在由计算机系统700执行的软件中的指令来实现用于将以CSP开发的计算机程序代码转换为HTML或类似的所述方法步骤。而且，所述软件可以被实现为用于实现所述方法步骤的一个或多个模块。

特别是，所述软件可以被存储在计算机可读介质中，包括存储器件762，或从因特网720或另一个网络位置或站点经由接口764和通信信道740自远程位置下载所述软件。计算机系统700包括将这些软件或程序代码记录以便可以执行软件或程序代码的指令的计算机可读介质。

计算机系统700被提供来用于说明性的目的，并且可以在不脱离本发明的范围和精神的情况下使用其他的配置。上述的仅仅是利用其可以实现本发明的实施例的计算机或计算机系统的类型的一个示例。一般，实施例的处理被作为记录在作为计算机可读介质的硬盘驱动器上的软件或计算机可读程序代码，并且利用控制模块766被读取和控制。可以利用可能与存储器件762一致的存储器770来实现包括实体、票据等的程序代码或数据的中间存储。

在一些情况下，程序可以被编码在CD-ROM或软盘(总地由存储器件762所描述)上提供到用户，或者可以由用户经由连接到计算机750的调制解调器器件从网络读取。而且，计算机系统700可以从其他计算机可读媒体加载软件。这可能包括磁带、ROM或集成电路、磁光盘、在计算机和另一个器件之间的无线或红外线发送信道、诸如PCMCIA卡的计算机可读卡、包括电子邮件传输和记录在因特网网站上的信息等等的因特网720和局域网。上述的仅仅是相关的计算机可读介质的示例。在不脱离本发明的范围和精神的情况下可以使用其他计算机可读介质。

可以在一个计算机系统700中以集中的方式、或者以分布的方式实现用于将以CSP开发的计算机程序代码转换为HTML或类似的方法，其中在分布的方式中，不同的元件分布在几个相互连接的计算机系统上。

在本文中的计算机程序手段或计算机程序表示以任何语言、代码或表示法的一组指令的任何表达方式，所述指令要使得具有信息处理能力的系统或者直接或在下列之一或两者之后执行特定的功能：a)向另一种语言、代码或表示法的转换，或b)以不同的材料形式再现。

CSP-Easy^TM实现

现在说明名为CSP-Easy^TM的转换程序。所述程序支持CSP应用程序向HTML的转换。可以在Windows 95^TM和Windows NT^TM平台上执行CSP-Easy^TM。

在转换后，可以在诸如Internet Explorer^TM或Netscape Navigato^TM的万维网浏览器中观看CSP代码。链接被插入到不同的对象中，诸如进程、语句组、记录和表格。不同的对象被对代码加以彩色并且带有下划线以进一步增进代码的可读性和导航来用于软件分析和维护目的。

附录1-9包括由CSP-Easy^TM转换程序从示范的CSP应用程序产生的示范HTML文件的拷贝。附录10包括CSP-Easy^TM帮助屏幕的拷贝，示出了用于选择各种HTML文件以在浏览器窗口中显示的菜单选项。一旦显示了HTML文件，用户可以通过单击对诸如进程、语句组、记录或表格的对象的任何彩色和/或带有下划线的参考来选择这个参考。所选择的对象将随后被访问或被显示。

附录1包括一个起始文件的拷贝，示出了应用程序和它的主进程的名称；

附录2包括应用程序序言文件的拷贝；

附录3包括进程名称列表文件的拷贝；

附录4包括语句组名称列表文件的拷贝；

附录5包括记录文件的拷贝；

附录6包括主进程文件的拷贝；

附录7包括示范语句组文件的拷贝；

附录8包括CSP视图文件的拷贝，示出了各种处理和语句组的树视图；

附录9包括未简洁化文件的摘要的拷贝，示出了在单个文件中的整个应用程序的一部分；

附录10包括CSP-Easy^TM文件的拷贝。

从CSP到HTML的CSP-Easy^TM一次转换处理的好处包括：

a)对诸如进程和语句组的各种对象的链接，使能快速访问；

b)用户友好接口，通过单击按钮来提供诸如记录、表格、进程和语句组的所有软件对象的容易的访问；

c)各种对象的代码的代码加以彩色；

d)在局域网(LAN)环境中的CSP应用程序的位置，用于快速访问；

e)由于对应用程序代码的快速分析而使得的提高的生产率。

附录1

Application Name：APPLNAME

MapGroup Name：MAPGRP

Main Process Is： MAIN-PROC.

附录2

************************************************************

* *

* PROGRAM NAME：APPLNAME-Sample Program * 00004

************************************************************

* FUNCTION：Sample Program * 00004600

* * 00004700

* * 00004800

* * 00004900

* * 00005000

* Screen Name：MAP-NAME. *

* *

************************************************************

* TRANSACTION ：4J2810 *

* MAP GROUP NAME：MAPGRP *

* MAP NAME ：MAP-NAME *

* DB2 FLAN NAME ：APPLNAME *

************************************************************

附录3

MAIN-PROC EXECUTE ′Main

Control Process′.

PROCESS-SCREEN-CONV CONVERSE MAP-NAME ′Converse

the Map′.

PROCESS-UPD-R31U UPDATE JFBR9R31U EZERTN ′Update

T31′.

PROCESS-REP-R31U REPLACE JFBR9R31U EZERTN ′Replace

T31 with new ind.′.

PROCESS-SQX-R31U SQLEXEC JFBR9U31 EZERTN ′Set

indicators for Enterprise′.

附录4

STMTGRP-INIT ′Initialize Application′.

STMTGRP-NLS ′Put Fields Descriptions in Map′.

STMTGRP-PLACE-CURS ′Place Cursor after Prompt′.

STMTGRP-PLACE-VALUE ′Place Value after Prompt′.

STMTGRP-SET-BRIGHT ′Sat Map Attributes′.

STMTGRP-PREPARE-MAP ′Prepare Map for Send′.

STMTGRP-UNDERSCORE ′Fill Map Field with Underscore′.

STMTGRP-REM-US ′Replace Underscores with Blank′.

STMTGRP-PFKEY ′Execute Desired Function′.

STMTGRP-DEFINE ′Reset Map Field Attributes′.

STMTGRP-CHK-CMND ′Check Command Line′.

STMTGRP-CHK-ACT ′Check Action Bar′.

STMTGRP-UPDATE ′Set up Update Action′.

STMTGRP-PF4 ′Handle Prompt for Screen′.

STMTGRP-PROMPT ′Switch to Prompt Application′.

STMTGRP-PFS ′Refreshes Screen′.

STMTGRP-PROTECT ′Set Map Field Attr.as Protect′.

STMTGRP-Fll ′PFll Processing′.

STMTGRP-CHK-SCREEN ′Validate Values in Screen′.

附录5

Record Name is：RECORDlR

：prol.

***********************************************************

*

THE WORKING STORAGE of ONLY THIS PROGRAM *

*

This record is used to save the screen fields and other *

variables pertaining to CSP Application APPLNAME. *

***********************************************************

------------------------------------------------------------------------------------

NAME LEVEL OCCURS SCOPE TYPE BYTES DECIMAL EVENSQL DESC

* 05 00001 LOCAL CHA 02500 00 N

APPL-SAVE-FIELDS 05 00001 GLOBAL

JFBR9-TITLE-36 10 00001 LOCAL CHA 00036 00 N

JFBR9-TITLE-POS 15 00036 LOCAL CHA 00001 00 N

ACT 10 00001 GLOBAL

SEL-1 00001 GLOBAL

Fll-UPD 10 00001 LOCAL CHA 00007 00 N

′Function key CONFIRM′

Fll 15 00001 LOCAL CHA 00004 00 N ′Init

Fll＝′

Fll-ACT 15 00001 LOCAL CHA 00003 00 N ′Action

Related to Fll′

COMM-LINE 10 00001 GLOBAL

MESSAGE-TXT 10 00001 GLOBAL

ITEM-ERR-CODE 10 00050 GLOBAL

JFBR9I-COMM-ERR-CODE 10 00001 LOCAL CHA 00007 00 N

JF5R9I-ACT-ERR-CODE 10 00001 LOCAL CHA 00007 00 N

MESSAGE-NUM 10 00001 GLOBAL

CUST-GROUP-NUM 10 00001 GLOBAL

CUST-NUM 10 00001 GLOBAL

PPT-SPEC-HANDLE 10 00001 LOCAL CHA 00001 00 N ′Billing

Special Indicator′

SUPRESS-PRT-IND 10 00001 LOCAL CHA 00001 00 N

* 10 00001 LOCAL CHA 00923 00 N

Record Name is ：JFBR9W01

：prol.

THIS RECORD WILL HOLD WORKING ITEMS THAT ARE SPECTFIC

FOR THIS APPLICATION APPLNAME.

--------------------------------------------------------------------------------------------

NAME LEVEL OCCURS SCOPE TYPE BYTES DECIMAL EVENSQL DESC

JFBR9I-FIN-ENTERP-NUM 10 00001 LOCAL EIN 00004 00 N

ENTERPRISE-UPDT 10 00001 LOCAL CHA 00001 00 N

CUSTNUM-ONLY-UPDT 10 00001 LOCAL CHA 00001 00 N

JFBR9I-PFS-CHK 10 00001 LOCAL CHA 00007 00 N

Record Name is ：JFBR9WMR

NAME LEVEL OCCURS SCOPE TYPE BYTES DECIMAL EVENSQL

DESC

TX-UPDATE-6 10 00001 LOCAL CHA 00006 00 N ′Update′

TX-JFBR9-TITLE-36 10 00001 LOCAL CHA 00036 00 N ′ ′

* 15 00001 LOCAL CHA 00030 00 N ′

PPT Billing Control′

* 15 00001 LOCAL CHA 00006 00 N ′ ′

TX-JFBR9-SEC-22 10 00001 LOCAL CHA 00022 00 N ′ ′

00001 LOCAL CHA 00025 00 N

′Enterprise Number ：′

TX-ENT-COMMENT-1 10 00001 LOCAL CHA 00040 00 N ′ ′

* 15 00001 LOCAL CHA 00030 00 N ′(All

the customers under the E′

* 15 00001 LOCAL CHA 00010 00 N

′nterprise′

TX-ENT-COMMENT-2 10 00001 LOCAL CHA 00034 00 N ′ ′

* 15 00001 LOCAL CHA 00030 00 N ′entered

will be updated with y′

* 15 00001 LOCAL CHA 00004 00 N ′our′

TX-ENT-COMMENT-3 10 00001 LOCAL CHA 00038 00 N ′ ′

* 15 00001 LOCAL CHA 00030 00 N ′PPT

Special Handle and Suppres′

* 15 00001 LOCAL CHA 00008 00 N ′s

Print′

TX-ENT-COMMENT-4 10 00001 LOCAL CHA 00008 00 N

′choice)′

TX-CUS-NUM-35 10 00001 LOCAL CHA 00025 00 N ′Install

CustomerNumber：′

TX-CUST-COMMENT-1 10 00001 LOCAL CHA 00039 00 N ′ ′

* 15 00001 LOCAL CHA 00030 00 N ′(OnlY

the Customer Number ente ′

* 15 00001 LOCAL CHA 00009 00 N ′red

will′

TX-CUST-COMMENT-2 10 00001 LOCAL CHA 00039 00 N ′ ′

* 15 00001 LOCAL CHA 00030 00 N ′be

updated with your PPT Speci′

* 15 00001 LOCAL CHA 00009 00 N ′al Handle′

TX-CDST-COMMENT-3 10 00001 LOCAL CHA 00027 00 N ′and

Suppress Print choice)′

TX-PPT-SPEC-HANDLE 10 00001 LOCAL CHA 00025 00 N ′PPT

Special Handle ：′

TX-BILS PEC-COMMENT 10 00001 LOCAL CHA 00015 00 N

′(Default is N)′

TX-SUPRESS-PRT 10 00001 LOCAL CHA 00025 00 N

′Suppress Printing ：′

TX-SUP-PRT-COMMENT 10 00001 LOCAL CHA 00015 00 N

′(Default is N)′

TX-COMMAND-8 10 00001 LOCAL CHA 00008 00 N

′Command′

TX-F3-EXIT-7 10 00001 LOCAL CHA 00007 00 N

′F3＝Exit′

TX-F4-PRMPT-8 10 00001 LOCAL CHA 00008 00 N

′F4＝Prmpt′

TX-F5-REFR-7 10 00001 LOCAL CHA 00007 00 N

′F5＝Refr′

TX-Fll-UPD-7 10 00001 LOCAL CHA 00007 00 N

′Fll＝Upd′

Record Name is：JFER9W2

NAME LEVEL OCCURS SCOPE TYPE BYTES DECIMAL EVENSQL DESC

COMSEC-DATA 10 00001 GLOBAL

COUNTRY-COOE 10 00001 GLOBAL

COUNTRY-NAME 10 00001 GLOEAL

SUBSIDIARY-CODE 10 00001 GLOBAL

SUBSIDIARY-NAME 10 00001 GLOBAL

APPL-STACK-DATA 10 00001 GLOBAL

FILLED-BY-APPL 10 00001 GLOBAL

Record Name is ：JFBR9W3

NAME LEVEL OCCURS SCOPE TYPE BYTES DECIMAL EVENSQL DESC

DATE-FORM 10 00001 GLOBAL

DEC-POINT 10 00001 GLOBAL

TIME-OF-LOGON 10 00001 GLOBAL

Record Name ie ：JFBR9W4

NAME LEVEL OCCURS SCOPE TYPE BYTES DECIMAL EVENSQL DESC

JFBR9I-TOTAL-AREA 10 00001 LOCAL CHA 02500 00 N

JFBR9I-USERID 15 00001 LOCAL CHA 00008 00 N

* 15 00001 LOCAL CHA 02492 00 N

Record Name is ：JFBR9R31U

：prol.

USED FOR READ-FOR-UPDATE

NAME LEVEL OCCURS SCOPE TYPE BYTES DECIMAL EVENSQL DESC

FIN-ENTERP-NUM GLOBAL

CUST-GROUP-NUM GLOBAL

CUST-NUM GLOBAL

PPT-SPEC-HANDLE LOCAL CHA 00001 00 N

′Eilling Special Indicator′

SUPRESS-PRT-IND LOCAL CHA 00001 00 N

′SUPRESS_PRT_IND′

CREATOR-ID GLOBAL

CFDATE-TIMESTAMP GLOBAL

Record Name is：JFBR9U31

：prol.

Record for Enterprise Update in T31

NAME LEVEL OCCURS SCOPE TYPE BYTES DECIMAL EVENSQL DESC

FIN-ENTERP-NUM GLOBAL -

CUST-GROUP-NUM GLOBAL

CUST-NUM GLOBAL

PPT-SPEC-HANDLE LOCAL CHA 00001 00 N

′Billing Special Indicator′

SUPRESS-PRT-IND LOCAL CHA 00001 00 N

′SUPRESS_PRT_IND′

CREATOR-ID GLOBAL

UPDATE-TIMESTAMP GL0OBAL

附录6

MAIN-PROC

Process Option ：EXECUTE

Process Description：′Main Control Process′.

Before Section

/*

/*--------------------------------------------------------------------*

/* initialice transaction *

/*--------------------------------------------------------------------*

STMTGRP-INIT； /*Initialize application

MOVE ′APPLNAME′ TO EZEAPP；

MOVE ′APPLNAME′ TO RECPIWI.CURR-APPL；

；

/*--------------------------------------------------------------------*

/* Main loop - converse map while user on current map. *

/*--------------------------------------------------------------------*

WHILE RECPIWI.CURR-APPL＝EZEAPP；

；

STMTGRP-PREPARE-MAP； /* Prepare map for send

PERFORM PROCESS-SCREEN-CONV；/* Prepare and Converse map

；

STMTGRP-PFKEY； /*Take care of the map handling

；

JFCZZS-CHK-TSFR； /* Security check for next transaction

END；

STMTGRP-PFKEY； /* Take care of the map handling

；

JFCZZS-CHK-TSFR； /* Security check for next transaction

END；

；

/*--------------------------------------------------------------------*

/* Save Entered Key to be checked by next Transaction *

/*--------------------------------------------------------------------*

；

MOVE ′ ′ TO RECPIWI.RESTART-CODE；

/*--------------------------------------------------------------------*

/* Finish this Transaction & Start another Transaction *

/*--------------------------------------------------------------------*

/*

；

JFDZZS-TSFR-PGM； /*Transfer control to next transaction

附录7

STMTGRP-CHK-SCREEN

Statement Group Descr is ： ′Validate Values in Screen′.

/**********************************************************************

/* CHECKVALUES ENTERED IN THESCREEN MAP-NAME *

/**********************************************************************

IF MAP-NAME.PPT-SPEC-HANDLE＝′′；

OR MAP-NAME.PPT-SPEC-HANDLE＝′_′；

MOVE ′N′ TO MAP-NAME.PPT-SPEC-HANDLE； /*set ppt-spec-handle to default

END；

IF MAP-NAME.SUPRESS-PRT-IND＝′′；

OR MAP-NAME.SUPRESS-PRT-IND＝ ′_′；

MOVE ′N′ TO MAP-NAME.SUPRESS-PRT-IND；/*set supress-prt-ind to default

END；

IF MAP-NAME.PPT-SPEC-HANDLE＝ ′Y′；

AND MAP-NAME.PPT-SPEC-HANDLE＝ ′N′；

MOVE ′JFB4366′ TO WX-EZEMNO；/*Invalid values entercd.

ELSE；

IF MAP-NAME SUPRESS-PRT-IND＝ ′Y′；

AND MAP-NAME.SUPRESS-PRT-IND＝ ′N′；

MOVE ′JFB4368′TO WX-EZEMNO；/*Invalid values entered.

ELSE；

MOVE ′′TO WX-EZEMNO；

END；

IF MAP-NAME.CUST-GROUP-NUM＝ ′′；

OR MAP-NAME.CUST-GROUP-NUM＝ ′___________ ′；

IF MAP-NAME.CUST-NUM＝ ′′；

OR MAP-NAME.CUST-NUM＝ ′___________′；

MOVE′JFB4361′TO WX-EZEMNO；/*Enter either Enterp.No.or Cust.No.

ELSE；

MOVE′Y′TO JFBR9W01.CUSTNUM-ONLY-UPDT；

END；

ELSE；

IF MAP-NAME.CUST-NUM＝ ′′；

OR MAP-NAME.CUST-NUM＝ ′___________′；

MOVE ′Y′TO JFBR9W01.ENTERPRISE-UPDT；

ELSE；

MOVE′JFE4362′TO WX-EZEMNO；/*Don′t enter both Ent No. or Cust.No.

END；

附录8

0001 MAIN-PROC

0002 STMTGRP-INIT

0003 STMTGRP-NLS

0003 STMTGRP-PLACE-CURS

0003 STMTGRP-PLACE-VALUE

0003 STMTGRP-SET-BRIGHT

0002 STMTGRP-PREPARE-MAP

0003 STMTGRP-UNDERSCORE

0002 PROCESS-SCREEN-CONV

0003 STMTGRP-REM-US

0002 STMTGRP-PFKEY

0003 STMTGRP-DEFINE

0003 STMTGRP-CHK-CMND

0003 STMTGRP-CHK-ACT

0004 STMTGRP-UPDATE

0003 STMTGRP-CHK-ACT

0004 STMTGRP-UPDATE

0003 STMTGRP-PF4

0004 STMTGRP-PROMPT

0004 STMTGRP-PLACE-CURS

0003 STMTGRP-PF5

0003 STMTGRP-PROTECT

0003 STMTGRP-Fll

0004 STMTGRP-CHK-SCREEN

0004 PROCESS-UPD-R31U

0004 PROCESS-REP-R31U

0004 PROCESS-SQX-R31U

附录9

MAIN-PROC

Process Option：EXECUTE

Process Description ：′Main Control Process′.

Before Section

/*

/*--------------------------------------------------------------------*

/* initialize transaction *

/*--------------------------------------------------------------------*

STMTGRP-INET； /* Initialize application

MOVE ′APPLNAME′ TO EZEAPP；

MOVE ′APPLNAME′ TO RECPIWI.CURR-APPL；

/*--------------------------------------------------------------------*

/* Main loop - converse map while user on current map. *

/*--------------------------------------------------------------------*

WHILE RECPIWI.CURR-APPL＝EZEAPP；

；

STMTGRP-PREPARE-MAP； /*Prepare map for send

；

PERFORM PROCESS-SCREEN-CONV； /*Prepare and Converse map

；

STMTGRP-PFKEY； /*Take care of the map handling

；

JFCZZS-CHK-TSFR； /*Security check for next transaction

END；

；

/*--------------------------------------------------------------------*

/* Save Entered Key to be checked by next Transaction *

/*--------------------------------------------------------------------*

MOVE ′ ′ TO RECPIWI.RESTART-CODE；

/*--------------------------------------------------------------------*

/* Finish this Transaction & Start ancther Transaction *

/*--------------------------------------------------------------------*

/*

；

JFDZZS-TSFR-PGM； /*Transfer control to next transaction

PROCESS-SCREEN-CONV

Process Option ： CONVERSE

Process Object ： MAP-NAME

Process Description ： ′Converse the Map′.

Before Section

/**********************************************************************

/* CONVERSE THE_MAP

/**********************************************************************

After Section

STMTGRP-EEM-US；

PROCESS-UPD-R31U

Process Option ： UPDATE

Process Object ： JFaR9R31U

Process Error ： EZERTN

Process Description ： ′Update T31′.

Before Section

MOVE′USBT31′TO RECPIWI.USED-DB2-TABLE；

After Section

IF JFBR9R31U IS ERR；

IF JFER9R31U IS NRF；

OR JFBR9R31U IS EOF；

ELSE；

MOVE ′JFBR9P_UPD_R31U ′TO RECPIWI.SQL-ERR-IN-PROCES；

MOVE JFBR9R31U.CUST-NUM TO RECPIWI.ERR-FOR-KEY-NUM(1)；

JFBZZS-DB2-ERROR；

END；

SELECT

FIN_ENTERP_NUM，CUST_GROUP_NUM，CUST_NUM，

EILL_SPEC_IND，SUPRESS_PRT_IND，CREATOR_ID，

UPDATE_TIMESTAMP

INTO

？FIN-ENTERP-NUM，？CUST-GROUP-NUM，？CUST-NUM，

？PPT-SPEC-HANDLE，？SUPRESS-PRT-IND，？CREATOR-ID，

？UPDATE-TIMESTAMP

WHERE

FIN_ENTERP_NUM＝？FIN-ENTERP-NUM

AND CUST_NUM＝？CUST-NUM

FORUPDATEOF

BILL_SPEC_IND，SUPRESS_PRT_IND，CREATOR_ID，

UPCATE_TIMESTAMP

Table Used ：′TAELE100′

Label ：′T1′

PROCESS-REP-R31U

Process Option ：REPLACE

Process Object ：JFBR9R31U

Process Error ：EZERTN

Process Description ：′Replace T31 with new ind.′.

Before Section

MOVE ′USBT31′TO RECPIWI.USED-DB2-TABLE；

After Section

IF JFER9R31U IS HRD；

IF JFBR9R31U IS NRF；

ELSE；

MOVE ′JFBR9P_REP_R4 3U′TO RECPIWI.SQL-ERR-IN-PROCES；

MOVE JFBR9R31U.CUST-NUM TO RECPIWI.ERR-FOR-KEY-NUM(1)；

JFBZZS-DB2-ERROR；

END；

ELSE；

MOVE′JFB4366′TO WX-EZEMNO；/*Entry updated.Enter new values

END；

SET

BILL_SPEC_IND ＝？PPT-SPEC-HANDLE，

SUPRESS_PRTIND ＝？SUPRESS-PRT-IND，

CREATOR_ID ＝？CREATOR-ID，

UPDATE_TIMESTAMP＝CURRENT TIMESTAMP

- -

PROCESS-SQX-R31U

Process Option ： SQLEXEC

Process Object ： JFBR9U31

Process Error ： EZERTN

Process Description ： ′Set indicators for Enterprise′.

After Section

IF JFBR9U31 IS ERR；

IF JFBR9U31 IS NRF；

OR JFBR9U31 IS EOF；

ELSE；

MOVE ′JFBR9F_SQX_R31U′TO RECPIWI.SQL-ERR-IN-PROCES；

MOVE JFER9U31.CUST-GROUP-NUM TO RECPIWI.ERR-FOR-KEY-NUM(1)；

JFBZZS-DB2-ERROR； /* DB2 ERROR ROUTINE

END；

ELSE；

MOVE′JFE4366′TO WX-EZEMNO；/*Entry updated. Enter new values

END；

SQLEXEC

UPDATE

TABLE100

SET

BILL_SPEC_IND ＝？PPT-SPEC-HANDLE，

SUPRESS_PRT_IND ＝？SUPRESS-PRT-IND，

CREATOR_ID ＝？CREATOR-ID，

UPDATE_TIMESTAMP ＝ CURRENT TIMESTAMP

WHERE

FIN_ENTERP_NUM ＝？FIN-ENTERP-NUM AND

CUST_GROUP_NUM ＝？CUST-GROUP-NUM

Tab1e Used ：′TABLE100′

Label ：′T1′

STMTGRP-INIT

Statement Group Descr is ： ′Initialize Application′.

/***************************************************************************

/* INITIALIZE THE APPLICATION. *

/* *

/* This process will be executed only the first time the map is shown *

/* on the screen. *

/* *

/* So this could be： *

/* *

/* 1) After the menu *

/* 2) When this transaotion is started by another transaction *

/* 3) After showing PROMPT - information. *

/***************************************************************************

/*

JFBZZS-INIT； /* standard initialization

/*

SET JFBR9W01 EMPTY；

SET MAP-NAME EMPTY；

；

MOVE ′APPLNAME′TO RECPIWI.CURR-APPL； /* Fill own applid

MOVE ′JFBR9AP′TO EZEAPP；

MOVE ′N′TO MAP-NAME.PPT-SPEC-HANDLE； /*Set defau1t

MOVE ′N′TO MAP-NAME.SUPRESS-PRT-IND； /*Set default

MOVE RECPIWI.FIN-ENTERP-NUM TO JFBR9W01.JFER9I-FIN-ENTERP-NUM；

/*-----------------------------------------------------------------------------*

/* Get the System Date -ISO- *

JFBZZS-SDATE；

MOVE JFCDRWIR.DATEl TO MAP-NAME.CURR-DTE；

MOVE RECPIWI.RELEASE-NUM TO MAP-NAME.RELEASE-NUM；

；

/* Retrieve text fields for this panel from nls and store in *

/* jfbr9wmr ---- for National Language Support ---- *

MOVE ′MAP-NAME′TO RECPIWI.PANEL-ID；/*Fill own Panelid

STMTGRP-NLS；

；

MOVE′ ′ TO RECORDlR Fll-UPD；

MOVE RECORDlR.Fll-UPD TO MAP-NAME.TX-Fll-UPD-7；

/*----------------------------------------------------------------------------*

/* ---Restart test--is： *

/* coming from HELP or PROMPT program *

/*----------------------------------------------------------------------------*

IF RECPIWI.RESTART-CODE＝ ′P′； /* Return from prompt

MOVE RECORDlR TO MAP-NAME；

STMTGRP-PLACE-CURS；/*Place cursor back on field before

IF RECPIWI.PROMPT-ITEM-VALUE NE ′ ′；

STMTGRP-PLACE-VALUE； /* Place valueinto field cursor

END；

MOVE ′ ′ TO RECPIWI.RESTART-CODE；

END；

；

STMTGRP-SET-BRIGHT；

STMTGRP-NLS

Statement Group Descris： ′Put Fields Descriptions in Map′.

/**********************************************************************

/* Retrieve text fields from DB2 table in the correct language. *

/**********************************************************************

/*--------------------------------------------------------------------*

/* Call National Language Support Application. - *

/*--------------------------------------------------------------------*

CALL JFCNLAP RECPIWI.JFCNLWM (NOMAPS；

JFBPlS-CHK-RETCODE；

；

MOVE JFBR9WMR TO MAP-NAME； /* Put the descriptions in the map

IF RECPIWI.APPL-RETURN-CODE＝ ′′；

MOVE RECPIWI.APPL-RETURN-CODE TO WX-EZEMNO；

END；

STMTGRP-PLACE-CURS

Statement Group Descr is： ′Place Cursor after Prompt′.

/**********************************************************************

/* Place cursor after help or prompt *

/**********************************************************************

/*--------------------------------------------------------------------*

/* Before help/prompt called.RECPIWI. ITEM-ID set to cursor location.*

/* ITEM-ID is set in STMTGRP-PF4 (prompt). *

/* The following′values′must match for these pocesses. *

/*--------------------------------------------------------------------*

IF′ACT′＝RECPIWI.ITEM-ID；

SET MAP-NAME.ACT CURSOR；

END；

；

IF ′UPDATE′＝RECPIWI.ITEM-ID；

SET MAP-NAME.TX-UPDATE-6 CURSOR；

END；

；

IF ′CUST_GROUP_NUM′＝RECPIWI.ITEM-ID；

SET MAP-NAME.CUST-GROUP-NUM CURSOR；

END；

IF′CUST_NUM′＝RECPIWI.ITEM-ID；

SET MAP-NAME.CUST-NUM CURSOR；

END；

IF′PPT_SPEC_HANDLE′＝RECPIWI.ITEM-ID；

SET MAP-NAME.PPT-SPEC-HANDLE CURSOR；

END；

IF ′SUPRESS_PRT_IND′＝RECPIWI.ITEM-ID；

SET MAP-NAME.SUPRESS-PRT-IND CURSOR；

END；

IF′MESSAGE_NUM′＝RECPIWI.ITEM-ID；

SET MAP-NAME.MESSAGE-NUM CURSOR；

END；

附录10

这些页面已经由CSP-EASY建立！！！

分析CSP的容易方法

在运行关于输出的文件的CSP-Easy工具之后，可以获得下列视图。

START：这可以是分析CSP应用程序的开始点。在此列出了主进程。应用程序名称和映象组名称也在此被示出。为了开始分析，单击主进程之一。

PROLOGUE：单击此以查看应用程序序言。

CSP VIEW：这给出了各种进程和语句组的树视图，提供了应用程序的流程的示图。它也具有对象的层号。

PROCESSES：列出了在应用程序中的所有进程，并且具有相关的细节，如误差处理、所使用的对象和说明。

STMT GROUPS：列出了在应用程序中的所有语句组，并且带有说明。

RECORDS：列出了在应用中使用的所有记录，单击所期望的记录以看细节。

TABLES：列出了在应用中使用的所有表格，单击所期望的表格以看细节。如果应用没有任何表格，则它给出指示此的消息。

UNTERSED：这个视图提供了在单个文件中的所有进程和语句组，因此使得有可能搜索在整个应用程序中的串的存在。

Claims

1.一种用于提供计算机程序代码的维护环境的方法，包括步骤：

有选择地存储计算机程序代码的一个或多个部分；

建立一个或多个所述所存储部分的一个或多个列表；

建立用于所述计算机程序代码的导航的链接，其中每个所述链接被建立在所述所存储的部分之一和列表之一之间。

2.按照权利要求1所述的方法，其中所述被存储的部分被存储在独立的计算机文件中，所述计算机文件被格式化来用于由万维网使能的浏览器程序加载。

3.按照权利要求2所述的方法，其中所述独立的计算机文件包括HTML文件。

4.按照权利要求3所述的方法，其中所述计算机程序代码包括跨系统产品软件应用程序，并且所述被存储的部分包括独立的计算机文件，其中包括从由下列构成的组中选择的一个或多个计算机文件：

序言文件；

主文件；

进程文件；

语句组文件；以及

记录文件。

5.一种计算机系统，用于提供用于计算机程序代码的维护环境，包括：

用于有选择地存储计算机程序代码的一个或多个部分的装置；

用于建立一个或多个所存储部分的一个或多个列表的装置；以及

用于建立用于计算机程序代码的导航的链接的装置，其中每个所述链接被建立在所存储的部分之一和列表之一之间。

6.按照权利要求5所述的系统，其中所述所存储的部分被存储在独立的计算机文件中，所述计算机文件被格式化来用于由万维网使能的浏览器程序加载。

7.按照权利要求6所述的系统，其中所述独立的计算机文件包括HTML文件。

8.按照权利要求7所述的系统，其中所述计算机程序代码包括跨系统产品软件应用程序，并且所述被存储的部分包括独立的计算机文件，其中包括从由下列构成的组中选择的一个或多个计算机文件：

序言文件；

主文件；

进程文件；

语句组文件；以及

记录文件。