CDS234
|
Copy common template fields |
Last Revised: 09/07/16 |
This routine is used to copy fields with the same name from one string template to another. It is used by CDS034 and can also be used in custom data conversion programs, Dynaweb applications to map fields from CGI$ to another templated string, or other application programs.
CDS234 also supports changes in template field type including conversion from C to any numeric template type, and from a numeric template type to C, from one numeric template type to another, and from MM/DD/YY dates to julian. See field conversion notes below.
Calling Format:
CALL "CDS234", ERR=XXXX, RECIN$, RECOUT$ {, S234$ }
| CDS234 Arguments | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| Argument | Passed To/From | Description | ||||||||
ERR=XXXX
|
N/A | Error branch taken if:
|
||||||||
RECIN$
|
to | Input templated string | ||||||||
RECOUT$
|
to | Output templated string. Note that that RECOUT$ is not initialized by CDS234, so any fields with data will not be changed unless the same field name is found in RECIN$. |
||||||||
S234$
|
to/from |
|
||||||||
CDS234 will display an Error Message unless S234.ERRMSG$="N".
The operator can touch F5 to display the input and output data, I to ignore
subsequent error messages, and A to abort which will cause CDS234 to EXIT 99.
Fields contained in RECIN$ but not RECOUT$ are
ignored without an error message.
| Error Messages | |
|---|---|
| Message | Description |
RECIN$ must be templated |
The RECIN$ argument requires a template. |
RECOUT$ must be templated |
The RECOUT$ argument requires a template. |
| Data does not match template at Field Name XXXX | The program is encountering an error 47 at the Field Name specified. This indicates that the template does not accurately describe the data in RECIN$. Correct the data or template. |
| Input field contains non-printable character(s) at Field Name XXXX | The input field contains a non-printable character, typically a line feed field terminator. This usually indicates that the template does not accurately describe the data in RECIN$. Correct the data or template. |
| Non-numeric data of XXXX at Field Name XXXX | The program is encountering an error 26 at the Field Name specified.
This indicates that numeric field in RECIN$ contains non-numeric
characters. The field value is displayed in 'string' or $hexadecimal$ format. Correct the data or template. |
| Field Name with value of 'XXXX' changed to 'XXXXX' | This usually indicates that the field size in RECOUT$ is not large enough to hold the value from RECIN$. |
| Field Conversion Notes | |
|---|---|
| Rule# | Description |
| 1 | When converting a C(8) field to a numeric field and the data contains a "/" in the 3rd and 6th position, the C(8) field is assumed to be a date, and stored in julian format in the numeric field, typically a U(3) or N(7) field. This enables conversion of dates in MM/DD/YY format to julian without needing to write custom code. |
| 2 | When converting from C(x) to U(y) where x=y is the same, i.e., C(3) to U(3), it is assumed that the C(x) field contains binary data and simple string conversion takes place, i.e., RECOUT.FLD$=RECIN.FLD$. This enables conversion of ID fields such as AP12.VOUCHERNO$ from C(3) to U(3). |
| 3 | When converting from C(x) to U(y) where x <> y, or from C() to I() or B, then the numeric value of the string will be used, i.e., RECOUT.FLD=NUM(RECIN.FLD$). |
| 4 | When converting to an N() type field and an output mask is provided, and the mask does not contain a comma, a % (date & time masks), nor an R (CR/DR), then the data will be stored using the mask provided, i.e., RECOUT.FLD$=STR(VAL:OMASK$). This is consistent with how CDS039 stores masked N type fields which is useful when a numeric field is used as a key segment. |
| 5 | When converting from N(x) to C(y), or C(x) to N(y), or N(x) to N(y) and x=y, then simple string assignment is used, i.e., RECOUT.FLD$=RECIN.FLD$. This will retain any leading zero's when a mask is not provided. |
| 6 | When converting from N(x) to C(y), or C(x) to N(y), or N(x) to N(y) and x<>y, and the output field is a fixed length, then the data will be right justified to retain any numerical sorting sequence. This is useful when the field is used as a key segment. |
| 7 | In all other cases where a numeric field is converted to a string field, the STR() function is used, i.e., RECOUT.FLD$=STR(VAL). |
| 8 | Repeating fields are supported. Input, Output or both can be repeating fields. No error message is created when the maximum repeat of the output field is less than the input field. For example if the input data includes SALES[12] and the output includes SALES[10], SALES[1] through SALES[10] will be copied to the output, and SALES[11] and [12] will be ignored. |
| Example (Copy and paste code to execute test) |
2000 TEST:
|