Field Edit Formats

CA Telon-generated programs perform field edits:

• On output when fields are moved from a file or work area to the screen. On output, a field edit simply reformats the field as it is moved.
• On input when fields are moved from the screen to a file or work area. On input, a field edit first checks the field for valid format and/or content before reformatting it for storage.

Standard field edit routines and modules

CA Telon supplies a number of standard field edit routines. This appendix documents these routines, the parameters they pass, and the processing they perform.

Customized field edit routines

You can also code your customized edit routines for use at your installation.

Specifying a field edit

In the TDF, you can specify a field edit when you create a panel definition. The value of the FLDTYPE field, appearing on TDF panel field update screens, defines the data type of the application screen field (date, dollar, state code, and so on) and determines the corresponding field edit logic called to validate or format the field.

Standard Field Edit Routines

The following identify valid FLDTYPE values associated with standard field edit routines. In these tables, the data type processed Alpha is defined as PIC X for COBOL and CHAR for PL/I. The data type Numeric is defined as PIC 9 for COBOL and PIC BINARY, or FLOAT for PL/I.

CA Telon Output Edit Routines

CA Telon Input Edit Routines

Standard Field Edit Modules

The following table lists standard field edit modules provided by CA Telon and summarizes the edit function associated with each module.

Detailed documentation of each call module is provided after the table that includes:

• A description
• Input parameters
• Output parameters
• Edit processing

See 1 for more information about edit processing.

OCAR

Function

Replaces unprintable characters with periods.

Parameters

Edit processing

1. Search the output field for unprintable characters.
2. Translate unprintable characters to periods (X'4B').

OCART

Function

Replaces unprintable characters with periods. The difference between this field edit and IHEX is that this edit is passed the address of the field to be converted, rather than the value of the field itself.

Parameters

Edit processing

1. Search output-fieldname for unprintable characters.
2. Translate unprintable characters to periods (X'4B').

OCDATE

Function

Format a date stored as ccyymmdd for output as either mm/dd/cc/yy (if TPO-datefield-LTH is 10) or mmddccyy (if the TPO-datefield-LTH is 8).

Note: If the INTDATE parameter in the TLNIIS macro is set to I, a call to OINTCDT is generated in place of a call to ODATE. For more information, refer to OINTCDT.

Parameters

Edit processing

1. Move ccyy in WORKFILED-NUMERIC to make the result mmddccyy.
2. For 10-character output, insert the slashes.
3. Move the edited form to the output field.

OCJULIAN

Function

Formats a date stored in ccyyddd for output as mm/dd/ccyy (if TPO-datefield-LTH is 10) or mmddccyy (if TPO-datefield-LTH is 8).

Note: If the INTDATE parameter in the TLNIIS macro is set to 'I,' a call to OINTCJUL is generated in place of a call to OCJULIAN. See OINTCJUL for more information.

Parameters

Edit processing

1. Convert ddd from the ccyyddd of WORKFLD-NUMERIC to mmdd.

   Note: If ddd is greater than 365 (366 for leap year), yy is adjusted one year for each additional 365 (366) days.

2. If TPO-fieldname-LTH is 10, insert slashes (/) into the mmddccyy to create the mm/dd/ccyy format.
3. Move the reformatted value to TPO-fieldname.

ODATE

Function

Formats a date stored as yymmdd for output as either mm/dd/yy (if TPO-datefield-LTH is 8) or mmddyy (if the TPO-datefield-LTH is 6).

Note: If the INTDATE parameter in the TLNIIS macro is set to 'I', a call to OINTLDT is generated in place of a call to ODATE. For more information, see 33.

Parameters

Edit processing

1. Move yy in WORKFLD-NUMERIC to make the result mmddyy.
2. For eight-character output, insert the slashes.
3. Move the edited form to the output field.

OFLNULL

Function

Right-justifies a floating-point or signed-numeric field.

If the null indicator is set, the output field is set to spaces. The edit uses the minimum number of characters required to include all significant digits to the left of the implied decimal point. Then, given the output field length, it formats as many significant digits to the right of the decimal point as possible. Extra digits to the right of the decimal are truncated, not rounded.

The routine signifies an overflow condition (the output field is too small to contain the whole number) by filling the output field with all asterisks (*).

Parameters

Edit processing

