{
{   The purpose of this request is to right justify a string of characters.
{
{       CLP$RIGHT_JUSTIFY_STRING (SUBSTRING)
{
{ SUBSTRING: (input,output)  This parameter specifies the string to be right
{       justified.
{
