Menu

#1 Crash ...

v1.0 (example)
open
None
5
2015-10-16
2007-03-14
Anonymous
No

Thanks for the tool.

I just started testing it. I has a simple crash (see below code) that makes sense. I don't know if this situation should only raise an error or not so I'm reporting it.

The code I had to convert had REDEFINE on the first line.

Thanks.

       03  P10-BILL-PRINT-RECORD REDEFINES SKA012-COMBINED-FILLER.
           05  P10-DET-SEP-CODE            PIC X(3).
           05  P10-DET-PRINT-IND           PIC X.
           05  P10-DET-BILL-IND            PIC XX.
           05  P10-DET-CSO-NO              PIC 99.

Discussion

  • Jean-Francois Gagnon

    Logged In: YES
    user_id=1524922
    Originator: NO

    This portion of copybook should have been part of a larger copybook where SKA012-COMBINED-FILLER would have been defined.

     
  • Jean-Francois Gagnon

    • assigned_to: nobody --> nwfrog
     
  • Bruce Martin

    Bruce Martin - 2015-10-16
    • Description has changed:

    Diff:

    --- old
    +++ new
    @@ -6,8 +6,9 @@
    
     Thanks.
    
    -03  P10-BILL-PRINT-RECORD REDEFINES SKA012-COMBINED-FILLER.
    -05  P10-DET-SEP-CODE            PIC X\(3\).
    -05  P10-DET-PRINT-IND           PIC X.
    -05  P10-DET-BILL-IND            PIC XX.
    -05  P10-DET-CSO-NO              PIC 99.
    +    :Cobol
    +    03  P10-BILL-PRINT-RECORD REDEFINES SKA012-COMBINED-FILLER.
    +            05  P10-DET-SEP-CODE            PIC X\(3\).
    +            05  P10-DET-PRINT-IND           PIC X.
    +            05  P10-DET-BILL-IND            PIC XX.
    +            05  P10-DET-CSO-NO              PIC 99.
    
    • Group: --> v1.0 (example)
     
  • Bruce Martin

    Bruce Martin - 2015-10-16
    • Description has changed:

    Diff:

    --- old
    +++ new
    @@ -6,7 +6,7 @@
    
     Thanks.
    
    -    :Cobol
    +    :::Cobol
         03  P10-BILL-PRINT-RECORD REDEFINES SKA012-COMBINED-FILLER.
                 05  P10-DET-SEP-CODE            PIC X\(3\).
                 05  P10-DET-PRINT-IND           PIC X.
    
     
  • Bruce Martin

    Bruce Martin - 2015-10-16
    • Description has changed:

    Diff:

    --- old
    +++ new
    @@ -8,7 +8,7 @@
    
         :::Cobol
         03  P10-BILL-PRINT-RECORD REDEFINES SKA012-COMBINED-FILLER.
    -            05  P10-DET-SEP-CODE            PIC X\(3\).
    -            05  P10-DET-PRINT-IND           PIC X.
    -            05  P10-DET-BILL-IND            PIC XX.
    -            05  P10-DET-CSO-NO              PIC 99.
    +        05  P10-DET-SEP-CODE            PIC X(3).
    +        05  P10-DET-PRINT-IND           PIC X.
    +        05  P10-DET-BILL-IND            PIC XX.
    +        05  P10-DET-CSO-NO              PIC 99.
    
     
  • Bruce Martin

    Bruce Martin - 2015-10-16
    • Description has changed:

    Diff:

    --- old
    +++ new
    @@ -7,8 +7,8 @@
     Thanks.
    
         :::Cobol
    -    03  P10-BILL-PRINT-RECORD REDEFINES SKA012-COMBINED-FILLER.
    -        05  P10-DET-SEP-CODE            PIC X(3).
    -        05  P10-DET-PRINT-IND           PIC X.
    -        05  P10-DET-BILL-IND            PIC XX.
    -        05  P10-DET-CSO-NO              PIC 99.
    +           03  P10-BILL-PRINT-RECORD REDEFINES SKA012-COMBINED-FILLER.
    +               05  P10-DET-SEP-CODE            PIC X(3).
    +               05  P10-DET-PRINT-IND           PIC X.
    +               05  P10-DET-BILL-IND            PIC XX.
    +               05  P10-DET-CSO-NO              PIC 99.
    
     

Log in to post a comment.

Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.