1. Determine if the field is null by checking the null indicator.
2. If the field is null, move spaces to the TPO buffer field. Otherwise, if WORKFLD-NUMERIC is negative, store a minus sign in the first position of TEMP-OUT-FIELD, a temporary, internal, alphanumeric work area.
3. Bypass any leading zeros encountered before the implied decimal.
4. Find any significant digits to the right of the decimal point and store them in TEMP-OUT-FIELD after any minus sign.
5. If the significant positions after the implied decimal are all zeros, exit the edit processing. Otherwise, store a decimal point in TEMP-OUT-FIELD following the digits already there.
6. Check to see if there are more significant characters in the TEMP-OUT-FIELD than specified by TPO-fieldname-LTH. If so, fill TPO-fieldname with all asterisks (*). Then exit the edit processing.
7. Find all remaining digits after the decimal and up to the last group of all zeros. Store these digits in TEMP-OUT-FIELD after the decimal point.
8. Right-justify the TEMP-OUT-FIELD value in TPO-fieldname and end the routine.

OFLOAT

Function

Right-justify a floating-point or signed-numeric field.

The edit uses the minimum number of characters required to include all significant digits to the left of the implied decimal point. Then, given the output field length, it formats as many significant digits right of the decimal point as possible. Extra digits right of the decimal are truncated, not rounded.

The routine signifies an overflow condition by filling the output field with all plus (+) or minus (-) signs, depending on the sign of the input value.

Parameters

Edit processing

1. If WORKFLD-NUMERIC is negative, store a minus sign in the first position of TEMP-OUT-FIELD, a temporary, internal, alphanumeric work area.
2. Bypass any leading zeros encountered before the implied decimal.
3. Find any significant digits right of the decimal point and store them in TEMP-OUT-FIELD after any minus sign.
4. If the significant positions after the implied decimal are all zeros, exit the edit processing. Otherwise, store a decimal point in TEMP-OUT-FIELD following the digits already there.
5. Check to see if there are more significant characters in TEMP-OUT-FIELD than specified by TPO-fieldname-LTH. If so, fill TPO-fieldname with all plus (+) or all minus (-) signs, depending on the sign of the input field. Then exit the edit processing.
6. Find all remaining digits after the decimal up to the last group of all zeros and store these in TEMP-OUT-FIELD after the decimal point.
7. Right-justify TEMP-OUT-FIELD value in TPO-fieldname and end the routine.

OFORMAT

Function

Reformats output.

Specification for this special edit is made by entering the FORMAT command in the SPEC field on the Update Output/Input/Outin Field screen or the Update Batch Output Fields screen. See Update Output/Input/Outin Field for more information.

OHEX

Converts a character string to the hexadecimal equivalent for each character.

Parameters

Edit processing

1. Determine the output field length.
2. Use the assembly language TRANSLATE instruction and convert the input in eight-byte pieces.
3. If fewer than eight characters remain, convert the last bytes individually.

OHEXA

Function

Converts a one- to four-character string to the hexadecimal equivalent for each character (for example, 'AB12' converts to 'C1C2F1F2'). This field edit is designed specifically for converting addresses.

Parameters

Edit processing

1. Determine the output field length.
2. Use the assembler language TRANSLATE instruction to convert the output.
3. If the output length is not equal to 8, the first byte of input is ignored, and bytes 2 through 4 are converted (with the assumption that the input is a 24-bit address). Otherwise, all four bytes are converted.

OHEXP

Function

Converts a one- to four-character string to the hexadecimal equivalent for each character (for example, 'AB12' converts to 'C1C2F1F2'). The difference between this field edit and OHEX is that this edit is passed the address of the field to be converted, rather than the value of the field itself.

Parameters

Edit processing

1. Determine the output field length.
2. Use the assembler language TRANSLATE instruction to convert the output.
3. Move the output to TPO-fieldname.

OHEXT

Function

Converts a one- to four-character string to the hexadecimal equivalent for each character (for example, 'AB12' converts to 'C1C2F1F2'). The difference between this field edit and OHEX is that this edit is passed the address of the field to be converted, rather than the value of the field itself.

Parameters

Edit processing

1. Determine the output field length.
2. Use the assembler language TRANSLATE instruction to convert the output.
3. Move the output to TPO-fieldname.

OINTCDT

Function

Reformats a date stored in ccyymmdd to dd/mm/ccyy (if TPO-datefield-LTH is 10) or to ddmmccyy (if the TPO-datefield-LTH is 8).

A call to this field is generated in either of the following cases:

• It is requested directly (that is, 'INTCDT' is identified as the output field edit)
• The INTDATE parameter in the TLNIIS macro is set to 'I' and DATE is identified as the output field edit

Parameters

Edit processing

1. Determine the output field length.
2. Reformat the WORKFLD-NUMERIC date value from ccyymmdd to ddmmccyy. If TPO-datefield-LTH is 10, insert slashes (/) to produce dd/mm/ccyy.
3. Move the reformatted value to TPO-datefield.

OINTCJUL

Function

