RE: S/36-mode alt indexes

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
BLDFILE ROB1,S,RECORDS,10,100,,T,,,NDFILE
UPDDTA ROB1
DSPPFM ROB1
*...+....
123456A01
987654B02
123654C03
BLDFILE XOB1,S,RECORDS,10,100,,T,,,NDFILE
UPDDTA XOB1
DSPPFM XOB1
123456asdfasdfasdf
987654kdkfjdkidd
154878asdfasdf
STRSQL
SELECT SUBSTR(ROB1.F00001,1,6), SUBSTR(ROB1.F00001,7,1),
       SUBSTR(ROB1.F00001,8,50)
FROM ROB1 JOIN XOB1
          ON SUBSTR(ROB1.F00001,1,6)=SUBSTR(XOB1.F00001,1,6)
SUBSTR  SUBSTR  SUBSTR
123456    A     01
987654    B     02

But if you are wanting to create a permanent view, like a logical file -
you can't.
Message ID . . . . . . :   SQL7008       Severity . . . . . . . :   30
Message type . . . . . :   Diagnostic

Message . . . . :   ROB1 in QS36F not valid for operation.
Cause . . . . . :   The reason code is 7:
    -- Code 7 -- a based-on table used in creation of a view is not valid.

  Either the table is program described table or it is in a temporary
library.


Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




"Dan Bale" <dbale@samsa.com>
Sent by: rpg400-l-admin@midrange.com
04/30/2002 03:35 PM
Please respond to rpg400-l


        To:     <rpg400-l@midrange.com>
        cc:
        Fax to:
        Subject:        RE: S/36-mode alt indexes


Yes, I think so.  Is ROB1 the file name?

What is the result of running this?  Will the view (?) be a record with
three fields and a length of 57 bytes?  Would I be able to chain or
SETLL/READE on one or more of the substrings?

- Dan Bale
(I am *NOT* "Dale"
http://archive.midrange.com/midrange-l/200105/msg00281.html )
SAMSA, Inc.
989-790-0507
DBale@SAMSA.com <mailto:DBale@SAMSA.com>
  Quiquid latine dictum sit altum viditur.
  (Whatever is said in Latin seems profound.)

-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
Behalf Of rob@dekko.com
Sent: Tuesday, April 30, 2002 4:20 PM
To: rpg400-l@midrange.com
Subject: RE: S/36-mode alt indexes


This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Like this?

SELECT SUBSTR(ROB1.F00001,1,6), SUBSTR(ROB1.F00001,7,1),
       SUBSTR(ROB1.F00001,8,50)
FROM ROB1 JOIN XOB1
          ON SUBSTR(ROB1.F00001,1,6)=SUBSTR(XOB1.F00001,1,6)

Works on my system.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.