[Info-vax] Calling $CREPRC in COBOL
Dave Froble
davef at tsoft-inc.com
Mon Jul 4 18:24:43 EDT 2022
On 7/4/2022 10:34 AM, seasoned_geek wrote:
> On Sunday, July 3, 2022 at 7:22:57 PM UTC-5, Arne Vajhøj wrote:
>> On 7/3/2022 4:05 PM, seasoned_geek wrote:
>>> On Thursday, June 23, 2022 at 9:14:07 AM UTC-5, osuv... at gmail.com wrote:
>>>> On Tuesday, June 21, 2022 at 12:08:21 AM UTC-4, Dave Froble wrote:
>>> At any rate, there is no SQL that will let you put multi-typed
>>> records in a table. The "best" you could hope for is to have the
>>> primary key fields then a BLOB object one had to hack like we did in
>>> BASIC. You would be right back to CVT$% and RSET logic. (Didn't they
>>> drop RSET and LSET from the DEC BASIC specification at some point?)
>> Not true.
>>
>> You define a super class and sub classes and your ORM framework
>> transparently stores and retrieved the different classes.
>>
>> That is basic persistence knowledge. Any young developer would
>> know that.
>
> Well, we will ask Dave to post the TOLAS invoice (or order) record layouts for a defunct customer and you create a functioning VAX BASIC program using SQLite along with Superclass and Subclass and post it here.
Don't know why I'm doing this. Must be a real slow day.
It's not really TOLAS. This is from some work after I left Transcomm. Uses my
DAS database product. Customer no longer exists. (Wasn't my fault.)
Directory DKA100:[CANADA]
ROLAND.LST;1 15/15 [CANADA] (RWED,RWED,RE,)
Total of 1 file, 15/15 blocks.
$ t/p roland.lst
DAS listing of: data:OEHEAD.DAS on 04-Jul-2022 06:17 PM
IDX LEN POS TYPE RMASK WMASK ----------NAME----------
1 6 0 L-string 0 0 Order number
2 3 6 L-string 0 0 Order type
3 2 9 Integer 0 0 Status flags
4 8 11 L-string 0 0 Ship-to customer number
5 8 19 L-string 0 0 Bill-to customer number
6 3 27 L-string 0 0 Keyer ID
7 30 30 L-string 0 0 Ship-to name
8 30 60 L-string 0 0 Ship-to address 1
9 30 90 L-string 0 0 Ship-to address 2
10 20 120 L-string 0 0 Ship-to city
11 2 140 L-string 0 0 Ship-to state
12 9 142 L-string 0 0 Ship-to zip
13 2 151 Date 0 0 Order date
14 2 153 Date 0 0 Closed date
15 2 155 Date 0 0 Requested ship date
16 2 157 Date 0 0 Cancellation date
17 2 159 L-string 0 0 Terms code
18 3 161 L-string 0 0 Salesperson code
19 25 164 L-string 0 0 Ship via
20 16 189 L-string 0 0 Customer P.O. number
21 1 205 Byte 0 0 Number invoice copies
22 2 206 L-string 0 0 County tax code
23 4 208 DI5 0 0 Tax %
24 4 212 DI0 0 0 Total quantity
25 4 216 DI3 0 0 Total weight
26 4 220 DI2 0 0 Total order value
27 4 224 DI2 0 0 Total tax amount
28 2 228 Date 0 0 Entry date
29 3 230 L-string 0 0 Ship point
30 3 233 L-string 0 0 Freight code
31 1 236 L-string 0 0 Division
32 6 237 L-string 0 0 Process number
33 1 243 Byte 0 0 Edit count
34 2 244 Integer 0 0 Flags2
35 1 246 L-string 0 0 Picking priority
36 1 247 Byte 0 0 Pick ticket count
37 1 248 Byte 0 0 Shipments count
38 4 249 DI0 0 0 Pick ticket quantity
39 4 253 DI2 0 0 Pick ticket value
40 2 257 L-string 0 0 Cancellation reason
41 2 259 Date 0 0 Credit expiration date
42 3 261 L-string 0 0 PSO Client ID
43 6 264 L-string 0 0 PSO Order number
(270)
Records : 7 Max records : 56
Filesize : 76 Delete field : Keyer ID
File type : 1 Record length : 512
Blocking : 1 # of fields : 43
Data offset : 20 Version : 1
Created : 05-Apr-2000 Reorganized : 24-Oct-2000
Key header:
Add list ptr = 21 Alloc factor = 1.800
Add list size = 0 # of keys = 3
KEY # 1
# of fields = 1 Keysize = 6
No dups flag = 1 Starting block = 9
Key blocking = 204 Split ratio = 7
FIELD 1 =< 1,Order number>
KEY # 2
# of fields = 1 Keysize = 8
No dups flag = 0 Starting block = 13
Key blocking = 170 Split ratio = 5
FIELD 1 =< 4,Ship-to customer number>
KEY # 3
# of fields = 1 Keysize = 8
No dups flag = 0 Starting block = 17
Key blocking = 170 Split ratio = 5
FIELD 1 =< 5,Bill-to customer number>
DAS listing of: data:OEDETL.DAS on 04-Jul-2022 06:17 PM
IDX LEN POS TYPE RMASK WMASK ----------NAME----------
1 6 0 L-string 0 0 Order number
2 2 6 Integer 0 0 Sequence number
3 1 8 Byte 0 0 Record type
4 2 9 Integer 0 0 Status flags
5 3 11 L-string 0 0 Charge code
6 4 14 L-string 0 0 Product line
7 3 18 L-string 0 0 Product number
8 2 21 L-string 0 0 Color
9 2 23 L-string 0 0 Full size
10 2 25 L-string 0 0 Half size
11 30 27 L-string 0 0 Description
12 2 57 L-string 0 0 Unit of measure
13 4 59 DI3 0 0 Unit weight
14 4 63 DI2 0 0 Unit cost
15 4 67 DI2 0 0 Unit price
16 1 71 Byte 0 0 Price level
17 4 72 DI0 0 0 Order quantity
18 4 76 DI5 0 0 Line discount %
19 4 80 DI5 0 0 Tax %
20 2 84 Integer 0 0 Flags2
21 5 86 L-string 0 0 Bin location
22 4 91 DI0 0 0 Shipped quantity
23 4 95 DI0 0 0 Reserved quantity
24 4 99 DI0 0 0 Ship this time qty
25 4 103 DI0 0 0 Internal work field
26 4 107 DI2 0 0 Price level 1 unit price
27 3 111 L-string 0 0 Ship point
28 5 114 L-string 0 0 Work fld - alt sku
29 3 119 L-string 0 0 PSO client ID
30 2 122 Integer 0 0 PSO line number
(124)
Records : 17 Max records : 320
Filesize : 156 Delete field : Record type
File type : 1 Record length : 128
Blocking : 4 # of fields : 30
Data offset : 76 Version : 1
Created : 14-Apr-2000 Reorganized : 24-Oct-2000
Key header:
Add list ptr = 33 Alloc factor = 1.800
Add list size = 44 # of keys = 3
KEY # 1
# of fields = 2 Keysize = 8
No dups flag = 1 Starting block = 13
Key blocking = 170 Split ratio = 7
FIELD 1 =< 1,Order number>
FIELD 2 =< 2,Sequence number>
KEY # 2
# of fields = 3 Keysize = 13
No dups flag = 0 Starting block = 21
Key blocking = 120 Split ratio = 5
FIELD 1 =< 1,Order number>
FIELD 2 =<21,Bin location>
FIELD 3 =< 2,Sequence number>
KEY # 3
# of fields = 5 Keysize = 13
No dups flag = 0 Starting block = 29
Key blocking = 120 Split ratio = 5
FIELD 1 =< 6,Product line>
FIELD 2 =< 7,Product number>
FIELD 3 =< 8,Color>
FIELD 4 =< 9,Full size>
FIELD 5 =<10,Half size>
$
--
David Froble Tel: 724-529-0450
Dave Froble Enterprises, Inc. E-Mail: davef at tsoft-inc.com
DFE Ultralights, Inc.
170 Grimplin Road
Vanderbilt, PA 15486
More information about the Info-vax
mailing list