Reformats a date stored in ccyyddd format to dd/mm/ccyy (if TPO-datefield-LTH is 10) or ddmmccyy (if TPO-datefield-LTH is 8).

A call to this field edit is generated in either of these cases:

• It is requested directly (that is, 'INTCDT' is identified as the output field edit)
• The INTDATE parameter in the TLNIIS macro is set to 'I' and JULIAN is identified as the output field edit

Parameters

Edit processing

1. Determine the output field length.
2. Reformat the WORKFLD-NUMERIC date value from ccyyddd to ddmmccyy. If TPO-datefield-LTH is 10, insert slashes (/) to produce dd/mm/ccyy.
3. Move the reformatted value to TPO-datefield.

Note: If ddd is greater than 365 (366 for leap year), yy is adjusted one year for each additional 365 (366) days.

OINTLDT

Function

Reformats a date stored in yymmdd format to dd/mm/yy (if TPO-datefield-LTH is 8) or ddmmyy (if TPO-datefield-LTH is 6).

A call to this field edit is generated in either of these cases:

• It is requested directly (that is, 'INTLDT' is identified as the output field edit)
• The INTDATE parameter in TLNIIS is set to 'I' and DATE is identified as the output field edit

Parameters

Edit processing

1. Determine the output field length.
2. Reformat the WORKFLD-NUMERIC date value from yymmdd to ddmmyy. If TPO-datefield-LTH is 8, insert slashes to produce dd/mm/yy.
3. Move the reformatted value to TPO-datefield.

OINTLJUL

Function

Reformat a date stored in yyddd format to dd/mm/yy (if the TPO-datefield-LTH is 8) or ddmmyy (if the TPO-datefield-LTH is 6).

A call to this field edit is generated in either of these cases:

• It is requested directly (that is, 'INTLJUL' is identified as the output field edit)
• The INTDATE parameter in TLNIIS is set to 'I' and JULIAN is identified as the output field edit

Parameters

Edit processing

1. Determine the output field length.
2. Reformat the WORKFLD-NUMERIC date value from yyddd to ddmmyy. If TPO-datefield-LTH is 8, insert slashes to produce dd/mm/yy.
3. Move the reformatted value to TPO-datefield.

   Note: If ddd is greater than 365 (366 for leap year), yy is adjusted one year for each additional 365 (366) days.

OJULIAN

Function

Formats a date stored as yyddd for output as mm/dd/yy (if TPO-datefield-LTH is 8) or mmddyy (if TPO-datefield-LTH is 6).

Note: If the INTDATE parameter in the macro TLNIIS is set to 'I', a call to OINTLJUL is generated in place of a call to OJULIAN. For more information, see OINTLJUL.

Parameters

Edit processing

1. Convert ddd from the yyddd of WORKFLD-NUMERIC to mmdd.

   Note: If ddd is greater than 365 (366 for leap year), yy is adjusted up one year for each additional 365 (or 366) days.

2. Insert slashes into the mmddyy to create the mm/dd/yy format.

ONULL

Function

Formats an output character field based on the null indicator.

Parameters

Edit processing

1. Determine if the field is null by checking the null indicator.
2. If the field is null, move spaces to TPO-fieldname. Otherwise, OUTPUT-fieldname is moved to TPO-fieldname.

ONUMNULL

Function

Right-justify an output integer to conform with a length specified by a PIC parameter on a Field statement.

If the null indicator is set, the output field is set to spaces. Otherwise, this edit right-justifies a numeric field.

The routine signifies an overflow condition by filling the output field with asterisks (*).

Parameters

Edit processing

1. Determine if the field is null by checking the null indicator.
2. If the field is null, move spaces to TPO-FIELDNAME. Otherwise, the numeric value from the DBNAME field (WORKFLD-NUMERIC) is right-justified, blank-filled into TPO-fieldname.

OSSA

Function

Determines the length of an input SSA.

Parameters

Edit processing

1. Search through the SSA to check for qualification.
2. If a space is found during the search, process the SSA as qualified, then branch to compute the length below.

   If, instead, a left paren is found, process the SSA as unqualified. Search until an equal number of right and left parentheses is found, or until the maximum TPO-ssaname-LTH (256) is reached.

3. Compute the length of the SSA and move the length to TPO-ssaname-LTH.
4. Move the SSA to TPO-ssaname.

OVCHAR

Function

Returns a variable-length character field and length.

Parameters

Edit processing

1. Determine the output field length (the lesser of the variable-length character field length and TPO-fieldname-LTH).
2. Move the character portion of the variable-length character field to the output buffer (TPO-fieldname).

OVNULL

Function

Returns a variable-length character field and length by performing an alphanumeric move from a variable-length character field based on the null indicator.

