AS/400 Code Samples - AS/400  - SPLIT_NM - Split a combined name into Last and First name fields.  


Author:		George Pearson 
Company:	Green Springs Software, Inc.   www.green-springs.com
Purpose:	Build separate First and Last name fields from, a combind name field. 
		Assumes that a Comma separates the 2 name components
		

Components:	SPLTI_NM	RPGLE


Parameters:     *None		

	
Written:	Jan 2003

 


     *˜**********************************************************************************
      *
      *         GREEN SPRINGS SOFTWARE, INC.           ASHLAND, OR
      *
      *˜*********************************************************************************
      *   PROGRAM ID     - SPLIT_NM
      *   DISPLAY FILE   - *None
      *   DESCRIPTION    - Split Combined name into First and Last
      *   WRITTEN BY     - George Pearson, Green Springs Software, Inc.
      *   DATE CREATED   -  1/20/2003
      *******************************************************************
      *   (C) MMIII GREEN SPRINGS SOFTWARE, INC,
      *            PO BOX 3336,   ASHLAND OR 97520
      *            (541) 488-2560        WWW.GREEN-SPRINGS.COM
      *******************************************************************

      *˜*********************************************************************************
     FDEP_345   UF   E           K DISK    RENAME(DEP_345:FORMAT1)
      *
      * šWorking Variables
      * ‚-----------------
     D @POS            S              5  0
      *
      * šMainline
      * ‚--------
     C                   DOU       *InLR = *On
     C                   READ      FORMAT1                                LR
     C                   IF        *InLR = *Off
     C                   EVAL      @POS = %SCAN(',':DPDNM)
     C                   IF        @POS > 0
     C                   EVAL      DPLNM = %SUBST(DPDNM:1:@POS-1)
     C                   EVAL      DPFNM = %SUBST(DPDNM:@POS+1:18)
     C                   UPDATE    FORMAT1
     C                   EndIF
     C                   EndIF
     C                   EndDO
      *
      *˜************** End of Source SPLIT_NM *****************************