QUICK and Eloquence
Abd Ghani Abdullah
abdghani at staroba.org
Tue Dec 12 04:02:02 CST 2006
Hello all,
I have a problem when accessing detail dataset via the key (in this case
STUDENTN) link to a manual master in Eloquence. It is working find with IMAGE.
Anybody can help out? The serial read is OK.
Here the QUICK PROGRAM.
screen a1
file dsrstatushist
FIELD STUDENTN OF DSRSTATUSHIST REQUIRED NOCHANGE
FIELD HSTDYRPY-STATUSC OF DSRSTATUSHIST
FIELD HSTDYRPY-DTE OF DSRSTATUSHIST
FIELD HSTDYRPY-UPD-DTE OF DSRSTATUSHIST
FIELD HSTDYRPY-FORMN OF DSRSTATUSHIST
PROCEDURE ENTRY
BEGIN
ACCEPT STUDENTN OF DSRSTATUSHIST
ACCEPT HSTDYRPY-STATUSC OF DSRSTATUSHIST
ACCEPT HSTDYRPY-DTE OF DSRSTATUSHIST
ACCEPT HSTDYRPY-UPD-DTE OF DSRSTATUSHIST
ACCEPT HSTDYRPY-FORMN OF DSRSTATUSHIST
END
PROCEDURE PATH
BEGIN
REQUEST STUDENTN OF DSRSTATUSHIST
IF PROMPTOK
THEN LET PATH = 1
IF PATH = 0
THEN BEGIN
LET PATH = 2
END
END
PROCEDURE FIND
BEGIN
IF PATH = 1
THEN GET DSRSTATUSHIST VIA STUDENTN
IF PATH = 2
THEN GET DSRSTATUSHIST SEQUENTIAL
END
PROCEDURE UPDATE
BEGIN
STARTLOG DSRSTATUSHIST
PUT DSRSTATUSHIST
STOPLOG
END
PROCEDURE DELETE
BEGIN
DELETE DSRSTATUSHIST
END
and this is the schema from MPE
> show rec dsrstatushist
1906/12/12 SISTEM PELAJAR (v4) Page 1
R E C O R D R E P O R T
For DICTIONARY: phd
Record: DSRSTATUSHIST
of File: DBPELJ
Organization: DETAIL
Type: TURBOIMAGE
Open: DSRSTATUSHIST of DBPELJ.DATABASE.PELAJAR
Record Size: 40 Bytes
-- Record Contents --
Item Type Size Occ Offset
STUDENTN ZONED UNSIGNED 12 0
HSTDYRPY-STATUSC CHARACTER 2 12
HSTDYRPY-DTE ZONED UNSIGNED 8 14
HSTDYRPY-UPD-DTE CHARACTER 8 22
HSTDYRPY-FORMN CHARACTER 10 30
?
1906/12/12 SISTEM PELAJAR (v4) Page 2
R E C O R D R E P O R T
For DICTIONARY: phd
-- Index Contents --
** STUDENTN is a 12 byte REPEATING PRIMARY index **
** that links to MSTUMASTER **
Segment Type Size Ord Offset
STUDENTN ZONED UNSIGNED 12 A 0
-- and schema in UNIX
- show rec dsrstatushist
2006/12/12 SISTEM PELAJAR (v4) Page 1
R E C O R D R E P O R T
For DICTIONARY: /home/dev08/PHD033.pdc
Record: DSRSTATUSHIST
of File: DBPELJ
Organization: DETAIL
Type: ELOQUENCE
Open: DSRSTATUSHIST of DBPELJ
Record Size: 40 Bytes
-- Record Contents --
Item Type Size Occ Offset
STUDENTN ZONED UNSIGNED 12 0
HSTDYRPY-STATUSC CHARACTER 2 12
HSTDYRPY-DTE ZONED UNSIGNED 8 14
HSTDYRPY-UPD-DTE CHARACTER 8 22
HSTDYRPY-FORMN CHARACTER 10 30
?
2006/12/12 SISTEM PELAJAR (v4) Page 2
R E C O R D R E P O R T
For DICTIONARY: /home/dev08/PHD033.pdc
-- Index Contents --
** STUDENTN is a 12 byte REPEATING PRIMARY index **
** that links to MSTUMASTER **
Segment Type Size Ord Offset
STUDENTN ZONED UNSIGNED 12 A 0
?
Thanks & regards.
More information about the powerh-l
mailing list