|
Hi, I'm trying desperately to get an ebcdic file converted to anscii but I am having problems getting the multiple record types to convert the pack decimals in all of the fields where they exist in the data file. I can't quite figure out what I am doing wrong here any help would be appreciated. My .Lay file is below.
Thanks,
Kyle
r=280,0 //Default record length is 114, convert to DOS newlines
o=z //Output leading zeros (blank '+' sign; sign at end)
e=0,ebcdic.err //Only report serious errors in EBCDIC.ERR
//
//
//
//
tx "c:\TEST\VEDIT\header.txt"
t 1,0xFFFF,0xF0F0 //Header Record has Record ID "00" in Cols 1 and 2
l=280
e=1,280
// Record type "01"
//
tx "c:\TEST\VEDIT\TESTREC01.asc"
t 1,0xFFFF,0xF0F1 //Record ID "01" in columns 1 and 2 and...
l=210 // Record length is 210
e=1,210 // Remaining columns are simple EBCDIC
//
// Record type "02"
//
tx "c:\TEST\VEDIT\TESTREC02.asc"
t 1,0xFFFF,0xF0F2 //Record ID "02" in columns 1 and 2
l=210 // Record length is 210
e=1,210 // Remaining columns are simple EBCDIC
//
// Record type "03"
//
tx "c:\TEST\VEDIT\TESTREC03.asc"
t 1,0xFFFF,0xF0F3 //Record ID "03" in columns 1 and 2
l=210 // Record length is 210
d 1,5 v2
d 6,10 v2
e 11,21
e 22,32
d 33,37 v2
d 38,42 v2
d 43,47 v2
d 48,53 v2
d 54,58 v2
d 59,63 v2
e 64,112
e 113,113
d 114,118 v2
d 119,123 v2
d 124,127 v2
e 128,130
d 131,132
d 133,136
d 137,140
d 141,144
e 145,145
e 146,146
e 147,147
e 148,148
e 149,149
e 150,150
e 151,151
e 152,152
e 153,153
e 154,154
e 155,155
e 156,156
e 157,157
e 158,158
e 159,159
d 160,164 v2
d 165,169 v2
d 170,173 v2
d 174,177 v2
d 178,182 v2
d 183,186 v2
e 187,210
//
// Record type "04"
//
tx "c:\TEST\VEDIT\TESTREC04.asc"
t 1,0xFFFF,0xF0F4 //Record ID "04" in columns 1 and 2
l=210 // Record length is 210
e 1,6
u 7,9
e 10,16
e 17,30
e 31,32
e 33,58
d 59,63 v2
e 64,70
e 71,76
u 77,79
e 80,86
e 87,100
e 101,102
e 103,128
d 129,133 v2
e 134,140
e 141,146
u 147,149
e 150,156
e 157,170
e 171,172
e 173,198
d 199,203 v2
e 204,210
//
// Record type "05"
//
tx "c:\TEST\VEDIT\TESTREC05.asc"
t 1,0xFFFF,0xF0F5 //Record ID "05" in columns 1 and 2
l=210 // Record length is 210
e 1,70
e 71,140
e 141,210
//
// Record type "06"
//
tx "c:\TEST\VEDIT\TESTREC06.asc"
t 1,0xFFFF,0xF0F6 //Record ID "06" in columns 1 and 2
l=210 // Record length is 210
e 1,70
e 71,140
e 141,210
//
// Record type "07"
//
tx "c:\TEST\VEDIT\TESTREC07.asc"
t 1,0xFFFF,0xF0F7 //Record ID "07" in columns 1 and 2
l=210 // Record length is 110
e 1,3
u 4,5
u 6,10
e 11,15
e 16,29
e 30,55
d 56,60 v2
e 61,63
e 64,64
u 65,66
u 67,68
e 69,70
e 71,73
u 74,75
u 76,80
e 81,85
e 86,99
e 100,125
d 126,130 v2
e 131,133
e 134,134
u 135,136
u 137,138
e 139,140
e 141,143
u 144,145
u 146,150
e 151,155
e 156,169
e 170,195
d 196,200 v2
e 201,203
e 204,204
u 205,206
u 207,208
e 209,210
//
// Record type "08"
//
tx "c:\TEST\VEDIT\TESTREC08.asc"
t 1,0xFFFF,0xF0F8 //Record ID "08" in columns 1 and 2
l=210 // Record length is 210
e 1,2
e 3,7
u 8,12
e 13,17
e 18,24
u 25,26
u 27,33 v2
z 34,42 v2
e 43,70
e 71,72
e 73,77
u 78,82
e 83,87
e 88,94
u 95,96
u 97,103 v2
z 104,112 v2
e 113,140
e 141,142
e 143,147
u 148,152
e 153,157
e 158,164
u 165,166
u 167,173 v2
z 174,182 v2
e 183,210
//
// Record type "11"
//
tx "c:\TEST\VEDIT\TESTREC11.asc"
t 1,0xFFFF,0xF1F1 //Record ID "11" in columns 1 and 2
l=210 // Record length is 210
d 1,5 v2
e 6,31
d 32,36 v2
d 37,41 v2
d 42,46 v2
d 47,51 v2
d 52,56 v2
e 57,59
d 60,64 v2
d 65,67 v2
d 68,72 v2
e 73,82
e 83,92
e 93,102
e 103,105
u 106,108
e 109,210
//
// Record type "12"
//
tx "c:\TEST\VEDIT\TESTREC12.asc"
t 1,0xFFFF,0xF1F2 //Record ID "12" in columns 1 and 2
l=210 // Record length is 210
e 1,70
e 71,140
e 141,210
//
// Record type "98"
//
tx "c:\TEST\VEDIT\TESTREC98.asc"
t 1,0xFFFF,0xF9F8 //Record ID "98" in columns 1 and 2
l=280 // Record length is 280
e 1,2
e 3,5
e 6,7
u 8,16
u 17,25
e 26,50
e 51,55
e 56,280
//
// Record type "99"
//
tx "c:\TEST\VEDIT\TESTREC99.asc"
t 1,0xFFFF,0xF9F9 //Record ID "99" in columns 1 and 2
l=280 // Record length is 280
e 1,2
u 3,11
u 12,20
e 21,50
e 51,55
e 56,280
|
|