Originally posted by: SystemAdmin
Hi I am currently working on decomissioning an old AS400 system and as
part of this need to extract some data to be loaded into an Oracle
database.
We need to be able to see data file definitions in the following
format :-
01 CA1D72.
05 KEY72 PIC X(15).
05 KTYP72 PIC X(2).
05 TYPE72 PIC X(3).
05 GRP72 PIC X(2).
05 ADAT72 PIC 9(8) COMP-3.
05 ATYP72 PIC X(2).
05 NOTE72 PIC X(60).
05 LINE72 PIC 9(3) COMP-3.
05 DATE72 PIC 9(8) COMP-3.
05 TIME72 PIC 9(6) COMP-3.
05 USER72 PIC X(10).
We have physical files held in a library i.e. file = drop08 library =
billsys
I have so far found the command ZDSPDDS which has given me the
following :-
DSPDDS2 EXPANDED DATA DESCRIPTION
SPECIFICATIONS 6/24/09 PAGE 1
17:32:01
FILE NAME -
DROP08 .BILLSYS TYPE -
PHYSICAL
TEXT -
T D
Y E
RCD FMT FIELD LEN P C FROM TO REF
FIELD TEXT
DROP08 GCTELN 12 A 1 12
CELLULAR TELEPHONE NUMBER
GCACCT 9 A 13 21
ACCOUNT NUMBER
GCACTV 9 P 0 22 26
ACTIVATION NUMBER
GCBPRD 6 P 0 27 30
BILLING PERIOD - YYYYMM
GCBCYC 2 A 31 32
BILLING CYCLE
GCCATG 5 A 33 37
CATEGORY CODE
GCSCAT 2 A 38 39 SUB
CATEGORY CODE
GCTYP1 1 A 40 40 Type
1 - Future use
GCSCOD 10 A 41 50
SERVICE CODE
GCDESC 50 A 51 100
CHARGE DESCRIPTION
GCFRDT 8 P 0 101 105
CHARGE FROM DATE
GCTODT 8 P 0 106 110
CHARGE TO DATE
GCBAMT 11 P 2 111 116
CHARGE BASE AMOUNT
GCTMIN 5 P 1 117 119 TOTAL
MINUTES
GCAMT 11 P 2 120 125
CHARGE AMOUNT
GCGLCD 10 A 126 135 G/L
CODE
GCTXID 2 A 136 137 TAX
TABLE ID
GCTAX1 1 A 138 138 TAX 1
FLAG
GCT1AM 11 P 2 139 144 TAX 1
AMOUNT
GCTAX2 1 A 145 145 TAX 2
FLAG
GCT2AM 11 P 2 146 151 TAX 2
AMOUNT
GCTAX3 1 A 152 152 TAX 3
FLAG
GCT3AM 11 P 2 153 158 TAX 3
AMOUNT
GCTAX4 1 A 159 159 TAX 4
FLAG
GCT4AM 11 P 2 160 165 TAX 4
AMOUNT
GCTAX5 1 A 166 166 TAX 5
FLAG
GCT5AM 11 P 2 167 172 TAX 5
AMOUNT
GCTAX6 1 A 173 173 TAX 6
FLAG
GCT6AM 11 P 2 174 179 TAX 6
AMOUNT
GCFBIL 1 A 180 180 FINAL
BILLING FLAG
GCORDN 10 A 181 190 ORDER
GCREFN 10 A 191 200
CHARGE REFERENCE #
GCSTPN 7 P 0 201 204 STP #
GCL2AC 9 P 0 205 209 L2
ACTIVATION #
GCCFRQ 1 A 210 210 CHG
FREQUENCY
GCRPGP 3 A 211 213 RPT
GROUP
TSEC 15 A 214 228 digits
(gctsec)
SL 9 A 229 237 digits
(gcactv)
but I need the file definition in the 1st format show in order to use
with the data extraction tool we have.
Please help