cobol copy book metadata
Posted: Thu Dec 25, 2014 9:27 pm
hi,
i tried to import the metadata using the cobol file definition but getting the below error
Error 1(line2)'PIC' PICTURE character string contains unsupported editing characters
Error 6 (line12) 'PIC' PICTURE character string format is invalid.
i am using sequential file to read the file and using the metadata over there.
The copy book is given below
can someone help me on this.
i tried to import the metadata using the cobol file definition but getting the below error
Error 1(line2)'PIC' PICTURE character string contains unsupported editing characters
Error 6 (line12) 'PIC' PICTURE character string format is invalid.
i am using sequential file to read the file and using the metadata over there.
The copy book is given below
Code: Select all
01 TXT004-WORK-RECORD.
03 TXT004-CIT-ITEM-NO PIC -9(10).
03 TXT004-C1 PIC X.
03 TXT004-CIT-OBG-NO PIC -9(10).
03 TXT004-C2 PIC X.
03 TXT004-CIT-BNK-NO PIC -9(5).
03 TXT004-C3 PIC X.
03 TXT004-CIT-VER PIC -9(10).
03 TXT004-C4 PIC X.
03 TXT004-CIT-COL-TYPE PIC -9(5).
03 TXT004-C5 PIC X.
03 TXT004-CIT-COL-VALUE PIC -9(13).9(2).
03 TXT004-C6 PIC X.
03 TXT004-CIT-EFF-DT PIC X(10).
03 TXT004-C7 PIC X.
03 TXT004-CIT-ADVANCE-PCT PIC -9(1).9(14).
03 TXT004-C8 PIC X.
03 TXT004-CIT-UNITS PIC -9(7).9(6).
03 TXT004-C9 PIC X.
03 TXT004-CIT-FUNCTION-TYP PIC -9(5).
03 TXT004-C10 PIC X.
03 TXT004-CIT-LOCATION-HLD PIC -9(10).
03 TXT004-C11 PIC X.
03 TXT004-A1 PIC X.
03 TXT004-CIT-SECURITY-NO PIC X(13).
03 TXT004-A2 PIC X.
03 TXT004-C12 PIC X.
03 TXT004-A3 PIC X.
03 TXT004-CIT-TRUST-RCT-No PIC X(15).
03 TXT004-A4 PIC X.
03 TXT004-C13 PIC X.
03 TXT004-A5 PIC X.
03 TXT004-CIT-DESCRIPT-1 PIC X(30).
03 TXT004-A6 PIC X.
03 TXT004-C14 PIC X.
03 TXT004-A7 PIC X.
03 TXT004-CIT-DESCRIPT-2 PIC X(30).
03 TXT004-A8 PIC X.
03 TXT004-C15 PIC X.
03 TXT004-CIT-NO-PIECES PIC -9(7).
03 TXT004-C16 PIC X.
03 TXT004-CIT-CURR-UNIT-PR PIC -9(13).9(2).
03 TXT004-C17 PIC X.
03 TXT004-CIT-ORIG-VALUE PIC -9(13).9(2).
03 TXT004-C18 PIC X.
03 TXT004-CIT-NET-COL-VAL PIC -9(13).9(2).
03 TXT004-C19 PIC X.
03 TXT004-CIT-NET-USEABLE PIC -9(13).9(2).
03 TXT004-C20 PIC X.
03 TXT004-CIT-MAX-LENDABLE PIC -9(13).9(2).
03 TXT004-C21 PIC X.
03 TXT004-CIT-REGU-ADV-PCT PIC -9(1).9(14).
03 TXT004-C22 PIC X.
03 TXT004-CIT-DIVISION PIC -9(5).
03 TXT004-C23 PIC X.
03 TXT004-CIT-REGION PIC -9(5).
03 TXT004-C24 PIC X.
03 TXT004-CIT-SERV-UNIT PIC -9(5).
03 TXT004-C25 PIC X.
03 TXT004-CIT-ASSIGN-UNIT PIC -9(5).
03 TXT004-C26 PIC X.
03 TXT004-A9 PIC X.
03 TXT004-CIT-OFFICER PIC X(5).
03 TXT004-A10 PIC X.
03 TXT004-C27 PIC X.
03 TXT004-CIT-LOCAT-RCVD PIC -9(10).
03 TXT004-C28 PIC X.
03 TXT004-CIT-FRGN-CUR-CD PIC -9(10).
03 TXT004-C29 PIC X.
03 TXT004-CIT-POST-DT PIC X(10).
03 TXT004-C30 PIC X.
03 TXT004-CIT-EXPIRED-DT PIC X(10).
03 TXT004-C31 PIC X.
03 TXT004-CIT-LST-VALUE-DT PIC X(10).
03 TXT004-C32 PIC X.
03 TXT004-CIT-SHIPPING-DT PIC X(10).
03 TXT004-C33 PIC X.
03 TXT004-CIT-ADVANCE-DT PIC X(10).
03 TXT004-C34 PIC X.
03 TXT004-CIT-ADVANCE-AMT PIC -9(13).9(2).
03 TXT004-C35 PIC X.
03 TXT004-CIT-RT-OF-RETURN PIC -9(1).9(14).
03 TXT004-C36 PIC X.
03 TXT004-A11 PIC X.
03 TXT004-CIT-EXCEPT-CD PIC X(3).
03 TXT004-A12 PIC X.
03 TXT004-C37 PIC X.
03 TXT004-A13 PIC X.
#31018 03 TXT004-CIT-DEP-ACCT-1 PIC X(17).
03 TXT004-A14 PIC X.
03 TXT004-C38 PIC X.
03 TXT004-A15 PIC X.
#31018 03 TXT004-CIT-DEP-ACCT-2 PIC X(17).
03 TXT004-A16 PIC X.
03 TXT004-C39 PIC X.
03 TXT004-A17 PIC X.
03 TXT004-CIT-AUDIT-FREQ PIC X(1).
03 TXT004-A18 PIC X.
03 TXT004-C40 PIC X.
03 TXT004-CIT-LST-AUDIT-DT PIC X(10).
03 TXT004-C41 PIC X.
03 TXT004-CIT-NXT-AUDIT-DT PIC X(10).
03 TXT004-C42 PIC X.
03 TXT004-A19 PIC X.
03 TXT004-CIT-INSPECT-FREQ PIC X(1).
03 TXT004-A20 PIC X.
03 TXT004-C43 PIC X.
03 TXT004-CIT-LST-INSP-DT PIC X(10).
03 TXT004-C44 PIC X.
03 TXT004-CIT-NXT-INSP-DT PIC X(10).
03 TXT004-C45 PIC X.
03 TXT004-A21 PIC X.
03 TXT004-CIT-COUPON-FREQ PIC X(1).
03 TXT004-A22 PIC X.
03 TXT004-C46 PIC X.
03 TXT004-A23 PIC X.
03 TXT004-CIT-COUPON-INST PIC X(1).
03 TXT004-A24 PIC X.
03 TXT004-C47 PIC X.
03 TXT004-CIT-LST-COUP-DT PIC X(10).
03 TXT004-C48 PIC X.
03 TXT004-CIT-NXT-COUP-DT PIC X(10).
03 TXT004-C49 PIC X.
03 TXT004-CIT-FST-COUP-AMT PIC -9(13).9(2).
03 TXT004-C50 PIC X.
03 TXT004-CIT-REG-COUP-AMT PIC -9(13).9(2).
03 TXT004-C51 PIC X.
03 TXT004-CIT-SPL-MAIL-REC PIC -9(5).
03 TXT004-C52 PIC X.
03 TXT004-A25 PIC X.
03 TXT004-CIT-CNTL-STCK-CD PIC X(1).
03 TXT004-A26 PIC X.
03 TXT004-C53 PIC X.
03 TXT004-A27 PIC X.
03 TXT004-CIT-SAFEKEEPG-CD PIC X(1).
03 TXT004-A28 PIC X.
03 TXT004-C54 PIC X.
03 TXT004-CIT-SUBS-ITEM-NO PIC -9(5).
03 TXT004-C55 PIC X.
03 TXT004-A29 PIC X.
03 TXT004-CIT-SHORT-NAME PIC X(15).
03 TXT004-A30 PIC X.
03 TXT004-C56 PIC X.
03 TXT004-CIT-USER-CD-1 PIC X.
03 TXT004-C57 PIC X.
03 TXT004-CIT-USER-CD-2 PIC XX.
03 TXT004-C58 PIC X.
03 TXT004-CIT-USER-NUM PIC -9(15).
03 TXT004-C59 PIC X.
03 TXT004-A31 PIC X.
03 TXT004-CIT-USER-ALPHA PIC X(15).
03 TXT004-A32 PIC X.
03 TXT004-C60 PIC X.
03 TXT004-CIT-USER-DT-1 PIC X(10).
03 TXT004-C61 PIC X.
03 TXT004-CIT-USER-DT-2 PIC X(10).
03 TXT004-C62 PIC X.
03 TXT004-CIT-USER-AMT-1 PIC -9(13).9(2).
03 TXT004-C63 PIC X.
03 TXT004-CIT-USER-AMT-2 PIC -9(13).9(2).
can someone help me on this.