If the null indicator is set, the output field is set to spaces. Otherwise, the character portion of the variable-length character field is moved to the output buffer.

Parameters

Edit processing

1. Determine if the field is null by checking the null indicator.
2. If the field is null, move spaces to TPO-fieldname. Otherwise, determine the output length (the lesser of the variable-length character field length and TPO-fieldname-LTH).
3. Move the character portion of the variable-length character field to the output buffer.

IBDOL

Function

Checks input for valid dollar format, with a period (.) separating dollars and cents.

The difference between this field edit and IDOLLAR is that it allows larger numbers to be validated because the WORKFLD-NUMERIC-1 field in which the validated entry is returned is defined as PIC S9(16)V9(2) for COBOL, PIC (13)9V9T for PL/I.

Note: If the INTDATE parameter in the macro TLNIIS is set to 'I', a call to IBCURR is generated in place of a call to IBDOL. For more information, see IBCURR.

Parameters

Edit processing

1. Strip incoming TPI field of leading and trailing blanks.
2. Test the antipenultimate position for a decimal point.
3. Strip the decimal point and move the justified number to WORKFLD-NUMERIC-1.
4. Zero-fill the value in WORKFLD-NUMERIC-1.
5. Test WORKFLD-NUMERIC-1 for valid numeric value.
6. Assign FIELD-EDIT-ERROR, based on outcome of decimal point placement test and numeric validation.

IBCURR

Function

Checks for valid international currency entry (that is, with a comma separating the last two digits of the numeric entry). The difference between this field edit and ICURRNCY is that it allows larger numbers to be validated because the WORKFLD-NUMERIC-1 field in which the validated entry is returned is defined as PIC S9(16)V9(2) for COBOL, PIC (13)9V9T for PL/I.

A call to this field edit is generated in either of these cases:

• It is requested directly (that is, 'BCUR' is identified as the OUTPUT field edit).
• The INTDATE parameter in TLNIIS is set to 'I' and 'BDOL' is identified as the output field edit.

Parameters

Edit processing

1. Strip incoming TPI field of leading and trailing blanks.
2. Test the antipenultimate position for a comma.
3. Strip the comma and move the justified number to WORKFLD-NUMERIC.
4. Zero-fill the value in WORKFLD-NUMERIC-1.
5. Test WORKFLD-NUMERIC-1 for valid numeric value.
6. Assign FIELD-EDIT-ERROR, based on outcome of decimal point placement test and numeric validation.

IBNUM

Function

Checks a field for valid integer characteristics. The difference between this field edit and ICURRNCY is that it allows larger numbers to be validated because the WORKFLD-NUMERIC-1 field in which the validated entry is returned is defined as PIC 9(16)V9(2)T for COBOL, PIC (13)9V9T for PL/I.

Parameters

Edit processing

1. Strip incoming TPI field of leading and trailing blanks.
2. Justify the input entry and move it to WORKFLD-NUMERIC-1.
3. Zero-fill the value in WORKFLD-NUMERIC-1.
4. Test WORKFLD-NUMERIC-1 for valid numeric value.
5. Assign FIELD-EDIT-ERROR, based on outcome of decimal point placement test and numeric validation.

ICDATE

Function

Checks input for valid date format, mm/dd/ccyy or mm-dd-ccyy (if TPO-datefield-LTH is 10) or mmddccyy (if TPO-datefield-Lth is 6), and stores it as ccyymmdd.

Note: If the INTDATE parameter in the TLNIIS macro is set to 'I,' a call to IINTCDT is generated in place of a call to IDATE. See 1.

Parameters

Edit processing

1. If the field length is ten bytes, check for valid delimiters. If invalid delimiters are found, exit with error code G130.
2. Move the date to WORKFLD-NUMERIC and test for valid month, day, and year. If invalid, return appropriate error code. Otherwise, return edited date in WORKFLD-NUMERIC.

Note: The characters cc and yy are tested for only valid numeric characters. The characters dd and mm are edited for valid characters.

ICURRNCY

Function

Checks for valid international currency entry (that is, with a comma separating the last two digits of the numeric entry).

A call to this field edit is generated in either of these cases:

• It is requested directly (that is, 'CURRNCY' is identified as the output field edit)
• The INTDATE parameter in TLNIIS is set to 'I' and 'DOLLAR' is identified as the output field edit

Parameters

Edit processing

1. Strip incoming TPI field of leading and trailing blanks.
2. Test the antipenultimate position for a comma.
3. Strip the comma and move the justified number to WORKFLD-NUMERIC.
4. Zero-fill the value in WORKFLD-NUMERIC.
5. Test WORKFLD-NUMERIC for valid numeric value.
6. Assign FIELD-EDIT-ERROR, based on outcome of decimal point placement test and numeric validation.

