KPG1_CSHFT

Shifts the characters left or right in a string

Description:

This routine shifts all characters in a string by a given number of characters, padding with spaces at the ends.

Invocation

CALL KPG1_CSHFT( N, TEXT )

Arguments

N = INTEGER (Returned)
The number of characters to shift to the right. Negative values produce shifts to the left.
TEXT = CHARACTER ( ) (Given and Returned)
The text to be shifted.