Menu

#18 single-entry 01 level records are not properly parsed

Release 4.4
closed
nobody
None
2014-05-23
2014-05-23
RHarris
No

1.040A 01 CATALOG-SEGMENT-C01.
1.040A 05 C01-SEGMENT-CODE.
1.040A 10 C01-SC-FIRST-POSITION PIC X(01).
1.040A 10 C01-SC-SECOND-POSITION PIC X(01).
1.040A 10 C01-SC-THIRD-POSITION PIC X(01).
1.040A 05 C01-CATALOG-DESC PIC X(40).
1.040A 05 FILLER PIC X(7).
1.036A SKIP2
1.034A 01 AIRLINE-INDX PIC S9(4)V COMP.
1.036A
SKIP2
1.041B 01 ORIGINAL-TRAN-INFO-SEGMENT.

252         dde_list, schema_list = stingray.cobol.loader.COBOL_schemata( cobol_copybook, replacing=args.replacestring )
253         for dde in dde_list:
254             print(dde)

01 CATALOG-SEGMENT-C01 .
01 AIRLINE-INDX PIC S9(4)V USAGE COMP.
01 ORIGINAL-TRAN-INFO-SEGMENT.

Discussion

  • RHarris

    RHarris - 2014-05-23
    • status: open --> closed
     
  • RHarris

    RHarris - 2014-05-23

    oops....this isn't a problem, it just looks different from the others because most 01 records don't have picture. Another issue was causing the error perceived to be from this...

     

Log in to post a comment.