Name Separation Utility

The full name must be in a particular format for this utility to work. For lack of a better term, call it the SIS name format. Briefly, this format is:

llll, ffff mmmm[, ssss]

where:
llll = last name
ffff = first name
mmmm = middle name or initial (if any)
ssss = name suffix (if any)

or last name is, e.g., Jones Jr, in which case no official suffix field will exist.

The following are examples of correct full name format:

• Adams, John Q
• Adams, John Q, Jr.
• Adams, John
• Adams, John, Jr.
• Adams Jr., John

The routine is only useable in Easytrieve Plus or Cobol. The routine has an Easytrieve Plus include to quickly and easily define the variables needed to use the routine. It is called LIB9050B.

The module which performs the utility is IS9050B in Easytrieve Plus. For Cobol, the module IS9050A needs to be accessed.

The working storage area used to interface is 146 bytes in 3 groups:

• Return Code (1 byte, output)
  • 0 = Successful Completion of the Routine
  • 8 = Invalid Name Format
  • 9 = No Data Passed to Routine
• Full Name (50 bytes, input)
• Separated Name (95 bytes, output)
  • Last Name (30 bytes)
  • First Name (30 bytes)
  • Middle Name or Initial (30 bytes)
  • Name Suffix (5 bytes)

When the last name contains the name suffix (e.g., Adams Jr.), the name suffix will be included in the last name field and will not be in a separate field.

The IS9050B Include is invoked as follows:

where xxx is the variable containing the 146 character interface string. If the LIB9050B module is included in the program, this would be HPARM.

IS9050B Example

MACRO
FILE FILE01
   ...
   ...
   ...
  %LIB9050B

JOB INPUT NULL
  HPARM2 = 'Adams, John Q, Jr.'
  %IS9050B HPARM
  DISPLAY HPARM3
  STOP

This is a very simplistic example of use of the IS9050B routine. It will separate the name into its component parts.

No JCL changes are required to use this utility.

Limitations

How It Works