IDATE

Function

Checks input for valid date format, mm/dd/yy or mm-dd-yy (if TPI-datefield-LTH is 8) or mmddyy (if TPI-datefield-LTH is 6), and stores it as yymmdd.

Note: If the INTDATE parameter in the macro TLNIIS is set to 'I,' a call to IINTLDT is generated in place of a call to IDATE. For more information, see IINTLDT.

Parameters

Edit processing

1. If the field length is eight, check for valid delimiters. If invalid delimiters are found, exit with error code G130.
2. Move date to WORKFLD-NUMERIC and test for valid month, day, and year. If invalid, return appropriate error code. Otherwise, return edited date in WORKFLD-NUMERIC.

   Note: Yy is tested for only valid numeric characters. Dd and mm are edited for valid characters.

IDOLLAR

Function

Checks input for valid dollar format, with a period (.) separating dollars and cents.

Note: If the INTDATE parameter in the macro TLNIIS is set to 'I', a call to ICURRNCY is generated in place of a call to IDOLLAR. For more information, see ICURRNCY.

Parameters

Edit processing

1. Strip incoming TPI field of leading and trailing blanks.
2. Test the third from the last position for a valid decimal point (when INTDATE=U) or comma (when INTDATE=I).
3. Strip the decimal point or comma and move the justified number to WORKFLD-NUMERIC.
4. Zero-fill the value in WORKFLD-NUMERIC.
5. Test WORKFLD-NUMERIC for a valid numeric value.

IFLNULL

Function

Checks a field for a valid number. This allows for a leading sign and an optional decimal point.

Parameters

Edit processing

If the input field is blank, set the null indicator to -1. Otherwise, set the null indicator to 0 and:

1. Skip leading blanks.
2. Check to see if the next character is a plus (+) or minus (-) sign.
3. Move all remaining characters, up to the decimal point, or a space, to a temporary work area DIGIT-GROUP.
4. If DIGIT-GROUP has more than 11 digits in a COBOL program or more than 10 digits in a PL/I program, exit with error code NXXX. Otherwise, move the contents of DIGIT-GROUP to a second temporary work area WS-FIELD-NUM.
5. If a decimal was found, place all numeric characters following the decimal point into DIGIT-GROUP.
6. If the resulting DIGIT-GROUP has more than seven digits in a COBOL program or more than five digits in a PL/I program, exit with error code NXXX. Otherwise, move DIGIT-GROUP to WS-FIELD-NUM following the original digits and a decimal point.
7. If the remaining unprocessed characters are blank, perform the following calculation to obtain the correct sign:

   WORKFLD-NUMERIC = 0 +│- WS-FIELD-NUM
   

   +│- is the sign stored as the first nonblank character from the input field. If no character is found, plus (+) is assumed.

8. If any of the remaining unprocessed characters are not blanks, exit with error code NXXX.

IFLOAT

Function

Checks a field for a valid number. This allows for a leading sign and optional decimal point.

Parameters

Edit processing

1. Skip leading blanks.
2. Check to see if the next character is a plus (+) or minus (-) sign.
3. Move all remaining characters, up to the decimal point, or a space, in a temporary work area DIGIT-GROUP.
4. If DIGIT-GROUP has more than eleven digits in a COBOL program or more than nine digits in a PL/I program, exit with error code G122. Otherwise, move the contents of DIGIT-GROUP to a second temporary work area WS-FIELD-NUM.
5. If a decimal was found, place all the following numeric characters in DIGIT-GROUP.
6. If there are more than seven digits in the resulting DIGIT-GROUP value, exit with error code G122. Otherwise, move DIGIT-GROUP to WS-FIELD-NUM following the original digits and a decimal point.
7. If the remaining unprocessed characters are blank, perform the following calculation to obtain the correct sign:

   WORKFLD-NUMERIC = 0 {+│-} ES-FIELD-NUM.
   

   +│- is the sign stored as the first nonblank character from the input field. If no character is found, plus (+) is assumed.

   If any of the remaining unprocessed characters are not blanks, exit with error code G122.

IFULLCAR

Function

Verify that there are no blanks in an input field. The difference between IFULLCAR and INBALPHA is that IFULLCAR allows no blanks at all. INBALPHA allows leading and trailing blanks.

Parameters

Edit processing

1. Scan for blanks.
2. Return an error code of G122 if any blanks are found. Otherwise, move the field to WORKFLD-ALPHA and exit.

IFORMAT

Function

Reformats input.

Specification for this special edit is made by entering the FORMAT command in the SPEC field on the Update Output/Input/Outin Field screen.

