Prev
Next
Forums Integration / Customization S3 Customization/Development

COBOL

 5 Replies
 1 Subscribed to this topic
 17 Subscribed to this forum
Sort:
Author
Messages
Roger French
Veteran Member
Posts: 549
Veteran Member
4/22/2020 6:49 PM

    It's been a long while since I have posted anything to lawsonguru.

    I'm doing a little bit of COBOL development within Lawson v10.

    I'm writing a custom program. I have a sort file and a csv file. In the sort file I have defined it in workdef with some fields are of type "Signed" with length 11.2 (for example.

    In my custom program data is correctly being written to with the "+" or "-" sign on the fields in the sort file.

    If I try to define the CSV file with a signed field, the field actually comes out with something like "303030303.03" for any value in that field. If I define it numeric type, positive numbers are written correctly but negative numbers are missing the "-" sign in the field.

    What will actually work in terms of getting a signed field in a CSV file? I've gone through some reviewing COBOL manuals and such but it doesn't seem to work. 

    Any tips or advise would be greatly appreciated. I am looking on how to actually get a signed number value correctly defined and working with a CSV work file. I am trying to write a signed numberic value to a CSV work file.

    Thanks in advance,

    Roger

    Ragu Raghavan
    Veteran Member
    Posts: 476
    Veteran Member
    4/22/2020 8:25 PM
      I use CSV files all the time. The field is just declared as type = Signed and Size = 11.2 as in any other file. Here is the data in a file created by a dummy custom program:

      "Text","Amt"
      "LINE1",100.00
      "LINE2",-201.98
      Roger French
      Veteran Member
      Posts: 549
      Veteran Member
      4/22/2020 9:38 PM

        Yep, I agree, but the CSV values for the negative numbers are still coming out as:

        303032323.93 

        For any number that is moved there, negative or not.

        Example:

        MOVE -13.55                  TO     WS-EXAMPLE.

        MOVE WS-EXAMPLE    TO     WS-TEMP-EXAMPLE.

        ...

        MOVE WS-TEMP-CSV-REC  TO CSV-ZZ165CSV-REC.

        PERFORM 800-WRITECSV-ZZ165CSV.

        ...

        OPEN CSV FILE

        DISPLAY CSV-EXAMPLE   ---> 303032323.93 

        ---------

        Working Storage

        02 WS-TEMP-CSV-REC

            05  WS-EXAMPLE         PIC S9(09)V99 VALUE ZEROES.

         

        In the CSV work file definition I've got:

        EXAMPLE                        SIGNED 11.2

         

        Ragu Raghavan
        Veteran Member
        Posts: 476
        Veteran Member
        4/22/2020 10:30 PM
          The group move of WS-TEMP-CSV-REC to CSV-ZZ165CSV-REC may be the issue. When the COBOL shell is built, the numeric fields in the CSV file are built as COMP-3. In my example

          000098 01 CSV-CSVFILE-REC.
          000099 02 CSV-TEXT PIC X(70).
          000100 02 CSV-AMT PIC S9(9)V9(2) COMP-3.

          When you move S9(9)v99) to a field that is S9(9)v99 COMP-3, bits get moved in ways you do not expect.

          Try moving values to the individual fields in the CSV file, for example, -13.65 to CSV-EXAMPLE .
          Or try doing a bldsh, look at the Cobol code generated and match your WS layout to the CSV file layout you see in the .cbl file
          Rajashanmugam
          Basic Member
          Posts: 18
          Basic Member
          6/18/2020 7:59 PM
            I was in sam situation. All I did was initialize the fields to zeroes before moving/adding the values to CSV file fields and it worked.
            Rajashanmugam
            Basic Member
            Posts: 18
            Basic Member
            6/29/2020 10:21 PM
              I have another issue. I am working on a interface file. CSV file. I have to sort the data before I can write it to CSV file. I do it and when I move the sorted dollar amount to CSV file I get the similar numbers as described in the first post.

              Number 2020681795023.67 is supposed to be -121500.00

              I tried everything, initialization of variables, fields just before moving the numbers.

              I tried moving the number -121500.00 directly to the field and they look fine in CSV file. But when I move the data from sort file, I get those gibberish numbers.

              I have corrected those error s before by initializing the variables. But the program did not use any sort file in that.