Prev
Next
Forums Integration / Customization S3 Customization/Development

Compile error when accessing global STRWS

 11 Replies
 0 Subscribed to this topic
 17 Subscribed to this forum
Sort:
Author
Messages
Robert
Veteran Member
Posts: 82
Veteran Member
1/25/2010 5:16 PM

    Greetings to the Forum

    4GL program construction in LSF9. 
    I want to use the 900-LOWER-TO-UPPER API.
    I move WS-DB-PRODUCT-LINE TO WS-CASE-CONV-VALUE.

    I receive the following compile error:

    **    Operand WS-CASE-CONV-VALUE is not declared

     

    Sam Simpson
    Veteran Member
    Posts: 239
    Veteran Member
    1/25/2010 6:00 PM
      Did you put the field size in WS-CONV-SIZE?
      Robert
      Veteran Member
      Posts: 82
      Veteran Member
      1/25/2010 6:07 PM

        It never gets that far, the compiler throws the error
        If I include the moves to the remainder of the API arguments

        Operand WS-CONV-SIZE is not declared
        Operand WS-BEGIN-CONV-AT is not declared

        My prodecure division does not recognize any variables defined in STRWS.

        John Henley
        Posts: 3353
        1/25/2010 6:20 PM
          Did you include the PERFORM 900-LOWER-TO-UPPER ??
          Thanks for using the LawsonGuru.com forums!
          John
          Robert
          Veteran Member
          Posts: 82
          Veteran Member
          1/25/2010 6:29 PM
            Johh, when you state "include" does that mean to actually performing the paragraph? If so, I don't make it that far...the compile throws the error on the first working storage variable it finds, e.g. WS-CASE-CON-VALUE. I don't think the PERFORM is going to remedy the compile error.
            John Henley
            Posts: 3353
            1/25/2010 6:46 PM
              You need to have the PERFORM for the API in order for the Lawson pre-compiler to know to add the API's working-storage to your .cbl file.

              Thanks for using the LawsonGuru.com forums!
              John
              Robert
              Veteran Member
              Posts: 82
              Veteran Member
              1/25/2010 7:07 PM
                John:

                I added the PERFORM statement and I have the same error.
                ** Operand WS-CASE-CONV-VALUE is not declared
                John Henley
                Posts: 3353
                1/25/2010 7:30 PM
                  Can you post your PD file here as an attachment?
                  Thanks for using the LawsonGuru.com forums!
                  John
                  Robert
                  Veteran Member
                  Posts: 82
                  Veteran Member
                  1/25/2010 8:16 PM
                    John.

                    It did compile. I passed the wrong system code to qcompile "HR" and it should have been "PR.
                    You conclusion was correct.

                    Unfortunately, the case conversion 900-UPPER-TO-LOWER failed to convert the string.

                    I implemented an INSPECT statement, and it converted the case using 3 lines of code.
                    Now my file system is properly buit, but the file I am trying to open for input can't be located.
                    I defined the file as INPUT using workdef.

                    Processing ZP868 - UNION DEDUCTIONS
                    Company: 0000
                    System Date: 20100125
                    System Time: 15114000
                    Case Converted junk
                    OPENING FILE $LAWDIR/junk/work/UNIONDUES/in/LO88DUES.txt
                    Unable To Open File With Mode "r"
                    /lsfprd/law/junk/work/UNIONDUES/in/LO88DUES.txt 000000
                    File Open Error:: No such file or directory

                    I can cut and past the file into vi and the file is found.

                    Thank John.
                    Robert
                    Veteran Member
                    Posts: 82
                    Veteran Member
                    1/25/2010 8:39 PM
                      John -- see that 000000 there? That's the problem.
                      Ragu Raghavan
                      Veteran Member
                      Posts: 476
                      Veteran Member
                      1/25/2010 9:02 PM
                        Did you use the STRING ccommand to build the file name ?
                        try ending the file name with a WS-NULL PIC x value X"00".

                        Like
                        STRING "$LAWDIR/"
                        PL
                        "UNIONDUES.TXT"
                        WS-NULL
                        INTO FILE-NAME
                        Robert
                        Veteran Member
                        Posts: 82
                        Veteran Member
                        1/25/2010 10:22 PM
                          An explicit null....clever...and aggrevating. It sure beats hardcoding the filename though.

                          Case closed.