See Update Output/Input/Outin Field or Update Batch Output Fields for more information.

IFULLNUM

Verify that all input characters in the field are numeric.

Parameters

Edit processing

1. Test all positions for valid numeric characters.
2. If any non-numeric characters are found, exit with error code G124.
3. Right-justify and zero-fill the input value and move it to WORKFLD-NUMERIC.

IHEX

Function

Converts a hex-character string to the hexadecimal equivalent for each pair of hex-character representations (for example, 'C1F2' converts to 'A1').

Parameters

Edit processing

1. Determine the length of the input field.
2. Use the assembler language TRANSLATE instruction to convert the output from hex-representation to its character equivalent.
3. Assign FIELD-EDIT-ERROR.

IHEXA

Function

Converts a hex-character string of one to eight bytes to the hexadecimal equivalent for each pair of hex-character representations (for example, 'C1F2' converts to 'A1'). This field edit is designed specifically for converting addresses.

Parameters

Edit processing

1. Determine the length of the input field.
2. Use the assembly language TRANSLATE instruction to convert the output from hex-representation to hexadecimal.
3. Right-justify the input into the full-word output field.
4. Assign FIELD-EDIT-ERROR.

IINTCDT

Function

Validates a date entered as dd/mm/ccyy or dd-mm-ccyy (if TPI-datefield-LTH is 10) and stores it in ccyymmdd format.

A call to this field edit is generated in either of these cases:

• It is requested directly (that is, 'INTCDT' is identified as the input field edit)
• The INTDATE parameter in TLNIIS is set to 'I' and CDATE is identified as the input field edit

Parameters

Edit processing

1. Determine the input field length.
2. If 10, check for valid delimiters ('/' or '-'). If invalid delimiters are found, set FIELD-EDIT-ERROR to G130.
3. Move date to WORKFLD-NUMERIC and test for valid day, month, century, and year.
4. If invalid, set FIELD-EDIT-ERROR to the appropriate error code. Otherwise, return edited date in WORKFLD-NUMERIC.

   Note: Cc and yy are tested only for valid numeric characters. Dd and mm are edited for both numeric and valid month-day combinations.

IINTCJUL

Function

Validates a date entered as dd/mm/ccyy or dd-mm-ccyy (if TPI-datefield-LTH is 10) and stores it in ccyyddd format.

A call to this field edit is generated in either of these cases:

• It is requested directly (that is, 'INTCJUL' is identified as the input field edit)
• The INTDATE parameter in TLNIIS is set to 'I' and CJULIAN is identified as the input field edit

Parameters

Edit processing

1. Determine the input field length.
2. If 10, check for valid delimiters ('/' or '-'). If invalid delimiters are found, set FIELD-EDIT-ERROR to ERR1.
3. Test for valid day, month, and year. If invalid, set FIELD-EDIT-ERROR to the ERR1 error code. Otherwise, convert the edited date to ccyyddd and move it to WORKFLD-NUMERIC.

   Note: Cc and yy are tested only for valid numeric characters. Dd and mm are edited for both numeric and valid month-day combinations.

ICJULIAN

Function

Checks input for a valid date format, mm/dd/ccyy or mmd-dd-ccyy (if TPI-datefield-LTH is 10) or mmddccyy (if TPI-datefield-LTH is 8).

Note: If the INTDATE parameter in TLNIIS is set to 'I,' a call to IINTCJUL is generated in place of a call to ICJULIAN. See IINTCJUL later in this appendix.

Parameters

Edit processing

1. If the length is 10, test for valid delimiters ('/' or '-'). Exit with error code ERR1 if they are not found.
2. Test for valid day, month, and year (cc is checked simply for valid numeric value). Exit with error code ERR1 if anyone is invalid.
3. Convert the date to Julian format (ccyyddd) and move the results to WORKFLD-NUMERIC.

IINTLDT

Function

Validates a date entered as dd/mm/yy or dd-mm-yy (if TPI-datefield-LTH is 8), or ddmmyy (if TPI-datefield-LTH is 6), and stores it in yymmdd format

A call to this field edit is generated in either of these cases:

• It is requested directly (that is, 'INTLDT' is identified as the input field edit)
• The INTDATE parameter in TLNIIS is set to 'I' and DATE is identified as the input field edit

Parameters

Edit processing

1. Determine the input field length.
2. If 8, check for valid delimiters ('/' or '-'). If invalid delimiters are found, set FIELD-EDIT-ERROR to G130.
3. Move date to WORKFLD-NUMERIC and test for valid day, month, and year.
4. If invalid, set FIELD-EDIT-ERROR to the appropriate error code. Otherwise, return edited date in WORKFLD-NUMERIC.

   Note: Yy is tested only for valid numeric characters. Dd and mm are edited for both numeric and valid month-day combinations.

