Re: Creating a utility program

[Booth Martin <booth@xxxxxxxxxxxx>]

I am learning, hence the question:  Why the "and" condition?  Would this 
work too?

SELECT * FROM myalias WHERE substr(SRCDTA, 6, 2) ='I '



David FOXWELL wrote:
> CREATE ALIAS myalias FOR mylib/mysrcfile (mypgm)
>
> SELECT * FROM myalias WHERE substr(SRCDTA, 6, 1) ='I'
> and substr(SRCDTA, 7, 1) =' '
>
> This extracts the Ispecs, not sure what Date related data structures are.
>
> -----Message d'origine-----
> De : midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] De la part de Adam West
> Envoyé : mercredi 11 mars 2009 14:29
> À : Midrange Systems Technical Discussion
> Objet : Creating a utility program
>
> HI - Any ideas on how to Create utility program to extract the I-spec of all RPG programs in a source physical file to identify the Date related data structures? What steps would be needed to do this?
>
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
>
>   
> ------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG - www.avg.com 
> Version: 8.0.237 / Virus Database: 270.11.10/1994 - Release Date: 03/10/09 19:51:00
>
>