IBM大型机计算机
 
登录
 
IBM大型机主页 大型机下载 IBM手册 大型机论坛
 
去哪儿?

大型机论坛

大型机Wiki

快速参考

免费下载

样本JCL

职位空缺

面试问题

[ 网站地图 ]
会员登录
Username:

Password:

 Remember me
[忘记密码?]
NewUser:注册
用户名:

电子邮件:

密码:

再次输入密码:


[ 新用户注册 ]
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 主题
 
[ 查看会员 ]
论坛:最近的帖子
» DFSORT / ICETOOL
使用icetool将多个记录拼接为单个记录
by 谢尔盖肯

» DFSORT / ICETOOL
将匹配的记录作为单个记录写入输出文件
by 谢尔盖肯

» DFSORT / ICETOOL
建立排序键
by 谢尔盖肯

» DB2
帮助编写SQL查询
by 罗希特·乌马尔吉卡(Rohit Umarjikar)

» CICS
DFHLS2WS WSDL com.ibm.cics.wsdl.properties.suppressedField1吗?
by 智能人

» DFSORT / ICETOOL
比较昨天运行的文件记录计数百分比
by 罗希特·乌马尔吉卡(Rohit Umarjikar)

» 同步排序
比较两个文件以查找位置/数据已更改
by 罗希特·乌马尔吉卡(Rohit Umarjikar)

» 同步排序
带SyncSort的数值检查。
by 谢尔盖肯

» PL / I和组装商
用时间戳计算
by 普里诺

» DFSORT / ICETOOL
很大排序失败-寻求建议
by 皮特·威尔逊

» JCL和VSAM
迁移的数据集删除
by 罗希特·乌马尔吉卡(Rohit Umarjikar)

» CICS
如何在BMS物理MAPSET模块中列出BMS MAP屏幕?
by 格雷戈里·奥克斯

» DB2
SYSIBM表中的列名
by 谢尔盖肯

» DFSORT / ICETOOL
我们如何在ICETOOL中模拟JOINKEYS
by 罗希特·乌马尔吉卡(Rohit Umarjikar)

» DFSORT / ICETOOL
排序为csv文件
by 罗希特·乌马尔吉卡(Rohit Umarjikar)

» IMS数据库/ DC
使用DFSDDLT0加载数据时二级索引错误
by 罗汉藤格

» IMS数据库/ DC
HDAM中的RMNAME选项
by 恩里科·索里切蒂

» TSO / ISPF
DB2I面板中的命令行放置
by 唐·雷西

» 清单和REXX
编写TSO测试脚本
by

» DFSORT / ICETOOL
合并两个以上的记录
by 谢尔盖肯

[ 网站地图 ]
回到顶部