可变记录长度（在JCL中）

阿南德78

大家好，

谁能告诉我如何为可变记录长度指定DCB参数？

输入文件为VB
输出文件将使用FB recfm创建。

如果有人发送有关此主题的更多信息，我将更加感激。

请回答。

问候
阿南德

Prasanthhere · 活跃用户 已加入：2005年8月3日 帖子：306

对于可变的记录长度，DCB参数可以是

RECFM = V
LRECL是逻辑记录长度
BLKSIZE等于LRECL加4。

shekhar1s

DCB用于可变长度记录。
DCB =（DSORG = PS，LRECL = 80，RECFM = VB，BLKSIZE = 800）
块大小应为记录长度的倍数。据我所知..当我们将记录格式声明为VB（可变长度）时，它会自动占用四个字节。

And About output file... u can create it in the JCLitself or using 3.2 option..

如果我错了，请告诉我。
谢谢
舍哈尔

鲁佩什·科塔里 · 本月会员 已加入：2005年4月27日 帖子：463

嗨，阿南德，

胡斯纳 · 新的用户 已加入：2006年6月2日 帖子：49

你好

当我们将记录格式声明为VB（可变长度）时，请您告诉我四个字节的信息。它将在前四个字节的开头或后四个字节的结尾存储变量长度。

古普泰

它将长度存储在前4个字节中

sathish_seabiscuit · 新的用户 已加入：2006年6月14日 帖子：4

我们可以使用ICEGENER实用程序。

在代码中
RIS＆ENV..P370.UNLOAD.RECIPTSI.BSAM-可变长度文件
RIS＆ENV..P370.RECIPTSI.BSAM-固定长度的文件
最后给出了RISL3701。

// ICEGEN01 EXEC PGM = ICEGENER，COND =（04，LT）
// *
// SYSUT1 DD
DSN = RIS＆ENV..P370.UNLOAD.RECIPTSI.BSAM，
// DISP = SHR
// SYSUT2 DD DSN = RIS＆ENV..P370.RECIPTSI.BSAM，
// DISP =（NEW，CATLG，DELETE），
// DCB =（RECFM = FB，LRECL = 173），
// SPACE =（173，＆SPMED。，RLSE），
// UNIT =＆UNITWRK
// SYSIN DD DSN =＆QUAL..PARMLIB（RISL3701），
// DISP = SHR
// SORTMSG DD SYSOUT = *
// SYSOUT DD SYSOUT = *
// SYSPRINT DD SYSOUT = *
// SYSUDUMP DD SYSOUT = Z
// *

Parm RISL3701，

产生MAXFLDS = 1
记录字段=（173,1）

弗兰克·雅格

巴拉尼达兰

坦率，
这个一直困扰着我-2字节的二进制零分别用于什么？一直有人告诉我“这是出于IBM的目的”！你能解释一下吗？

弗兰克·雅格

对于VB文件，这两个字节什么都不用。但是对于跨度可变的（VBS，VS）文件，前四个字节是SDW（段描述符字）而不是RDW。在SDW中，前两个字节是二进制长度，但第三个字节包含段控制代码（第一，中间，最后）。有关SDW的更多信息，请参见：

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2d440/3.1.3.2.2?SHELF=EZ2ZO10G&DT=20050602124524&CASE=

478

你好

DCB如下所示：

// M57Tst DD DSN = input.data.set，
// DISP =（NEW，CATLG，DELETE），
// UNIT = TSODA，DATACLAS = STANDARD，
// DCB =（RECFM = VB，LRECL = 704，BLKSIZE = 0），
// EXPDT = 2007/350

您可以更改LRECL和EXPDT字段。

希望这会有所帮助。

-浦那

cjcpr · 发表：2006年7月7日，星期五10:56 pm

简单的解决方案是使用带有CONVERT参数的OUTREC字段。

弗兰克·雅格 · 发表：2006年7月7日，星期五11:32 pm

有关将VB转换为FB的信息，请参见以下Smart DFSORT技巧：

www.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmst01.html#t11

有关将FB转换为VB的信息，请参见以下Smart DFSORT技巧：

www.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmst03.html#t09