RE: display only lines newer than ??/??/??

["Rubino, Jim" <Jim.Rubino@xxxxxxxx>]

Do the following at the top (in red on the seu line)of your source member
then press enter:

Columns . . . :    1 100                                       Edit
SEU==> HIDE ' ' 1 90 ALL
FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+...
001.00
/*********************************************************************/
002.00 /*  Program: JUT161
*/
003.00 /*     Text: Create Employee Birthdays File
*/
004.00 /*     Date: 05.06.02
*/
005.00 /*   Author: Jim Rubino
*/
007.00 /*
*/
008.00
/*********************************************************************/
009.00 /* Function: Call program for displaying User Id's and Name
*/
011.00 /*
*/
012.00
/*********************************************************************/
013.00 /* Indicator/Function
*/
014.00 /* &IN03     Exit (F01 THRU F24, reserved)
*/
015.00 /*
*/
016.00
/*********************************************************************/
017.00 /*           Modifications
*/
018.00
/*********************************************************************/
018.01 /* Pgmr     Date     Description
*/
018.02 /* ----   --------
------------------------------------------------*/
018.03 /* JIMR   04/06/02   CMS:1937.01  Created Program
*/
022.00 /*
*/

You should get a screen like below:

Columns . . . :    1 100                                       Edit
 SEU==>
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
- - - - ----------- 111 data records excluded
-----------------------------------------------------------------
        ****************** End of data
************************************************************************

Next press F14 and change the value occurrences to process, your date value
to look for and compare as below (in red again) and then F16 to scan:

                          Find/Change Options

Type choices, press Enter.

  Find  . . . . . . . . . . . . .
  Change  . . . . . . . . . . . .
  From column number  . . . . . .   1            1-100
  To column number  . . . . . . .   100          1-100 or blank
  Occurrences to process  . . . .   2            1=Next, 2=All, 3=Previous
                                                 4=First, 5=Last
  Records to search . . . . . . .   1            1=All, 2=Excluded
                                                 3=Non-excluded
  Kind of match . . . . . . . . .   2            1=Same case
                                                 2=Ignore case
  Allow data shift  . . . . . . .   Y            Y=Yes, N=No

  Search for date . . . . . . . .   03/10/07     YY/MM/DD or YYMMDD
    Compare . . . . . . . . . . .   2            1=Less than
                                                 2=Equal to
                                                 3=Greater than

Your seu screen should look similar to this one below:

Columns . . . :    1 100                                       Edit
FIKEMOD/QCLSRC
 SEU==>
JUT161
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
- - - - ------------ 83 data records excluded
----------------------------------------------------------------------------
-------
0067.05              IF         COND(&SYSNAM = 'BLSTEST') THEN(DO)
031007
0067.07              RMVLIBLE   LIB(ETESTHRPR)
031007
0067.08              MONMSG     MSGID(CPF0000 CPC0000 CPD0000)
031007
0067.09              ENDDO
031007
0067.10              IF         COND(&SYSNAM = 'BLSPROD') THEN(DO)
031007
0067.12              RMVLIBLE   LIB(EPRODHRPR)
031007
0067.13              MONMSG     MSGID(CPF0000 CPC0000 CPD0000)
031007
0067.14              ENDDO
031007
- - - - ------------ 20 data records excluded
----------------------------------------------------------------------------
-------
        ****************** End of data
****************************************************************************
**************

I hope this helps you.

Jim Rubino
Senior Business Systems Analyst
FIKE CORPORATION
704 South 10th Street
Blue Springs, Mo.  64015
(816) 229-6216  Ext. 213
 

-----Original Message-----
From: Booth Martin [mailto:Booth@xxxxxxxxxxxx] 
Sent: Tuesday, October 07, 2003 11:25 AM
To: midrange-l@xxxxxxxxxxxx
Subject: display only lines newer than ??/??/??

 
With SEU can we show only the lines in a source member that were modified
after some specified date?  

If so, how?
 
---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 

_______________________________________________
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.