/rpg/other/index.htmlChapter 6.5 Other RPG Procedures This chapter describes other procedures.Hugoen-usMon, 01 Jan 0001 00:00:00 +0000/rpg/other/arraydestroy/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/arraydestroy/index.htmlThis procedure destroys array in memory. Parameter Type Description arrayPtr POINTER Mandatory Pointer to array Procedure returns *ON if array was destroyed correctly. It returnf *OFF in case of destroying process failed. Examples: xxText = 'Example of text'; xxPtr = stringToArray(%ADDR(xxText): %LEN(%TRIMR(xxText))); //This will create array with following elements: ['Example','of','text'] arrayDestroy(xxPtr);/rpg/other/arrayget/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/arrayget/index.htmlThis procedure returns element (character value) for given index. Parameter Type Description arrayPtr POINTER Mandatory Pointer to array index 9P 0 Mandatory Index of element This procedure returns element (character value) for given index. Examples: xxText = 'Example of text'; xxPtr = stringToArray(%ADDR(xxText): %LEN(%TRIMR(xxText))); //This will create array with following elements: ['Example','of','text'] xxNum = arrayGetNumOfElements(xxPtr); //xxNum = 3 xxValue = arrayGet(xxPtr: 2); //xxValue = 'of' arrayDestroy(xxPtr);/rpg/other/arraygetnumofelements/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/arraygetnumofelements/index.htmlThis procedure returns number of elements of array. Parameter Type Description arrayPtr POINTER Mandatory Pointer to array Procedure returns number of array elements (9P 0). Examples: xxText = 'Example of text'; xxPtr = stringToArray(%ADDR(xxText): %LEN(%TRIMR(xxText))); //This will create array with following elements: ['Example','of','text'] xxNum = arrayGetNumOfElements(xxPtr); //xxNum = 3 arrayDestroy(xxPtr);/rpg/other/generatehashcode/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/generatehashcode/index.htmlThis procedure generated 32 bytes hash code for any data passed as input. Parameter Type Description inputDataPtr POINTER Mandatory Pointer to data inputDataLen 10U 0 Mandatory Length of data in bytes The procedure returns 32 characters variable represening unique hash code of given data. Example: xxData = 'Any text, for example Hello World!'; xxHash = generateHashCode(%ADDR(xxData): %SIZE(xxData));/rpg/other/getconfiglib/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/getconfiglib/index.htmlThis procedure returns Config library. The procedure returns library name where config objects are located. Example: xxLib = getConfigLib();/rpg/other/getcontrollib/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/getcontrollib/index.htmlThis procedure returns Control library. The procedure returns library name where control objects are located. Example: xxLib = getControlLib();/rpg/other/getframeworklib/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/getframeworklib/index.htmlThis procedure returns Framework library. The procedure returns library name where framework objects are located. Example: xxLib = getFrameworkLib();/rpg/other/getmetadatalib/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/getmetadatalib/index.htmlThis procedure returns Metadata library. The procedure returns library name where metadata objects are located. Example: xxLib = getMetadataLib();/rpg/other/getnotificationslib/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/getnotificationslib/index.htmlThis procedure returns Notifications library. The procedure returns library name where notification objects are located. Example: xxLib = getNotificationsLib();/rpg/other/getobjectlibrary/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/getobjectlibrary/index.htmlThis procedure returns object library. Parameter Type Description object 10A Mandatory Name of object objectType 10A Mandatory Object type The procedure returns library name where given object exists. Example: xxLib = getObjectLibrary('ABC': '*FILE');/rpg/other/jsonvalue2ucs/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/jsonvalue2ucs/index.htmlThis procedure converts JSON value to string. All escaped charactes are changed to binary representation in UCS format. Following conversion is applied: Conversion / –> / \\ –> \ " –> " \t –> 0x0009 \f –> 0x000B \r –> 0x000C \n –> 0x000D \b –> 0x0008 \r\n –> 0x000A \uXXXX –> 0xXXXX where XXXX is hex number NOTE:Enough output memory must be allocated by caller. Parameter Type Description inText_ptr POINTER Mandatory Pointer to variable which contains character value in JSON coding (text which needs to be converted) inText_size 10U 0 Mandatory Length of text in bytes outText_ptr POINTER Mandatory Pointer to output text produced by procedure outText_size 10U 0 Mandatory Input/output parameter. As an input the maximum size of allocated memory for output must be provided (in bytes). As output, procedure returns curent length of UCS2 text generated by conversion (In bytes). NOTE: Procedure operates on UCS2 input and output strings!/rpg/other/stringtoarray/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/stringtoarray/index.htmlThis procedure converts string value (character field) to array of words. To avoid memory leak remember to destroy array after ussage! See arrayDestroy procedure() ` Parameter Type Description stringPtr POINTER Mandatory Pointer to variable which contains character value (sentence) stringLen 9P 0 Mandatory Length of text in bytes delimiter 30A Optional list of characters which should be used as delimiter to divide sentence into words. Note: The SPACE is always used Procedure returns pointer to array where separated words are stored./rpg/other/ucs2jsonvalue/index.htmlMon, 01 Jan 0001 00:00:00 +0000/rpg/other/ucs2jsonvalue/index.htmlThis procedure converts string to JSON value. All the forbiden charactes are changed either by adding escape character or by changing them to string alloved by JSON: Conversion / –> / \ –> \\ " –> " 0x09 –> \t 0x0B –> \f 0x0C –> \r 0x0D –> \n 0x08 –> \b 0x0A –> \r\n spec char bellow 0x1F–> \uXXXX where XXXX is hex number NOTE:Enough output memory must be allocated by caller.