The linkage of the exit-routine identified in the product PDS COPY by the UDCUSFLW source includes the following fields:
01 UR-ACTION PIC X(04). 01 UR-FILE-INFO. 03 UR-FILE-NAME PIC X(128). 03 UR-FILE-TYPE PIC X(04). 01 UR-RECORD PIC X(32760). 01 UR-FIELD. 03 UR-INP-VAL PIC X(256). 03 UR-POS PIC S9(05) COMP. 03 UR-LEN PIC S9(05) COMP. 03 UR-TYPE PIC X(01). 03 UR-INT PIC S9(03) COMP. 03 UR-DEC PIC S9(03) COMP. 03 UR-SIGN PIC X(01). 03 UR-NULL PIC X(01). 03 UR-VARCHAR PIC X(01). 03 UR-INULL-VAL PIC X(01). 88 UR-VAL-NULL VALUE X"6F". 03 UR-OTHER-FIELDS-NBR PIC S9(04) COMP. 01 UR-OTHER-FIELDS. 03 OCCURS 50. 05 UR-P-FILE-NAME PIC X(128). 05 UR-P-FILE-TYPE PIC X(04). 05 UR-P-INP-VAL PIC X(256). 05 UR-P-POS PIC S9(05) COMP. 05 UR-P-LEN PIC S9(05) COMP. 05 UR-P-TYPE PIC X(01). 05 UR-P-INT PIC S9(03) COMP. 05 UR-P-DEC PIC S9(03) COMP. 05 UR-P-SIGN PIC X(01). 05 UR-P-NULL PIC X(01). 05 UR-P-VARCHAR PIC X(01). 05 UR-P-INULL-VAL PIC X(01). 88 UR-P-VAL-NULL VALUE X"6F". 01 UR-OUTPUT. 03 UR-OUT-VAL PIC X(256). 03 UR-OUT-FLDTYPE PIC X(01). 03 UR-OUT-FLDLEN PIC S9(03) COMP. 03 UR-OUT-FLDINT PIC S9(03) COMP. 03 UR-OUT-FLDDEC PIC S9(03) COMP. 03 UR-OUT-FLDSIGN PIC X(01). 03 UR-RETCODE PIC X(02). 03 UR-MSG-CODE PIC X(07). 03 UR-MSG-PARM PIC X(128). 03 UR-OUT-TYPE PIC X(01). 03 UR-DESCR PIC X(80).
These fields are described in the following table:
Field name | Input/Output | Description |
---|---|---|
UR-ACTION | Input | Flag describing the action to be performed. Possible values: INIT - (not used with this product but included for future use) indicates that the call processes a record read from an original file. LAST - indicates that the call has been made at the end of the record processing operation. It is only available to routines customized by the user. AUTH - (not used with this product but included for future use) indicates that the call returns a string containing the author of the exit routine in UR-DESCR VERS - (not used with this product but included for future use) indicates that the call returns a string containing the version of the exit routine in UR-DESCR INFO - (not used with this product but included for future use) indicates that the call returns a string containing the title of the exit routine in UR-DESCR DESC - (not used with this product but included for future use) indicates that the call returns, in UR-DESCR, a row in a table containing the description of the exit routine INPT - (not used with this product but included for future use) indicates that the call returns, in UR-DESCR, a row in a table containing: string 1 (to indicate that the user exit has only one input parameter), the type and the length of the input field OUTP - (not used with this product but included for future use) indicates that the call returns, in UR-DESCR, a row in a table containing: the type and the length of the output field |
UR-FILE-NAME | Input | Not used |
UR-FILE-TYPE | Input | Not used |
UR-RECORD | Input | File Record |
UR-INP-VAL | Input | Value contained in the field to be migrated. |
UR-POS | Input | Position of the field to be migrated inside the record. |
UR-LEN | Input | Length of the field to be migrated. |
UR-TYPE | Input | Type of the field to be migrated. |
UR-INT | Input | Number of integers (for numeric fields only). |
UR-DEC | Input | Number of decimals (for numeric fields only). |
UR-SIGN | Input | Sign of the field to be migrated. |
UR-NULL | Input | Content of any null byte . |
UR-VARCHAR | Input | Length of the VARCHAR field . |
UR-INULL-VAL | Input | Byte value possibly containing the null value . |
UR-OTHER-FIELDS-NBR | Input | Not used |
UR-OTHER-FIELDS | Input | Source encoding type in its UR-P-FILE-NAME field |
UR-OUT-VAL | Output | Value contained in the migrated field |
UR-OUT-FLDTYPE | Output | Not used |
UR-OUT-FLDLEN | Output | Length of the masked value. |
UR-OUT-FLDINT | Output | Not used |
UR-OUT-FLDDEC | Output | Not used |
UR-OUT-FLDSIGN | Output | Not used |
UR-RETCODE | Output | Return code (Space = OK) |
UR-MSG-CODE | Output | Not used |
UR-MSG-PARM | Output | Not used |
UR-OUT-TYPE | Output | Flag describing the location of the processed value. Possible flags: R - The change worked directly on UR-RECORD F - The output value is in UR-OUT-VAL |
UR-DESCR | Output | (Not used now, but included for future use.) It contains additional information about the exit routine. |