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