|
|
 |
IBM大型机- 样例应用程序 |
 |
大型机程序样本该页面包含示例程序，算法和数据结构，预定义功能，文件和数据库操作，在线数据访问等。
在这里，您可以找到示例COBOL和CICS程序，例如Y2K问题解决，4位数字转换，世界时间计算器，日期，素数生成，伪对话，SORT和合并，堆栈和队列，伪数字生成等。
|
|
程式语言：
科宝 |
| |
|
 |
<b>YEAR2000!:</b> There are many solutions for Y2k. All of they cause another problem YEAR 1600!! This is a simple solution for Y2K without using even REDEFUNES clause. Just tery out this.<b>Click on for source.</b>','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob1.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> SOLVING Y2K PROBLEM WITHOUT USING INTRINSIC FUNCTIONS |
|
|
<b>ERROR DESCRIPTOR!:</b> This Program act as a copy lirary that can be used with all 科宝 File programs to find out the errors. It describe FILE STATUS code as well as VSAM status codes. Click on for source.</b>','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob18.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> 科宝 ERROR DESCRIPTOR COPY LIBRARY |
|
|
<b>4 DIGIT SYSTEM YEAR:</b> This program converts a 2 digit system year into 4 digit year. this may be used with os/vs cobol 和 vs cobol II hwere system return a two digit year','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob3.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> 科宝 4 DIGIT SYSTEM YEAR FINDER (YY to YYYY) |
|
|
<b>DAY FINDER!:</b> This program finds the day of your birthday or any given date from 01/01/0001 to 31/12/9999 和 return whether it is sunday or mondat ext...','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob4.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> DAY FINDER (Return SUN/MON upto 9999/12/31 ) |
|
|
<b>世界时间计算器！：</b> This program find the equivalent time of any country for the indian time','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob5.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> WORLD TIME CALCULATOR (world time for INDIAN time) |
|
|
<b>DATE TO DAY!:</b> Converts a date value to the equvalent day value (means no month - 9999/999 format)','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob6.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> CONVERT GREGORIAN DATE TO JULIAN DATE |
|
|
<b>TABLE SORT!:</b> Cobol does not give any facility to sort a table directly. This program sort the table in ascending order','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob7.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> SORTING A TABLE - A GENERIC ALGORITHM |
|
|
<b>TABLE SEARCH!:</b> Cobol can search a single dimensional table. This tprogram search a multidimensional table for all occurances of the given input','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob8.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> SEARCHING A MULTI DIM TABLE FOR ALL ELEMENTS |
|
|
<b>TABLE LENGTH!:</b> This algorithm finds the Run time allocated storage size of a variable lentgh table','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob9.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> FINDING THE RUN TIME SIZE OF A VARIABLE LENGTH TABLE |
|
|
<b>QUEUE!:</b> This program implements a QUEUE (first in first out)strucutre in cobol.','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob10.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> CIRCULAR QUEUE IN 科宝 |
|
|
<b>STACK!:</b> This program implements a data stack in 科宝 (last in first out)','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob11.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> STACK DATA STRUCTURE IN 科宝 |
|
|
<b>STACK!:</b> This program implements a data stack in 科宝 (last in first out)','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob19.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')">
COBOL中的QUINE程序 |
|
|
<b>PRIME SERIES!:</b> This program finds the possible prime factors of the given Integer','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob12.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> ALL PRIME FACTORS FINDER ROUTINE |
|
|
<b>PSEUDO RANDOM NO!:</b> This program generates all Pseudo random numbers upto the given limit. You can use this to provide password / software key 通过 modfying the variables initial value!','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob13.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> ALL PSEUDO RANDOM NUMBERS GENERATOR ROUTINE |
|
|
<b>PS/QSAM!:</b> This program illustrates all the possible functions of a QSDS file using 科宝','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob14.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> PS/QSAM/SEQUENTIAL FILE MANIPULATION |
|
|
<b>VSAM/ESDS!:</b> This program illustrates all the possible functions of a n ESDS file using 科宝','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob15.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> VSAM-ESDS/SEQUENTIAL FILE MANIPULATION |
|
|
<b>VSAM/RRDS!:</b> This program illustrates all the possible functions of a RRDS file using 科宝','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob16.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> VSAM-RRDS/RELATIVE FILE MANIPULATION |
|
|
<b>VSAM/KSDS!:</b> This program illustrates all the possible functions of a KSDS file using 科宝','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cobol/cob17.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> VSAM-KSDS/INDEXED FILE MANIPULATION |
|
注意：链接自动在
新窗户。不要右键单击！ |
|
|
|
程式语言：
CICS |
| |
|
|
<b>CICS MULTIPAGE!:</b> This program displays all the records of a file in a single screen using MULTIPAGE technique','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cics/cics8.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')">
CICS中的示例HELLO世界计划 |
|
|
<b>CICS MULTIPAGE!:</b> This program displays all the records of a file in a single screen using MULTIPAGE technique','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cics/cics5.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')">
CICS中的VSAM / ESDS文件操作 |
|
|
<b>CICS MULTIPAGE!:</b> This program displays all the records of a file in a single screen using MULTIPAGE technique','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cics/cics6.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')">
CICS中的VSAM / RRDS文件操作 |
|
|
<b>CICS MULTIPAGE!:</b> This program displays all the records of a file in a single screen using MULTIPAGE technique','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cics/cics7.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')">
CICS中的VSAM / KSDS文件操作 |
|
|
<b>CICS MULTIPAGE!:</b> This program displays all the records of a file in a single screen using MULTIPAGE technique','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cics/cics9.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')">
CICS中的TSQ文件操作 |
|
|
<b>CICS MULTIPAGE!:</b> This program displays all the records of a file in a single screen using MULTIPAGE technique','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cics/cics10.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')">
CICS中的TDQ文件操作 |
|
|
<b>CICS MULTIPAGE!:</b> This program displays all the records of a file in a single screen using MULTIPAGE technique','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cics/cics3.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> DISPLAYING ALL RECORDS IN ONE SCREEN DYNAMIC MULTIPAGE |
|
|
<b>CICS伪对话！：</b> A Sample CICS program that illustrate more pseudo conversations in one program','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cics/cics2.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> MORE PSEUDO CONVERSATION IN ONE PROGRAM |
|
|
<b>CICS!:</b> A sample program which send only the selected fields from the map','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cics/cics4.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> SENDING ONLY THE SELECTED FIELDS FROM A MAP |
|
|
<b>CICS!:</b> This program illustrates all the possible operations that can be handled 通过 CICS Command level','white')" ; ONMOUSEOUT="kill()" href="javascript:void(0)" onclick="MM_openBrWindow('programs/cics/cics1.html','wallpaper','toolbar=no,scrollbars=yes,resize=yes,status=no,width=790,height=500,left=100,top=0,left=0')"> ALL IN ONE CICS PROGRAM |
|
注意：链接自动在
新窗户。不要右键单击！ |
|
|
|
| 网站统计 |
我们有 115023 注册会员 and 333991692 自2003年5月以来的访问次数
最新的注册会员是 彼得·舍弗
我们的用户总共发布了 303877 内的文章 53538 主题
|
|
[ 查看会员 ]
|
|
