小编Bil*_*ger的帖子

我有一个需要从Web服务获取数据的COBOL程序.不使用CICS我最好的选择是什么？我认为C程序可以读取Web服务并将其保存到文件中,然后COBOL可以读取该文件.COBOL可以调用Web服务吗？数据大小约为300mb.

我试图理解Object与原始变量之间的区别,当它们用作方法中的参数时.

有一些使用参考变量的例子:

public class Test1 {
    public static void main(String[] args) {
        int[] value = {1};
        modify(value);
        System.out.println(value[0]);
    }

    public static void modify(int[] v) {
        v[0] = 5;
    }
}

结果:5

public class Test2 {

    public static void main(String agrs[]) {
        Integer j = new Integer(1);
        refer(j);
        System.out.println(j.intValue());
    }

    public static void refer(Integer i) {
        i = new Integer(2);
        System.out.println(i.intValue());
    }
}

结果:2 | 1

那么这里有什么不同？

我有一个目录，其中包含多个名称中带有空格的文件。我想在名称中找到一个模式，这些文件将被移动到其他目录。现在的问题是，当在单个文件名中找到特定模式时，该文件正在移动到目标路径，但是当有多个文件时，此方法失败。下面是我正在使用的代码：

for file in `find . -maxdepth 1 -name "*$pattern*xlsx" -type f`
do
 mv "$file" $destination/
done

我正在阅读COBOL程序文件,我正在努力理解STRING命令在以下示例中的工作方式

STRING  WK-NO-EMP-SGE                              
   ','                                         
   WK-DT-DEB-PER-FEU-TEM                       
   ','                                       
   WK-DT-FIN-PER-FEU-TEM                     
DELIMITED  BY  SIZE                           
INTO  UUUUUU-CO-CLE-ERR-DB2                   

我对它的作用有三种可能的理解:

1. 要么代码将每个变量连接到UUUUUU-CO-CLE-ERR-DB2每个值并将每个值分开',',最后一个变量由size分隔;
2. 要么代码将每个变量连接到UUUUUU-CO-CLE-ERR-DB2每个值并将每个值分开',',但是所有值都是按大小分隔的(这意味着DELIMITED BY SIZE在这种情况下,它适用于在string命令中传递的所有值;
3. 或者每个变量由特定字符分隔,例如,WK-NO-EMP-SGE将由',',WK-DT-DEB-PER-FEU-TEM由','和WK-DT-FIN-PER-FEU-TEM将分隔DELIMITED BY SIZE.

我的哪个读书实际上是好的？

我有日期和时间,如:

12-Oct-13 09:15 PM AEST
10-Oct-13 07:05 PM AEST

我使用PHP的strtotime()函数像这样将它转换为datetime对象,如下所示:

echo $datetime=strtotime('12-Oct-13 09:15 PM AEST');

但它得到了空洞的结果.我的想法是将上述日期时间转换为另一种格式,如:

12-10-2013 09:15 PM
10-10-2013 07:05 PM

任何人都可以帮助我正确转换为日期时间对象.然后我在我的代码中使用它.

我刚刚完成了检查SDSF.ST中数百个作业的任务,并将这些作业日志保存到指定的数据集中.我想我应该使用REXX自动执行此任务,但实际上并不熟悉该语言.在Google上搜索过后,我仍然无法找到可行的解决方案.

有人有这方面的经验吗？

这是我的代码,其中iIam使用OCCURS声明变量.

   IDENTIFICATION DIVISION.
   PROGRAM-ID. ARRAYEX.

   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
        SELECT StudentFile ASSIGN TO "STUDENTS.DAT"
            ORGANIZATION IS LINE SEQUENTIAL.

   DATA DIVISION.
   WORKING-STORAGE SECTION.
   77 WS-FIRSTARR OCCURS 10 TIMES PIC 9(5).

   PROCEDURE DIVISION.

   DISPLAY "HELLO WORLD".
   STOP RUN.

错误:

arrayex.cbl:12:错误:级别77项"WS-FIRSTARR"不能有OCCURS子句

编译失败的原因是什么？

我如何“调试”JCL？有没有办法显示错误或警告信息？当我提交我的工作时，输出是 MAXCC=8。但是我怎么能知道为什么或者我必须搜索“错误”在哪里？

为什么这个for循环不能遍历所有项目:

 temp = 0

 for br in my_list :
    temp +=1
    #other code here
    #my list is not used at all, only br is used inside here
    my_list.remove(br)

 print temp
 assert len(my_list) == 0 , "list should be empty"

因此,断言开火了.然后我添加了临时计数器,我确实看到尽管我的列表有202个元素,但for循环只处理了101个元素.这是为什么？

我有一个奇怪的问题.

         EXEC SQL SELECT                             
         AVG(LER)                                   
         INTO :LER-MIN                              
         FROM CENSUS.WORLDIMR                       
   *     WHERE CENSUS.WORLDIMR.COUNTRY LIKE 'L%'    
         END-EXEC.                           

这给出了72.2,但是当我使用时

WHERE CENSUS.WORLDIMR.COUNTRY LIKE 'L%'

它给出了00.0.

但是在SPUFI中尝试这个:

select avg(ler)                              
from census.worldimr                         
where census.worldimr.country like 'L%';    

发出71.33333333333.

我做错了什么？

这是该计划:

000001        PROCESS SQL                                                      
000002        IDENTIFICATION DIVISION.                                         
000003        PROGRAM-ID. CBL7.                                                
000004       *--------------------                                             
000005        ENVIRONMENT DIVISION.                                            
000006       *--------------------                                             
000007        CONFIGURATION SECTION.                                           
000008        INPUT-OUTPUT SECTION.                                            
000009        FILE-CONTROL.                                                    
000010            SELECT P3OUT ASSIGN TO UT-S-P3OUT.                           
000011                                                                         
000012        DATA DIVISION.                                                   
000013       *-------------                                                    
000014        FILE SECTION.                                                    
000015        FD  P3OUT                                                        
000016            RECORD CONTAINS 80 CHARACTERS …