小编Bil*_*ger的帖子

如何从COBOL中的字符串访问单个字符?

如何在COBOL中访问字符串中的特定字符?

例如,如果字符串是"工作",我必须访问字符串中的字符'w'并将其存储在字符中.我需要匹配的角色,而不是角色的位置.

例如在c中,我们将执行以下操作来提取字符串中的第i个字符,

    char data[5] = "work";                                                             
    char temp;                                                                        
    temp = data[3];                                                                    
Run Code Online (Sandbox Code Playgroud)

temp将具有值'k'

现在我在COBOL中需要相同的东西.

cobol

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

如果条件在PHP奇怪的情况

我在php中发现了一个奇怪的情况...或者我可能记不起来了:

<?php

if (isset($_POST["invio"]) && ($_POST["valore1"] && $_POST["valore2"])) {

        if($_POST["valore1"]) {
        $valore1 = $_POST["valore1"];
        }
        if($_POST["valore2"]) {
        $valore2 = $_POST["valore2"];
        }


        function pippo ($x,$y) {

        if($x < $y) {
        return "la variabile $x è minore della variabile $y";
        }
        elseif($x == $y) {
        return "la variabile $x è uguale alla variabile $y";
        }
        else {
        return "la variabile $x è più grande rispetto alla variabile $y";
        }
        }

        $risultato = pippo($valore1,$valore2);

        print $risultato;

}elseif (isset($_POST["invio"]) && ($_POST["valore1"] =="" || $_POST["valore2"] …
Run Code Online (Sandbox Code Playgroud)

php conditional

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

Java无法识别计算?

我是Java的初学者,失去了情节.有人可以帮助我,我只是想让这个代码工作.一切都运行良好,除了最后的计算.我复制并粘贴了代码和输出.

import java.util.Scanner;
public class newfile {
public static void main(String[]args) { // starting point of the program
    Scanner input = new Scanner(System.in);
    int oneA, oneB, oneC;
    double finA=0, finB=0, finC=0,average=0;

    System.out.println("Hello, Welcome to the 'Calculate Your Grades' program!\nPlease input your predicted grade for Assignment 1A in a percentage format:");
    oneA=input.nextInt();
    System.out.println("Thank you, can you please input your predictive grade for Assignment 1B?");
    oneB=input.nextInt();
    System.out.println("Finally, can you please input your predictive grade for Assignment 1C?");
    oneC=input.nextInt();
    average=(oneA+oneB+oneC)/3;
    System.out.println("Excellent, Thank you. …
Run Code Online (Sandbox Code Playgroud)

java

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

所得税逻辑问题

我在弄清楚这背后的逻辑时遇到了一些麻烦.

我需要显示一份报告,计算每月的余额,利息和本金,直到余额为零.

例如,如果输入为months = 12,balance = 25000,rate = 4.5%,则输出应如下所示:

 months    balance     interest   principal
 1        $25000.00      $93.75      $2,040.71
 2        $22,959.29     $86.10      $2,048.36
 .......
 12       $2,126.53      $7.97       $2,126.49
Run Code Online (Sandbox Code Playgroud)

我不知道DISPLAY col-hdr之前和之后要写什么STOP RUN.有任何想法吗?

   IDENTIFICATION DIVISION.
   PROGRAM-ID. practice.
   DATA DIVISION.
   WORKING-STORAGE SECTION.

   01  LOANFMT    PIC $$$$,$$$,$$$.$$.
   01  LOANAMT    PIC S9(9)V9(2)   VALUE 0.
   01  INTRATE    PIC S9V9(2)      VALUE 0.
   01  INTFMT     PIC 9.999.
   01  NUMMONTHS  PIC S9(3)        VALUE 0.
   01  MONFMT     PIC ZZ9.
   01  MONCNT     PIC S999         VALUE 1.
   01  PMT        PIC …
Run Code Online (Sandbox Code Playgroud)

cobol

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

我想在 as400 中创建 64000 作为固定文件长度

我想将固定文件长度创建为 64000,但它会抛出类似的错误消息

参数 RCDLEN 的数值无效

db2 cobol ibm-midrange

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

列显示不可打印的值,如何查看它们是什么?

我的桌子上有一排我无法理解的内容.该字段是CHAR(8),数据应该是明显的字母数字,但在下面的选择结果中,根据下面的第一行显示几个"点":

SELECT DISTINCT (USERID)
FROM USER;
---------------
USERID
---------------
........
AC25
A25A
A25X
Run Code Online (Sandbox Code Playgroud)

事实证明,我无法在特定的选择中获取此行,它不会在下面的查询中返回结果:

SELECT USERID
FROM USER
WHERE USERID = '........';
---------------
USERID
---------------
Run Code Online (Sandbox Code Playgroud)

你能告诉我你是否有任何条款从这条线上选择这个WEIRD?

我尝试过低价值,但DB2不接受,我从未在表中看到过这种情况.你能帮我找到这个案例的选项,除了把一个查询与"不在"放在一起吗?

sql db2 mainframe

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

如果PARA只有EXIT语句,GO To流程如何表现/工作

例如,什么是输出?

  PROCEDURE DIVISION
    MAINPARA
        DISPLAY "MAIN".
        GO TO PARA1.
        DISPLAY "DISPLAY".
        STOP RUN.

    PARA1.
        EXIT.

    PARA2.
        DISPLAY "I AM IN PARA2"
    ...
Run Code Online (Sandbox Code Playgroud)

它会执行PARA2吗?

我不是一个COBOL程序员,我需要从一个迁移工具/程序,AMXW COBOL理解的代码.目标系统是IBM AS/400.

cobol ibm-midrange

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

如何使用当前设备方向和拍摄照片时的方向在移动设备上显示照片?

我有一个申请.它有两个活动,一个是用于拍照的自定义相机,另一个是用于显示该图片.

我的要求是每当我拍照时,应该根据拍摄照片时设备的方向以及设备的当前方向显示该照片.您可能在全景应用程序中看到了类似的功能.

例如,假设我拍摄了一张视图并移动了手机,那么我需要以一定角度显示相同的图片.我怎样才能做到这一点?

android rotation accelerometer magnetometer gyroscope

-2
推荐指数
1
解决办法
525
查看次数

试图在 1 行上获得 2 个打印语句

我试图println在与数字相同的行上获取 5 的倍数,但它在 atm 中不起作用,它打印在下一行。该代码使用了一个 for 循环,这让我更难有任何建议。

public static void main(String[] args)
{
  for(int i=1 ; i<101; i++)
  {

    System.out.println(" " +i);

    if (  i % 2 != 0 && i % 5 == 0 )

       System.out.print("This is an odd number and a multiple of 5 \n " );

   }

  }//main
Run Code Online (Sandbox Code Playgroud)

java for-loop if-statement

-2
推荐指数
1
解决办法
1775
查看次数