IINTLJUL

Function

Validates a date entered as dd/mm/yy or dd-mm-yy (if TPI-datefield-LTH is 8) or ddmmyy (if TPI-datefield-LTH is 6), and store it in yyddd format.

A call to this field edit is generated in either of these cases:

• It is requested directly (that is, 'INTLJUL' is identified as the input field edit)
• The INTDATE parameter in TLNIIS is set to 'I' and JULIAN is identified as the input field edit

Parameters

Edit processing

1. Determine the input field length.
2. If 8, check for valid delimiters ('/' or '-'). If invalid delimiters are found, set FIELD-EDIT-ERROR to ERR1.
3. Test for valid day, month, and year. If invalid, set FIELD-EDIT-ERROR to ERR1. Otherwise, convert edited date to yyddd and move it to WORKFLD-NUMERIC.

   Note: Yy is tested only for valid numeric characters. Dd and mm are edited for both numeric and valid month-day combinations.

IJULIAN

Function

Checks input for a valid date format, mm/dd/yy or mm-dd-yy (if TPI-datefield-LTH is 8) or mmddyy (if TPI-datefield-LTH is 6).

Note: If the INTDATE parameter in the macro TLNIIS is set to 'I', a call to IINTLJUL is generated in place of a call to IJULIAN. For more information, see IINTLJUL.

Parameters

Edit processing

1. If the field length is 8, test for valid delimiters (/ or -). Exit with error code ERR1 if they are not found.
2. Test for valid day, month, and year. (Yy is checked simply for valid numeric value.) Exit with error code ERR1 if any one is invalid.
3. Convert the date to Julian format of yyddd and move the results to WORKFLD-NUMERIC.

ILALPHA

Function

Left-justifies a character field.

Parameters

Edit processing

1. Start on left and search for the first nonblank character.
2. Compute length of remaining field.
3. Use the result to left-justify the result in WORKFLD-ALPHA.

ILNULL

Function

Left-justifies a character field.

Parameters

Edit processing

If the input field is blank, set the null indicator to -1. Otherwise, set the null indicator to 0 and:

1. Start on the left and search for the first nonblank character.
2. Compute length of remaining field.
3. Use the result to left-justify the remaining characters into WORKFLD-ALPHA.

ILVCHAR

Function

Left-justifies a variable-length character field.

Parameters

Edit processing

1. Start on left and search for the first nonblank variable-length character.
2. Search for the last nonblank variable-length character.
3. Compute length of remaining field.
4. Use the result to left-justify the result in WORKFLD-VCHAR.
5. Move the length to the length part of WORKFLD-VCHAR.

ILVNULL

Function

Left-justifies a variable-length character field.

Parameters

Edit processing

If the input field is blank, set the null indicator to -1. Otherwise, set the null indicator to 0, and:

1. Start on the left and search for the first nonblank character.
2. Search for the last nonblank character.
3. Compute length of remaining field.
4. Use the result to left-justify the remaining characters into WORKFLD-VCHAR.
5. Move the length of the remaining field to the length portion of the WORKFLD-VCHAR.

INBALPHA

Function

Checks for imbedded blanks. INBALPHA differs from IFULLCAR because it allows leading and trailing blanks. IFULLCAR allows neither.

Parameters

Edit processing

1. Search for the first nonblank character.
2. Search for the next nonblank character or end-of-field.
3. If end-of-field is reached before the next nonblank, move the input field to WORKFLD-ALPHA and exit without an error code.
4. If a blank is found, make sure all remaining characters are blank. If they are, move the input field to WORKFLD-ALPHA and exit without an error code. If another nonblank is found, exit with error code G122.

INBNULL

Function

Checks for imbedded blanks. This edit allows for leading and trailing blanks.

Parameters

Edit processing

If the input field is blank, set the null indicator to -1. Otherwise, set the null indicator to 0, and:

1. Search for the first nonblank character.
2. Search for the next nonblank character or end-of-field.
3. If end-of-field is reached before the next nonblank character, move the input field to WORKFLD-ALPHA and exit without an error code.
4. If a blank is found, make sure all remaining characters are blank. If they are, move the input field to WORKFLD-ALPHA and exit without an error code. If another nonblank character is found, exit with error code N122.

INBVCHAR

Function

Checks for imbedded blanks. This edit allows leading and trailing blanks.

Parameters

Edit processing

