在 JCL 中为字符串添加零填充答案

【问题标题】：Add zero padding to string in JCL在 JCL 中为字符串添加零填充
【发布时间】：2015-12-27 19:21:39
【问题描述】：

在 JCL 中，如何在字符串中添加“0”填充，以便始终保持字符串长度 10？我正在为 jcl 使用 TSSUtil v3 工具。

If input "10541", 5 padding is added = 0000010541

【问题讨论】：

你没有。 JCL 除了允许程序以它需要的方式运行之外，什么都不做。您可能的意思是“我如何使用 TSSUTIL 控制卡做到这一点？”。这里的大型机数量是有限的。从事安全工作的人数可能受到严重限制。你看过说明书吗？与同事/您的支持谈过？检查 CA 是否有您只需注册并询问即可的网络社区？
support.ca.com/cadocs/0/…
一种选择可能是使用 Rexx / ISPF 面板/骨架生成来生成您的作业。 Rexx 当然可以“填充”字符串

标签： string padding jcl

【解决方案1】：

如果您无法使用 TSSUTIL 获得解决方案，您将如何使用 SORT 产品：

//STEP001  EXEC PGM=SORT                           
//SORTIN DD *                                      
24567                                              
1456                                              
47865                                              
24875                                              
1                                              
//SORTOUT DD SYSOUT=*                              
//SYSIN DD *                                       
  OPTION COPY                                      
  INREC BUILD=(1,10,UFF,M11,LENGTH=10)             
//SYSOUT DD SYSOUT=*

输出

【讨论】：