RE: Green-screen search argument

Jay,

  As a method to solve your task using INSPECT, you must use reference 
modification to set the length of the search argument since it will vary.  The 
first PERFORM is just used to determine the length of the length of the data 
without the trailing spaces.  In the example below, define L and S as numeric 
subscripts of adequate length and SEARCH-ARG as a alphanumeric field that holds 
the value you are searching for.  The WS-SEARCH-ARG-FOUND is just a switch 
field to indicate the results.  FS-COBOL-NAME is the field that is being 
searched.

WORKING-STORAGE.
           01  FS-COBOL-NAME           PIC X(30).
           01  WS-SEARCH-ARG-FOUND         PIC X   VALUE 'N'.
               88  SEARCH-ARG-FOUND                VALUE 'Y'.
           01  S                           PIC S9(5) VALUE +0.
           01  L                           PIC S9(5) VALUE +0.
PROCEDURE DIVISION.
                    MOVE 'N' TO WS-SEARCH-ARG-FOUND
                    PERFORM VARYING L FROM 30 BY -1 UNTIL
                             SEARCH-ARG(L:1) NOT = SPACE OR
                             L = 1
                    END-PERFORM
                    MOVE ZERO TO S
                    INSPECT FS-COBOL-NAME(FS-IDX)
                        TALLYING S FOR ALL
                        SEARCH-ARG(1:L)
                    IF S > ZERO
                        MOVE 'Y' TO WS-SEARCH-ARG-FOUND
                    END-IF

-----Original Message-----
From: Jay Sulzmann [mailto:jsulzmann@xxxxxxxxxxx]
Sent: Monday, August 16, 2004 8:43 AM
To: COBOL Programming on the iSeries/AS400
Subject: [COBOL400-L] Green-screen search argument


Good morning,

Suppose in a subfile app I want to list only the entries that contain a 
specific string value and filter out all others. For example, I want to list 
only the customers that have "JOHN" in their name.

The search-argument is "JOHN" and the application needs to display "JOHN 
SMITH", "BIG-JOHN", "SALLY JOHNSON". Suppose the Customer Name is 30 bytes 
long. How do I construct an INSPECT operation so that it looks at the customer 
name for the string "JOHN" without including the 26 blanks?

Cheers. -- Jay

=================================
Jay Sulzmann
AS/400 Senior Programmer/Analyst
AS/400 Certified RPG IV Developer
 
Hainey Business Systems LLC
8 East Canal Street
Dover, PA  17315
 
Tel:  717-718-9601 Ext. 231
Fax:  717-292-9474
AIM: bluejay0827 
Web: www.hbs-inc.com
____________________________________
Providing E-Business, EDI, AS/400
Development and related services nationwide.
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.