我使用下面的jcl来修改现有的ps.我能够修改参数.但我得到一个I/O错误.
// TXXXXXSP JOB(MOD),'PRAMOD',CLASS = A,MSGCLASS = X,MSGLEVEL =(1,1),
// NOTIFY =&SYSUID
// FIXPDS EXEC PGM = IEBGENER
// SYSPRINT DD SYSOUT =*
// SYSIN DD DUMMY
// SYSUT2 DD DSN = XXXXXX.CREATE.GDG,
// DISP = MOD,SPACE =(TRK,(10, 10,0),RLSE),UNIT = SYSDA,
// DCB =(RECFM = FB,LRECL = 80,BLKSIZE = 800)
// SYSUT1 DD*
/*
//
我在cics地图中有一个数字字段,长度为3.当我在字段中输入10并尝试通过存储到cobol程序中的工作存储变量来插入数据库时,它被插入为100.为什么这样发生了吗?有没有办法在开头插入它
我使用以下代码在c ++中存储电话号码(10位数字):
#include<iostream.h>
void main(){
long long num;
cin>>num;
cout<<num;
}
Input:998578985
output:1395855233
Run Code Online (Sandbox Code Playgroud)
为什么会这样?有没有其他方法来存储10位数字.我在win7中使用turboc ++.

我想使用显示语句显示这些单词 公司的政策但如果我使用它,它会将这些单词视为变量.我试过用了
DISPLAY "COMPANY'S POLICY"
DISPLAY 'COMPANY\'S POLICY'
Run Code Online (Sandbox Code Playgroud)
但都没有效果.怎么逃避这个单引号?
示例代码:
DFHMDF POS=(1,23),LENGTH=30,
INITIAL="company's policy"
ATTRB=PROT
Run Code Online (Sandbox Code Playgroud) 我的地图中有4个字段,分别是9(6),9(3),9(3),9(3).我写了这样的验证码:
IF ROLLNUM IS NOT NUMERIC
MOVE DFHRED TO ROLLNUMC
MOVE 'INVALID DATA' TO RESMSGO
MOVE ROLLNUMI TO ROLLNUMO
PERFORM SEND-MAP THRU SEND-MAP-EXIT
PERFORM KEY-VALIDATION THRU KEY-VALIDATION-EXIT.
Run Code Online (Sandbox Code Playgroud)
但是,从Cics中将A12AK等值插入数据库时,我没有遇到任何错误.它将A替换为1,B替换为2,依此类推......为什么会发生这种情况?以及如何避免这种情况
我使用下面的代码将列从一个工作表复制到另一个工作表,然后用空值替换空白单元格:
'Copying If Employee
sourceSheet.Activate
Range(Cells(2, 7), Cells(Rows.Count, 7).End(xlUp)).Select
Selection.Copy
destSheet.Activate
Range("E2", Cells(Rows.Count, 7)).PasteSpecial
For Each cell In Range("E2", Cells(Rows.Count, 5))
If Len(cell.Value) = 0 Then
cell.Value = "No"
End If
Run Code Online (Sandbox Code Playgroud)
当我用Range("E2", Cells(500,5))它替换for语句工作正常.
可能是什么问题?我无法弄明白.谁能帮我这个?