load a usage comp field from a COBOL/DB2 flat file into Teradata

[hmoe]

I have an input file that was created in a COBOL program that extracted the data from DB2. The file layout is as follows:
01 DCLGFTRSTY.
10 GFTRSTY-RGS-ID PIC S9(9) USAGE COMP.
10 GFTRSTY-LOC-NBR PIC S9(9) USAGE COMP.
10 GFTRSTY-OCCN-ID PIC X(1).
10 GFTRSTY-APP-ID PIC X(1).
10 GFTRSTY-RFRL-ID PIC X(1).
10 GFTRSTY-MTHD-ID PIC X(1).
10 GFTRSTY-RGS-DTE PIC X(10).
10 GFTRSTY-PREFRNC-F PIC X(1).
10 GFTRSTY-PURCH-F PIC X(1).
10 GFTRSTY-COMNT-F PIC X(1).
10 GFTRSTY-SUPPR-ADDR-F PIC X(1).
10 GFTRSTY-RGS-OCCN-DTE PIC X(10).
10 GFTRSTY-RGS-OCCN-DTE-F PIC X(1).
10 GFTRSTY-RGS-STAT PIC X(1).
10 GFTRSTY-RGS-STAT-DTE PIC X(10).
10 GFTRSTY-RGS-STAT-COMNT PIC X(80).
10 GFTRSTY-NBR-OF-GUESTS PIC S9(4) USAGE COMP.
10 GFTRSTY-RGS-INTERNET-F PIC X(1).
10 GFTRSTY-RGS-INTERNET-PWRD PIC X(20).
10 GFTRSTY-RGS-VAL-ACTL PIC S9(5)V9(2) USAGE COMP-3.
10 GFTRSTY-RGS-VAL-POT PIC S9(5)V9(2) USAGE COMP-3.
10 GFTRSTY-RGS-VAL-TO-CMPLT PIC S9(5)V9(2) USAGE COMP-3.
10 GFTRSTY-UNMTCHD-PURCH-F PIC X(1).
10 GFTRSTY-LAST-UPD-TS PIC X(26).
10 GFTRSTY-LAST-UPD-USER-ID PIC X(32).
10 GFTRSTY-PROG-NAME PIC X(10).
10 GFTRSTY-BRLP-ENROL-STAT PIC X(1).
10 WS-DDW-DIV-NBR PIC 9(04).
10 WS-DDW-STORE-NBR PIC 9(09).


I need help with setting up my .layout section for the load into Teradata for the comp fields.

Can someone help me?

 

[dnoeth]

Is this a "Signed Zoned Decimal"?

Then "PIC S9(9)" is probably FORMAT '9(9)S'

Check the manuals for details:
SQL Reference: Data Types and Literals
Chapter 9: Output Format Phrases
FORMAT Phrase and NUMERIC Formats

Dieter