内容发布更新时间 : 2024/5/14 13:34:36星期一 下面是文章的全部内容请认真阅读。

升降序])

其中位置和长度都是以字节为单位,顺序可选的有A:升序,D:降序,E:使用用户出口例程定序; FORMAT=指定键字的类型,可选项有CH:字符类型,PD:压缩十进制型,BI:二进制型,AC:ASCII 码型。

18．通过JCL怎么传递参数？

PARM用于向本作业步执行的程序传递变量信息。该程序必须有相应的指令接收这些信息，并使用它们。 格式：

PARM[.过程步名]= 子参数

PARM[.过程步名]=( 子参数, 子参数) PARM[.过程步名]=(‘子参数’, 子参数) PARM[.过程步名]=’子参数, 子参数’

包括所有的逗号、撇号以及括号在内，所有子参数的总长度不得超过100 个字符。当某

子参数中含有特殊字符或空格时，可以将该子参数用撇号括起来，在其它子参数一起用括号

括起来，或将所有在参数用撇号括起来。 子参数：包含传递给程序的变量信息。 例1．

//RUN3 EXEC PGM=APG22,PARM=’P1,123,P2=5’

在本例中，系统将参数P1、123 及P2=5 传递给程序APG22。

例2．

// STP6 EXEC PROC=ASFCLG,PARM.LKED=(MAP,LET) 在本例中系统将MAP、LET 传递到过程ASFCLG 中名为LKED 的过程步。

19. 如何定义KSDS的次键（sub-index）？

次键本身也是一个KSDS。它提供了另一种方法访问VSAM KSDS和ESDS数据集。 定义次键的步骤如下： 1) 定义CLUSTER。 2) 装入数据。

3) 用DEFINE ALTERNATEINDEX命令定义次键。 4) 用DEFINE PATH命令将次键与CLUSTER相关联。 5) 用BLDINDEX命令建立次键。也就是在索引中装入数据。

VSAM用3个编目项描述一个次键： -一个次键项描述次键是一个KSDS。 -一个数据项描述次键的数据部件。 -一个索引项描述次键的索引部件。

定义次键需要指定的信息与定义一个KSDS类似。如果次键允许许多不唯一的键，则RECORDSIZE必须足够大。在定义次键时，如指定了UPGRADE属性，则VSAM数据集改变时，次键自动改变。

例 假定你有一个数据集叫PAYROLL.MASTER，其主键是雇员名字，你想建立一个次键。则： 1) 定义次键：

DEFINE ALTERNATEINDEX (NAME(PAYROLL.DEPT.AIX) RELATE(PAYROLL.MASTER) VOLUMES(AIX001) UPGRADE)

DATA (NAME(PAYROLL.DEPT.AIX.DATA) TRACK (5 5)

RECORDSIZE(200 2096) KEY (7 65) NONUNIQUEKEY)

INDEX (NAME(PAYROLL.DEPT.AIX.INDEX) IMBED) 2) 定义路径：

DEFINE PATH(NAME(RAYROLL.DEPT.PATH) PATHENTRY(PAYROLL.DEPT.AIX) UPDATE)

3) 在索引中装入数据：

BLDINDEX INDATASET(RAYROLL.MASTER) OUTDATASET(PAYROLL.DEPT.AIX)

以后你在使用这个数据集时，如果你在JCL中的DD语句如下：

//DD1 DD DSN=PAYROLL.MASTER，DISP=SHR 则表示你使用主键访问该数据集。 如果你在JCL中的DD语句如下：

//DD1 DD DSN=PAYROLL.DEPT.AIX，DISP=SHR 则表示你使用次键访问该数据集。 20.为KSDS文件建立交替的索引？ //DS580416 EXEC PGM=IDCAMS,

//PRMINDEX DD DSN=DS.DS580412.AGGR,DISP=SHR //ALTINDEX

DSN=DS.DS580412.AGGR.AIX,DISP=SHR //IDCUT1

DD DD

DSN=DS.DS580416.TEMP1,DISP=OLD,UNIT=IDMP, // VOL=(,,,,SER=(PDS001)) //IDCUT2

DD

DSN=DS.DS580416.TEMP2,DISP=OLD,UNIT=IDMP, // VOL=(,,,,SER=(PDS001)) //SYSPRINT DD SYSOUT=* //SYSIN DD *

BLDINDEX INFILE(PRMINDEX) OUTFILE(ALTINDEX) /* COBOL:

1.comp型1-4个9占2位。5-9个9占4位 。10-18个9占8位。 2.第66，77，88层是用来做什么的？ 66 重定义。77 无子层。88 条件判断

3.COBOL中有哪4个部？ 都是必须的吗？ DATA DIVISION可以省略不写吗？ ENVIRONMENT DIVISON 可以省略不写么？ 标识部 环境部 数据部 过程部

4.批次程序如何引用文件？要在程序中加入哪些描述语句？ ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IN-FILE ASSIGN INDD ORGANIZATION IS SEQUENTIAL ACCESS MODE IS SEQUENTIAL FILE STATUS IS IN-FILE-STATUS. SELECT OUT-FILE ASSIGN OUTDD ORGANIZATION IS SEQUENTIAL ACCESS MODE IS SEQUENTIAL FILE STATUS IS OUT-FILE-STATUS. DATA DIVISION. FILE SECTION. FD IN-FILE. 01 IN-RECORD PIC X(80).