几个关于大型机的有关问题(新手啊)
发布时间:2011-06-30 07:31:57 文章来源:www.iduyao.cn 采编人员:星星草
几个关于大型机的问题(新手求救啊~)
1、z/OS 和UNIX系统的相同点和相异点有哪些啊?主目录和用户目录的区别是什么啊?
2、用JCL创建一个新的顺序数据集
3、写一个JCL程序将一个分区数据集中的所有的成员拷贝到另一个分区数据集中
4、写一个Cobol的Hello World程序(输出Hello World就可以了)
5、编写一个能够从键盘输入两个参数A和B的计算程序,并为这个程序写一个JCL的编译程序,要求:计算的式子为(A*B)/B+(A-B),并能输出最后的计算结果。
附:4和5越简单越好,谢谢啦
------解决方案--------------------
1.主目录和用户目录的区别:A user catalog stores the name and location of a data set (dsn/volume/unit). The master catalog usually stores only a data set HLQ with the name of the user catalog, which contains the location of all data sets prefixed by this HLQ. The HLQ is called an alias.
2.
//CUTE01A JOB ,CUTE01,NOTIFY=CUTE01
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=CUTE01.JCL.CREATPS,
// DISP=(,CATLG),RECFM=FB,
// SPACE=(TRK,(10,2,1)),LRECL=80,
// BLKSIZE=160,UNIT=SYSDA,VOL=SER=USER06
3.
//CPYPROC PROC INDD=,OUTDD=
//POCOPY EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=&INDD,DISP=SHR
//SYSUT2 DD DSN=&OUTDD,DISP=(NEW,CATLG,DELETE),
// DISP=(,CATLG),RECFM=FB,
// SPACE=(TRK,(10,5,2)),LRECL=80,
// BLKSIZE=160,UNIT=SYSDA,VOL=SER=USER06
//SYSIN DD DUMMY
4.
IDENTIFICATION DIVISION.
PROGRAM-ID. DISPTEST
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
S. DISPLAY 'HELLO WORLD'.
STOP RUN.
5.
IDENTIFICATION DIVISION.
PROGRAM-ID. DISPTEST
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 9(1).
77 B PIC 9(1).
77 X PIC 9(2).
PROCEDURE DIVISION.
S. DISPLAY 'PLEASE IN PUT A NUMBER'.
ACCEPT A.
DISPLAY 'PLEASE INPUT ANOTHER NUMBER'.
ACCEPT B.
COMPUTE X = ( A * B ) / B + ( A – B ).
DISPLAY X.
STOP RUN.
//CUTE01A JOB ACCT#,YANGMN,CLASS=A,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//COBCL EXEC IGYWCL
//COBOL.SYSIN DD DISP=SHR,DSN=UR042.COBOL.SOURCE(TEST1)
//LKED.SYSLMOD DD DISP=SHR,DSN=UR042.COBOL.LOAD(TEST1)
//SYSPRINT DD SYSOUT=*
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
erlang:创建表
mnesia:create_table(student, [{attributes,{name,number,sex}}]).
怎么老是提示:
{aborted,{bad_type,student,{...
-
100分求助,matlab一维矩阵变成二维矩阵,怎么感觉我写的代码这么绕呢
希望把Input矩阵(一维)变成3行4列的二维矩阵Output;我写了下面...
-
为什么没有易语言版块呢?
为什么没有易语言版块呢?
------解决方案--------------------
易语言,还不常用,交流也不比,所以无....
-
批处理的一个问题
想用批处理更改文件属性
@echo off
arrtib -R /S E:\home\*.*
exit
这样写是错误的吗?
为什么没起作用啊
--...
-
几个关于大型机的问题(新手求救啊~)
1、z/OS 和UNIX系统的相同点和相异点有哪些啊?主目录和用户目录的区别是什么啊?
2、用JCL创建一...
-
急求!如何用正则截取一对标签中的字符当中的日期
<p class="source">
<!--[if !IE]>收藏功能<!...
-
批处理代码放在U盘里,如何复制整个硬盘的时间段文件? qivsran老师的答案,谢谢!
@echo off
md 新文件
setlocal enabledelayedexpa...
-
复制文件不带目录文件夹如何修改代码?同名文件仅复制最新的
@echo off
md %computername%资料 2>nul
Cd /d %computername%资料
F...
-
求C里面 全角半角转换函数
求C里面 全角半角转换函数
------解决方案--------------------
我在别处看了,希望对你有帮助。
...
-
求助:关于qtp10 无法识别 maven自动构建flex3.6 的问题
近日遇到maven自动构建flex3.6的问题。希望大家提出宝贵意见。
问...