Powerhouse into Cobol
pwilliams@cosworth-racing.co.uk
pwilliams@cosworth-racing.co.uk
Wed, 20 Sep 2000 08:25:03 +0100
Hello People,
Hope someone can help me :o(
I have a Ksam file which I have populated using Quiz but now I need to
access it in Cobol but I have problem with getting the value of the quantity
from the file, it does come out in a readable form.
Below are the Quiz, Ksam stuff and the Cobol Definition can anyone help????
> acc shrt-file
> sho ite
INPUT OUTPUT
SHRT-FILE TYPE SCALE SCALE DEC PICTURE
* SHRT-PART-HOUSE CHAR X(20)
SHRT-PART-NUMBER CHAR X(18)
SHRT-WAREHOUSE CHAR X(2)
SHRT-QUANTITY NUM 3 3 3 ^^^^^^^^^.^^^
[TEMP06]: ksamutil
HP32208A.07.04 WED, SEP 20, 2000, 8:12 AM KSAMUTIL VERSION:A.07.01
>verify shrtfile
WHICH (1=FILE INFO, 2=KSAM PARAMETERS, 3=KSAM CONTROL, 4=ALL)?4
SHRTFILE.TEMP06.MANMAN CREATOR=MANAGER
FOPTIONS(006005)=KSAM, NO :FILE, NOCCTL, F, FILENAME, ASCII, PERM
AOPTIONS(000400)=DEFAULT, NOBUF, DEFAULT, NO FLOCK, NO MR, IN
RECSIZE:SUB:TYP:LDNUM:DRT:UN.: CODE:LOGICAL PTR: END OF FILE:FILE LIMIT
-44: 8: 3: 2: 8: 0: 0: 0: 0: 10000
LOG. COUNT:PHYS. COUNT:BLK SZ:EXT SZ:NR EXT: LABELS:LDN: DISCADDR:
1: 0: -44: 215: 8: 0: 0:00000000000:
KEY FILE=SHRTFILK KEY FILE DEVICE=27 SIZE= 2226 KEYS= 1
FLAGWORD(000000)=RANDOM PRIMARY, FIRST RECORD=0, PERMANENT
KEY TY LENGTH LOC. D KEY BF LEVEL
1 B 20 1 N 72 1
DATA FILE = SHRTFILE VERSION= A.7.4
KEY CREATED=263/'00 16:48:10.2 KEY ACCESS= 264/'00 8:13: 9.5
KEY CHANGED=263/'00 16:48:10.4 COUNT START=263/'00 16:48:10.9
DATA RECS = 0 DATA BLOCKS= 0 END BLK WDS= 0
DATA BLK SZ= 22 DATA REC SZ= 44 ACCESSORS= 0
FOPEN 1 FREAD 0 FCLOSE 1
FREADDIR 0 FREADC 0 FREADBYKEY 0
FREMOVE 0 FSPACE 0 FFINDBYKEY 0
FGETINFO 0 FGETKEYINFO 0 FREADLABEL 0
FWRITELABEL 0 FCHECK 0 FFINDN 0
FWRITE 0 FUPDATE 0 FPOINT 0
FLOCK 0 FUNLOCK 0 FCONTROL 0
FSETMODE 0 FREE KEYBLK 0 FREE RECS 0
KEYBLK READ 2 KEYBLK WRITTEN 0 KEYBLK SPLIT 0
KEY FILE EOF 10 FREE KEY HD 0 SYSTEM FAILURE 0
MIN PRIME 0 MAX PRIME 0 RESET DATE
DATA FIXED TRUE DATA B/F 1 TOTAL KEYS 1
FIRST RECNUM 0 MIN RECSIZE 20 LANG NATIVE-3000
01 KSM1-FILETAB.
03 KSM1-SH-FILENUMBER PIC S9(4) COMP VALUE 0.
03 KSM1-SH-FILENAME PIC X(8) VALUE "SHRTFILE".
03 KSM1-SH-IO-TYPE PIC S9(4) COMP VALUE 2.
03 KSM1-SH-A-MODE PIC S9(4) COMP VALUE 0.
03 KSM1-SH-PREV-OP PIC S9(4) COMP VALUE 0.
01 KSM1-STATUS.
03 KSM1-STAT1 PIC 9.
03 KSM1-STAT2 PIC 9.
01 KSM1-REC.
03 KSM1-SH-PART-WAREHOUSE PIC X(20).
03 KSM1-SH-PART-NUMBER PIC X(18).
03 KSM1-SH-WAREHOUSE PIC XX.
03 KSM1-SH-STOCK PIC S9(4) COMP.
01 WS-SH-STOCK PIC 9(9)V999.
01 KSM1-RECSIZE PIC S9(4) COMP VALUE 22. 19
CALL "CKREAD" USING KSM1-FILETAB KSM1-STATUS
KSM1-REC KSM1-RECSIZE.
Many thanx
Paul Williams
Powerhouse 4GL Programmer,
Racing Systems Department,
Cosworth Racing Ltd.
Telephone - +44 (0)1604 598481 (Direct Line)
Fax - +44 (0)1604 598506
Website - www.cosworthracing.com
********************************************************************************
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the email administrator - mailadmin@cosworth-racing.co.uk
********************************************************************************
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.