小编Pra*_*mod的帖子

如何更改ps或pds的属性

我使用下面的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*
/*
//

jcl

1
推荐指数
1
解决办法
4163
查看次数

为什么从cics中获取的值最后会附加0

我在cics地图中有一个数字字段,长度为3.当我在字段中输入10并尝试通过存储到cobol程序中的工作存储变量来插入数据库时​​,它被插入为100.为什么这样发生了吗?有没有办法在开头插入它

db2 cobol cics

1
推荐指数
1
解决办法
288
查看次数

如何在c ++中存储电话号码

我使用以下代码在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 ++. 在此输入图像描述

c++

0
推荐指数
1
解决办法
7857
查看次数

如何在cobol中显示单引号

我想使用显示语句显示这些单词 公司的政策但如果我使用它,它会将这些单词视为变量.我试过用了

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)

cobol

0
推荐指数
1
解决办法
1万
查看次数

接受cics地图中的字符的数字字段

我的地图中有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,依此类推......为什么会发生这种情况?以及如何避免这种情况

db2 cobol cics

0
推荐指数
1
解决办法
1649
查看次数

Excel运行宏后没有响应

我使用下面的代码将列从一个工作表复制到另一个工作表,然后用空值替换空白单元格:

'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语句工作正常.

可能是什么问题?我无法弄明白.谁能帮我这个?

excel vba excel-2007 excel-vba

0
推荐指数
1
解决办法
3006
查看次数

标签 统计

cobol ×3

cics ×2

db2 ×2

c++ ×1

excel ×1

excel-2007 ×1

excel-vba ×1

jcl ×1

vba ×1