QUICK and Eloquence

[Joe Boyle]

I meant to type the syntax below ( not sure what code ' generate list
detail' does, it might be the same for all I know )

screen a1
file dsrstatushist primary
generate 
build list detail
go

-----Original Message-----
From: Joe Boyle [mailto:atla38 at dsl.pipex.com] 
Sent: 12 December 2006 14:38
To: 'Abd Ghani Abdullah'; 'powerh-l at lists.sowder.com'
Subject: RE: QUICK and Eloquence

I would suggest you try pasting the syntax below into qdesign, and if the
resulting screen works as you would like, use the generated syntax displayed
to the screen as a guide to rewriting your code.

screen a1
file dsrstatushist primary
generate list detail
go

I have a vague recollection that the master had to be present in the screen,
but I never used Image much so take that with as much salt as you like.


-----Original Message-----
From: powerh-l-bounces+atla38=dsl.pipex.com at lists.sowder.com
[mailto:powerh-l-bounces+atla38=dsl.pipex.com at lists.sowder.com] On Behalf Of
Abd Ghani Abdullah
Sent: 12 December 2006 10:02
To: powerh-l at lists.sowder.com
Subject: QUICK and Eloquence


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.
--
= = = = = = = = = = = = = = = = = = = = = = = = = = = = Mailing list:
powerh-l at lists.sowder.com
Subscribe: "subscribe" in message body to
powerh-l-request at lists.sowder.com
Unsubscribe: "unsubscribe <password>" in message body to
powerh-l-request at lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
Add 'site:lists.sowder.com powerh-l' to your search terms to search the list
archive at Google.