|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
寒意
新的用户
已加入：2017年8月31日
帖子：18
地点：美国
|
|
|
|
我必须将具有COMP-3字段的文件转换为显示格式。
| 码： |
| 05 DP-BIG-BAL PIC S9(11)V99 COMP-3. |
但是，显示字帖有一个指示符。
| 码： |
05 WS-BIG-BAL-IND PIC X(1).
05 WS-BIG-BAL PIC 9(11)V99. |
我的问题是，可以在一个排序步骤中询问余额字段以确定符号应为“ +”还是“-”？我只是对“ +”（正号）进行了硬编码。
| 码： |
35:C'+',
36:35,7，PD，TO = ZDF，LENGTH = 13 |
任何帮助将不胜感激！
谢谢！ |
|
| 回到顶部 |
|
 |
尼克·克劳斯顿
全球主持人
加入时间：2007年5月10日
帖子：2454
地点：英国汉普郡
|
|
|
|
| 我将从查看IFTHEN开始。 |
|
| 回到顶部 |
|
|
寒意
新的用户
已加入：2017年8月31日
帖子：18
地点：美国
|
|
|
|
衷心的歉意，Nic，我尝试了IFTHEN，但没有成功（并且对我没有发布带有各自错误消息的代码感到posting愧。  ）。
在搜索论坛时，它没有工作，因为我忽略了使用HIT = NEXT，并且我的语法不正确。问题已解决（在您的帮助下。   ）。
这是代码：
| 码： |
INREC IFTHEN =(WHEN=(35,7,PD,LT,0),
OVERLAY=(74:C'-'),HIT=NEXT),
IFTHEN=(WHEN=(35,7,PD,GE,0),
OVERLAY=(74:C'+'),HIT=NEXT),
IFTHEN=(WHEN=(42,7,PD,LT,0),
OVERLAY=(75:C'-'),HIT=NEXT),
IFTHEN=(WHEN=(42,7,PD,GE,0),
OVERLAY=(75:C'+'),HIT=NEXT)
外场=(1:1,34,
35:74,1,
36:35,7，PD，TO = ZDF，LENGTH = 13，
49:75,1,
50:42,7，PD，TO = ZDF，LENGTH = 13) |
我敢肯定有一种更有效的方法，但这对我有用。
再次感谢！ |
|
| 回到顶部 |
|
|
谢尔盖肯
活跃成员
已加入：2008年4月29日
帖子：934
所在地：马里兰
|
|
|
|
将其作为单个拆包操作，并考虑将您的“ IND”字段作为此拆包的单个输出字段的一部分。
| 码： |
| BUILD=(...,35:35,7,PD,ZD,EDIT=(STTTTTTTTTTT.TT),SIGNS=(+,-),...) |
|
|
| 回到顶部 |
|
|
罗希特·乌马尔吉卡（Rohit Umarjikar）
全球主持人
已加入：2010年9月21日
帖子：2574
地点：美国纽约
|
|
|
|
编辑数字字段
注意-它适用于DFSORT，但概念与SYNCSORT相同，但具有或多或少的功能。 |
|
| 回到顶部 |
|
|
|
|
  |
查看书签
所有时间均为格林尼治标准时间+ 6小时 |
|