1. Search for the first nonblank character.
2. Search for the next nonblank character or end-of-field.
3. If end-of-field is reached before the next nonblank, move the input field to WORKFLD-VCHAR and exit without an error code.
4. If a blank is found, make sure all remaining variable-length characters are blank. If they are, move the input field to the character part of WORKFLD-VCHAR, move the length to the length part of WORKFLD-VCHAR and exit without an error code. If another nonblank is found, exit with error code G122.

INBVNULL

Function

Checks for imbedded blanks in a variable-length character field. This edit allows for leading and trailing blanks.

Parameters

Edit processing

If the input field is blank, set the null indicator to -1. Otherwise, set the null indicator to 0, and:

1. Search for the first nonblank character.
2. Search for the next nonblank character or end-of-field.
3. If end-of-field is reached before the next nonblank character, move the input field to the character portion of WORKFLD-VCHAR, move the length to the length portion of WORKFLD-VCHAR, and exit without an error code.
4. If a blank is found, make sure all remaining variable-length characters are blank. If they are, move the input field to the character portion of the WORKFLD-VCHAR, move the length to the length portion of WORKFLD-VCHAR, and exit without an error code. If another nonblank character is found, exit with error code N122.

INULL

Function

Checks for a completely blank field.

Parameters

Edit processing

If the input field is blank, set the null indicator to -1. Otherwise, set the null indicator to 0, and move the contents of TPI-fieldname to WORKFLD-ALPHA.

INUMERIC

Function

Checks for a valid integer. This field edit allows for leading and trailing blanks, but not imbedded blanks and non-numeric characters.

Parameters

Edit processing

1. Search for the first nonblank character. Make sure it is numeric.
2. Search for the earlier of the next nonblank or the end-of-field. Make sure there are no imbedded blanks and that all characters are numeric.
3. If no imbedded blanks or non-numeric characters are found, right-justify and zero-fill the field in WORKFLD-NUMERIC and exit. Otherwise, exit with error code G122.

INUMNULL

Function

Checks for a valid integer. This edit allows leading and trailing blanks, but not imbedded blanks and non-numeric characters.

Parameters

Edit processing

If the input field is blank, set the null indicator to -1. Otherwise, set the null indicator to 0, and:

1. Search for the first nonblank character. Make sure it is numeric.
2. Search for the earlier of the next nonblank character or end-of-field. Make sure there are no imbedded blanks and that all characters are numeric.
3. If no imbedded blanks or non-numeric characters are found, right-justify and zero-fill the field in WORKFLD-NUMERIC, and exit the edit. Otherwise, exit the edit with an error code of N122.

ISTATE

Function

Verify that a valid two-character postal state code is entered.

Parameters

Edit processing

1. Move TPI-fieldname to WORKFLD-ALPHA.
2. Verify the contents of WORKFLD-ALPHA against a state-code table that includes the 50 states, the District of Columbia, and Puerto Rico.
3. If there is a match, exit with no error. Otherwise, exit with error code G133.

IVCHAR

Function

Moves a variable-length character field.

Parameters

Edit processing

1. Search for the last nonblank character.
2. Determine remaining length of field.
3. Move the input field to the character part of WORKFLD-VCHAR.
4. Move the length to the length part of WORKFLD-VCHAR.

IVNULL

Function

Sets a null indicator based on the contents of a variable-length character field. This edit can be used to check for a blank input field.

Parameters

Edit processing

If the input field is blank, set the null indicator to -1. Otherwise, set the null indicator to 0, and:

1. Search for the first nonblank character.
2. Determine the remaining length of field.
3. Move the input field to the character portion of WORKFLD-VCHAR.
4. Move the length to the length portion of WORKFLD-VCHAR.

Calls to Field Edit Modules

Automatic calls to input or output edits, whether CA Telon- or user-supplied, always pass parameters in the order shown in the examples below.

Output edit processing

The following code shows an automatic call to an output edit, the CA Telon-supplied DATE output edit routine. DAY is the screen field to receive the edited output.

COBOL

CALL 'ODATE   '  USING TPO-DAY
    TPO-DAY-LTH,
    WORKFLD-NUMERIC.

PL/I

CALL ODATE (TPO_DAY,
    TPO_DAY_LTH,
    WORKFLD_NUMERIC);

Input edit processing

The following code shows the automatic call to an input edit, the CA Telon-supplied DATE input edit routine. DAY is the screen field holding the input to be edited. The edited data is returned to WORKFLD-NUMERIC.

COBOL

CALL 'IDATE   '  USING FIELD-EDIT-ERROR  TPI-DAY-LTH
    TPI-DAY
    WORKFLD-NUMERIC.

PL/I

CALL  IDATE (FIELD_EDIT_ERROR,
    TPI_DAY_LTH,
    TPI_DAY,
    WORKFLD_NUMERIC);