Returns a graphic string whose value is the context of the field that was being processed when the CONVERSION condition was signaled.
ONGSOURCE()
or
ONGSOURCE
The second syntax form can be used only when ONGSOURCE has been explicitly declared with the BUILTIN attribute.
This example assumes Codepage of 932 - SHIFT-JIS - Japanese.
ONGSRC: PROC OPTIONS(MAIN);
DCL I FIXED BIN(15);
DCL CSTR CHAR(4);
DCL GSTR GRAPHIC(4);
ON CONVERSION BEGIN;
DCL BADSTR GRAPHIC(4);
PUT SKIP LIST("ON CONVERSION TRIGGERED");
BADSTR = ONGSOURCE();
PUT SKIP LIST (HEX(BADSTR));
ONGSOURCE() = 'Err!';
END ;
GSTR = '8989826182628263'GX;
PUT SKIP LIST(HEX(GSTR));
CSTR = GSTR; /* '8989'gx conversion error */
CSTR = GSTR;
PUT SKIP LIST(CSTR);
END;
Will print:
8989826182628263 ON CONVERSION TRIGGERED 8989826182628263 ON CONVERSION TRIGGERED 8989826182628263 Err!
Description
The ONGSOURCE function returns a graphic string whose value is the context of the field that was being processed when the CONVERSION condition was signaled.
The ONGSOURCE function can be used in an ON-unit established for a CONVERSION condition. It can also be used for an ERROR ON-unit that obtains control as the result of unsuccessful error correction in the CONVERSION ON-unit.
The returned value is a varying-length graphic string.